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

deparallelize drawing

Browse source
This commit is contained in:
nek0 2019-03-07 16:43:00 +01:00
parent 46068b99ab
commit f30bd58fed
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/MainGame/WorldMap.hs
View file

@ -615,9 +615,14 @@ drawMap = do
closePath ctx closePath ctx
fillColor ctx (rgb 255 255 255) fillColor ctx (rgb 255 255 255)
fill ctx fill ctx
void $ sequence $ parMap rpar (\(i, ls) -> void $ sequence $ parMap rpar -- void $ sequence $ parMap rpar
mapM_
(\(i, ls) ->
-- void $ sequence $ parMap rpar
mapM_
(\(j, t) -> drawTile ud ctx (partposanims M.! (i, j)) pr pc i j t) (\(j, t) -> drawTile ud ctx (partposanims M.! (i, j)) pr pc i j t)
(reverse $ zip [1..] ls)) (reverse $ zip [1..] ls)
)
(zip [1..] (toLists mat)) (zip [1..] (toLists mat))
mapM_ (\(V2 sr sc, pa, perc) -> when pa $ do mapM_ (\(V2 sr sc, pa, perc) -> when pa $ do
let lx = realToFrac $ 640 + ((sc - pc) + let lx = realToFrac $ 640 + ((sc - pc) +