Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  628 1691 (N43E30 L= 79)   530    119        0 ( 611/1629- 657/1747) -78.7 E32-E28 N37-N47
      2 1687 1632 (N35W60 L=169)   720     56        2 (1667/1601-1706/1662)  68.2 W55-W64 N32-N37
      3 1261 1536 (N28W18 L=127)  1041    362        1 (1109/1478-1416/1609) -25.3 W08-W28 N24-N33
      4  331 1371 (N21E48 L= 61)   433     93        0 ( 315/1327- 353/1418) -80.5 E49-E46 N18-N24
      5 1925  974 (S07W69 L=178)  1207    173        2 (1879/ 902-1951/1049) -53.1 W61-W74 S10-S02
      6  642  905 (S08E24 L= 85)   677    203        5 ( 611/ 837- 703/ 996) -63.4 E25-E20 S12-S02
      7 1822  869 (S13W57 L=166)  4602    317       16 (1710/ 740-1908/ 994)  68.2 W45-W68 S20-S05
      8  559  940 (S06E29 L= 80)   201     68        0 ( 547/ 908- 571/ 977)  90.0 E29-E28 S07-S03
      9  225  817 (S11E58 L= 51)  3144    435        8 ( 157/ 674- 300/ 932)  61.9 E66-E49 S19-S04
     10  794  868 (S11E14 L= 95)   308    115        0 ( 741/ 850- 861/ 882)   0.0 E17-E10 S12-S10
     11  412  716 (S19E43 L= 66)  1750    440        3 ( 307/ 612- 479/ 866) -86.2 E55-E37 S24-S09
     12 1718  814 (S16W47 L=156)   628     86        1 (1690/ 773-1744/ 862)  59.0 W44-W49 S18-S13
     13 1254  667 (S25W14 L=123)   205     84        0 (1229/ 636-1280/ 709)  53.1 W12-W15 S26-S22
     14  731  381 (S43E27 L= 82)  1461    324        2 ( 594/ 282- 849/ 486)  22.8 E46-E15 S49-S35
     15 1129  211 (S60W07 L=116)   905    101        3 (1078/ 178-1180/ 239)   4.8 W01-W13 S63-S57
  

    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