Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1173 1822 (N49E17 L=153)   511     77        2 (1125/1798-1209/1839)  15.9 E21-E14 N47-N51
      2  663 1688 (N24E43 L=127)   868    167        0 ( 626/1615- 689/1761) -65.6 E47-E40 N18-N29
      3  974 1314 (N08E10 L=160)   267     33        0 ( 945/1295- 999/1333)  56.3 E11-E08 N06-N09
      4 1314 1209 (N10W12 L=182)   396    157        0 (1298/1125-1334/1273) -60.3 W09-W14 N06-N14
      5  299 1181 (S13E52 L=118)   407    117        0 ( 243/1165- 345/1197)  16.7 E57-E47 S14-S11
      6 1786  965 (N11W50 L=220)   599     98        2 (1766/ 917-1803/1018) -71.6 W48-W52 N07-N13
      7 1210  952 (S07W12 L=182)   185     65        0 (1184/ 935-1242/ 977)   0.0 W10-W14 S07-S05
      8  183  921 (S31E63 L=107)   879     91        1 ( 141/ 895- 231/ 953)   7.6 E70-E55 S32-S28
      9 1164  825 (S15W13 L=183)   224     57        0 (1132/ 802-1193/ 851)  53.1 W11-W14 S16-S12
     10  573  751 (S34E22 L=147)   451    141        0 ( 532/ 704- 617/ 814)  58.0 E25-E20 S37-S28
     11  268  787 (S38E52 L=117)   640     83        1 ( 222/ 766- 318/ 808)  13.0 E59-E46 S39-S36
     12  488  745 (S36E29 L=141)   290     92        0 ( 465/ 711- 521/ 782) -38.7 E31-E26 S37-S33
     13  817  365 (S53W08 L=177)   322     48        0 ( 796/ 341- 844/ 390)  -9.5 W04-W10 S54-S51
  

    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