diff --git a/src/main.tal b/src/main.tal index 3f4f505..77a20b3 100644 --- a/src/main.tal +++ b/src/main.tal @@ -439,7 +439,7 @@ BRK .Mouse/y DEI2 .tileview/y1 LDZ2 -- 8// SWP2 8// SWP2 GET-POSITION ADD-POSITIONS - #00 .Mouse/state DEI #10 = ,&do-erase-zoom JCN + #00 .Mouse/state DEI #01 > ,&do-erase-zoom JCN POP .settings/color LDZ &do-erase-zoom ;put-pixel JSR2 @@ -544,13 +544,13 @@ BRK DUP #00 = .Mouse/state DEI #01 = #0101 !! ,&no-shiftup JCN ;op-shift-tile-up ;run-selection JSR2 SET-STATE &no-shiftup - DUP #00 = .Mouse/state DEI #10 = #0101 !! ,&no-shiftdown JCN + DUP #00 = .Mouse/state DEI #01 > #0101 !! ,&no-shiftdown JCN ;op-shift-tile-down ;run-selection JSR2 SET-STATE &no-shiftdown DUP #01 = .Mouse/state DEI #01 = #0101 !! ,&no-shiftright JCN ;op-shift-tile-right ;run-selection JSR2 SET-STATE &no-shiftright - DUP #01 = .Mouse/state DEI #10 = #0101 !! ,&no-shiftleft JCN + DUP #01 = .Mouse/state DEI #01 > #0101 !! ,&no-shiftleft JCN ;op-shift-tile-left ;run-selection JSR2 SET-STATE &no-shiftleft POP @@ -563,7 +563,7 @@ BRK .Mouse/y DEI2 .zoomview/y1 LDZ2 -- 4// .settings/focus LDZ2 ++ ( detect erase ) - #00 .Mouse/state DEI #10 = ,&do-erase JCN + #00 .Mouse/state DEI #01 > ,&do-erase JCN POP .settings/color LDZ &do-erase STH OVR2 OVR2 @@ -630,7 +630,7 @@ BRK #0f SWP [ 40* SFT ] AND STHr #00 = .Mouse/x DEI2 .colorview/x1 LDZ2 -- 2// NIP - ( clamp to #0f ) DUP #10 = - + ( clamp to #0f ) DUP #01 > - SWP [ 40* SFT ] + RTN