Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1621 1542 (N16W56 L=128)   506     97        0 (1585/1495-1648/1586)  81.9 W54-W57 N12-N19
      2 1146 1363 (N21W17 L= 88)  1735    455        2 ( 950/1231-1312/1438) -56.3 W07-W22 N09-N30
      3 1680 1156 (S06W43 L=115)  1044    266        2 (1550/1096-1781/1197) -14.7 W32-W51 S08-S03
      4 1684  922 (S19W37 L=109)  1614    301        0 (1627/ 794-1730/1057)  45.0 W30-W43 S24-S12
      5 1770  889 (S24W44 L=116)   458     34        0 (1752/ 858-1787/ 924)  76.0 W42-W45 S25-S21
      6  834  641 (S10E21 L= 51)   270     21        1 ( 812/ 618- 857/ 660)   0.0 E22-E19 S11-S08
      7  951  581 (S17E17 L= 55)   223     48        0 ( 924/ 558- 975/ 602)   0.0 E18-E14 S17-S15
      8  661  579 (S09E34 L= 38)   248     69        1 ( 629/ 559- 699/ 597) -53.1 E35-E31 S11-S07
      9  251  532 (S04E73 L=359)   848     80        0 ( 240/ 489- 270/ 569)  18.4 E81-E66 S07-S02
     10  764  431 (S21E34 L= 38)  1054    181        0 ( 712/ 355- 815/ 511)  80.5 E35-E31 S27-S14
     11  500  463 (S13E50 L= 22)  1244    198        4 ( 408/ 421- 575/ 492) -15.9 E60-E44 S16-S09
     12  826  214 (S38E45 L= 27)   507     59        1 ( 801/ 197- 855/ 237) -90.0 E48-E41 S40-S35
     13  850  155 (S44E51 L= 20)   627     64        0 ( 835/ 118- 867/ 186)  26.6 E60-E46 S47-S40
  

    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