Rendering optimisations (mainly inlining)

src/Render.hs

@@ -157,15 +157,21 @@ pokeBindFoldable pdata m = do
 zeroCounts :: PicShads Int
 zeroCounts = PicShads 0 0 0 0 0 0
 
-pokeBindFoldableLayer
---    :: Foldable f
-    :: RenderData
+pokeVerxLayers
+    :: PicShads VBO
     -> [Verx]
+    -> Layers (PicShads Int)
+    -> IO (Layers (PicShads Int))
+pokeVerxLayers = undefined
+
+pokeBindFoldableLayer
+    :: RenderData
+    -> Picture
     -> IO (Layers (PicShads Int))
 pokeBindFoldableLayer pdata m = do
     let shads = _pictureShaders pdata
 
-    slist'' <- pokeLayVerxs (fmap (_vaoVBO . _vshaderVAO) shads) m
+    slist'' <- pokeLayVerxsPart (fmap (_vaoVBO . _vshaderVAO) shads) m (pure $ pure 0)
     bindShaderLay shads slist''
 
     return slist''