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

de-parallelize drawing

Browse source
This commit is contained in:
nek0 2019-03-07 16:31:16 +01:00
parent 6452804270
commit d9735e72e9
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/MainGame/WorldMap.hs
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
) )