Continue tweaking rendering

2021-07-28 12:25:52 +02:00
parent ae84f44824
commit 3b53570c21
5 changed files with 86 additions and 32 deletions
@@ -54,12 +54,12 @@ doSideEffects preData w = do
    
    endTicks <- SDL.ticks
    let lastFrameTicks = _frameTimer preData
-- FIXME    when (_displaySecondsPerFrame $ _debugFlags w) $ void $ renderFoldable
-- FIXME                (_renderData preData)
-- FIXME                (map snd $ setDepth (-1)
-- FIXME                    . translate (-0.5) (-0.8) . scale 0.0005 0.0005
-- FIXME                    . text $ "ms/frame " ++ show (endTicks - lastFrameTicks)
-- FIXME                )
+    when (_displaySecondsPerFrame $ _debugFlags w) $ void $ renderFoldable
+                (_renderData preData)
+                (setDepth (-1)
+                    . translate (-0.5) (-0.8) . scale 0.0005 0.0005
+                    . text $ "ms/frame " ++ show (endTicks - lastFrameTicks)
+                )
    foldr (=<<) (return (preData & soundData . playingSounds .~ newPlayingSounds
                    & frameTimer .~ endTicks)) (_doneSideEffects w)