Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  725 1726 (N27E43 L=112)  1268    331        2 ( 658/1669- 823/1805)  68.2 E53-E37 N22-N32
      2 1051 1737 (N38E23 L=133)  1234    259        2 ( 950/1668-1169/1801)   0.0 E33-E12 N34-N40
      3  546 1678 (N20E53 L=102)   842    119        4 ( 504/1651- 606/1712)   0.0 E58-E47 N17-N21
      4 1115 1607 (N31E12 L=143)   260     69        0 (1102/1559-1131/1637) -59.0 E13-E10 N27-N32
      5  482 1416 (N03E44 L=112)  2170    415        5 ( 408/1272- 612/1553)  86.8 E47-E38 S05-N13
      6 1280 1451 (N26W03 L=158)   378    118        1 (1243/1388-1308/1493) -56.3 W00-W05 N22-N28
      7  810 1256 (N01E18 L=138)   573    308        2 ( 758/1149- 852/1354) -42.0 E22-E12 S03-N06
      8 1404 1181 (N13W17 L=173)   286    154        0 (1381/1111-1427/1256) -49.4 W13-W20 N10-N17
      9 1694 1000 (N12W41 L=197)   323    131        0 (1683/ 939-1705/1064) -74.1 W38-W42 N08-N15
     10  574  937 (S22E24 L=131)   354    112        1 ( 560/ 884- 593/ 994) -81.9 E26-E22 S25-S18
     11 1910  765 (N08W75 L=230)  1188     71        0 (1891/ 727-1933/ 801) -63.4 W71-W79 N06-N10
     12 1520  379 (S25W58 L=214)  1063    146        0 (1457/ 344-1589/ 420)  60.9 W54-W61 S29-S20
     13 1489  302 (S30W63 L=219)   651    146        0 (1424/ 286-1569/ 319)  24.8 W56-W71 S32-S26
     14 1229  154 (S49W66 L=221)  1927    169        3 (1158/ 111-1293/ 200)   1.5 W51-W89 S50-S46
  

    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