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