commit 596f1a43b1a01281d070af9aeff1de6cf93ffdc5
parent ac416bb02f998ebc6aee7a1fcef25f30091f8b47
Author: neauoire <aliceffekt@gmail.com>
Date: Mon, 5 Jul 2021 09:26:00 -0700
Clamp octave in piano example
Diffstat:
1 file changed, 2 insertions(+), 0 deletions(-)
diff --git a/projects/examples/demos/piano.tal b/projects/examples/demos/piano.tal
@@ -188,8 +188,10 @@ BRK
.Mouse/x DEI2 .octave-view/x1 LDZ2 -- 8// SWP POP #09 ! ,&no-mod JCN
.Mouse/y DEI2 .octave-view/y1 LDZ2 -- 8// SWP POP
DUP #00 ! ,&no-incr JCN
+ .octave LDZ #03 = ,&no-incr JCN
.octave LDZ #01 + .octave STZ &no-incr
DUP #02 ! ,&no-decr JCN
+ .octave LDZ #ff = ,&no-decr JCN
.octave LDZ #01 - .octave STZ &no-decr
POP
( release ) #00 .Mouse/state DEO