Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  735 1725 (N40E29 L=297)   789    120        2 ( 684/1674- 787/1761) -22.6 E34-E22 N36-N43
      2  606 1716 (N39E40 L=286)   483     20        1 ( 582/1689- 629/1742)  56.3 E42-E37 N37-N41
      3  453 1575 (N28E47 L=279)   584     87        1 ( 407/1548- 502/1594)  -5.2 E52-E41 N26-N29
      4  307 1151 (N01E49 L=277)   484     92        0 ( 269/1119- 343/1186)  26.6 E52-E46 S01-N02
      5  484  835 (S18E35 L=291)   318     83        0 ( 472/ 787- 501/ 879)  68.2 E35-E33 S20-S15
      6  647  815 (S19E23 L=303)   243     92        1 ( 607/ 781- 680/ 850)  45.0 E25-E20 S20-S16
      7  299  744 (S24E52 L=273)   949    139        2 ( 261/ 683- 357/ 787)  26.6 E58-E46 S27-S21
      8  639  741 (S23E24 L=302)   268    109        0 ( 593/ 723- 687/ 766)   0.0 E27-E20 S24-S21
      9  795  733 (S23E13 L=312)   212     70        0 ( 764/ 714- 819/ 760)  36.9 E15-E11 S24-S21
     10 1752  507 (S30W68 L= 33)   942    103        2 (1725/ 461-1778/ 544) -45.0 W63-W75 S32-S27
     11  649  502 (S39E26 L=300)  1103    140        4 ( 577/ 465- 715/ 540)  18.4 E32-E20 S41-S36
     12 1276  414 (S42W25 L=351)   694    179        2 (1221/ 392-1355/ 466)  -9.5 W19-W31 S43-S38
     13 1601  428 (S37W55 L= 20)   472     45        0 (1581/ 398-1621/ 455) -78.7 W52-W57 S39-S34
  

    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