Continue mutability changes

2021-08-12 01:43:25 +02:00
parent f1200c4501
commit 27cf763805
3 changed files with 27 additions and 9 deletions
@@ -166,8 +166,9 @@ pokeBindFoldableLayer
 pokeBindFoldableLayer pdata m = do
    let shads = _pictureShaders pdata
    shadV <- picShadToMV shads
-    slist'' <- pokeLayVerxs shadV m
-    bindShaderLay shads slist''
+    counts <- UMV.replicate (6*6) 0
+    slist'' <- pokeLayVerxs shadV counts m
+    bindShaderLayers shadV counts
    return slist''

 renderFoldable