@@ 229,7 229,7 @@
( ) DUP2 [ LIT2 &y $2 ] SUB2 .canvas/y LDZ2 ADD2 .canvas/y STZ2
( ) ,&y STR2
!<redraw-all>
-
+
(
@|brush )
@@ 329,7 329,7 @@
JMP2r
&outside ( `color* -- )
POP2r JMP2r
-
+
(
@|filters )
@@ 613,11 613,15 @@
.menu/hide LDZ ?{
OVR2 #0010 GTH2 ?{ <hide-menu> }
}
+ DUP2 .canvas/height LDZ2 GTH2 ?&skip
+ OVR2 .canvas/width LDZ2 GTH2 ?&skip
get-tile-addr .Screen/addr DEO2
#33 SFT2 .canvas/y LDZ2 ADD2 .Screen/y DEO2
#33 SFT2 .canvas/x LDZ2 ADD2 .Screen/x DEO2
[ LIT2 81 -Screen/sprite ] DEO
JMP2r
+ &skip ( x* y* -- )
+ POP2 POP2 JMP2r
@<guide-rect> ( x* y* x* y* -- )
normalize-rect STH2 STH2