Revert "Continue transfer to mutable vectors"

This reverts commit 1f2f5431c0.

src/Dodge/Render.hs

@@ -76,12 +76,10 @@ doDrawing pdata w = do
         then renderTextureWalls pdata nWalls
         else renderBlankWalls pdata nWalls
 
-    let shads = _pictureShaders pdata
-    vShads <- picShadToMV shads
-
-    _ <- renderFoldable vShads $ polysToPic $ foregroundPics w
+    _ <- renderFoldable pdata $ polysToPic $ foregroundPics w
 
     vnums <- pokeBindFoldableLayer pdata $ worldPictures w
+    let shads = _pictureShaders pdata
     renderLayer 0 shads vnums
 
     nTextArrayVs <- pokePoint33s (shadVBOptr $ _textureArrayShader pdata) (_floorTiles w)
@@ -176,7 +174,7 @@ doDrawing pdata w = do
     blend $= Enabled
     blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
 
-    _ <- renderFoldable vShads $ fixedCoordPictures w
+    _ <- renderFoldable pdata $ fixedCoordPictures w
     depthMask $= Enabled
 
     eTicks <- SDL.ticks