Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1444 1820 (N36W71 L=149)  1321    105        2 (1390/1787-1500/1844)  -4.8 W60-W84 N34-N37
      2 1554 1615 (N22W56 L=135)   708    140        0 (1494/1595-1632/1635) -26.6 W51-W61 N18-N24
      3  351 1160 (N30E42 L= 37)  2035    284        5 ( 222/1104- 486/1197) -17.1 E56-E30 N24-N33
      4  872 1165 (N17E05 L= 74)   246     95        0 ( 836/1139- 907/1191)  11.3 E07-E02 N16-N18
      5 1857 1097 (S15W58 L=137)   853    130        0 (1841/1036-1872/1168)  54.5 W55-W61 S18-S11
      6  214 1027 (N25E58 L= 21)   381     43        0 ( 190/1009- 238/1041)   0.0 E60-E54 N23-N25
      7  492  915 (N12E34 L= 44)   314    125        0 ( 475/ 864- 529/ 952)  45.0 E36-E31 N09-N14
      8  369  907 (N15E44 L= 34)   563    159        1 ( 299/ 876- 443/ 938) -28.6 E49-E38 N11-N17
      9 1854  796 (S33W55 L=133)  2446    293        2 (1795/ 690-1892/ 930)  66.8 W47-W61 S40-S24
     10  784  897 (N05E17 L= 62)   254     97        0 ( 737/ 879- 832/ 916) -31.0 E18-E13 N03-N06
     11 1700  824 (S25W37 L=116)   393     76        0 (1666/ 800-1724/ 862)  21.8 W34-W40 S26-S23
     12 1618  531 (S43W27 L=106)   886    143        2 (1554/ 485-1684/ 562)   0.0 W20-W34 S44-S40
     13  417  494 (S10E56 L= 22)   529     84        0 ( 375/ 476- 459/ 524)   6.3 E61-E51 S11-S08
     14  339  442 (S12E69 L=  9)   677     52        2 ( 320/ 415- 361/ 471) -90.0 E72-E66 S13-S09
     15  798  231 (S37E46 L= 33)  1450    168        4 ( 741/ 168- 854/ 291)  16.7 E57-E36 S41-S33
  

    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