Browse Source

Fixed issue with right-click

main
neauoire 4 years ago
parent
commit
8ef7780f17
  1. 10
      src/main.tal

10
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

Loading…
Cancel
Save