Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  788 1739 (N59E09 L= 50)  1215    277        1 ( 659/1703- 916/1773)   0.0 E24-W06 N56-N60
      2 1071 1442 (N31W10 L= 68)   339    116        0 (1019/1398-1099/1466) -56.3 W06-W11 N27-N33
      3  861 1372 (N30E06 L= 53)   398    140        0 ( 812/1341- 924/1414) -40.6 E08-E01 N26-N33
      4 1564 1312 (N15W40 L= 98)   241     48        1 (1543/1282-1589/1330) -90.0 W38-W42 N12-N15
      5 1581 1243 (N10W39 L= 98)   367    107        0 (1542/1219-1634/1266) -18.4 W36-W43 N08-N12
      6  419 1125 (N19E40 L= 19)   271     81        0 ( 403/1086- 435/1169) -68.2 E40-E38 N16-N21
      7 1920  977 (S13W70 L=128)  1671    150        5 (1895/ 922-1952/1024) -74.1 W65-W79 S16-S09
      8 1219  741 (S14W08 L= 66)   228     53        1 (1198/ 721-1251/ 760)  18.4 W06-W10 S14-S12
      9 1730  589 (S34W49 L=108)  2413    386        1 (1582/ 463-1870/ 691)  13.2 W34-W69 S40-S29
     10  399  578 (S14E51 L=  7)   922    209        0 ( 351/ 492- 426/ 666)  40.6 E60-E46 S20-S08
     11  247  607 (S12E67 L=351)   649     59        1 ( 215/ 585- 280/ 620)  -5.7 E72-E62 S13-S11
     12 1287  368 (S42W09 L= 67)   419     75        0 (1248/ 349-1328/ 385)   8.1 W05-W12 S42-S39
     13 1103  273 (S46E08 L= 50)  1176    147        2 (1038/ 236-1175/ 304)   8.7 E14-E01 S49-S42
     14  932  204 (S50E27 L= 32)  1406    146        2 ( 891/ 152- 975/ 257)  32.0 E36-E20 S56-S44
  

    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