de-parallelize drawing

This commit is contained in:
nek0 2019-03-07 16:31:16 +01:00
parent 6452804270
commit d9735e72e9

View file

@ -636,7 +636,8 @@ drawMap = do
(fromIntegral row - pr)) * (tileWidth / 2) :: CFloat (fromIntegral row - pr)) * (tileWidth / 2) :: CFloat
sy row col = realToFrac $ 360 - (tileHeight / 2) + ((fromIntegral row - pr) - sy row col = realToFrac $ 360 - (tileHeight / 2) + ((fromIntegral row - pr) -
(fromIntegral col - pc)) * (tileHeight / 2) :: CFloat (fromIntegral col - pc)) * (tileHeight / 2) :: CFloat
void $ sequence $ parMap rpar -- void $ sequence $ parMap rpar
mapM_
(\((row, col), tile, posanim) -> (\((row, col), tile, posanim) ->
drawTile ud ctx posanim pr pc row col tile drawTile ud ctx posanim pr pc row col tile
) )