Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1112 1373 (N26W08 L=195)   329    129        2 (1051/1338-1159/1399) -29.7 W04-W11 N23-N28
      2  450 1357 (N29E41 L=145)   303     72        0 ( 413/1339- 483/1373)  21.8 E43-E37 N27-N29
      3 1121 1297 (N21W08 L=194)   201     53        0 (1099/1272-1141/1324) -71.6 W06-W09 N19-N22
      4  369 1071 (N11E45 L=141)  1174    253        2 ( 345/ 956- 399/1188) -74.1 E47-E42 N03-N17
      5 1665  943 (S06W42 L=229)   973    180        1 (1597/ 902-1740/ 976) -14.0 W37-W49 S07-S02
      6 1858  894 (S11W63 L=249)   609     74        1 (1837/ 863-1888/ 932) -29.1 W59-W68 S13-S08
      7  334  895 (S00E49 L=138)   372     92        0 ( 311/ 852- 366/ 929)  31.0 E50-E45 S02-N02
      8  491  756 (S09E37 L=149)   359     81        1 ( 458/ 729- 523/ 792) -36.9 E39-E35 S10-S06
      9  345  693 (S13E51 L=135)   465     93        2 ( 304/ 661- 383/ 732)  12.5 E56-E47 S15-S10
     10 1663  622 (S27W45 L=231)   783    192        1 (1634/ 537-1701/ 711)  85.2 W43-W47 S32-S20
     11  980  546 (S25E06 L=180)  1822    472        3 ( 854/ 376-1140/ 702)  45.0 E18-W05 S37-S15
     12 1762  601 (S30W58 L=244)   539     68        1 (1728/ 580-1790/ 628)  15.9 W53-W62 S31-S28
     13 1481  578 (S28W29 L=216)   540    120        0 (1441/ 531-1527/ 626)  50.2 W26-W32 S30-S24
  

    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