Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1033 1596 (N41W02 L=221)  1030    284        4 ( 939/1522-1148/1687) -36.9 E06-W10 N35-N49
      2  492 1648 (N45E52 L=167)   402     41        2 ( 468/1629- 514/1669)   0.0 E55-E48 N44-N47
      3 1616 1464 (N29W48 L=267)   775    165        1 (1538/1427-1685/1499) -21.0 W41-W54 N26-N32
      4  195 1267 (N18E67 L=151)  3467    162       10 ( 147/1187- 239/1347) -68.2 E76-E61 N13-N23
      5 1600 1261 (N17W40 L=259)   354     88        0 (1549/1241-1640/1277)   8.1 W36-W43 N15-N17
      6  280 1160 (N12E54 L=165)   770    151        3 ( 242/1095- 318/1227)  83.7 E57-E50 N07-N16
      7 1646 1131 (N08W42 L=261)   385     95        0 (1630/1084-1662/1180)  56.3 W40-W44 N05-N11
      8  485  859 (S06E36 L=183)   982    268        4 ( 397/ 770- 581/ 952) -37.6 E42-E29 S11-N00
      9  284  882 (S05E53 L=166)   394     63        3 ( 263/ 858- 314/ 902) -11.3 E54-E49 S06-S03
     10  355  813 (S09E47 L=172)   451    113        1 ( 325/ 769- 383/ 861)  39.8 E50-E43 S11-S06
     11  326  681 (S18E53 L=166)  5538    457       16 ( 185/ 529- 474/ 841) -36.0 E68-E42 S27-S07
     12  957  739 (S14E05 L=214)   476    160        2 ( 886/ 701- 993/ 807)  40.6 E09-E02 S16-S09
     13  566  609 (S22E33 L=186)   858    209        1 ( 514/ 521- 618/ 690)  50.2 E39-E27 S28-S16
     14 1003  439 (S35E03 L=216)  2358    575        7 ( 820/ 312-1162/ 634)  42.6 E18-W08 S45-S20
     15 1270  175 (S63W32 L=250)   782     78        0 (1254/ 134-1287/ 211) -37.4 W25-W44 S71-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