--- gforth/fft-bench.fs 2012/10/08 19:08:22 1.1 +++ gforth/fft-bench.fs 2012/10/08 19:17:32 1.2 @@ -4,6 +4,6 @@ require fft.fs : >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 ; \ No newline at end of file