From d10686a994e31b30a6c4e64958e7c2abe2dd0b86 Mon Sep 17 00:00:00 2001
From: nycki <nupanick@gmail.com>
Date: Fri, 11 Jul 2025 19:24:19 -0700
Subject: [PATCH] sample substitution demo

---
 static/qrplay/v3b.html     | 51 ++++++++++++++++++--------------------
 static/qrplay/v3b.min.html | 24 +++++++++++++++++-
 2 files changed, 47 insertions(+), 28 deletions(-)

diff --git a/static/qrplay/v3b.html b/static/qrplay/v3b.html
index fafc410..d287779 100644
--- a/static/qrplay/v3b.html
+++ b/static/qrplay/v3b.html
@@ -1,36 +1,35 @@
 <META NAME=VIEWPORT CONTENT=INITIAL=SCALE=1>
 <CENTER>
-<P><A HREF=http://nycki.net/qrplay>qrplay v3b</A></P>
-<TEXTAREA ID=F STYLE=WIDTH:MIN(40EM,99%);HEIGHT:9LH>; drum samples!
-i 0000 1111 2222 4444 5555 6666 7777 8888 9999
+<P><A HREF=http://nycki.net/qrplay>qrplay v3b</A><br>by nycki and SArpnt</P>
+<TEXTAREA ID=F STYLE=WIDTH:MIN(40EM,99%);HEIGHT:9LH>; @title nupa's theme
+; @authors nycki bsp
+; single channel version
 
-hx@
+1[@0000]
 
-; you can overwrite samples
-0[-c+c]
-00000000
+2[
+  0[c-c+]1  1
+  0[e-c+]1  0[g-c+]1
+  0[c-b!+]1 1
+  0[e-b!+]1 0[g-b!+]1
+  0[d-a+]1  0[c-a+]1
+]
 
