From 6beae9d591a838e8c8b161081eba1042a9f1d34d Mon Sep 17 00:00:00 2001 From: Bill Niblock Date: Fri, 11 Oct 2024 15:24:16 -0400 Subject: [PATCH] Fixed the camera off-tilt thing --- raycaster.fnl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/raycaster.fnl b/raycaster.fnl index f7ef7c8..5d05f16 100644 --- a/raycaster.fnl +++ b/raycaster.fnl @@ -33,7 +33,7 @@ ; ### "Player" variables ### (var (posx posy) (values 4.0 4.0)) ; Initial map position (var (dirx diry) (values -1.0 0.0)) ; Initial direction vector -(var (planex planey) (values 0 0.80)) ; Camera plane +(var (planex planey) (values 0 0.66)) ; Camera plane { :draw (fn love.draw [] @@ -42,7 +42,7 @@ ; Originals, giving a fish-eye lens effect: ; (var camerax (/ (* 2 i) (- screen-width 1))) ; (var (ray-dir-x ray-dir-y) (values (+ dirx (* planex camerax)) (+ diry (* planey camerax)))) - (var camerax (/ (* 2 i) (- screen-width 1))) + (var camerax (- (/ (* 2 i) (- screen-width 1)) 1.0)) (var (ray-dir-x ray-dir-y) (values (+ dirx (* planex camerax)) (+ diry (* planey camerax)))) ; Which map square we're in @@ -55,6 +55,9 @@ ; (var (delta-dist-x delta-dist-y) (values ; (math.sqrt (+ 1 (/ (* ray-dir-y ray-dir-y) (* ray-dir-x ray-dir-x)))) ; (math.sqrt (+ 1 (/ (* ray-dir-x ray-dir-x) (* ray-dir-y ray-dir-y)))))) + ; (var (delta-dist-x delta-dist-y) (values + ; (math.sqrt (+ 1 (* (/ ray-dir-y ray-dir-x) (/ ray-dir-y ray-dir-x)))) + ; (math.sqrt (+ 1 (* (/ ray-dir-x ray-dir-y) (/ ray-dir-x ray-dir-y)))))) (var (delta-dist-x delta-dist-y) (values (math.abs (/ 1 ray-dir-x)) (math.abs (/ 1 ray-dir-y)))) (var perp-wall-dist 0)