Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1462 1679 (N29W55 L=238)   940    199        0 (1375/1656-1558/1703) -29.7 W48-W62 N24-N32
      2 1136 1669 (N39W31 L=214)   326     77        0 (1103/1651-1177/1687)   0.0 W27-W34 N38-N40
      3 1658 1541 (N15W60 L=243)   385     56        0 (1625/1523-1692/1556) -31.0 W57-W62 N12-N16
      4 1271 1448 (N22W27 L=210)   708    225        2 (1164/1415-1376/1482) -14.9 W20-W35 N19-N24
      5  662 1079 (N18E20 L=163)   721    255        1 ( 562/1045- 800/1104) -17.4 E26-E10 N14-N20
      6  181  935 (N20E64 L=119)   433     44        0 ( 156/ 911- 204/ 957) -31.0 E67-E61 N18-N21
      7 1207  906 (S05W07 L=190)   563    242        3 (1081/ 847-1297/ 949) -45.0 W00-W11 S10-N00
      8 1629  849 (S21W32 L=215)   541    135        0 (1600/ 786-1656/ 905)  50.2 W29-W35 S24-S18
      9  176  785 (N11E69 L=114)  2627    177        6 ( 131/ 720- 210/ 849)  54.5 E79-E64 N07-N14
     10  645  796 (N03E28 L=155)   294     88        0 ( 624/ 751- 663/ 835) -90.0 E28-E26 N00-N05
     11  465  811 (N08E39 L=144)   409     63        2 ( 430/ 790- 501/ 831) -21.8 E41-E36 N06-N08
     12  609  330 (S25E51 L=132)  1440    220        2 ( 569/ 230- 652/ 434)  52.6 E59-E46 S33-S16
     13 1489  361 (S52W13 L=196)  1279    171        2 (1414/ 337-1572/ 398)  -6.3 W05-W23 S54-S48
  

    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