(piano.tal) Paint waveform with right-click
This commit is contained in:
parent
417fac1a83
commit
a5ca148862
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue