Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  576 1489 (N32E27 L=191)   702    193        1 ( 501/1451- 644/1522) -18.4 E33-E21 N28-N34
      2 1231 1375 (N18W16 L=234)   352    109        1 (1173/1353-1292/1402) -15.9 W12-W19 N16-N19
      3  440 1342 (N23E37 L=181)   506    122        0 ( 394/1292- 473/1383) -49.4 E40-E33 N19-N26
      4 1463 1161 (N03W28 L=246)   365     96        0 (1446/1104-1477/1208) -80.5 W27-W29 N00-N06
      5 1727 1109 (S02W47 L=265)   835    126        3 (1689/1077-1778/1152) -29.7 W44-W51 S03-N01
      6  503 1086 (N07E32 L=186)   407     33        0 ( 479/1059- 525/1116)  45.0 E33-E30 N05-N08
      7 1583  778 (S21W35 L=253)  1956    567        2 (1425/ 549-1768/1006)  46.1 W23-W50 S34-S07
      8  336  960 (N01E46 L=172)   313     74        1 ( 298/ 937- 357/ 986)  21.8 E49-E43 N00-N02
      9 1579  899 (S13W34 L=252)   518    127        0 (1542/ 841-1607/ 938)  80.5 W31-W36 S16-S10
     10  306  748 (S11E52 L=166)  3155    627       11 ( 195/ 552- 412/ 895) -75.4 E62-E44 S24-S01
     11  659  842 (S09E24 L=194)   209     52        1 ( 643/ 806- 672/ 871)  76.0 E24-E22 S11-S07
     12 1443  736 (S22W25 L=243)   377    173        0 (1375/ 705-1510/ 792)  18.4 W20-W29 S23-S19
     13  640  560 (S26E31 L=187)   504     65        2 ( 601/ 533- 673/ 582) -21.8 E33-E27 S28-S24
     14 1563  413 (S46W40 L=258)  1049    145        2 (1521/ 378-1594/ 468) -74.1 W35-W43 S48-S41
  

    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