From c0b3acd647f470e714037755a182db9bb728865a Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 19 Aug 2018 18:08:13 +0200 Subject: [PATCH] fix map for MindMap --- src/MainGame/MindMap.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/MainGame/MindMap.hs b/src/MainGame/MindMap.hs index 9f1cb30..1149714 100644 --- a/src/MainGame/MindMap.hs +++ b/src/MainGame/MindMap.hs @@ -171,8 +171,8 @@ drawMind = do x = realToFrac $ 640 + ((1 - pc) + (1 - pr)) * (tileWidth / 2) y = realToFrac $ 360 + ((1 - pr) - (1 - pc)) * (tileHeight / 2) partposanims = M.fromList - (nrows $ mapMat $ stateData ud) - (ncols $ mapMat $ stateData ud) + (nrows $ mmImgMat $ stateData ud) + (ncols $ mmImgMat $ stateData ud) ((reverse . fst) (Prelude.foldl (\(done, proc) coord -> @@ -181,8 +181,8 @@ drawMind = do ) ([], posanims) ((,) - <$> [1 .. (nrows $ mapMat $ stateData ud)] - <*> [1 .. (ncols $ mapMat $ stateData ud)] + <$> [1 .. (nrows $ mmImgMat $ stateData ud)] + <*> [1 .. (ncols $ mmImgMat $ stateData ud)] ) ) )