[OpenBIOS] r393 - forth/lib
svn at openbios.org
svn at openbios.org
Thu May 17 03:16:04 CEST 2007
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 -- )
More information about the OpenBIOS
mailing list