@@ -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