@@ 592,16 592,16 @@
@<draw-menu> ( -- )
.menu/hide LDZ ?<clear-menu>
#0000 .Screen/y DEO2
- #000c .Screen/x DEO2
- [ LIT2 91 -Screen/pixel ] DEO
- #0002 .Screen/x DEO2
+ #000a .Screen/x DEO2
+ [ LIT2 93 -Screen/pixel ] DEO
+ #0000 .Screen/x DEO2
[ LIT2 06 -Screen/auto ] DEO
( | shapes )
;shapes-icns [ LIT2 00 -brush/shape ] LDZ #63 SFT ADD2 .Screen/addr DEO2
#0800
&l-shapes ( -- )
#00 OVR #000a MUL2 INC2 INC2 .Screen/y DEO2
- DUP .brush/shape LDZ #07 AND EQU #0a MUL .Screen/sprite DEO
+ DUP .brush/shape LDZ #07 AND NEQ #0a MUL .Screen/sprite DEO
INC GTHk ?&l-shapes
POP2
( | patts )
@@ 609,7 609,7 @@
#0a00
&l-patts ( -- )
#00 OVR #09 ADD #000a MUL2 INC2 INC2 .Screen/y DEO2
- DUP .brush/patt LDZ EQU #0a MUL .Screen/sprite DEO
+ DUP .brush/patt LDZ NEQ #0a MUL .Screen/sprite DEO
INC GTHk ?&l-patts
POP2
( | tools )
@@ 617,7 617,7 @@
#0400
&l-tools ( -- )
#00 OVR #14 ADD #000a MUL2 INC2 INC2 .Screen/y DEO2
- DUP .brush/tool LDZ EQU #0a MUL .Screen/sprite DEO
+ DUP .brush/tool LDZ NEQ #0a MUL .Screen/sprite DEO
INC GTHk ?&l-tools
POP2
( | blend )