Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1201 1726 (N48W34 L=327)   562     98        0 (1169/1690-1244/1751)  11.3 W28-W38 N46-N50
      2 1331 1635 (N39W38 L=331)   962    137        2 (1279/1587-1382/1683) -82.9 W33-W40 N34-N42
      3 1674 1568 (N26W66 L=359)   646    106        0 (1628/1531-1719/1602) -50.2 W62-W68 N22-N28
      4 1267 1548 (N34W28 L=321)   454    139        0 (1222/1489-1289/1582) -81.9 W25-W30 N30-N37
      5 1183 1523 (N34W21 L=314)   393    114        0 (1161/1474-1217/1568) -90.0 W19-W23 N30-N37
      6  274 1134 (N22E54 L=239)   774    188        1 ( 238/1044- 293/1207) -55.0 E59-E51 N16-N26
      7  712 1141 (N18E18 L=275)   729    285        0 ( 585/1097- 839/1190) -29.4 E26-E10 N13-N22
      8 1685  914 (S12W42 L=335)  1420    244        0 (1613/ 811-1737/1017)  39.8 W35-W47 S16-S06
      9  599  957 (N08E28 L=266)   392    120        0 ( 552/ 908- 628/1002) -56.3 E30-E25 N05-N11
     10 1845  910 (S16W59 L=352)   501    134        0 (1804/ 861-1880/ 969)  26.6 W53-W64 S18-S13
     11 1229  858 (S07W10 L=303)   781    191        1 (1191/ 761-1266/ 936)  59.0 W06-W12 S12-S02
     12 1678  726 (S24W41 L=334)   488    103        0 (1651/ 678-1697/ 779)  63.4 W38-W42 S27-S20
     13 1216  289 (S48W00 L=294)   585     87        1 (1188/ 258-1250/ 317)  38.7 E02-W03 S50-S45
     14  954  174 (S54E31 L=263)   620     68        0 ( 917/ 157- 992/ 193)   0.0 E36-E25 S56-S52
  

    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