adjusting wallslide

This commit is contained in:
nek0 2018-03-03 20:03:41 +01:00
parent 6518695a9e
commit 38db226cc7

View file

@ -188,7 +188,7 @@ drawTile ai ctx pr pc row col img = do
(fromIntegral col - pc)) * (tileHeight / 2)
unless (img == Nothing) $ do
let dist = distance (V2 (fromIntegral row) (fromIntegral col))
(V2 (realToFrac pr - 0.5) (realToFrac pc + 0.5)) / 4
(V2 (realToFrac pr - 1) (realToFrac pc)) / 4
fact = if (floor pr <= row && floor pc >= col) && isWall (fromJust img)
then min 1 dist
else 1