Diff for /gforth/fft-bench.fs between versions 1.1 and 1.2

version 1.1, 2012/10/08 19:08:22 version 1.2, 2012/10/08 19:17:32
Line 4  require fft.fs Line 4  require fft.fs
   
 : >values ( -- ) #points 0 ?DO  I $55 and s>f I $AA and s>f I values z!  LOOP ;  : >values ( -- ) #points 0 ?DO  I $55 and s>f I $AA and s>f I values z!  LOOP ;
   
 : setup ( -- ) 16 1024 * points >values ;  : setup ( -- ) 32 1024 * points >values ;
   
 : main setup fft rfft normalize ;  : main setup fft rfft normalize ;
   

Removed from v.1.1  
changed lines
  Added in v.1.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>