Faster ray-tile

2022-09-11 09:59:27 -07:00 · 2022-09-11 09:59:27 -07:00 · ff5ad7a622
parent ea67f4a700
commit ff5ad7a622
1 changed files with 6 additions and 5 deletions
--- a/ray/src/ray.tal
+++ b/ray/src/ray.tal
@ -201,14 +201,15 @@ JMP2r
 	,&angle STR2
 	#ff01
 	&r
+		DUP ,&distance STR
 		#00 OVR [ LIT2 &angle $2 ] SWP2 ;raycast JSR2
 			;get-tile JSR2
-			DUP #00 EQU ,&continue JCN
-				ROT POP JMP2r
-				&continue
-				POP
+			DUP ,&color STR
+			,&end JCN
 		INC GTHk ,&r JCN
-	NIP #00
+	&end
+	POP2
+	( res ) [ LIT &distance $1 ] [ LIT &color $1 ]

 JMP2r