r393 - forth/lib

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 -- )