Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  897 1756 (N45E28 L=209)   665     88        2 ( 869/1718- 941/1788)  21.8 E31-E24 N41-N47
      2  834 1583 (N31E24 L=214)   446     88        2 ( 805/1541- 867/1632) -81.9 E25-E22 N27-N34
      3  287 1521 (N17E69 L=168)  1382     97        2 ( 253/1481- 336/1561)  -7.4 E83-E60 N15-N19
      4 1113 1200 (N11W02 L=240)  1503    439        4 (1030/1108-1219/1269)  38.7 E03-W08 N05-N16
      5  862 1175 (N06E12 L=226)   379    154        0 ( 852/1107- 878/1259) -71.6 E14-E10 N01-N10
      6  658 1208 (N04E25 L=212)   235    137        0 ( 601/1183- 717/1234)   0.0 E29-E21 N03-N05
      7  226  939 (S18E57 L=181)  2280    394        1 ( 134/ 833- 274/1116)  43.5 E73-E51 S26-S07
      8 1371 1063 (N07W20 L=258)   257     88        0 (1328/1046-1420/1078)   9.5 W17-W23 N05-N08
      9 1125  841 (S10W09 L=247)   809    277        2 (1051/ 743-1190/ 963)  78.7 W05-W10 S16-S01
     10 1242  749 (S13W18 L=256)   196     45        1 (1217/ 733-1266/ 763)   0.0 W16-W19 S14-S12
     11 1535  645 (S15W40 L=278)   360     94        0 (1487/ 614-1568/ 672) -15.9 W36-W43 S16-S13
     12 1292  588 (S22W25 L=263)   293     74        0 (1254/ 567-1333/ 604)  36.9 W23-W27 S24-S20
     13  543  367 (S54E32 L=206)  2315    234        6 ( 469/ 303- 634/ 449) -33.7 E39-E21 S58-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