From 6bc22473c7828ad920ca419bbf1b49416340ee2b Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sun, 11 Sep 2022 10:09:30 -0700
Subject: [PATCH] Use shorts for all positions

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

diff --git a/ray/src/ray.tal b/ray/src/ray.tal
index 3299443..5098e21 100644
--- a/ray/src/ray.tal
+++ b/ray/src/ray.tal
@@ -185,15 +185,15 @@ JMP2r
 @ray-pos ( angle* -- x* y* )
 
 	,&angle STR2
-	#ff01
+	#0100 #0001
 	&r
-		#00 OVR [ LIT2 &angle $2 ] SWP2 ;raycast JSR2
+		DUP2 [ LIT2 &angle $2 ] SWP2 ;raycast JSR2
 			DUP2 ,&y STR2
 			OVR2 ,&x STR2
 			;get-tile JSR2 ,&end JCN
-		INC GTHk ,&r JCN
+		INC2 GTH2k ,&r JCN
 	&end
-	POP2
+	POP2 POP2
 	( res ) [ LIT2 &x $2 ] [ LIT2 &y $2 ]
 
 JMP2r