From 43ccd48ed91e9d8d8efea0f8cd597f9ffbe700e7 Mon Sep 17 00:00:00 2001
From: Anthony Wang
Date: Sat, 17 Dec 2022 12:42:44 -0600
Subject: Actually produced sound!

---
 main.scm | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/main.scm b/main.scm
index 348a2ba..0278148 100644
--- a/main.scm
+++ b/main.scm
@@ -1,19 +1,23 @@
+(use-modules (ice-9 binary-ports))
+
 (define (note freq start len) (
 	lambda (t) (
-		if (or (< t start) (> t (+ start len)))
+		if (or (< t start) (>= t (+ start len)))
 			0
 			freq
 	)
 ))
 
 (define (music t) (
-	(note 440 0 10) t
+	* t (logand 42 (ash t -10))
 ))
 
 (define (play t) (
-	if (< t 100)
-		(cons (music t) (play (+ t 1)))
-		(music t)
+	cons (modulo (music t) 256) (if (< t 100000)
+		(play (+ t 1))
+		'()
+	)
 ))
 
-(display (play 0))
+; (display (play 0))
+(map (lambda (c) (put-u8 (current-output-port) c)) (play 0))
-- 
cgit v1.2.3-70-g09d2