@@ 10,10 10,6 @@
TODO:
Save/load/rename
- Zoom
- Draw guides
- Toggle guides
- Toggle zoom icon on click
)
%+ { ADD } %- { SUB } %* { MUL } %/ { DIV }
@@ 210,6 206,17 @@ BRK
.Mouse/x DEI2 .tileview/x1 LDZ2 --
.Mouse/y DEI2 .tileview/y1 LDZ2 --
+ .settings/zoom LDZ #01 ! ,&no-zoom JCN
+ #0008 // SWP2 #0008 // SWP2
+ GET-POSITION ADD-POSITIONS
+ #00 .Mouse/state DEI #10 = ,&do-erase-zoom JCN
+ POP .settings/color LDZ &do-erase-zoom
+ ;put-pixel JSR2
+ ;draw-tileview JSR2
+ ;draw-preview JSR2
+ BRK
+ &no-zoom
+
.settings/tool LDZ
DUP #00 ! ,&no-brush JCN
POP