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

Wider eyesight

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

12
ray/src/ray.tal
View File

@ -68,10 +68,10 @@ BRK
.player/x LDZ2k #0001 ADD2 ROT STZ2
&no-r
DUP #01 AND #00 EQU ,&no-a JCN
.player/r LDZ2k #0010 SUB2 #03ff AND2 ROT STZ2
.player/r LDZ2k #0018 SUB2 #03ff AND2 ROT STZ2
&no-a
DUP #02 AND #00 EQU ,&no-b JCN
.player/r LDZ2k #0010 ADD2 #03ff AND2 ROT STZ2
.player/r LDZ2k #0018 ADD2 #03ff AND2 ROT STZ2
&no-b
DUP #00 EQU ,&no-null JCN
;update JSR2
@ -105,10 +105,10 @@ JMP2r
@draw-viewport ( -- )
#00 .Screen/auto DEO
#00c0 #0000
#0100 #0000
&h
DUP2 #0090 ADD2 .Screen/x DEO2
DUP2 .player/r LDZ2 #0060 SUB2 ADD2 #03ff AND2
DUP2 .player/r LDZ2 ( eye ) #0080 SUB2 ADD2 #03ff AND2
;ray-tile JSR2 ;draw-col JSR2
INC2 GTH2k ,&h JCN
POP2 POP2
@ -174,11 +174,11 @@ JMP2r
#01 ;draw-line JSR2
.player/x LDZ2 .player/y LDZ2 ;to-scale JSR2
.player/r LDZ2 #0060 SUB2 #03ff AND2 ;ray-pos JSR2 ;to-scale JSR2
.player/r LDZ2 ( eye ) #0060 SUB2 #03ff AND2 ;ray-pos JSR2 ;to-scale JSR2
#02 ;draw-line 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 ( eye ) #0060 ADD2 #03ff AND2 ;ray-pos JSR2 ;to-scale JSR2
#02 ;draw-line JSR2
JMP2r