Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1412 1453 (N18W36 L=147)   726    149        0 (1338/1423-1473/1473) -32.0 W31-W39 N15-N20
      2 1889 1183 (S12W65 L=176)  3544    234       13 (1805/1088-1950/1253) -45.0 W55-W73 S19-S06
      3 1352 1231 (N08W24 L=135)   209     82        0 (1307/1219-1390/1245) -21.8 W21-W26 N07-N09
      4  589 1117 (N22E23 L= 88)  1482    409        2 ( 423/ 998- 717/1235) -52.7 E34-E17 N12-N33
      5 1821 1130 (S12W54 L=166)   477     69        1 (1793/1101-1842/1164)  18.4 W50-W57 S13-S10
      6  877 1141 (N16E05 L=106)   319    139        0 ( 819/1128- 959/1151) -26.6 E08-W00 N13-N18
      7 1884 1057 (S18W60 L=171)  2924    217        8 (1816/ 977-1939/1125) -73.3 W50-W69 S24-S13
      8 1614  941 (S15W32 L=144)   645    209        1 (1575/ 849-1639/1039)  48.4 W27-W35 S19-S10
      9 1792  923 (S22W47 L=158)   531    113        0 (1760/ 876-1822/ 966)  20.6 W42-W50 S23-S20
     10 1162  870 (S06W03 L=115)   204     46        1 (1133/ 853-1194/ 883) -14.0 W01-W05 S06-S04
     11  791  743 (S03E20 L= 91)   388     94        1 ( 751/ 710- 831/ 793) -68.2 E21-E18 S05-N00
     12 1142  630 (S19E04 L=107)   846    296        0 (1095/ 490-1189/ 749)  49.8 E10-W01 S26-S12
     13  450  484 (S10E53 L= 58)  1314    253        1 ( 413/ 383- 482/ 595)  55.3 E61-E48 S16-S03
     14  352  501 (S08E62 L= 50)  2362    223        5 ( 258/ 410- 413/ 567) -67.4 E70-E53 S14-S02
  

    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