From 2383dda0fef5a18014112697b98079d9f6ea82be Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Fri, 26 Oct 2018 02:14:13 +0200
Subject: [PATCH] finer grains

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index 798e940..021d575 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -99,7 +99,7 @@ draw state@(State pos@(V2 x y) rot _ _) = do
       let rayLength = castRay (fromIntegral w) (fromIntegral h) ddw ddh
       in getPixel (fromMaybe 11 rayLength)
     castRay w h ddw ddh =
-      let iter = [0, 0.05 .. 10]
+      let iter = [0, 0.01 .. 10]
           collPos a = (pos + (V2 0 (a * cos (- fov / 2 + ddh * fov / h))
             `rotVec` (rot - fov / 2 + ddw * fov / w)))
       in foldl (\acc a ->