Redo shape vertices as a list, should allow for mirroring

2022-07-04 23:17:53 +01:00
parent 914c452afb
commit 22ac8feb37
6 changed files with 35 additions and 43 deletions
@@ -51,7 +51,7 @@ doDrawing pdata u = do
    -- attempt to poke in parallel
 --    let (ws,wp) = wallSPics <> worldSPic cfig w
    ( (nWalls, nWins , nFls),(nShapeVs, nIndices, nSilIndices) )
-        <- MP.bindM2 (\ wlwifl counts -> return (wlwifl,counts))
+        <- MP.bindM2 (curry return)
            ( pokeWallsWindowsFloor
                (shadVBOptr $ _wallTextureShader pdata) 
                (shadVBOptr $ _windowShader pdata)