Continue adding mutability

2021-08-12 05:49:25 +02:00
parent c84bafb267
commit 4c9a3c8b3c
4 changed files with 47 additions and 30 deletions
@@ -20,6 +20,8 @@ import Preload
 import Sound.Data
 import Music
 import Data.Preload
+import Data.Preload.Render
+import Shader.Poke

 import Control.Lens
 --import Foreign (Word32)
@@ -54,8 +56,10 @@ doSideEffects preData w = do
    
    endTicks <- SDL.ticks
    let lastFrameTicks = _frameTimer preData
+    
+    shadV <- picShadToMV $ _pictureShaders $ (_renderData preData)
    when (_displaySecondsPerFrame $ _debugFlags w) $ void $ renderFoldable
-                (_renderData preData)
+                shadV
                (setDepth (-1)
                    . translate (-0.5) (-0.8) . scale 0.0005 0.0005
                    . text $ "ms/frame " ++ show (endTicks - lastFrameTicks)