From 32de4c0ea0608a5f41e19f150552b16c32b76db9 Mon Sep 17 00:00:00 2001 From: neauoire Date: Mon, 4 Sep 2023 09:10:47 -0700 Subject: [PATCH] Improved interface design --- src/oekaki.tal | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/oekaki.tal b/src/oekaki.tal index bce2ff0..73f822b 100644 --- a/src/oekaki.tal +++ b/src/oekaki.tal @@ -592,16 +592,16 @@ @ ( -- ) .menu/hide LDZ ? #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 ) -- 2.45.2