Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1347 1747 (N36W52 L=147)  1313    140        1 (1288/1708-1412/1773)  -7.6 W45-W60 N33-N38
      2  694 1711 (N59E00 L= 94)   396     65        0 ( 677/1677- 719/1738)  33.7 E02-W04 N56-N61
      3 1374 1517 (N23W37 L=132)   294     84        0 (1331/1507-1415/1532) -21.8 W34-W39 N20-N23
      4 1821 1237 (S06W60 L=154)   395     34        1 (1802/1211-1837/1260)  26.6 W57-W62 S07-S05
      5 1676 1180 (S05W44 L=138)   463     82        0 (1653/1131-1696/1220)  80.5 W42-W45 S07-S01
      6  222 1101 (N29E57 L= 38)  1904    200        2 ( 124/1045- 310/1136) -13.0 E73-E46 N24-N32
      7 1876 1065 (S18W61 L=155)  1020    127        2 (1835/1016-1923/1099)   3.8 W54-W69 S20-S16
      8  179  880 (N17E66 L= 29)   884    131        2 ( 116/ 852- 233/ 922) -17.4 E76-E58 N14-N19
      9 1706  735 (S32W37 L=132)  2002    300        1 (1670/ 605-1739/ 882)  80.5 W33-W40 S40-S21
     10  327  810 (N10E51 L= 44)   713    137        0 ( 302/ 755- 360/ 876)  81.9 E52-E47 N06-N13
     11  207  737 (N08E67 L= 28)  2661    160        5 ( 165/ 672- 249/ 818)  28.1 E76-E61 N04-N12
     12  566  800 (N04E33 L= 62)   284     65        0 ( 529/ 785- 608/ 817) -26.6 E34-E30 N02-N06
     13 1484  465 (S43W14 L=109)   362     61        1 (1452/ 446-1515/ 483)  -9.5 W11-W17 S44-S40
     14  679  210 (S35E59 L= 35)  1096     83        0 ( 659/ 161- 699/ 258)  23.2 E72-E51 S40-S31
  

    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