d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(piano.tal) Paint waveform with right-click

This commit is contained in:
Devine Lu Linvega 2023-02-27 19:26:41 -08:00
parent 417fac1a83
commit a5ca148862
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
projects/software/piano.tal
View File

@ -165,11 +165,20 @@ BRK
@on-touch-wave-view ( -> ) @on-touch-wave-view ( -> )
.Mouse/state DEI #01 GTH ?&paint
.Mouse/x DEI2 .wave-view/x1 LDZ2 SUB2 .Mouse/x DEI2 .wave-view/x1 LDZ2 SUB2
( min ) #0010 GTH2k [ JMP SWP2 POP2 ] set-length ( min ) #0010 GTH2k [ JMP SWP2 POP2 ] set-length
BRK 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 ( -> ) @on-touch-octave-view ( -> )
.Mouse/x DEI2 .octave-view/x1 LDZ2 SUB2 #03 SFT2 NIP #09 NEQ ?&no-mod .Mouse/x DEI2 .octave-view/x1 LDZ2 SUB2 #03 SFT2 NIP #09 NEQ ?&no-mod
@ -209,7 +218,7 @@ BRK
STH2 STH2
( mask ) #ffff #000f #03 OVRr STHr SUB #60 SFT SFT2 EOR2 ( mask ) #ffff #000f #03 OVRr STHr SUB #60 SFT SFT2 EOR2
.Audio0/adsr DEI2 AND2 .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 ( shift ) #03 STHr SUB #60 SFT SFT2 ORA2
.Audio0/adsr DEO2 .Audio0/adsr DEO2
draw-adsr draw-adsr
@ -221,8 +230,8 @@ BRK
SWP #03 SUB INC INC SWP STH2 SWP #03 SUB INC INC SWP STH2
( mask ) #0f OVRr STHr #60 SFT SFT ( mask ) #0f OVRr STHr #60 SFT SFT
.Audio0/volume DEI AND .Audio0/volume DEI AND
( value ) #0f STHr OVR LTHk JMP SWP POP SUB ( value ) #0f STHr OVR LTHk [ JMP SWP POP ] SUB
( shift ) #01 STHr SUB #20 SFT #40 SFT SFT ORA ( shift ) #01 STHr SUB #60 SFT SFT ORA
.Audio0/volume DEO .Audio0/volume DEO
draw-adsr draw-adsr