human.equivalent
/
nasu
mirror of https://git.sr.ht/~rabbits/nasu
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

Added new metadata format

main
Devine Lu Linvega 3 years ago
parent
487e3cd6c4
commit
bbeb757ebe
2 changed files with 53 additions and 55 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 21
      src/assets.tal
  2. 87
      src/nasu.tal

21
src/assets.tal
Unescape View File

@ -45,22 +45,11 @@
( v ) 0000 0000 0000 0000 2020 2020 2020 2020 ( v ) 0000 0000 0000 0000 2020 2020 2020 2020
@appicon @appicon
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 0000 0000 0f0f 0f0f 0000 000f 1c1c 1313 0000 0000 ffff ffff 0000 00ff cccc 3333
0000 0000 031c 6080 0000 0000 fc03 0000 0000 0000 0000 8040 0000 0000 0000 0000 0000 0000 f0f0 f0f0 0000 00f0 c8c8 3838 0f0f 0f0f 0f0f 0f0f 1c1c 1313 1c1c 1313
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0608 1020 4448 8090 ffff ffff ffff ffff cccc 3333 cccc 3333 f0f0 f0f0 f0f0 f0f0 c8c8 3838 c8c8 3838
0000 0000 0000 0000 0000 0000 0101 0204 4040 8080 0000 0000 0000 0000 0000 0000 0f0f 0f0f 0000 0000 1c1c 1313 0f00 0000 ffff ffff 0000 0000 cccc 3333 ff00 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0101 0101 0101 9080 0000 0000 0000 f0f0 f0f0 0000 0000 c8c8 3838 f000 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
@font ( atari8 ) @font ( atari8 )
0000 0000 0000 0000 6060 6060 6000 6000 0000 0000 0000 0000 6060 6060 6000 6000

87
src/nasu.tal
Unescape View File

@ -27,11 +27,11 @@
|0100 ( -> ) |0100 ( -> )
( meta ) ( meta )
;meta #f0 DEO2 ;meta #06 DEO2
( theme ) ( theme )
#097f .System/r DEO2 #970f .System/r DEO2
#07df .System/g DEO2 #7d0f .System/g DEO2
#0dcf .System/b DEO2 #dc0f .System/b DEO2
( size ) ( size )
#012e .Screen/width DEO2 #012e .Screen/width DEO2
#00f0 .Screen/height DEO2 #00f0 .Screen/height DEO2
@ -737,7 +737,7 @@ JMP2r
INC GTHk ,&hor JCN INC GTHk ,&hor JCN
POP2 POP2
POPr POPr
.Screen/y DEI2k #0008 ADD2 ROT DEO2 .nametableview/x LDZ2 ;draw-lb JSR2
INC GTHk ,&ver JCN INC GTHk ,&ver JCN
POP2 POP2
@ -976,7 +976,7 @@ JMP2r
#02 ;draw-chr/color STA #02 ;draw-chr/color STA
( ch2 ) #0008 ADD2 LDA2 ;draw-short JSR2 ( ch2 ) #0008 ADD2 LDA2 ;draw-short JSR2
( skip line ) ( skip line )
.Screen/y DEI2k #0008 ADD2 ROT DEO2 .dataview/x1 LDZ2 ;draw-lb JSR2
INC GTHk ,&loop JCN INC GTHk ,&loop JCN
POP2 POP2
@ -1051,12 +1051,6 @@ JMP2r
JMP2r JMP2r
@draw-lb ( -- )
.Screen/y DEI2k #0008 ADD2 ROT DEO2
JMP2r
@draw-once ( -- ) @draw-once ( -- )
.tileview/x1 LDZ2 .Screen/x DEO2 .tileview/x1 LDZ2 .Screen/x DEO2
@ -1143,7 +1137,7 @@ JMP
.Screen/auto DEO .Screen/auto DEO
.Screen/addr DEO2 .Screen/addr DEO2
&paint ( mask -- ) &paint ( mask -- )
[ LIT &color 8a ] SWP ORA .Screen/sprite DEO [ LIT &color 85 ] SWP ORA .Screen/sprite DEO
JMP2r JMP2r
@line-hor-dashed ( x* y* color -- ) @line-hor-dashed ( x* y* color -- )
@ -1385,12 +1379,15 @@ JMP2r
( (
@|about ) @|about )
@meta =&end =appicon &body @meta =&end &body
( name ) "Nasu $1 ( name ) "Nasu 0a
( version ) "Ver. 20 "15 $1 ( version ) "Ver. 20 "16 0a
( details ) "A 20 "Sprite 20 "Editor $1 ( details ) "A 20 "Sprite 20 "Editor 0a
( author ) "Hundred 20 "Rabbits 20 7f 20 "2022 $1 ( author ) "Hundred 20 "Rabbits 20 7f 20 "2022 00
&end $1 ( specs ) 40 0001
( mask ) 41 1705
( icon ) 83 =appicon
&end
@about @about
&on-mouse ( -> ) &on-mouse ( -> )
@ -1415,31 +1412,43 @@ JMP2
@draw-about ( -- ) @draw-about ( -- )
( frame ) ( frame )
.Screen/width DEI2 #01 SFT2 #0080 SUB2 STH2k .Screen/x DEO2 .Screen/width DEI2 #01 SFT2 #0070 SUB2 STH2k .Screen/x DEO2
.Screen/height DEI2 #01 SFT2 #0020 SUB2 STH2k .Screen/y DEO2 .Screen/height DEI2 #01 SFT2 #0010 SUB2 STH2k .Screen/y DEO2
#2008 ;frame1-chr ;draw-frame JSR2 #1c06 ;frame1-chr ;draw-frame JSR2
( fill ) ( fill )
STH2kr .Screen/y DEO2 STH2r .Screen/y DEO2
OVR2r STH2r .Screen/x DEO2 STH2r .Screen/x DEO2
#20 #0171 ;fill-icn ;draw-fill-fast JSR2 #1c #0351 ;fill-icn ;draw-fill-fast JSR2
.Screen/x DEI2k #00e0 SUB2 ROT DEO2
( icon ) ( icon )
STH2kr .Screen/y DEO2 .Screen/x DEI2k #0008 ADD2 ROT DEO2
OVR2r STH2r .Screen/x DEO2 .Screen/y DEI2k #000c ADD2 ROT DEO2
#08 #0476 ;appicon ;draw-fill-fast JSR2 #03 #8526 ;appicon ;draw-fill-fast JSR2
( text ) .Screen/x DEI2k #0020 ADD2 ROT DEO2
STH2r #0010 ADD2 .Screen/y DEO2 .Screen/y DEI2k #001c SUB2 ROT DEO2
LIT2r 0048 ADD2r #0a ;draw-chr/color STA
;meta/body ;draw-txt JSR2
JMP2r
@draw-txt ( txt* -- )
#01 .Screen/auto DEO #01 .Screen/auto DEO
#04 ;draw-chr/color STA .Screen/x DEI2 ,&anchor STR2
STH2kr .Screen/x DEO2
;meta/body
&w &w
;draw-str JSR2 LDAk ;draw-chr JSR2
;draw-lb JSR2 LDAk #0a NEQ ,&no-lb JCN
STH2kr .Screen/x DEO2 [ LIT2 &anchor $2 ] ,draw-lb JSR
LDAk ,&w JCN &no-lb
INC2 LDAk ,&w JCN
POP2 POP2
POP2r
JMP2r
@draw-lb ( anchor* -- )
.Screen/x DEO2
.Screen/y DEI2k #0008 ADD2 ROT DEO2
JMP2r JMP2r

Write Preview
Loading…
Cancel
Save