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