17 May
2007
17 May
'07
3:16 a.m.
Author: wmb Date: 2007-05-17 03:16:03 +0200 (Thu, 17 May 2007) New Revision: 393
Modified: forth/lib/isin.fth Log: isin.fth - changed "max" to "min" because the attempt to prevent numerical overflow was causing sin waves to become square waves.
Modified: forth/lib/isin.fth =================================================================== --- forth/lib/isin.fth 2007-05-17 01:04:15 UTC (rev 392) +++ forth/lib/isin.fth 2007-05-17 01:16:03 UTC (rev 393) @@ -47,7 +47,7 @@ : isin ( index -- frac ) fstep * fs 2/ / to x x dup times to xsq - one d# 72 sin-step d# 42 sin-step d# 20 sin-step 6 sin-step x times one max + one d# 72 sin-step d# 42 sin-step d# 20 sin-step 6 sin-step x times one min ;
: one-cycle ( adr -- )