Return to fft-bench.fs CVS log

Up to [gforth] / gforth

Fine-tuning am FFT-Benchmark

    1: \ fft based floating point benchmark
    2: 
    3: require fft.fs
    4: 
    5: : >values ( -- ) #points 0 ?DO  I $55 and s>f I $AA and s>f I values z!  LOOP ;
    6: 
    7: : setup ( -- ) 32 1024 * points >values ;
    8: 
    9: : main setup fft rfft normalize ;