Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  827 1817 (N62W18 L=114)   362     67        0 ( 801/1793- 858/1839)   5.7 W13-W23 N59-N63
      2 1153 1793 (N46W41 L=137)   492     75        1 (1130/1752-1174/1823)  35.5 W37-W45 N43-N48
      3 1427 1706 (N32W53 L=148)  1532    231        3 (1351/1611-1516/1764) -85.9 W48-W56 N23-N37
      4  979 1372 (N25W07 L=102)   265     99        0 ( 953/1327-1009/1414) -81.9 W05-W07 N21-N28
      5  553 1387 (N37E22 L= 74)   409    107        0 ( 511/1337- 604/1413) -45.0 E25-E18 N32-N39
      6  259 1388 (N45E55 L= 41)   612     65        2 ( 225/1369- 291/1405) -13.0 E62-E49 N43-N46
      7  500 1236 (N29E28 L= 68)   275     99        1 ( 475/1211- 531/1263)  11.3 E30-E25 N27-N30
      8  217 1105 (N27E56 L= 39)  2284    314        7 ( 179/1015- 292/1248) -60.6 E62-E48 N20-N36
      9  388 1119 (N25E39 L= 57)   274    121        0 ( 350/1102- 442/1141)  -7.1 E42-E34 N23-N26
     10  450  951 (N14E37 L= 59)   240     94        0 ( 429/ 913- 470/ 996)  45.0 E38-E34 N11-N15
     11  273  865 (N12E54 L= 42)   467     88        1 ( 256/ 825- 289/ 912)  45.0 E56-E51 N10-N14
     12 1158  847 (S09W03 L= 99)   432    133        0 (1134/ 784-1192/ 907)  39.8 W00-W06 S11-S05
     13 1759  651 (S39W45 L=141)   779    145        1 (1702/ 623-1817/ 674)  -7.6 W37-W53 S40-S36
     14  921  473 (S25E22 L= 74)   323    113        0 ( 856/ 459- 974/ 488) -14.0 E25-E17 S25-S23
     15 1245  248 (S53E11 L= 85)   985    111        1 (1193/ 225-1307/ 280) -10.3 E16-E04 S55-S49
  

    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