From f30bd58fed4147c8a7c6505cd09a0cc3a27562b4 Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 7 Mar 2019 16:43:00 +0100 Subject: [PATCH] deparallelize drawing --- src/MainGame/WorldMap.hs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/src/MainGame/WorldMap.hs b/src/MainGame/WorldMap.hs index 93f9c25..b95950e 100644 --- a/src/MainGame/WorldMap.hs +++ b/src/MainGame/WorldMap.hs @@ -615,9 +615,14 @@ drawMap = do closePath ctx fillColor ctx (rgb 255 255 255) fill ctx - void $ sequence $ parMap rpar (\(i, ls) -> void $ sequence $ parMap rpar - (\(j, t) -> drawTile ud ctx (partposanims M.! (i, j)) pr pc i j t) - (reverse $ zip [1..] ls)) + -- 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) + (reverse $ zip [1..] ls) + ) (zip [1..] (toLists mat)) mapM_ (\(V2 sr sc, pa, perc) -> when pa $ do let lx = realToFrac $ 640 + ((sc - pc) +