Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1213 1201 (N12W15 L= 46)   575    165        1 (1118/1159-1289/1229) -41.2 W10-W18 N08-N15
      2 1815 1089 (S12W54 L= 84)   533     84        1 (1797/1044-1832/1132)  78.7 W51-W56 S14-S09
      3  713 1096 (N19E17 L= 14)   210     30        1 ( 692/1074- 738/1117) -45.0 E17-E15 N17-N19
      4 1861 1038 (S16W57 L= 88)   987    197        3 (1825/ 974-1888/1109)  26.6 W51-W62 S18-S12
      5 1233 1045 (N03W12 L= 43)   308     82        1 (1196/1001-1268/1085)  31.0 W09-W14 N01-N04
      6  392  955 (N17E42 L=349)   306    103        2 ( 375/ 909- 409/ 997)  68.2 E43-E40 N14-N19
      7 1691  869 (S20W38 L= 68)   317    116        1 (1659/ 819-1723/ 924)  29.7 W34-W41 S22-S17
      8  229  825 (N12E60 L=330)  1121    290        2 ( 160/ 714- 300/ 915) -55.3 E66-E55 N04-N17
      9  416  839 (N10E43 L=348)   836    183        3 ( 361/ 786- 458/ 899)  21.8 E48-E38 N06-N12
     10 1835  814 (S29W51 L= 81)  1438    252        2 (1748/ 738-1873/ 896)  19.7 W41-W55 S31-S25
     11  969  683 (S11E12 L= 19)   596    271        2 ( 936/ 610-1010/ 775)  45.0 E15-E06 S14-S06
     12 1559  547 (S37W23 L= 54)   362     70        1 (1537/ 523-1587/ 572)  26.6 W21-W25 S38-S35
     13  390  466 (S12E60 L=330)   794     84        1 ( 357/ 443- 431/ 494) -33.7 E63-E56 S14-S10
     14  472  342 (S22E60 L=330)   534    127        0 ( 440/ 327- 510/ 358)   0.0 E64-E56 S23-S20
  

    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