From 280e2be584fc56fb656bb868ba52191309685f38 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sun, 11 Sep 2022 11:57:48 -0700
Subject: [PATCH] Wider eyesight

---
 ray/src/ray.tal | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/ray/src/ray.tal b/ray/src/ray.tal
index fedd50a..3a2fc00 100644
--- a/ray/src/ray.tal
+++ b/ray/src/ray.tal
@@ -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