From 48d4caf8bb12b447019e750d232275b5adf7ae0e Mon Sep 17 00:00:00 2001 From: neauoire Date: Sun, 11 Sep 2022 11:34:54 -0700 Subject: [PATCH] Slow down movement --- ray/src/ray.tal | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/ray/src/ray.tal b/ray/src/ray.tal index 090ca17..e1e1fb6 100644 --- a/ray/src/ray.tal +++ b/ray/src/ray.tal @@ -48,13 +48,13 @@ BRK @on-frame ( -> ) - [ LIT &rate $1 ] INC DUP #03 EQU ,&go JCN + [ LIT &rate $1 ] INC DUP #04 EQU ,&go JCN ,&rate STR BRK &go POP #00 ,&rate STR .Controller/button DEI DUP #10 AND #00 EQU ,&no-u JCN - .player/r LDZ2 #0006 ;raycast JSR2 + .player/r LDZ2 #0008 ;raycast JSR2 .player/y STZ2 .player/x STZ2 &no-u @@ -170,7 +170,10 @@ JMP2r #05 .Screen/sprite DEO .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 .player/x LDZ2 .player/y LDZ2 ;to-scale JSR2 @@ -180,7 +183,7 @@ JMP2r .player/x LDZ2 .player/y LDZ2 ;to-scale JSR2 .player/r LDZ2 #0060 ADD2 #03ff AND2 ;ray-pos JSR2 ;to-scale JSR2 #02 ;draw-line JSR2 - + JMP2r @to-scale ( x* y* -- x* y* )