-hx@
+2
+0[d-a+]1   0[c-a+]1
+0[d#-a!+]1 0[d-a!+]1
+1          1
 
-; state is NOT preserved when playing samples
-0[cdefgab+]
-0000
-
-; state IS preserved during parallel play
-@q {-ggeec}
-     cdefg
-  
-hx@
-
-; infinite loop
-0[i9x9x6xxx0]
-0
+2
+0[d#-a!+]1 0[d-g+]1
+0[c--c++]1 1
+1          1
 </TEXTAREA><P>
 <BUTTON onclick="
 F.A?.close();
 F.A=A=new AudioContext;
-// kill some time for the audio context to start?
-S='@xx'+F.value;
+// kill some time for the audio context to start
+S='@qx@'+F.value;
 // stack
 B=[];
 // stack variables
@@ -68,8 +67,7 @@ M=_=>{
 	// reset octave and length
 	z<5?(O=0,L=1):
 	// dots and triplets
-	z<6?L*=3/2:
-	z<7?L/=3:
+	z<7?L*=3/(z<6?2:9):
 	// note or rest
 	z<15?(
 		z-=7,
@@ -109,7 +107,6 @@ M=_=>{
 	{L,O,T,U,V}=B[--Z];
 	
 	// loop
-	S=S.slice(s);
-	S&&setTimeout(M)
+	(S=S.slice(s))&&setTimeout(M)
 };M()
 ">#play</BUTTON> <BUTTON ONCLICK=F.A.close()>#stop
diff --git a/static/qrplay/v3b.min.html b/static/qrplay/v3b.min.html
index 2fb0280..4aa9b67 100644
--- a/static/qrplay/v3b.min.html
+++ b/static/qrplay/v3b.min.html
@@ -1 +1,23 @@
-<META NAME=VIEWPORT CONTENT=INITIAL=SCALE=1><CENTER><P><A HREF=http://nycki.net/qrplay>qrplay v3b</A></P><TEXTAREA ID=F STYLE=WIDTH:MIN(40EM,99%);HEIGHT:9LH></TEXTAREA><P><BUTTON onclick="F.A?.close();F.A=A=new AudioContext;S='@xx'+F.value;B=[];K=O=T=Z=L=0;U=137;V=40;C=['+g','-b+c#deff#g','g++ddb--g++ddb',,'+ea-g--b++g++c#','a#ga#g-a#+g-b+g','-a++c#-aae+e--a','-ffed#ddc#','dddddd#e','--ba#bb-a+a#-b'].map(c=>`{o06m${c}}x`);M=_=>{[a,b,c,d]=S;s=1;z='\n;+-@.3cdefgabx012456789jtsiqhwmuvo{}'.indexOf(a);z<0?0:z<2?K=z:K?0:z<4?O+=a+1|0:z<5?(O=0,L=1):z<6?L*=3/2:z<7?L/=3:z<15?(z-=7,o=new OscillatorNode(A,{type:'square',detune:100*(z*2-(z>2)-(b=='!')+(b=='#')+12*O-9)}),g=new GainNode(A,{gain:z<7&&.5**(12-V/5)}),o.connect(g),g.connect(A.destination),o.start(T),o.stop(T+=7.5*L/U)):z<22&&b=='['?(m=0,d=B.findIndex.call(S,c=>c=='['?!++m:c==']'?!--m:0),C[a]=S.slice(s,d),s=d+1):z<24?S=C[a]+S.slice(s--):z<31?L=2**(z-25):z<32?L=U/2**11:z<33?(U=b+c+d,s+=3):z<34?(V=b+c,s+=2):z<35?(O=b+c-4,s+=2):z<36?B[Z++]={L,O,T,U,V}:{L,O,T,U,V}=B[--Z];S=S.slice(s);S&&setTimeout(M)};M()">#play</BUTTON> <BUTTON ONCLICK=F.A.close()>#stop
\ No newline at end of file
+<META NAME=VIEWPORT CONTENT=INITIAL=SCALE=1><CENTER><P><A HREF=http://nycki.net/qrplay>qrplay v3b</A><br>by nycki and SArpnt</P><TEXTAREA ID=F STYLE=WIDTH:MIN(40EM,99%);HEIGHT:9LH>; @title nupa's theme
+; @authors nycki bsp
+; single channel version
+
+1[@0000]
+
+2[
+  0[c-c+]1  1
+  0[e-c+]1  0[g-c+]1
+  0[c-b!+]1 1
+  0[e-b!+]1 0[g-b!+]1
+  0[d-a+]1  0[c-a+]1
+]
+
+2
+0[d-a+]1   0[c-a+]1
+0[d#-a!+]1 0[d-a!+]1
+1          1
+
+2
+0[d#-a!+]1 0[d-g+]1
+0[c--c++]1 1
+1          1</TEXTAREA><P><BUTTON onclick="F.A?.close();F.A=A=new AudioContext;S='@qx@'+F.value;B=[];K=O=T=Z=L=0;U=137;V=40;C=['+g','-b+c#deff#g','g++ddb--g++ddb',,'+ea-g--b++g++c#','a#ga#g-a#+g-b+g','-a++c#-aae+e--a','-ffed#ddc#','dddddd#e','--ba#bb-a+a#-b'].map(c=>`{@++m${c}}x`);M=_=>{[a,b,c,d]=S;s=1;z='\n;+-@.3cdefgabx012456789jtsiqhwmuv{}'.indexOf(a);z<0?0:z<2?K=z:K?0:z<4?O+=a+1|0:z<5?(O=0,L=1):z<7?L*=3/(z<6?2:9):z<15?(z-=7,o=new OscillatorNode(A,{type:'square',detune:100*(z*2-(z>2)-(b=='!')+(b=='#')+12*O-9)}),g=new GainNode(A,{gain:z<7&&.5**(12-V/5)}),o.connect(g),g.connect(A.destination),o.start(T),o.stop(T+=7.5*L/U)):z<22&&b=='['?(m=0,d=B.findIndex.call(S,c=>c=='['?!++m:c==']'?!--m:0),C[a]=S.slice(s,d),s=d+1):z<24?S=C[a]+S.slice(s--):z<31?L=2**(z-25):z<32?L=U/2**11:z<33?(U=b+c+d,s+=3):z<34?(V=b+c,s+=2):z<35?B[Z++]={L,O,T,U,V}:{L,O,T,U,V}=B[--Z];(S=S.slice(s))&&setTimeout(M)};M()">#play</BUTTON> <BUTTON ONCLICK=F.A.close()>#stop
\ No newline at end of file