Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  916 1827 (N40E38 L= 27)  1338    264        2 ( 841/1747-1005/1912) -16.7 E55-E25 N36-N46
      2  620 1813 (N31E60 L=  4)  1058     98        0 ( 590/1769- 648/1860) -39.3 E69-E56 N26-N35
      3  806 1673 (N25E34 L= 31)   637    180        0 ( 777/1606- 842/1761) -34.7 E41-E28 N21-N30
      4 1275 1513 (N28W01 L= 65)  1132    351        1 (1162/1369-1349/1628) -29.1 E09-W09 N21-N33
      5  878 1562 (N20E24 L= 40)   365     95        1 ( 846/1526- 919/1590)  68.2 E26-E22 N17-N22
      6 1658 1196 (N21W34 L= 99)   249     59        0 (1644/1164-1671/1224) -56.3 W32-W35 N19-N22
      7  139 1087 (S23E71 L=354)  4037    332        8 (  99/ 935- 182/1223)  86.8 E79-E64 S32-S14
      8  195 1029 (S26E61 L=  3)  1668    255        2 ( 146/ 936- 230/1121)  65.6 E68-E57 S31-S20
      9 1732 1020 (N14W44 L=108)   341     62        0 (1715/ 988-1754/1043)  76.0 W42-W45 N11-N15
     10 1094  609 (S28W17 L= 81)   237     94        1 (1062/ 568-1111/ 659) -26.6 W13-W19 S30-S26
     11 1633  529 (S15W56 L=121)   511    118        1 (1577/ 506-1675/ 558)  39.8 W52-W59 S17-S12
     12 1564  365 (S25W64 L=129)  1163    155        0 (1507/ 317-1634/ 428)  90.0 W61-W66 S29-S19
     13 1300  317 (S38W48 L=112)   529    141        0 (1236/ 298-1365/ 342)  20.0 W41-W52 S39-S35
  

    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