@@ 45,22 45,11 @@
( v ) 0000 0000 0000 0000 2020 2020 2020 2020
@appicon
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001
-0000 0000 031c 6080 0000 0000 fc03 0000 0000 0000 0000 8040 0000 0000 0000 0000
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0608 1020 4448 8090
-0000 0000 0000 0000 0000 0000 0101 0204 4040 8080 0000 0000 0000 0000 0000 0000
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0101 0101 0101 9080 0000 0000 0000
-0000 0000 030c 30c0 0810 3ec1 0000 0000 0000 00c0 3008 0808 0000 0000 0000 0000
-0000 0000 0000 0000 0000 0001 0204 0812 003f c000 0080 0000 8480 0000 2018 0708
-0000 0000 0000 ff00 0001 0528 410e f000 0810 2040 8000 0000 0000 0000 0000 0000
-0000 0000 0000 0000 1020 2021 4347 4644 0000 00c0 e0f0 f070 0808 0808 0808 0808
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
-0000 0000 0000 0000 4544 4647 4341 2024 7070 f0f0 e0c0 0000 0807 0400 0404 0404
-00e0 1804 0202 0101 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
-0000 0000 0000 0000 1012 1008 0402 0100 0000 0000 0003 7c80 0808 1020 4080 0000
-0101 0101 0102 0204 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
-0000 0000 0000 0000 0000 0000 0000 0000 4130 0e01 0000 0000 0014 00ff 0000 0000
-0810 6080 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0f0f 0f0f 0000 000f 1c1c 1313 0000 0000 ffff ffff 0000 00ff cccc 3333
+0000 0000 f0f0 f0f0 0000 00f0 c8c8 3838 0f0f 0f0f 0f0f 0f0f 1c1c 1313 1c1c 1313
+ffff ffff ffff ffff cccc 3333 cccc 3333 f0f0 f0f0 f0f0 f0f0 c8c8 3838 c8c8 3838
+0f0f 0f0f 0000 0000 1c1c 1313 0f00 0000 ffff ffff 0000 0000 cccc 3333 ff00 0000
+f0f0 f0f0 0000 0000 c8c8 3838 f000 0000
@font ( atari8 )
0000 0000 0000 0000 6060 6060 6000 6000
@@ 27,11 27,11 @@
|0100 ( -> )
( meta )
- ;meta #f0 DEO2
+ ;meta #06 DEO2
( theme )
- #097f .System/r DEO2
- #07df .System/g DEO2
- #0dcf .System/b DEO2
+ #970f .System/r DEO2
+ #7d0f .System/g DEO2
+ #dc0f .System/b DEO2
( size )
#012e .Screen/width DEO2
#00f0 .Screen/height DEO2
@@ 737,7 737,7 @@ JMP2r
INC GTHk ,&hor JCN
POP2
POPr
- .Screen/y DEI2k #0008 ADD2 ROT DEO2
+ .nametableview/x LDZ2 ;draw-lb JSR2
INC GTHk ,&ver JCN
POP2
@@ 976,7 976,7 @@ JMP2r
#02 ;draw-chr/color STA
( ch2 ) #0008 ADD2 LDA2 ;draw-short JSR2
( skip line )
- .Screen/y DEI2k #0008 ADD2 ROT DEO2
+ .dataview/x1 LDZ2 ;draw-lb JSR2
INC GTHk ,&loop JCN
POP2
@@ 1051,12 1051,6 @@ JMP2r
JMP2r
-@draw-lb ( -- )
-
- .Screen/y DEI2k #0008 ADD2 ROT DEO2
-
-JMP2r
-
@draw-once ( -- )
.tileview/x1 LDZ2 .Screen/x DEO2
@@ 1143,7 1137,7 @@ JMP
.Screen/auto DEO
.Screen/addr DEO2
&paint ( mask -- )
- [ LIT &color 8a ] SWP ORA .Screen/sprite DEO
+ [ LIT &color 85 ] SWP ORA .Screen/sprite DEO
JMP2r
@line-hor-dashed ( x* y* color -- )
@@ 1385,12 1379,15 @@ JMP2r
(
@|about )
-@meta =&end =appicon &body
- ( name ) "Nasu $1
- ( version ) "Ver. 20 "15 $1
- ( details ) "A 20 "Sprite 20 "Editor $1
- ( author ) "Hundred 20 "Rabbits 20 7f 20 "2022 $1
- &end $1
+@meta =&end &body
+ ( name ) "Nasu 0a
+ ( version ) "Ver. 20 "16 0a
+ ( details ) "A 20 "Sprite 20 "Editor 0a
+ ( author ) "Hundred 20 "Rabbits 20 7f 20 "2022 00
+ ( specs ) 40 0001
+ ( mask ) 41 1705
+ ( icon ) 83 =appicon
+ &end
@about
&on-mouse ( -> )
@@ 1415,31 1412,43 @@ 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
+ .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 )
- STH2kr .Screen/y DEO2
- OVR2r STH2r .Screen/x DEO2
- #20 #0171 ;fill-icn ;draw-fill-fast JSR2
+ STH2r .Screen/y DEO2
+ STH2r .Screen/x DEO2
+ #1c #0351 ;fill-icn ;draw-fill-fast JSR2
+ .Screen/x DEI2k #00e0 SUB2 ROT DEO2
( icon )
- STH2kr .Screen/y DEO2
- OVR2r STH2r .Screen/x DEO2
- #08 #0476 ;appicon ;draw-fill-fast JSR2
- ( text )
- STH2r #0010 ADD2 .Screen/y DEO2
- LIT2r 0048 ADD2r
+ .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 JSR2
+
+JMP2r
+
+@draw-txt ( txt* -- )
+
#01 .Screen/auto DEO
- #04 ;draw-chr/color STA
- STH2kr .Screen/x DEO2
- ;meta/body
+ .Screen/x DEI2 ,&anchor STR2
&w
- ;draw-str JSR2
- ;draw-lb JSR2
- STH2kr .Screen/x DEO2
- LDAk ,&w JCN
+ LDAk ;draw-chr JSR2
+ LDAk #0a NEQ ,&no-lb JCN
+ [ LIT2 &anchor $2 ] ,draw-lb JSR
+ &no-lb
+ INC2 LDAk ,&w JCN
POP2
- POP2r
+
+JMP2r
+
+@draw-lb ( anchor* -- )
+
+ .Screen/x DEO2
+ .Screen/y DEI2k #0008 ADD2 ROT DEO2
JMP2r