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