Implement saw wave

2022-12-17 14:13:14 -06:00 · 2022-12-17 14:13:14 -06:00 · f11992a8fc
commit f11992a8fc
parent 41b550eca2
1 changed files with 8 additions and 1 deletions
--- a/main.scm
+++ b/main.scm
@ -2,11 +2,18 @@

 (define bitrate 8000)

+(define (saw t) (
+	let ((m (floor-remainder (+ t (/ 1 4)) 1)))
+		(if (< m 1/2)
+			(- (* 4 m) 1)
+			(- 3 (* 4 m)))
+))
+
 (define (note freq start len) (
 	lambda (t) (
 		if (or (< t start) (>= t (+ start len)))
 			0
-			(sin (* 2 (acos -1) freq t))
+			(saw (* freq t))
 	)
 ))