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

Use shorts for all positions

This commit is contained in:
neauoire 2022-09-11 10:09:30 -07:00
parent fdf1eb22f4
commit 6bc22473c7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ray/src/ray.tal
View File

@ -185,15 +185,15 @@ JMP2r
@ray-pos ( angle* -- x* y* )
,&angle STR2
#ff01
#0100 #0001
&r
#00 OVR [ LIT2 &angle $2 ] SWP2 ;raycast JSR2
DUP2 [ LIT2 &angle $2 ] SWP2 ;raycast JSR2
DUP2 ,&y STR2
OVR2 ,&x STR2
;get-tile JSR2 ,&end JCN
INC GTHk ,&r JCN
INC2 GTH2k ,&r JCN
&end
POP2
POP2 POP2
( res ) [ LIT2 &x $2 ] [ LIT2 &y $2 ]
JMP2r