uxn

commit a5ca148862953f9e3494d2b0ec8c40c662e0fd57
parent 417fac1a83fad3523d2882c4a3307f6e5bf7a28c
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Mon, 27 Feb 2023 19:26:41 -0800

(piano.tal) Paint waveform with right-click

Diffstat:
M
projects/software/piano.tal
 | 
15
++++++++++++---

1 file changed, 12 insertions(+), 3 deletions(-)
diff --git a/projects/software/piano.tal b/projects/software/piano.tal
@@ -165,11 +165,20 @@ BRK
 
 @on-touch-wave-view ( -> )
 
+	.Mouse/state DEI #01 GTH ?&paint
 	.Mouse/x DEI2 .wave-view/x1 LDZ2 SUB2
 		( min ) #0010 GTH2k [ JMP SWP2 POP2 ] set-length
 
 BRK
 
+&paint ( -> )
+
+	.Mouse/y DEI2 .wave-view/y1 LDZ2 SUB2 #20 SFT2 NIP
+	.Mouse/x DEI2 .wave-view/x1 LDZ2 SUB2 ;sin-pcm ADD2 STA
+	draw-wave
+
+BRK
+
 @on-touch-octave-view ( -> )
 
 	.Mouse/x DEI2 .octave-view/x1 LDZ2 SUB2 #03 SFT2 NIP #09 NEQ ?&no-mod
@@ -209,7 +218,7 @@ BRK
 	STH2
 	( mask ) #ffff #000f #03 OVRr STHr SUB #60 SFT SFT2 EOR2
 		.Audio0/adsr DEI2 AND2
-	( value ) #000f STHr OVR LTHk JMP SWP POP SUB
+	( value ) #000f STHr OVR LTHk [ JMP SWP POP ] SUB
 	( shift ) #03 STHr SUB #60 SFT SFT2 ORA2
 	.Audio0/adsr DEO2
 	draw-adsr
@@ -221,8 +230,8 @@ BRK
 	SWP #03 SUB INC INC SWP STH2
 	( mask ) #0f OVRr STHr #60 SFT SFT
 		.Audio0/volume DEI AND
-	( value ) #0f STHr OVR LTHk JMP SWP POP SUB
-	( shift ) #01 STHr SUB #20 SFT #40 SFT SFT ORA
+	( value ) #0f STHr OVR LTHk [ JMP SWP POP ] SUB
+	( shift ) #01 STHr SUB #60 SFT SFT ORA
 	.Audio0/volume DEO
 	draw-adsr