Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1318 1802 (N55E09 L= 50)   461     44        0 (1300/1775-1334/1826) -51.3 E11-E06 N52-N58
      2  696 1668 (N23E42 L= 17)   707    130        2 ( 631/1638- 756/1696)  11.3 E46-E36 N20-N24
      3 1383 1588 (N39W05 L= 65)   868    152        3 (1320/1534-1437/1637) -16.7 W00-W10 N36-N41
      4 1561 1397 (N32W23 L= 83)   425    110        0 (1520/1346-1594/1429) -23.2 W19-W26 N29-N33
      5  291 1162 (S16E52 L=  7)   457     94        0 ( 263/1121- 322/1202)  51.3 E54-E50 S18-S13
      6 1444 1144 (N13W20 L= 80)   297    119        0 (1398/1095-1469/1178) -21.8 W17-W22 N10-N14
      7  381 1067 (S20E42 L= 17)   341     97        0 ( 346/1035- 428/1090)  39.8 E44-E38 S22-S17
      8 1755 1033 (N17W46 L=105)   543     69        2 (1733/ 997-1781/1060) -26.6 W43-W48 N14-N19
      9 1670 1028 (N14W39 L= 98)   263     52        1 (1644/ 997-1693/1046) -63.4 W36-W40 N12-N14
     10  284  952 (S29E50 L= 10)   561    142        0 ( 230/ 908- 337/ 986)  22.6 E55-E43 S32-S26
     11 1506  691 (S10W38 L= 98)   325     68        2 (1485/ 656-1529/ 727) -45.0 W36-W39 S11-S08
     12 1465  369 (S28W55 L=115)   435     35        2 (1435/ 351-1492/ 386)  26.6 W52-W57 S29-S26
     13  948  351 (S48W22 L= 81)   291     57        1 ( 928/ 328- 974/ 380) -38.7 W18-W23 S49-S45
     14 1360  238 (S39W62 L=122)  1018    191        0 (1282/ 187-1433/ 281) -84.8 W59-W66 S44-S33
  

    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