Create post world load function

2023-03-18 09:37:09 +00:00
parent d8fb7a1f99
commit 77c88f68a7
14 changed files with 80 additions and 48 deletions
@@ -171,8 +171,8 @@ preloadRender = do
        makeShader "texture/arrayPos" [vert, frag] [3, 3] ETriangles
            >>= addTextureArray "data/texture/ayene_wooden_floor_transformed.png"
    let floorverxstrd = 8
-    vbofloor <- setupVBO floorverxstrd
-    floorshader <- makeShader4 "floor/arrayPos" [vert, frag] [4,4] floorverxstrd ETriangles vbofloor
+    floorvbo <- setupVBO' floorverxstrd
+    floorshader <- makeShader4 "floor/arrayPos" [vert, frag] [4,4] floorverxstrd ETriangles floorvbo
    -- bind fixed vertex data
    bufferPokedVBO (snd fsShad) 4
    framebuf2 <- setupTextureFramebuffer 800 600
@@ -257,7 +257,7 @@ preloadRender = do
            , _vboWalls = wpVBO
            , _vboWindows = winVBO
            , _vboShapes = shVBO
-            , _floorVBO = vbofloor
+            , _floorVBO = floorvbo
            , _floorShader = floorshader
            , _toNormalMaps = tonormalmap
            }