Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1417 1753 (N57W05 L= 51)   592     79        0 (1385/1726-1454/1771)  36.9 W01-W09 N53-N60
      2 1614 1611 (N53W29 L= 76)   502     58        0 (1594/1573-1632/1640)  74.1 W26-W32 N48-N55
      3  905 1494 (N19E20 L= 26)   262     61        0 ( 874/1481- 948/1513)  11.3 E22-E17 N18-N19
      4 1505 1303 (N25W22 L= 68)   443    138        0 (1447/1278-1539/1351)  45.0 W17-W23 N22-N28
      5 1496 1173 (N17W24 L= 70)   234    114        0 (1485/1117-1511/1224) -81.9 W22-W24 N13-N20
      6 1840  985 (N17W57 L=103)  2483    230        9 (1778/ 882-1900/1062) -42.0 W49-W66 N12-N21
      7 1609 1023 (N12W35 L= 81)   236     29        1 (1585/1008-1637/1038)  26.6 W33-W37 N10-N12
      8 1715  942 (N11W45 L= 92)   308     66        0 (1691/ 918-1738/ 971)  63.4 W43-W46 N08-N12
      9  144  876 (S35E71 L=335)  1694    152        4 ( 115/ 816- 169/ 933)  41.6 E80-E65 S38-S30
     10  290  897 (S30E49 L=358)   658    189        0 ( 227/ 847- 345/ 931)   0.0 E56-E42 S33-S27
     11  436  558 (S50E33 L= 13)   393     71        0 ( 403/ 530- 461/ 586) -18.4 E36-E29 S51-S48
     12 1079  473 (S35W22 L= 68)   503     83        1 (1041/ 457-1129/ 499)  38.7 W18-W24 S36-S32
     13 1401  326 (S33W54 L=100)   620     93        1 (1358/ 302-1431/ 357)   6.3 W48-W58 S33-S30
     14 1172  151 (S53W63 L=110)   870     68        1 (1146/ 121-1196/ 188)  -8.1 W55-W76 S54-S49
  

    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