Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  974 1769 (N49W05 L= 14)   419     42        1 ( 954/1735- 992/1801)  80.5 W03-W07 N46-N52
      2 1339 1576 (N30W28 L= 37)   240     48        1 (1314/1562-1367/1596)  11.3 W25-W30 N29-N31
      3 1521 1544 (N26W41 L= 50)  1140    231        3 (1411/1477-1598/1571) -28.3 W32-W47 N21-N28
      4  826 1440 (N26E09 L=360)  1579    509        2 ( 594/1354-1017/1528) -28.2 E26-W02 N18-N34
      5 1376 1451 (N22W27 L= 36)   344     90        0 (1325/1441-1428/1463)  -8.1 W23-W30 N20-N22
      6  506 1439 (N29E33 L=336)   384     91        0 ( 463/1421- 556/1460) -20.6 E36-E28 N27-N30
      7 1810 1415 (N16W65 L= 73)   782     82        4 (1774/1381-1846/1452)  26.6 W59-W70 N14-N18
      8 1504 1319 (N12W33 L= 42)   278     99        0 (1478/1265-1527/1357) -80.5 W32-W34 N08-N14
      9 1443 1213 (N06W28 L= 36)   321    147        0 (1398/1172-1496/1273) -54.5 W25-W30 N03-N10
     10 1675  975 (S09W42 L= 51)   479    107        1 (1651/ 924-1713/1021)  63.4 W40-W45 S12-S06
     11 1857  880 (S17W61 L= 69)  4451    427       15 (1775/ 778-1920/ 997)  47.3 W52-W72 S22-S09
     12  406  922 (S02E41 L=328)   258     61        0 ( 389/ 890- 424/ 951)  45.0 E42-E38 S03-N00
     13  299  646 (S17E57 L=311)  1038    150        0 ( 257/ 602- 324/ 700)  71.6 E62-E53 S19-S13
     14 1763  638 (S31W56 L= 64)   532    107        1 (1736/ 587-1786/ 690)  81.9 W53-W57 S34-S27
  

    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