[PATCH oekaki] Add icon and menu entry to change shapes
Export this patch
The proposed icon looks like this:
. . . 0 0 0 0 .
. 0 0 0 . . 0 .
0 0 0 0 0 . 0 .
0 0 . 0 0 0 0 .
0 0 0 0 0 . . .
. 0 0 0 . . 0 .
. . . . . 0 0 0
. . . . . . 0 .
---
src/oekaki.tal | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/src/oekaki.tal b/src/oekaki.tal
index 131254e..468e499 100644
--- a/src/oekaki.tal
+++ b/src/oekaki.tal
@@ -128,6 +128,10 @@
.brush/shape LDZ #33 SFT ADD <set-shape>
<release-mouse>
BRK }
+ DUP #08 GTH ?{
+ .brush/shape LDZ ADD <set-shape>
+ <release-mouse>
+ BRK }
#09 SUB
( | nature )
DUP #02 GTH ?{ <set-nature>
@@ -777,6 +781,10 @@
DUP [ LIT2 07 -brush/shape ] LDZ AND NEQ #0a MUL .Screen/sprite DEO
INC GTHk ?&>l-shapes
POP2
+ #000e #000a MUL2 INC2 INC2 .Screen/y DEO2
+ ;next-shapes-icn .Screen/addr DEO2
+ [ LIT2 0a -Screen/sprite ] DEO
+
( | nature )
;nature-icns .Screen/addr DEO2
#0300
@@ -1037,6 +1045,8 @@
0004 0e1c 3870 2000 0006 0e1c 3870 6000
0207 0e1c 3870 e040 0307 0e1c 3870 e0c0 ]
+@next-shapes-icn [ 1e72 fade f872 0702 ]
+
@tools-icns [
0205 02f8 7838 5888 0215 2220 2020 20c0
0205 0208 1020 4080 02f5 aad4 aad6 aafe
--
2.45.2