Make Shapes use Streaming rather than Vector streaming

src/Dodge/Render.hs

@@ -51,21 +51,21 @@ doDrawing pdata u = do
     let (ws,wp) = wallSPics <> worldSPic cfig w
     ( (nWalls, nWins , nFls),(nShapeVs, nIndices, nSilIndices) )
         <- MP.bindM3 (\ _ wlwifl counts -> return (wlwifl,counts))
-        ( pokeBindFoldableLayer shadV layerCounts wp)
-        ( pokeWallsWindowsFloor
-            (shadVBOptr $ _wallTextureShader pdata) 
-            (shadVBOptr $ _windowShader pdata) 
-            (shadVBOptr $ _textureArrayShader pdata)
-            wallPointsCol
-            windowPoints
-            (_floorTiles w)
-        )
-        ( pokeShape
-            (_vboPtr $ _vaoVBO $ _shadVAO $ _shapeShader pdata)
-            (_eboPtr $ _shapeEBO pdata)
-            (_eboPtr $ _silhouetteEBO pdata)
-            ws
-        )
+            ( pokeBindFoldableLayer shadV layerCounts wp)
+            ( pokeWallsWindowsFloor
+                (shadVBOptr $ _wallTextureShader pdata) 
+                (shadVBOptr $ _windowShader pdata) 
+                (shadVBOptr $ _textureArrayShader pdata)
+                wallPointsCol
+                windowPoints
+                (_floorTiles w)
+            )
+            ( pokeShape
+                (_vboPtr $ _vaoVBO $ _shadVAO $ _shapeShader pdata)
+                (_eboPtr $ _shapeEBO pdata)
+                (_eboPtr $ _silhouetteEBO pdata)
+                ws
+            )
     -- bind wall points, silhouette data, surface geometry
     uncurry bindShaderBuffers $ unzip
         [ ( _wallTextureShader pdata, nWalls)