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

Limit eyesight

This commit is contained in:
neauoire 2022-09-11 11:46:26 -07:00
parent 48d4caf8bb
commit cc4f579a5f
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ray/src/ray.tal
View File

@ -170,10 +170,7 @@ 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 .player/r LDZ2 ;ray-pos JSR2 ;to-scale 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
@ -196,7 +193,7 @@ JMP2r
@ray-pos ( angle* -- x* y* ) @ray-pos ( angle* -- x* y* )
,&angle STR2 ,&angle STR2
#0200 #0001 #0100 #0001
&r &r
[ LIT2 &angle $2 ] OVR2 ;raycast JSR2 [ LIT2 &angle $2 ] OVR2 ;raycast JSR2
DUP2 ,&y STR2 DUP2 ,&y STR2
@ -212,7 +209,7 @@ JMP2r
@ray-tile ( angle* -- distance* color ) @ray-tile ( angle* -- distance* color )
,&angle STR2 ,&angle STR2
#0200 #0001 #0100 #0001
&r &r
DUP2 ,&distance STR2 DUP2 ,&distance STR2
[ LIT2 &angle $2 ] OVR2 ;raycast JSR2 [ LIT2 &angle $2 ] OVR2 ;raycast JSR2