From c1bd32fba44a187a35f808de964e699b1157f613 Mon Sep 17 00:00:00 2001
From: nycki <nupanick@gmail.com>
Date: Sun, 13 Jul 2025 00:52:22 -0700
Subject: [PATCH] v3e based on SArpnt's golf3

---
 static/qrplay/golf3.html                 | 109 +++++++++++++++++++++++
 static/qrplay/qrplay-v3d-nupas-theme.png | Bin 0 -> 3285 bytes
 static/qrplay/v3e.html                   |  91 +++++++++++++++++++
 3 files changed, 200 insertions(+)
 create mode 100644 static/qrplay/golf3.html
 create mode 100644 static/qrplay/qrplay-v3d-nupas-theme.png
 create mode 100644 static/qrplay/v3e.html

diff --git a/static/qrplay/golf3.html b/static/qrplay/golf3.html
new file mode 100644
index 0000000..c9da03a
--- /dev/null
+++ b/static/qrplay/golf3.html
@@ -0,0 +1,109 @@
+<!--
+new parser, not zzt compatible, but conversion is easy
+
+commands, must be uppercase
+	ABCDEFG play note
+	* sharp (modifier for note letter)
+	: flat (modifier for note letter)
+	X rest
+	JTSIQHW set note duration (J:sixtyfourth, Thirtysecond, Sixteenth, eIghth, Quarter, Half, Whole)
+	. increase note duration by 50% (persistent)
+	3 divide note duration by 3 (persistent)
+	+ octave up (persistent)
+	- octave down (persistent)
+	R reset note duration, octave, volume
+	Vxx set volume
+	Uxxx set bpm
+	$x.../ set sample
+	012456789: play sample
+
+to convert:
+	make all letters uppercase
+	replace other simple commands with their new counterparts
+		#* !: @R
+	organize all Z channels in order
+	turn each channel into a sample that immediately plays (like $0.../0)
+	at the top of the file, define samples for drums 12456789
+	in each channel sample, define drum 0 inside, at the top
+
+source variables
+	A: Audio context
+	C: Command Character from V
+	D: character after C (or other temporary Data)
+	F: function that plays notes, also stores samples
+	G: Gain node
+	H: textarea Html element
+	I: Index into V
+	J: `indexOf`
+	L: note Length
+	M: Music text
+	N: semitone Note offset for octave changes
+	O: Oscillator
+	Q: numeric command id
+	S: Sample function
+	T: note Time
+	U: Bpm
+	Z: channel
+-->
+
+<!--
+DATA:TEXT/HTML,<META NAME=VIEWPORT CONTENT=INITIAL-SCALE=1><CENTER><H1><A HREF=HTTP://NYCKI.NET/QRPLAY>QRPLAY 3S</A></H1><TEXTAREA ID=H STYLE=WIDTH:MIN(40EM,99%);HEIGHT:9LH>U023%0A$0%0A$4D*/$5E/$6C*/%0A$7-B+4F*-JBT+4F*/%0A$8C*5GJC*T5G/%0A$9T7XX.XT7XX.XT4F*/%0A+9QX%0AT8XX.XT8XX.XT5G%0A9QX-%0ATA+6E-JAT+6E- F*6AJF*T6A 6A%0A/%0A$1-%0A$4JB+F*BF*/%0A$5JC*G+C*-GTC*+C*/%0A$6-4SXTB+B-4SX/%0AI6.X JED*E-B+%0AI5X5X%0A6.X JD*EF*G%0ATA-A+JATE .F*T-F*+F*-F*%0A/%0AW0X10X10X</TEXTAREA><P><BUTTON ONCLICK='H.A=A=new AudioContext,F=(M=``,T=0,L,N,I=0,S=D=>D?S(D+(M[++I]==C)-(M[I]==`/`)):I)=>{for(;C=M[I++];D=M[I],Q>7?(Q-=9)?Q>9?L/=+C||2/3:Q>7?(D=D+M[++I,I++]|0)?Q>8?U=D+M[I++]:G=new GainNode(A,{gain:2**(D/5-11)}):0:L=~Q?1<<Q:N=4:F[D]=M.slice(++I,S(1)):~Q?(O=new OscillatorNode(A,{type:`square`,detune:100*(Q*2-(Q>3)+(D==`*`)-(D==`:`)-N-7)}),Q&&O.connect(G,G.connect(A.destination)),O.start(T),O.stop(T+=L/U*15/8)):C-3|C>`_`?F(F[C],T,L,N):N-=C+12|0)Q=`XCDEFGABR$JTSIQHWVU3.`.indexOf(C)},F(`RU137V30`+H.value)'>PLAY</BUTTON> <BUTTON ONCLICK=H.A.close()>STOP
+-->
+
+<META NAME=VIEWPORT CONTENT=INITIAL-SCALE=1>
+<CENTER>
+	<H1><A HREF=HTTP://NYCKI.NET/QRPLAY>QRPLAY 3S</A></H1>
+	<TEXTAREA ID=H STYLE=WIDTH:MIN(40EM,99%);HEIGHT:9LH>U023
+$0
+$4D*/$5E/$6C*/
+$7-B+4F*-JBT+4F*/
+$8C*5GJC*T5G/
+$9T7XX.XT7XX.XT4F*/
++9QX
+T8XX.XT8XX.XT5G
+9QX-
+TA+6E-JAT+6E- F*6AJF*T6A 6A
+/
+$1-
+$4JB+F*BF*/
+$5JC*G+C*-GTC*+C*/
+$6-4SXTB+B-4SX/
+I6.X JED*E-B+
+I5X5X
+6.X JD*EF*G
+TA-A+JATE .F*T-F*+F*-F*
+/
+W0X10X10X</TEXTAREA>
+	<P><BUTTON ONCLICK='
+		H.A=A=new AudioContext,
+		F=(M=``,T=0,L,N,I=0,S=D=>D?S(D+(M[++I]==C)-(M[I]==`/`)):I)=>{for(
+			;
+			C=M[I++];
+			D=M[I],
+			Q>7?
+				(Q-=9)?
+					Q>9?L/=+C||2/3: /* DECREASE Q! and multiply note duration (3.) */
+					Q>7?
+						(D=D+M[++I,I++]|0)? /* get two digits */
+							Q>8?U=D+M[I++]: /* set bpm (U) */
+							G=new GainNode(A,{gain:2**(D/5-11)}): /* set Volume */
+						0:
+					L=
+						~Q?1<<Q: /* set note duration (JTSIQHW) */
+						N=4: /* Reset */
+				F[D]=M.slice(++I,S(1)): /* set sample ($x.../) */
+			~Q?( /* play note or rest (XCDEFGAB) */
+				O=new OscillatorNode(A,{
+					type:`square`,
+					detune:100*(Q*2-(Q>3)+(D==`*`)-(D==`:`)-N-7) /* pitch with sharp/flat (*:) */
+				}),
+				Q&&O.connect(G,G.connect(A.destination)),
+				O.start(T),
+				O.stop(T+=L/U*15/8)
+			):
+			C-3|C>`_`? /* numbers, whitespace, lowercase letters, some symbols */
+				F(F[C],T,L,N): /* play sample */
+			N-=C+12|0 /* change octave or nop */
+		)Q=`XCDEFGABR$JTSIQHWVU3.`.indexOf(C)},
+		F(`RU137V30`+H.value)
+	'>PLAY</BUTTON> <BUTTON ONCLICK=H.A.close()>STOP
diff --git a/static/qrplay/qrplay-v3d-nupas-theme.png b/static/qrplay/qrplay-v3d-nupas-theme.png
new file mode 100644
index 0000000000000000000000000000000000000000..bd2ba3cdcab07678e8a6f28d4355c25bf0f0dce2
GIT binary patch
literal 3285
zcmV;`3@Y=9P)<h;3K|Lk000e1NJLTq00JBU00JBV0{{R3hcM+o00006P)t-s|Ns90
z0033O(|!N|42nraK~#9!?VUl6BuTS^xdHdTB{$$-d{|_?x16P`Q?qFGRFRT*gu5AF
zxb*My@AL2T-#%_Dt4$(Rsw%aulvZ{dM@`+-l9f1V6SsX4M6#n=Qd?I^?NqiZw^rpS
zZJOGVBEHv>Uj%Wj)>dsPavjMHKU~*w8#$^}yRqBcFTV+5x8Ad4DNSm(=3%PaMppPo
zaN^2M9|n<JnO}(<S#_&KmXfxz?b>O3zYxC)BH5Kw#j=~KZK|#KUcjWyeOu%z|L-k+
z2&Aq5^XJcQ{}6~Iu}#O8quSc5Xnv&p$+5M+bsM|?=Tv_OWcyK-q^)b&vf4IwBwjk6
zu^5P?wUi_;f+&%jMse)4;Ye4Vy2=V5HEvo-aZ@GMZAx!}u=m^!RW>Etl58cF9Vc!S
zmF=kJr|w~U45Ue_dPh~=M&Z%oS5l|^P#cFbIaX!oMG(hIMSoybY0E;kN;%$~s)^;a
zPE+c```393M3quCidem*?A`3wi6Y5WtJJMZ$!zDErnf+-Y^}IExwcUy;-I2HmMX;#
z1)*(Q+Qar12uHNlh(!u}v>QuOBX7B*D&fG26B^40L99A<lPGHsY|FNq#1IgYYuc(h
z^byfjIgf$JPVOb+ELWo1F+Y^@n@+9lDNAa#TJiT5h+_^WDT<mgFEmN^%HpINJrfS}
zSP>88YanV<vl&HFSNmD5WR7w=%h=n_w~hba;>SQ7j-gmEP+^m*;yq?k8@b^-lvGmU
z^2N`A1d`UWYCCq4q=^-)N_f#MSFu(8Qfsgt1fh~~9aVAY4D7n%JuA&*wxQRfIV-J^
zd=Dh@?J>{`QB}wpiW?ZZ+H0#v0ms954y3JH*oI0T`43AsMWBD0tn&2n0*;t^3k1rk
zg`iy>lY8Mt&S)}7`SW^*QVP8X!rp66D4U;-WV11|Z=;vN=)!J;_Iuji0x`0f=nq-R
z&^jrh-gDI0`H0L&`Ma=hfq1GIl8{&U1&xT!x`nq(125iwyry0Rky$Ys%4R$rB4Y0J
zDl6GY?WtyI`XY!Ob7nPWy;LWL%9cu}Al^T;RcOxq5uM)xDO(VR15@vP?t@QaT%DKM
z6DX1S$`?V<mEoUk6jdjb$ce02hMM9mcVsIqyVG+Z611hPm=&Wl;H*aoh@pGYnWxR8
zLhC^g7v9ZYvrysWG0&RR)i#3Q^u3^&Lh>HS@wZL9jXL%^g1~TRvLU3nEO_y*rFag+
zt({afiuBHIJ|*#ph|#<_6zV9wP5w0y6y!0sGFy;r!RC5Q=FT(6j!f53ao#-#vbB^l
zP0X2c*fk1mrU+3Y(td07)Qcdvx+wK?#MGKZd`&5?ro?p;BRcZnjn#b%gvZKo`OTQ!
zZN_*?<z&W%xSj+MrPiu~$3W)jnYcP4;Ti%vlsh#FQtXPq6^@PvLBuNIjdWc_Wi{<$
z<*?eQktzNt04NM!1fir86^q!k=^16LfGKvK<dl*t3U!s=Yam#5AY#G-wqyA%7tYe#
zl|NES5L73syalp{sCSC3bg^-f3Rb~JW29wJj9>ld`gjY3EvZ&owLP-}41a|^5Y;ip
zFu3LJM54z)q{NPAT0#Da@U_75HgXHBvW@*H8a)VtsL_PA!kdkaw(d32Wyl4iw!U-x
z1lHF;FuFPXNpoQsQ+iCVgcL9<R6SRr<<GG35(pgvd>uS()S9|DF#QN3m^LOTZm!`3
zk;gz%B<DKR#XSPoJF(0HP88tO!i#$r_UAx&&9r&A8veGMp;P9&<q`A5M`c4XdJ#la
zeLnJlzL}-nP$6G{=PT!9L1>g81UZEePd=vXcFgt}Za4d*qLXyH_sl-efykc~PHpa?
z>ZdSjLqZfb^pczYp{aTg1d|tA^N}lt<en2<=D=q|&jxeDOw2bd_7Vs-Th+~s`zX)!
zjJn~4SP8r@K7U%M-{|&JAo*#937$9JL{_vj-Db0ub=;NANxuXADUc%>tTgo2(kj8?
zRmZ;~!FSJ%jD~i{*IOW?_wg1poPZFm)SiuWni-wcrkJJNK<;ZG@}_c+wySyOf@y_L
z5<<!o;_+_tT)qgBaZSmlwNaiqwddGR(Nk|QxpQ*FpYix55RY59E{O^kiA-v47AW~<
zPx&wNZa)aZj7ugC^~#zSU6si>SSw~?T7~S4<WnRc1M#R8h+3W`p1unZVbc!7$q1~5
zuUXK@YakZ8&=eo9U;0dv8`F*%Q(auh^tPPm=`oP%GpG|T!yL=pqEW@HOBi5~>AV**
zbLaU}AdoC$ED>C_AzWp9PGp!)-a?3O$UHp>!g;i=faC+spOCrK)dp4~!9B;$&Z0jE
zvREC62RCffxK>bJV?4;K2{kQ=N$<P}GQxrCu3on|H@YcfCcAd3boTu9dja19Sz3s3
zE_HnO1r6QU54zdJSB%ONVqXMdxsIQl@%TI(bVjN?)4~~$bwhQ{gCHjNBi@k9{x@?C
z=PLCj-!UkLe-1%J4}wt6Tm*>mAY)z0#v20N4~6O3EqT<AnR*Lk^69*R&`s`Mz-8ch
zhZp}3B4*6*lOQ+a-(Y?FQ4fq(a)j|cXaKe4%=q%NxxWQsJO)G`WQx%=Ax6odWoQ{3
z&M`6-zd?qVK#Y+^-<(r%V|&J@xz&l)OkAF}Z>ZZZf-sPP<yg&v4>Lc@=Wf#6>5%`u
zW&ZIEFM(ik3kJ#U)m!fwO&RhC4j|?i@FeF;?0E}BA1l}M5}W8HJlPewq8$n4k-Z7)
z`yz;UTyZWDEkoI7p|)b=`Mh$(dFc*xKL{caEOJ52UX2|ci%YlvG)ul)WY?W&4}z%r
zMO6zPSLsq%PZ=^h7w+SUZERQ%f-o=_;W(d#G~n>_>mKMdC$)BGTF%k^7RXF+*=!~G
znYCss#z6^#3CY`@DY=>{?lF)l?jfnz#=Ao+z09hmGnv>Kuf-Ii?2{mrzp;q5^NuK<
zvl};^gfwRJp3deI&Yl99C(ui)I(?PrZF5216G;d_n$^f*^8Yyy-NYmTL?Ja4V=3<*
zwG2753*7WFRCJTukAdKGBF<o*!EsZ$z&lbzZbq3w<@q>%=`;_4c)v<C;wn1bA63#5
z(Nmd~x-5u|^1cYdKz}<~h%MSVIveFV{z{;7*#=X~S5dzO!WpF<P2E)^v<RQ)iNrwa
zo^#z|^Z63M9s?mJhAcN9?{IE~WtuJ8?M^iaD=y=B4+M(eN={F`iEU%1%!nCjL3kU7
z@viuJ5M*hHb4+4@+cSq>g<tl}qb727nTmE_1er4fceOU{!{g+|$;`mA;zuioqTdx1
zkAd(8E~e~W#*Mphg#^pjWwEjw=^RhdgCLA)&w`Kpnz*4f@g^<tJ^3Uy<!)8@5e_eb
z$T>6QNGeREcyIkFiHr%Q6Iz!M{{_oD1%g+!m!HEM`Ngo-n+)n&$l%4j+F4&3=Tji4
z><i4iK9N?6scm`J*RVTXdcJ1Peh>s!Vbd(xWOh~#Z%yZ4xUprgS-{)#Ajp1rJU2D3
zp`kDdc2gfv-%F635dZTXKLs*JDJeU?zz|drbXDgx$MdW(C8Z0`cn-wh%eQ+srR_VK
z9h;J-y+G>{YR1>a4}#!=+(;CC(RS%<ihp?s+PyvP$5e19(t99xYIPZJdjYk(I=_lA
z7>#q*_34gZIL2cjSNClY%;UH3<|mA`r@L}ni|;DjUy<_=$W7Q@Y`4kQ+{(&Z$TO01
zfdEpHPFi{n<Sr_`ctqO8Gz((-M(UXQSmG$d+rFUh$3RFwzflc3h5G?tipcuy$!rVF
z=->M}-vZfAgr|5HU};xCowHJt(RK&LH%Jw~2tw;~x5EXAj00`iiTx93jMLOp8mr$0
zolk)*H<P?Ot||(<4=OwHcl}ZTT;083{emFg0@<aTOI?C#`W&@)&pK16cOkUCl#uUw
z+qXcB`TAV?W2QL4yNUKL%&q<I<j95}J`>AJAhbT2S>*=Dc+aSZ`w=x%JiRMD|6VZh
z7>I7Xl!2FWsXA6;lASk`8VDFJlWTQ4^m8B+gtQxcD_#7o@%oS>$?bxd_uStX=tYq4
zZs<vbJ+b}FVDOZ=n@u+lHQV}^?)wzT;x8`2nQa;Unbgc(v)5kk_bzJ0ovc?u?#idT
zwv-&=%`cnu{FBMDq_5pG_$<hV*`u3pQO5T-=V)Sloszi=aq{1VeF)^w+G;B5u8|0G
z*&Mba;29TG&hDfqK?soP;>~}F&b_G??P8<51S$(g?Czd_59HtH-{;@wzkL1&MZ;Cc
TGb%@t00000NkvXXu0mjf_*7yh

literal 0
HcmV?d00001

diff --git a/static/qrplay/v3e.html b/static/qrplay/v3e.html
new file mode 100644
index 0000000..a6b2c10
--- /dev/null
+++ b/static/qrplay/v3e.html
@@ -0,0 +1,91 @@
+<META NAME=VIEWPORT CONTENT=initial-scale=1>
+<CENTER>
+<P><A HREF=http://nycki.net/qrplay>qrplay v3e</A><br>by nycki and SArpnt</P>
+<TEXTAREA ID=H 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="
+H.A=A=new AudioContext;
+W=Date.now();
+F=(
+	M='',
+	T=0,
+	L,
+	N,
+	I=0,
+	S=D=>D?S(D+(M[++I]==C)-(M[I]=='/')):I
+)=>{;for(;
+	C=M[I++];
+	D=M[I],
+	J=E=>E.indexOf(D)>=0,
+	Q>7?
+		// DECREMENT Q, and then...
+		(Q-=9)?
+			// triplet or dotted rhythm, C is 3 or .
+			Q>9?L/=+C||2/3:
+			Q>7?
+				// extended command. read two digits, then...
+				(D=D+M[++I,I++]|0)?
+					// set bpm (U)
+					Q>8?U=D+M[I++]:
+					// set volume (V)
+					G=new GainNode(A,{gain:2**(D/5-11)}):
+				0:
+			// else, set length to...
+			L=
+				// fixed length (JTSIQHW)
+				~Q?1<<Q:
+				// reset L=N=4
+				(K=0,N=4):
+		// save sample ($x.../)
+		F[D]=M.slice(++I,S(1)):
+	~Q?(
+		// play note or rest
+		O=new OscillatorNode(A,{
+			type: 'square',
+			// !: are flat, #* are sharp
+			detune:100*(Q*2-(Q>3)-J('!:')+J('#*')-N-7)
+		}),
+		Q&&O.connect(G),
+		G.connect(A.destination),
+		O.start(T),
+		O.stop(T+=L/U*15/8)
+	):
+	// any unused letter or number
+	C-3|C>'@'?setTimeout(
+		// play a sample in parallel
+		_=>F(D,T,L,N),
+		// ...but don't read infinitely far ahead
+		1e3*T-Date.now()+W-5e3,
+		D=F[C]
+	):
+	// change octave, or noop
+	N-=C+12|0
+	)Q='XCDEFGABR$JTSIQHWVU3.'.indexOf(C)},
+	F('RU137V40'+H.value.toUpperCase())
+">#play</BUTTON> <BUTTON onclick=H.A.close()>#stop
+
+<!-- snip -->
+</BUTTON></P>
+<img src="qrplay-v3d-nupas-theme.png">
+</center>
\ No newline at end of file