Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1373 1804 (N49W61 L=328)   906     85        0 (1339/1768-1412/1833)   5.7 W52-W72 N47-N50
      2 1506 1740 (N40W66 L=334)  1531    142        2 (1458/1695-1552/1789)  69.4 W58-W72 N36-N44
      3 1476 1670 (N37W54 L=321)   455     93        0 (1438/1640-1510/1688) -53.1 W50-W56 N34-N38
      4 1453 1609 (N34W47 L=314)   393     83        0 (1421/1573-1486/1644) -90.0 W45-W48 N30-N36
      5  600 1489 (N43E25 L=242)   264     61        0 ( 572/1476- 639/1502) -18.4 E27-E21 N41-N44
      6 1752 1370 (N12W60 L=328)   754    112        0 (1710/1329-1777/1414) -71.6 W57-W62 N09-N15
      7 1124 1228 (N17W10 L=277)  1015    376        2 ( 946/1168-1276/1278) -31.4 W00-W18 N11-N22
      8  154 1206 (N27E74 L=194)   730     56        1 ( 123/1188- 186/1221)   7.6 E82-E67 N26-N28
      9  596 1160 (N21E26 L=242)   224     98        0 ( 579/1110- 625/1192)  53.1 E27-E23 N18-N22
     10 1609  991 (S06W37 L=304)   534    130        0 (1577/ 944-1639/1054)  45.0 W33-W40 S08-S02
     11 1913  995 (S14W70 L=337)   669     45        0 (1884/ 974-1936/1014)   0.0 W64-W76 S14-S12
     12 1595  490 (S40W35 L=303)   361     33        2 (1573/ 469-1617/ 510) -21.8 W32-W37 S41-S38
     13  860  188 (S50E39 L=228)   460     34        0 ( 841/ 170- 878/ 207)  26.6 E42-E34 S52-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