From 707e6113190c2d843511084e3cb6a46c776c41a7 Mon Sep 17 00:00:00 2001
From: d_m <d_m@plastic-idolatry.com>
Date: Sat, 3 Aug 2024 23:58:22 -0400
Subject: [PATCH] music parts come in and out

---
 kodiak.tal | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/kodiak.tal b/kodiak.tal
index fff4779..44608d4 100644
--- a/kodiak.tal
+++ b/kodiak.tal
@@ -456,17 +456,21 @@
 @start-audio ( -> )
     #0000 .audio/pos #01 .audio STZ STZ2 !play-audio
 
-@play-track ( pos* track* dev^ -> )
+@play-track ( pos* track* dev^ mute^ -> )
+    ?&muted
     STH ADD2 LDA DUP #ff EQU ?{ STHr #0f ORA DEO JMP2r } POP POPr JMP2r
+    &muted #0f ORA #00 SWP DEO POP2 POP2 JMP2r
+
+@muted ( k^ div^ pos* -> bool^ )
+    #06 SFT2 NIP SWP DIVk MUL SUB EQU JMP2r
 
 @play-audio ( -> )
-    .audio/pos LDZ2                  ( pos* )
-    DUP2 ;track-1 .Audio1 play-track ( pos* )
-    DUP2 ;track-2 .Audio2 play-track ( pos* )
-    DUP2 ;track-3 .Audio3 play-track ( pos* )
-    DUP2 ;track-4 .Audio4 play-track ( pos* )
-    INC2 #003f AND2                  ( [pos+1]%64 )
-    .audio/pos STZ2 JMP2r            ( )
+    .audio/pos LDZ2 STH2k #003f AND2 ( pos* [orig*] )
+    DUP2 ;track-1 .Audio1 #040b STH2kr muted play-track ( pos* [orig*] )
+    DUP2 ;track-2 .Audio2 #0203 STH2kr muted play-track ( pos* [orig*] )
+    DUP2 ;track-3 .Audio3 #0305 STH2kr muted play-track ( pos* [orig*] )
+         ;track-4 .Audio4 #090b STH2kr muted play-track ( [orig*] )
+    STH2r INC2 .audio/pos STZ2 JMP2r     ( )
 
 @on-audio ( -> brk )
     .audio LDZ ?{ BRK } play-audio BRK