From ccc3b8b806825383234601eee4d19cb83c97d77c Mon Sep 17 00:00:00 2001
From: d_m <d_m@plastic-idolatry.com>
Date: Thu, 22 Aug 2024 11:25:25 -0400
Subject: [PATCH] music improvements

---
 music.tal | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/music.tal b/music.tal
index dc4378c..245b7e4 100644
--- a/music.tal
+++ b/music.tal
@@ -60,7 +60,8 @@
     ;on-audio-4 .Audio4/vect DEO2
 
     ( adsr sample   slen  vol  device )
-    #0231 ;square   #0008 #77 .Audio1 setup-audio
+(    #0231 ;square   #0008 #77 .Audio1 setup-audio )
+    #0231 ;variable #0008 #ff .Audio1 setup-audio
     #0231 ;saw      #0010 #34 .Audio2 setup-audio
     #0231 ;triangle #0004 #64 .Audio3 setup-audio
     #011f ;noise    #0200 #44 .Audio4 setup-audio
@@ -190,13 +191,23 @@
     &skip POPr JMP2r
 
 ( this is the actual fun part: the note data for each track )
-@timeline =slowdown 08
+( @timeline =slowdown 08 )
+@timeline =noop 08
+( @timeline =vary 08 )
 @track-1 2401 2b02 3001 2402 2e01 3001
 @track-2 0004 3c02 3e01 3f01
 @track-3 4301 4301 4402 4301 4301 4401 4601
 @track-4 1004 3004 0103 0101 3002 3001 3001
 @track-end
 
+@noop ( -> ) JMP2r
+
+@vary ( -> )
+    LIT2 [ &addr :variable ] .Audio1/addr DEO2
+    ,&addr LDR2 INC2
+    DUP2 ;variable/limit LTH2 ?{ POP2 ;variable }
+    ,&addr STR2 JMP2r
+
 @slowdown ( -> )
     .dur LDZ2 #0008 ADD2 #010e DEO !change-pulse
 
@@ -204,7 +215,9 @@
 
 @triangle 80 ff 80 00
 
-@square  ff ff ff ff ff 00 00 00
+@square   ff ff ff ff ff 00 00 00
+
+@variable ff ff ff ff ff ff ff &limit 00 00 00 00 00 00 00
 
 ( 512 random bytes to create noise )
 @noise