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

Slow down movement

This commit is contained in:
neauoire 2022-09-11 11:34:54 -07:00
parent 9e0933e5c9
commit 48d4caf8bb
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ray/src/ray.tal
View File

@ -48,13 +48,13 @@ BRK
@on-frame ( -> ) @on-frame ( -> )
[ LIT &rate $1 ] INC DUP #03 EQU ,&go JCN [ LIT &rate $1 ] INC DUP #04 EQU ,&go JCN
,&rate STR BRK &go ,&rate STR BRK &go
POP #00 ,&rate STR POP #00 ,&rate STR
.Controller/button DEI .Controller/button DEI
DUP #10 AND #00 EQU ,&no-u JCN DUP #10 AND #00 EQU ,&no-u JCN
.player/r LDZ2 #0006 ;raycast JSR2 .player/r LDZ2 #0008 ;raycast JSR2
.player/y STZ2 .player/y STZ2
.player/x STZ2 .player/x STZ2
&no-u &no-u
@ -170,7 +170,10 @@ JMP2r
#05 .Screen/sprite DEO #05 .Screen/sprite DEO
.player/x LDZ2 .player/y LDZ2 ;to-scale JSR2 .player/x LDZ2 .player/y LDZ2 ;to-scale JSR2
.player/r LDZ2 ;ray-pos JSR2 ;to-scale JSR2 .player/r LDZ2 ;ray-pos JSR2
OVR2 ;print JSR2 #2018 DEO
DUP2 ;print JSR2 #0a18 DEO
;to-scale JSR2
#01 ;draw-line JSR2 #01 ;draw-line JSR2
.player/x LDZ2 .player/y LDZ2 ;to-scale JSR2 .player/x LDZ2 .player/y LDZ2 ;to-scale JSR2
@ -180,7 +183,7 @@ JMP2r
.player/x LDZ2 .player/y LDZ2 ;to-scale JSR2 .player/x LDZ2 .player/y LDZ2 ;to-scale JSR2
.player/r LDZ2 #0060 ADD2 #03ff AND2 ;ray-pos JSR2 ;to-scale JSR2 .player/r LDZ2 #0060 ADD2 #03ff AND2 ;ray-pos JSR2 ;to-scale JSR2
#02 ;draw-line JSR2 #02 ;draw-line JSR2
JMP2r JMP2r
@to-scale ( x* y* -- x* y* ) @to-scale ( x* y* -- x* y* )