fix map for MindMap

This commit is contained in:
nek0 2018-08-19 18:08:13 +02:00
parent b276219e07
commit c0b3acd647

View file

@ -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)]
)
)
)