Return to fft-bench.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/fft-bench.fs, revision 1.2

1.1       pazsan      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: 
1.2     ! pazsan      7: : setup ( -- ) 32 1024 * points >values ;
1.1       pazsan      8: 
                      9: : main setup fft rfft normalize ;