diff options
Diffstat (limited to 'lib.scm')
-rw-r--r-- | lib.scm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,5 +1,5 @@ -; Saw wave with a period of 1 second -(define (saw t) ( +; Triangle wave with a period of 1 second +(define (tri t) ( let ((m (floor-remainder (+ t (/ 1 4)) 1))) (if (< m 1/2) (- (* 4 m) 1) @@ -11,7 +11,7 @@ lambda (t) ( if (or (< t start) (>= t (+ start len))) 0 - (saw (* freq t)) + freq ) )) |