nek0/raycharles
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

finer grains

Browse source
This commit is contained in:
nek0 2018-10-26 02:14:13 +02:00
parent f4809653ab
commit 2383dda0fe
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -99,7 +99,7 @@ draw state@(State pos@(V2 x y) rot _ _) = do
let rayLength = castRay (fromIntegral w) (fromIntegral h) ddw ddh let rayLength = castRay (fromIntegral w) (fromIntegral h) ddw ddh
in getPixel (fromMaybe 11 rayLength) in getPixel (fromMaybe 11 rayLength)
castRay w h ddw ddh = 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)) collPos a = (pos + (V2 0 (a * cos (- fov / 2 + ddh * fov / h))
`rotVec` (rot - fov / 2 + ddw * fov / w))) `rotVec` (rot - fov / 2 + ddw * fov / w)))
in foldl (\acc a -> in foldl (\acc a ->