Return to fft-bench.fs CVS log | Up to [gforth] / gforth |
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 ; |