From bab1152c6a618d4010e32a196aeddcf359ac46cb Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sat, 10 Sep 2022 15:16:35 -0700
Subject: [PATCH] Wallcolors

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

diff --git a/ray/src/ray.tal b/ray/src/ray.tal
index 1c6aeb7..ad5827f 100644
--- a/ray/src/ray.tal
+++ b/ray/src/ray.tal
@@ -104,21 +104,22 @@ JMP2r
 	#8000
 	&l
 		#00 OVR .Screen/y DEO2
-		DUP STHkr ;get-color JSR2 [ LIT &color $1 ] ADD .Screen/pixel DEO
+		DUP STHkr [ LIT &color $1 ] ;get-color JSR2 .Screen/pixel DEO
 		INC GTHk ,&l JCN
 	POP2
 	POPr
 
 JMP2r
 
-@get-color ( y distance -- color )
+@get-color ( y distance color -- color )
 
+	ROT ROT
 	OVR #40 GTH ,&bottom JCN
-	#01 SFT GTH INC
+	#01 SFT GTH MUL
 
 JMP2r
 	&bottom
-		#00 SWP SUB #01 SFT LTH INC
+		#00 SWP SUB #01 SFT LTH MUL
 		JMP2r
 
 @draw-minimap ( -- )
@@ -141,7 +142,7 @@ JMP2r
 
 JMP2r
 
-@cast ( -- range tile )
+@cast ( -- range tile color )
 
 	#8001
 	&r