Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1043 1475 (N23E01 L=219)   403     73        0 ( 998/1446-1079/1496) -36.9 E04-W01 N21-N24
      2 1863 1325 (N21W61 L=281)   510     59        0 (1847/1301-1880/1346)  36.9 W59-W63 N19-N22
      3 1475 1194 (N09W27 L=247)   660    204        0 (1396/1115-1561/1283) -36.9 W21-W33 N04-N13
      4  140 1195 (N04E69 L=151)   616    125        0 ( 119/1168- 168/1223)  36.9 E72-E64 N02-N05
      5 1763 1183 (N11W49 L=270)   408    122        1 (1718/1168-1805/1202)   7.1 W45-W53 N09-N12
      6  209 1104 (S02E59 L=162)   393     82        1 ( 193/1064- 223/1140)  90.0 E60-E56 S04-N00
      7 1907 1090 (N07W66 L=286)   987    184        1 (1872/1048-1933/1138)  63.4 W61-W69 N03-N09
      8  659 1043 (S05E22 L=198)   728    149        2 ( 632/ 967- 685/1128)  83.7 E24-E20 S09-N00
      9 1756  886 (S07W51 L=271)   385     69        2 (1727/ 855-1786/ 914)  76.0 W48-W53 S09-S05
     10  267  851 (S17E53 L=168)   553    119        3 ( 240/ 822- 313/ 888) -26.6 E55-E48 S19-S14
     11 1110  875 (S13W06 L=226)   186     71        0 (1067/ 857-1145/ 888)  11.3 W03-W08 S13-S12
     12 1403  754 (S18W26 L=246)  1633    336        1 (1256/ 651-1578/ 813)  28.8 W17-W37 S25-S13
     13  251  650 (S30E58 L=163)   719    151        0 ( 233/ 597- 278/ 693)  40.6 E60-E53 S32-S26
  

    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