Commit before attempting to make storage of shaders mutable

2021-08-12 06:11:08 +02:00
parent 4c9a3c8b3c
commit 0138f7b940
3 changed files with 10 additions and 18 deletions
@@ -77,12 +77,11 @@ doDrawing pdata w = do
        then renderTextureWalls pdata nWalls
        else renderBlankWalls pdata nWalls

-    let shads = _pictureShaders pdata
    shadV <- picShadToMV $ _pictureShaders pdata
    renderFoldable shadV $ polysToPic $ foregroundPics w

    layerCounts <- UMV.replicate (6*6) 0
-    vnums <- pokeBindFoldableLayer shadV layerCounts $ worldPictures w
+    pokeBindFoldableLayer shadV layerCounts $ worldPictures w
    renderLayer' 0 shadV layerCounts

    nTextArrayVs <- pokePoint33s (shadVBOptr $ _textureArrayShader pdata) (_floorTiles w)