Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1735 1538 (N18W63 L=184)   739    122        3 (1704/1510-1760/1567)   7.1 W58-W66 N16-N20
      2 1817 1492 (N14W71 L=192)   885    143        1 (1778/1455-1854/1520) -26.6 W66-W75 N11-N16
      3 1179 1305 (N15W14 L=135)   773    243        2 (1080/1244-1310/1351) -36.9 W08-W20 N08-N18
      4 1404  959 (S09W21 L=142)   858    311        1 (1282/ 824-1472/1073)  40.6 W12-W27 S15-S03
      5 1718 1041 (S10W45 L=166)   464    135        1 (1665/1007-1759/1064) -20.6 W40-W48 S12-S08
      6 1761  950 (S16W48 L=169)   803    135        1 (1729/ 874-1783/1018)  58.0 W44-W50 S20-S12
      7  325  972 (N10E46 L= 75)  1209    343        3 ( 208/ 901- 421/1016) -27.9 E57-E39 N03-N13
      8 1180  975 (S04W08 L=129)   448    102        2 (1128/ 933-1225/1007) -45.0 W05-W10 S07-S01
      9  621  883 (S00E26 L= 94)   286    115        0 ( 599/ 827- 651/ 943) -80.5 E27-E25 S03-N03
     10 1592  760 (S25W32 L=153)  1216    358        0 (1425/ 703-1727/ 827)   2.4 W19-W43 S26-S22
     11 1038  752 (S15E04 L=117)   195    102        0 ( 986/ 740-1092/ 764) -26.6 E06-W00 S16-S13
     12 1671  669 (S32W39 L=160)  1671    293        1 (1548/ 581-1779/ 758)  19.3 W28-W48 S36-S27
     13 1411  539 (S36W17 L=138)   254     57        0 (1385/ 515-1446/ 562)  21.8 W15-W20 S37-S34
     14  681  515 (S23E32 L= 89)   359    104        2 ( 652/ 473- 713/ 555)  45.0 E35-E29 S25-S20
  

    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