M src/assets.tal => src/assets.tal +5 -16
@@ 68,22 68,11 @@
2020 20b8 7c7c 3838
@appicon
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0304 0000 0000 00e0 1008
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
-0000 0000 0000 0000 0000 0000 0000 0000 0c03 0000 0000 0000 0804 8242 2111 7884
-0000 0000 0078 8788 0000 0000 0000 f00c 0000 0000 0000 0000 0000 0000 0000 0000
-0000 0000 0000 0000 0000 0000 0001 0102 010f 3040 8000 0000 04fa 0601 0000 0000
-90a0 8080 8000 4000 0201 0000 0000 0000 0000 8040 2020 1010 0000 0000 0000 0000
-0000 0000 0000 0000 0204 0404 0404 0404 3040 0020 4000 4040 0000 0000 0001 0307
-0000 0000 c0f0 fcfe 0000 0000 0000 0000 1008 0808 0808 0808 0000 0000 0000 0000
-0000 0000 0000 0000 0404 0404 0202 0101 0000 0000 0080 2018 0f1e 1e3e 3e1f 0703
-1f4f efef 4f1e fcfb 0080 8000 0100 7880 0808 2848 8808 1010 0000 0000 0000 0000
-0000 0000 0000 0000 0000 0000 0000 0000 8380 4040 2010 1008 fc00 0000 0000 0000
-7000 0000 0000 0000 0001 0100 0202 0800 1010 2020 4040 4080 0000 0000 0000 0000
-0000 0000 0000 0000 0000 0000 0000 0000 0402 0100 0000 0000 0000 0081 4131 0e00
-0000 0000 0080 433c 0001 4244 b880 0000 8000 0000 0000 0000 0000 0000 0000 0000
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0001 0000 0000 0000 78fc 0c1e 1e07 037b 8503
+0000 0000 0000 0078 0000 0000 0000 7884 0101 0303 0303 0303 0202 0404 0404 0707
+feff fff9 f6e9 c9e6 0100 0006 0f1f 3fff fcfc fefe fe7e 3e7c 0202 0101 0181 c3fe
+0301 0100 0000 0000 0703 0301 0000 0000 f9ff ffff 7f37 0500 ffff ffff ff7f 3f07
+fcf8 f8f0 e0c0 0000 fefc fcf8 f0e0 c000
@font ( atari8 )
0000 0000 0000 0000 6060 6060 6000 6000
M src/manifest.tal => src/manifest.tal +74 -2
@@ 1,4 1,5 @@
-( manifest )
+(
+@|manifest )
@trap-menu ( -> )
@@ 325,7 326,78 @@ JMP2r
JMP2r
-( theme )
+(
+@|about )
+
+@about
+&on-mouse ( -> )
+ .Mouse/state DEI ,&on-control JCN
+ BRK
+&on-control ( -> )
+ ,&hide JSR
+BRK
+&toggle ( -- )
+ [ LIT &active 00 ] ,&hide JCN
+ #01 ,&active STR
+ ;draw-about JSR2
+ ;&on-mouse .Mouse/vector DEO2
+ ;&on-control .Controller/vector DEO2
+JMP2r
+&hide ( -- )
+ #00 ,&active STR
+ ;clear-about JSR2
+ ;untrap ( .. )
+JMP2
+
+@draw-about ( -- )
+
+ ( frame )
+ .Screen/width DEI2 #01 SFT2 #0070 SUB2 STH2k .Screen/x DEO2
+ .Screen/height DEI2 #01 SFT2 #0010 SUB2 STH2k .Screen/y DEO2
+ #1c06 ;frame1-chr ;draw-frame JSR2
+ ( fill )
+ STH2r .Screen/y DEO2
+ STH2r .Screen/x DEO2
+ #1c #0351 ;fill-icn ;draw-fill-fast JSR2
+ .Screen/x DEI2k #00e0 SUB2 ROT DEO2
+ ( icon )
+ .Screen/x DEI2k #0008 ADD2 ROT DEO2
+ .Screen/y DEI2k #000c ADD2 ROT DEO2
+ #03 #8526 ;appicon ;draw-fill-fast JSR2
+ .Screen/x DEI2k #0020 ADD2 ROT DEO2
+ .Screen/y DEI2k #001c SUB2 ROT DEO2
+ #0a ;draw-chr/color STA
+ ;meta/body ( .. )
+
+@draw-txt ( txt* -- )
+
+ #01 .Screen/auto DEO
+ .Screen/x DEI2 ,&anchor STR2
+ &w
+ LDAk #20 LTH ,&no-char JCN
+ LDAk ;draw-chr JSR2
+ &no-char
+ LDAk #0a NEQ ,&no-lb JCN
+ [ LIT2 &anchor $2 ] .Screen/x DEO2
+ ;draw-lb JSR2
+ &no-lb
+ INC2 LDAk ,&w JCN
+ POP2
+
+JMP2r
+
+@clear-about ( -- )
+
+ .Screen/width DEI2 #01 SFT2 #0088 SUB2 .Screen/x DEO2
+ .Screen/height DEI2 #01 SFT2 #0028 SUB2 .Screen/y DEO2
+ #22 #0091 ;draw-fill-fast/blank JSR2
+ ;redraw-all JSR2
+ ;draw-menu ( .. )
+
+JMP2
+
+(
+@|theme )
@load-theme ( -- )
M src/noodle.tal => src/noodle.tal +9 -71
@@ 69,6 69,15 @@
BRK
+@meta 00 &body
+ ( name ) "Noodle 0a
+ ( details ) "A 20 "Drawing 20 "Program 0a
+ ( author ) "By 20 "Hundred 20 "Rabbits 0a
+ ( date ) "Jan 20 "8, 20 "2023 00
+ 03
+ ( icon ) 83 =appicon
+ ( mask ) 41 1705
+
@manifest
06 "Noodle $1
@@ 1607,77 1616,6 @@ JMP2r
@msfr ( a* b* len* -- ) STH2 EQU2k ,&e JCN &l DUP2 LDAk ROT ROT STH2kr ADD2 STA #0001 SUB2 LTH2k ,&l JCN POP2 POP2 &e POP2r JMP2r
(
-@|about )
-
-@meta =&end =appicon &body
- ( name ) "Noodle $1
- ( version ) "Ver. 20 "14 $1
- ( details ) "A 20 "Sketching 20 "Program $1
- ( author ) "Hundred 20 "Rabbits 20 7f 20 "2022 $1
- &end $1
-
-@about
-&on-mouse ( -> )
- .Mouse/state DEI ,&on-control JCN
- BRK
-&on-control ( -> )
- ,&hide JSR
-BRK
-&toggle ( -- )
- [ LIT &active 00 ] ,&hide JCN
- #01 ,&active STR
- ;draw-about JSR2
- ;&on-mouse .Mouse/vector DEO2
- ;&on-control .Controller/vector DEO2
-JMP2r
-&hide ( -- )
- #00 ,&active STR
- ;clear-about JSR2
- ;untrap ( .. )
-JMP2
-
-@draw-about ( -- )
-
- ( frame )
- .Screen/width DEI2 #01 SFT2 #0080 SUB2 STH2k .Screen/x DEO2
- .Screen/height DEI2 #01 SFT2 #0020 SUB2 STH2k .Screen/y DEO2
- #2008 ;frame1-chr ;draw-frame JSR2
- ( fill )
- STH2kr .Screen/y DEO2
- OVR2r STH2r .Screen/x DEO2
- #20 #0371 ;fill-icn ;draw-fill-fast JSR2
- ( icon )
- STH2kr .Screen/y DEO2
- OVR2r STH2r .Screen/x DEO2
- #08 #0e76 ;appicon ;draw-fill-fast JSR2
- ( text )
- STH2r #0010 ADD2 .Screen/y DEO2
- LIT2r 0048 ADD2r
- #01 .Screen/auto DEO
- #0a ;draw-chr/color STA
- STH2kr .Screen/x DEO2
- ;meta/body
- &w
- ;draw-str JSR2
- ;draw-lb JSR2
- STH2kr .Screen/x DEO2
- LDAk ,&w JCN
- POP2
- POP2r
-
-JMP2r
-
-@clear-about ( -- )
-
- .Screen/width DEI2 #01 SFT2 #0088 SUB2 .Screen/x DEO2
- .Screen/height DEI2 #01 SFT2 #0028 SUB2 .Screen/y DEO2
- #22 #0091 ;draw-fill-fast/blank JSR2
- ;redraw-all JSR2
- ;draw-menu ( .. )
-
-JMP2
-
-(
@|tga )
@file-open-tga ( -- )