Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  861 1860 (N64W24 L=360)  1773    234        3 ( 771/1781- 945/1930)   7.5 W08-W47 N58-N67
      2 1116 1687 (N40W28 L=  4)  1826    426        2 ( 942/1650-1313/1727) -22.9 W13-W39 N32-N45
      3 1568 1598 (N22W54 L= 30)   366     54        1 (1543/1576-1600/1618) -53.1 W51-W56 N19-N23
      4  718 1573 (N44E06 L=330)   286     58        0 ( 695/1549- 741/1599)  26.6 E07-E03 N42-N45
      5 1656 1439 (N11W52 L= 28)   632     91        0 (1625/1391-1687/1482) -90.0 W49-W53 N07-N13
      6 1503 1325 (N09W36 L= 12)   224     68        0 (1466/1303-1535/1344) -53.1 W34-W37 N06-N10
      7 1399 1206 (N05W26 L=  2)   511     89        0 (1358/1159-1434/1247) -71.6 W23-W27 N01-N07
      8  194 1066 (N24E58 L=278)  2175    211       10 ( 147/ 996- 239/1137) -52.1 E65-E52 N19-N28
      9 1756 1077 (S11W47 L= 23)   457     77        0 (1726/1037-1781/1114) -71.6 W45-W49 S14-S08
     10 1408  937 (S10W20 L=356)  1217    311        0 (1350/ 793-1442/1083)  51.8 W13-W24 S16-S02
     11  265 1013 (N20E51 L=285)   680    102        1 ( 246/ 958- 297/1067) -90.0 E52-E47 N16-N23
     12  608  985 (N11E25 L=311)   987    265        2 ( 511/ 927- 711/1066) -50.2 E29-E19 N05-N17
     13  203  941 (N17E59 L=277)   422     78        1 ( 176/ 925- 239/ 970) -15.9 E62-E54 N15-N18
     14  232  820 (N09E58 L=278)   623     94        1 ( 210/ 768- 256/ 862)  45.0 E60-E54 N06-N11
     15  213  730 (N04E64 L=272)  2669    276        8 ( 145/ 652- 291/ 807)  22.4 E75-E53 N00-N08
     16 1833  646 (S41W56 L= 32)  1011    114        0 (1783/ 623-1887/ 670) -18.4 W47-W71 S45-S37
     17 1681  554 (S42W36 L= 13)  1246    245        1 (1585/ 477-1768/ 639)  18.4 W26-W46 S45-S38
     18 1061  506 (S27E11 L=325)   310     51        0 (1034/ 475-1085/ 537)  26.6 E13-E08 S28-S24
     19  643  216 (S36E59 L=277)   819     85        2 ( 607/ 186- 674/ 259)  16.4 E68-E51 S38-S33
  

    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