From 92569c2345d2de2d19580d7a42e9fc4a8a640a1d Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Tue, 6 Mar 2018 16:37:30 +0100
Subject: [PATCH] fix wallslide

---
 src/Test.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Test.hs b/src/Test.hs
index 1aef5a0..3945f82 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -205,7 +205,7 @@ drawTile ai ctx pr pc row col img =
     dist = distance (V2 (fromIntegral row) (fromIntegral col))
       (V2 (realToFrac pr - 1) (realToFrac pc)) / 4
     fact =
-      if (pr <= fromIntegral row + maximum maxrs &&
+      if (pr <= fromIntegral row + minimum maxrs &&
          pc >= fromIntegral col + minimum mincs) &&
          isWall (fromJust img)
       then min 1 dist