Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  882 1719 (N31E33 L= 30)   455     81        1 ( 841/1687- 914/1751) -80.5 E35-E30 N27-N33
      2  575 1677 (N20E52 L= 12)   449     75        1 ( 543/1654- 611/1693)  53.1 E54-E49 N17-N21
      3  552 1579 (N13E47 L= 16)   750    205        3 ( 492/1505- 613/1648) -19.4 E56-E39 N09-N16
      4  380 1489 (N04E57 L=  7)   888    134        2 ( 330/1443- 413/1555)  82.9 E59-E53 N00-N08
      5  743 1334 (N03E24 L= 39)   451    135        0 ( 713/1281- 786/1401) -32.0 E28-E20 N00-N06
      6  998 1084 (S04E03 L= 60)   595    202        0 ( 930/1000-1048/1160)  84.8 E04-E01 S10-N01
      7  268  961 (S29E51 L= 12)   848    101        2 ( 225/ 922- 308/1012)  49.4 E56-E47 S32-S25
      8 1009  824 (S18W05 L= 68)   697    238        1 ( 924/ 773-1100/ 905)  63.4 W01-W08 S22-S10
      9  740  838 (S24E11 L= 52)   492    243        1 ( 637/ 794- 844/ 861)  15.9 E17-E03 S27-S22
     10  501  777 (S35E27 L= 36)   278    106        1 ( 453/ 759- 547/ 796)  32.0 E31-E23 S37-S32
     11  596  641 (S41E17 L= 47)  1182    283        0 ( 494/ 575- 715/ 723)  43.2 E25-E09 S47-S31
     12 1563  374 (S24W64 L=127)  1858    189        4 (1485/ 345-1642/ 420)  15.5 W54-W73 S27-S20
     13 1383  303 (S34W56 L=119)   402     45        2 (1357/ 279-1407/ 327)  21.8 W52-W59 S35-S32
     14 1229  217 (S45W56 L=119)  1881    164        2 (1185/ 159-1290/ 292)  -8.4 W45-W72 S48-S41
  

    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