aboutsummaryrefslogtreecommitdiff
path: root/lib.scm
diff options
context:
space:
mode:
Diffstat (limited to 'lib.scm')
-rw-r--r--lib.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib.scm b/lib.scm
index 6c86521..5a12152 100644
--- a/lib.scm
+++ b/lib.scm
@@ -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
)
))