d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'main' of git.sr.ht:~rabbits/sketches

This commit is contained in:
neauoire 2022-12-14 11:06:28 -08:00
parent 9599cfb7f2 28a284819b
commit 47252dffb3
1 changed files with 25 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
ray/src/ray.tal
View File

@ -117,7 +117,7 @@ JMP2r
@draw-col ( distance* color -- ) @draw-col ( distance* color -- )
#04 SFT ,&color STR ,&color STR
( scale ) #01 SFT2 NIP ( scale ) #01 SFT2 NIP
STH STH
#8000 #8000
@ -144,6 +144,7 @@ JMP2r
@draw-minimap ( -- ) @draw-minimap ( -- )
#01 .Screen/auto DEO #01 .Screen/auto DEO
;fill-icn .Screen/addr DEO2
#0000 .Screen/y DEO2 #0000 .Screen/y DEO2
#1000 #1000
&ver &ver
@ -152,9 +153,7 @@ JMP2r
#1000 #1000
&hor &hor
( id ) #00 OVR STHkr #40 SFT ADD ( id ) #00 OVR STHkr #40 SFT ADD
( addr* ) #0003 MUL2 ;nametable ADD2 ;world ADD2 LDA .Screen/sprite DEO
LDA2k ;spritesheet ADD2 .Screen/addr DEO2
( color ) INC2 INC2 LDA .Screen/sprite DEO
INC GTHk ,&hor JCN INC GTHk ,&hor JCN
POP2 POP2
POPr POPr
@ -183,6 +182,9 @@ JMP2r
JMP2r JMP2r
@fill-icn
ffff ffff ffff ffff
@to-scale ( x* y* -- x* y* ) @to-scale ( x* y* -- x* y* )
( scale ) SWP2 #01 SFT2 ( scale ) SWP2 #01 SFT2
@ -237,8 +239,8 @@ JMP2r
@get-tile ( x* y* -- tile ) @get-tile ( x* y* -- tile )
;to-scale JSR2 ;to-scale JSR2
#43 SFT2 SWP2 #03 SFT2 ADD2 #0003 MUL2 #43 SFT2 SWP2 #03 SFT2 ADD2
;nametable ADD2 LDA2 NIP ;world ADD2 LDA
JMP2r JMP2r
@ -294,42 +296,24 @@ JMP2r
@player-icn @player-icn
0010 387c 3810 0000 0010 387c 3810 0000
@spritesheet @world
0000 0000 0000 0000 0000 0000 0000 0000 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01
ffff ffff ffff ffff 0000 0000 0000 0000 01 00 00 00 00 00 00 00 00 00 00 00 02 00 00 01
0000 0000 0000 0000 ffff ffff ffff ffff 01 00 00 00 00 00 00 00 00 00 00 00 02 00 00 01
ffff ffff ffff ffff ffff ffff ffff ffff 01 00 00 00 00 00 00 00 00 03 03 03 02 00 00 01
0000 0000 0000 0000 ffff ffff ffff ffff 01 00 00 00 03 00 00 00 00 03 00 00 02 00 00 01
ffff ffff ffff ffff ffff ffff ffff ffff 01 00 00 00 03 00 00 00 00 03 00 00 02 00 00 01
0000 0000 0000 0000 ffff ffff ffff ffff 01 00 00 00 03 00 00 00 00 00 00 00 01 00 00 01
ffff ffff ffff ffff ffff ffff ffff ffff 01 00 00 00 03 00 00 00 00 00 00 00 01 00 00 01
01 00 03 03 02 02 02 02 02 00 00 00 01 00 00 01
01 00 00 00 00 00 00 00 02 00 00 00 01 00 00 01
01 00 00 00 00 00 00 00 02 00 00 00 01 00 00 01
01 00 00 00 00 00 00 00 02 00 03 03 03 00 00 01
01 00 00 00 00 00 00 00 02 00 00 00 00 00 00 02
01 00 00 00 00 00 00 00 02 00 00 00 00 00 00 01
01 00 00 00 00 00 00 00 02 00 00 00 00 00 00 01
01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01
@nametable
0010 8100 1081 0010 8100 1081 0010 8100 1081 0010 8100 1081 0010 8100 1081 0010
8100 1081 0010 8100 1081 0010 8100 1081 0010 8100 0081 0000 8100 0081 0000 8100
0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 1081
0010 8100 0081 0000 8100 0081 0000 8100 2081 0020 8100 0081 0000 8100 0081 0000
8100 0081 0000 8100 0081 0000 8100 1081 0010 8100 0081 0000 8100 0081 0000 8100
1081 0000 8100 0081 0010 8100 1081 0010 8100 1081 0010 8100 3081 0030 8100 1081
0010 8100 0081 0000 8100 0081 0000 8100 1081 0000 8100 0081 0000 8100 0081 0000
8100 0081 0000 8100 0081 0000 8100 1081 0010 8100 0081 0000 8100 0081 0000 8100
1081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 1081
0010 8100 0081 0000 8100 1081 0010 8100 1081 0010 8100 1081 0010 8100 1081 0000
8100 0081 0000 8100 0081 0000 8100 1081 0010 8100 0081 0000 8100 1081 0000 8100
0081 0000 8100 0081 0000 8100 2081 0020 8100 2081 0020 8100 0081 0000 8100 1081
0010 8100 0081 0000 8100 1081 0000 8100 0081 0000 8100 0081 0000 8100 1081 0000
8100 0081 0000 8100 0081 0000 8100 1081 0010 8100 0081 0000 8100 1081 0000 8100
0081 0000 8100 0081 0000 8100 1081 0000 8100 2081 0020 8100 2081 0020 8100 2081
0010 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 3081 0000
8100 0081 0000 8100 0081 0000 8100 2081 0020 8100 0081 0000 8100 0081 0000 8100
0081 0000 8100 0081 0000 8100 3081 0000 8100 0081 0000 8100 0081 0000 8100 2081
0020 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 1081 0000
8100 0081 0000 8100 0081 0000 8100 2081 0020 8100 0081 0010 8100 1081 0020 8100
2081 0020 8100 2081 0010 8100 1081 0000 8100 0081 0000 8100 0081 0000 8100 1081
0020 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000
8100 0081 0000 8100 0081 0000 8100 1081 0020 8100 2081 0020 8100 1081 0010 8100
1081 0010 8100 3081 0030 8100 3081 0010 8100 1081 0020 8100 2081 0010 8100 1081
@sin60 ( 60 positions on a circle ) @sin60 ( 60 positions on a circle )