Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1410 1782 (N36W59 L=168)   435     71        0 (1385/1755-1448/1800)  -7.1 W54-W63 N34-N37
      2 1035 1720 (N45W26 L=135)   261     11        0 (1020/1696-1051/1743)  53.1 W24-W27 N43-N47
      3  394 1612 (N60E43 L= 66)   641    110        0 ( 358/1565- 439/1644)  24.0 E48-E35 N56-N61
      4 1064 1390 (N24W12 L=121)   300     51        0 (1037/1367-1098/1409) -14.0 W10-W14 N23-N25
      5 1849 1341 (S01W67 L=176)  1067     86        1 (1801/1312-1896/1361)  -7.1 W59-W75 S03-N00
      6 1310 1165 (N05W19 L=128)   185     89        0 (1264/1143-1344/1192)   0.0 W16-W22 N04-N06
      7  546 1130 (N22E26 L= 83)  1275    238        3 ( 427/1097- 678/1158) -19.4 E34-E17 N19-N26
      8 1085 1136 (N10W06 L=115)   185    102        0 (1040/1126-1141/1149) -18.4 W03-W09 N08-N10
      9  821  912 (N04E14 L= 95)   251    106        0 ( 765/ 891- 853/ 946)   0.0 E17-E11 N02-N05
     10 1461  835 (S17W20 L=129)   640    316        0 (1368/ 743-1576/ 943)  15.5 W12-W30 S19-S13
     11 1595  880 (S18W30 L=139)   362    111        1 (1551/ 835-1629/ 927)  33.7 W26-W33 S19-S15
     12 1167  884 (S06W04 L=113)   204     90        0 (1121/ 865-1212/ 897) -38.7 W01-W06 S08-S04
     13  217  808 (N11E61 L= 48)  2342    372        5 (  97/ 699- 348/ 895) -26.6 E78-E50 N02-N17
     14  382  820 (N08E45 L= 64)   905    270        4 ( 335/ 736- 421/ 893) -90.0 E47-E42 N03-N12
     15 1735  708 (S33W40 L=149)  1776    351        2 (1670/ 620-1827/ 848)  32.0 W33-W50 S38-S27
     16 1505  687 (S27W20 L=129)   270     73        0 (1484/ 653-1528/ 723)  36.9 W18-W22 S28-S25
     17  645  640 (S07E32 L= 77)   428    136        0 ( 605/ 590- 695/ 685)  26.6 E35-E27 S09-S05
     18  293  588 (S03E62 L= 47)  1439    189        2 ( 231/ 522- 349/ 672)  14.6 E76-E53 S06-N00
     19  949  217 (S43E35 L= 74)  1293    306        3 ( 813/ 172-1076/ 294)   2.0 E49-E20 S46-S40
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y