Stream vertex poking

2021-08-10 01:55:42 +02:00
parent b580666c57
commit 79eb031637
3 changed files with 32 additions and 34 deletions
@@ -161,7 +161,7 @@ pokeBindFoldableLayer
    -> IO (IM.IntMap (PicShads Int))
 pokeBindFoldableLayer pdata m = do
    let shads = _pictureShaders pdata
-    slist'' <- pokeLayVerxsFold (fmap (_vaoVBO . _vshaderVAO) shads) m
+    slist'' <- pokeLayVerxs (fmap (_vaoVBO . _vshaderVAO) shads) m
    bindShaderLay shads slist''
    return slist''