From 38db226cc714577bd2184e3aa83a6b085a873fb0 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 3 Mar 2018 20:03:41 +0100 Subject: [PATCH] adjusting wallslide --- src/Test.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Test.hs b/src/Test.hs index e928e1e..808bcc4 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -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