diff --git a/src/assets.tal b/src/assets.tal index f23d71e..2465fa3 100644 --- a/src/assets.tal +++ b/src/assets.tal @@ -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 diff --git a/src/nasu.tal b/src/nasu.tal index ec95968..c8f891d 100644 --- a/src/nasu.tal +++ b/src/nasu.tal @@ -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