gforth/fft-bench.fs - diff

Return to fft-bench.fs CVS log

Up to [gforth] / gforth

version 1.4, 2012/10/08 23:11:23	version 1.5, 2012/10/08 23:12:50
Line 6 require fft.fs	Line 6 require fft.fs

: setup ( -- ) 32 1024 * points >values ;	: setup ( -- ) 32 1024 * points >values ;

<<<<<<< HEAD
: main setup fft rfft normalize ;	: main setup fft rfft normalize ;

Variable pass	Variable pass
Line 15 Variable pass	Line 14 Variable pass
i values z@ fround f>s fround f>s	i values z@ fround f>s fround f>s
I $aa and I $55 and d<> IF i . i values z@ z. cr pass off THEN	I $aa and I $55 and d<> IF i . i values z@ z. cr pass off THEN
LOOP pass @ IF ." passed test" cr THEN ;	LOOP pass @ IF ." passed test" cr THEN ;
=======
: main setup fft rfft normalize ;
>>>>>>> refs/heads/origin