Implement poking using Verx lists

src/Dodge/Render.hs

@@ -45,27 +45,21 @@ doDrawing pdata w = do
     let rot     = _cameraRot w
         camzoom    = _cameraZoom w
         trans = _cameraCenter w
-        wins    = (V2 (getWindowX w) (getWindowY w))
+        wins    = V2 (getWindowX w) (getWindowY w)
         (wallPointsCol,windowPoints) = wallsAndWindows w
         lightPoints     = lightsForGloom w
         viewFroms = _cameraViewFrom w
         pic = worldPictures w
     -- bind as much data into vbos as feasible at this point
     -- poke wall points and colors
-    --pokeArray (_vboPointer . _vaoVBO . _shaderVAO $ _wallTextureShader pdata) $ wallsToList wallPointsCol
-    --let nWalls = length wallPointsCol
-    nWalls <- pokeWalls (shadVBOptr $ _wallTextureShader pdata) wallPointsCol
-    --poke
-
-    -- poke silhouette vertex data
+    nWalls <- poke224s (shadVBOptr $ _wallTextureShader pdata) wallPointsCol
     nSils <- pokePoint3s (shadVBOptr $ _lightingLineShadowShader pdata) 
                 (_foregroundEdgeVerx w)
-
     -- poke foreground geometry and floor
     let addC (V2 xx yy) = (V3 xx yy 0)
     nsurfVs <- pokePoint3s (shadVBOptr $ _lightingSurfaceShader pdata)
         $ polyToTris (map addC $ screenPolygon w)
-        ++ concatMap polyToGeoRender' (foregroundPics w)
+        ++ concatMap polyToGeoRender (foregroundPics w)
 
     -- bind wall points, silhouette data, surface geometry
     uncurry bindShaderBuffers $ unzip
@@ -213,7 +207,7 @@ renderWindows
     -> [((Point2,Point2),Point4)]   -- ^ List: wall positions and color
     -> IO ()
 renderWindows pdata wps = do
-    n <- pokeWalls (shadVBOptr $ _wallBlankShader pdata) wps
+    n <- poke224s (shadVBOptr $ _wallBlankShader pdata) wps
     bindShaderBuffers [_wallBlankShader pdata] [n]
     currentProgram $= Just (_shaderProgram $ _wallBlankShader pdata)
     cullFace $= Just Back