Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  866 1865 (N64W26 L=  5)  1437    210        4 ( 787/1800- 935/1920)   5.5 W11-W43 N60-N68
      2  762 1794 (N62W07 L=347)   343     56        0 ( 738/1771- 783/1815) -68.2 W04-W09 N58-N64
      3 1075 1669 (N40W24 L=  4)  1684    393        1 ( 906/1636-1265/1703) -24.6 W11-W35 N32-N45
      4  654 1523 (N43E12 L=328)   567    152        2 ( 628/1452- 699/1574)  58.0 E15-E07 N38-N46
      5 1618 1414 (N10W48 L= 27)   532     97        0 (1585/1366-1649/1449) -90.0 W46-W49 N07-N13
      6 1824 1266 (S03W60 L= 40)   406     39        0 (1801/1250-1847/1285) -11.3 W57-W62 S04-S01
      7 1348 1173 (N04W22 L=  1)   390    122        2 (1305/1118-1384/1219) -74.1 W20-W23 N00-N07
      8  391 1113 (N23E38 L=301)   372     90        2 ( 357/1070- 426/1151) -71.6 E40-E35 N20-N26
      9  248 1108 (N26E52 L=288)   545    125        5 ( 206/1068- 299/1142) -10.3 E57-E46 N22-N27
     10  205 1039 (N22E58 L=282)  3016    326       13 ( 107/ 953- 316/1122) -20.3 E73-E46 N16-N27
     11 1712 1054 (S12W43 L= 23)   382     65        0 (1684/1021-1741/1084) -53.1 W41-W45 S13-S09
     12 1358  915 (S10W16 L=356)   899    280        1 (1312/ 798-1386/1059)  55.3 W11-W20 S15-S02
     13  586  952 (N10E27 L=313)  1037    363        3 ( 465/ 869- 740/1056) -48.8 E33-E19 N02-N18
     14 1753 1008 (S15W46 L= 26)   293     69        0 (1732/ 977-1769/1049)  45.0 W43-W48 S16-S13
     15  185  927 (N16E62 L=278)   465     90        2 ( 154/ 895- 224/ 958) -26.6 E65-E57 N13-N18
     16  253  802 (N08E57 L=283)   548    136        2 ( 236/ 746- 280/ 862)  81.9 E59-E54 N04-N11
     17  203  763 (N06E64 L=275)  2325    169        6 ( 165/ 689- 236/ 849)  73.3 E71-E60 N01-N11
     18 1818  631 (S42W54 L= 34)  1119    129        2 (1759/ 610-1876/ 653) -14.0 W44-W69 S46-S38
     19 1673  553 (S42W36 L= 15)   923    172        1 (1607/ 501-1741/ 612)  17.1 W28-W43 S44-S39
     20 1021  489 (S27E14 L=325)   253     48        0 ( 995/ 458-1041/ 518)  26.6 E16-E12 S28-S25
     21  628  213 (S36E62 L=278)   751     83        1 ( 596/ 186- 658/ 253)  16.4 E71-E54 S38-S33
  

    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