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 ->