Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1729 1443 (N19W60 L=260)   615     78        2 (1704/1416-1757/1468) -90.0 W56-W62 N17-N20
      2 1305 1314 (N19W22 L=222)  2067    449        3 (1081/1233-1512/1384) -28.3 W08-W34 N11-N26
      3 1822 1355 (N12W67 L=267)   833    264        0 (1772/1335-1872/1378) -11.3 W61-W76 N09-N14
      4  737 1193 (N20E16 L=184)   279    127        0 ( 693/1161- 791/1210)   0.0 E19-E12 N18-N21
      5  251 1096 (N18E55 L=145)   867    114        2 ( 220/1045- 298/1140)  45.0 E58-E50 N15-N20
      6 1552  989 (S04W33 L=233)   331    131        0 (1518/ 940-1575/1035)  80.5 W30-W34 S06-N00
      7 1694  971 (S08W44 L=244)   339     67        3 (1675/ 944-1717/ 996) -90.0 W42-W45 S09-S06
      8 1774  882 (S15W50 L=250)  1134    233        2 (1723/ 795-1814/ 992)  54.0 W45-W54 S19-S08
      9 1586  828 (S14W34 L=234)   952    185        0 (1514/ 768-1646/ 922)  35.0 W28-W39 S17-S09
     10 1673  845 (S15W41 L=241)   357    133        1 (1633/ 781-1719/ 891)  45.0 W37-W45 S18-S12
     11  630  782 (S04E28 L=172)   732    177        2 ( 548/ 754- 699/ 827)  -5.7 E33-E23 S05-S01
     12  719  644 (S14E25 L=175)   704    215        1 ( 691/ 547- 746/ 737)  67.4 E28-E22 S19-S07
     13 1532  577 (S30W29 L=229)   359     84        0 (1497/ 546-1572/ 619)  26.6 W26-W32 S32-S28
     14  422  476 (S22E53 L=147)   525    149        0 ( 391/ 404- 457/ 521)  83.7 E54-E51 S27-S18
  

    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