nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

fix map for MindMap

Browse source
This commit is contained in:
nek0 2018-08-19 18:08:13 +02:00
parent b276219e07
commit c0b3acd647
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/MainGame/MindMap.hs
View file

@ -171,8 +171,8 @@ drawMind = do
x = realToFrac $ 640 + ((1 - pc) + (1 - pr)) * (tileWidth / 2) x = realToFrac $ 640 + ((1 - pc) + (1 - pr)) * (tileWidth / 2)
y = realToFrac $ 360 + ((1 - pr) - (1 - pc)) * (tileHeight / 2) y = realToFrac $ 360 + ((1 - pr) - (1 - pc)) * (tileHeight / 2)
partposanims = M.fromList partposanims = M.fromList
(nrows $ mapMat $ stateData ud) (nrows $ mmImgMat $ stateData ud)
(ncols $ mapMat $ stateData ud) (ncols $ mmImgMat $ stateData ud)
((reverse . fst) ((reverse . fst)
(Prelude.foldl (Prelude.foldl
(\(done, proc) coord -> (\(done, proc) coord ->
@ -181,8 +181,8 @@ drawMind = do
) )
([], posanims) ([], posanims)
((,) ((,)
<$> [1 .. (nrows $ mapMat $ stateData ud)] <$> [1 .. (nrows $ mmImgMat $ stateData ud)]
<*> [1 .. (ncols $ mapMat $ stateData ud)] <*> [1 .. (ncols $ mmImgMat $ stateData ud)]
) )
) )
) )