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

View File

@ -170,10 +170,7 @@ JMP2r
#05 .Screen/sprite DEO
.player/x LDZ2 .player/y LDZ2 ;to-scale JSR2
.player/r LDZ2 ;ray-pos JSR2
OVR2 ;print JSR2 #2018 DEO
DUP2 ;print JSR2 #0a18 DEO
;to-scale JSR2
.player/r LDZ2 ;ray-pos JSR2 ;to-scale JSR2
#01 ;draw-line JSR2
.player/x LDZ2 .player/y LDZ2 ;to-scale JSR2
@ -196,7 +193,7 @@ JMP2r
@ray-pos ( angle* -- x* y* )
,&angle STR2
#0200 #0001
#0100 #0001
&r
[ LIT2 &angle $2 ] OVR2 ;raycast JSR2
DUP2 ,&y STR2
@ -212,7 +209,7 @@ JMP2r
@ray-tile ( angle* -- distance* color )
,&angle STR2
#0200 #0001
#0100 #0001
&r
DUP2 ,&distance STR2
[ LIT2 &angle $2 ] OVR2 ;raycast JSR2