Complete poke fold change

src/Dodge/Render.hs

@@ -47,11 +47,11 @@ doDrawing pdata u = do
     -- bind as much data into vbos as feasible at this point
     -- count mutable vectors setup
     layerCounts  <- UMV.replicate (numLayers*6) 0
-    shapeCounts  <- UMV.replicate 3 0
+--    shapeCounts  <- UMV.replicate 3 0
     wlwiflCounts <- UMV.replicate 3 0
     -- attempt to poke in parallel
     let (ws,wp) = wallSPics <> worldSPic cfig w
-    MP.bindM3 (\ _ _ _ -> return ())
+    (nShapeVs, nIndices, nSilIndices) <- MP.bindM3 (\ _ _ counts -> return counts)
         ( pokeBindFoldableLayer shadV layerCounts wp)
         ( pokeWallsWindowsFloor
             (shadVBOptr $ _wallTextureShader pdata) 
@@ -62,16 +62,15 @@ doDrawing pdata u = do
             windowPoints
             (_floorTiles w)
         )
-        ( pokeShape 
+        ( pokeShape'
             (_vboPtr $ _vaoVBO $ _shadVAO $ _shapeShader pdata)
             (_eboPtr $ _shapeEBO pdata)
             (_eboPtr $ _silhouetteEBO pdata)
-            shapeCounts
             ws
         )
-    nShapeVs    <- UMV.read shapeCounts 0
-    nIndices    <- UMV.read shapeCounts 1
-    nSilIndices <- UMV.read shapeCounts 2
+--    nShapeVs    <- UMV.read shapeCounts 0
+--    nIndices    <- UMV.read shapeCounts 1
+--    nSilIndices <- UMV.read shapeCounts 2
     nWalls <- UMV.read wlwiflCounts 0
     nWins  <- UMV.read wlwiflCounts 1
     nFls   <- UMV.read wlwiflCounts 2