Cleanup

2025-07-30 09:20:41 +01:00
parent 210171fbc9
commit 18770480e7
13 changed files with 41 additions and 12 deletions
@@ -114,6 +114,11 @@ preloadRender = do
    initTexture2DArraySquare 40 3 GL_LINEAR_MIPMAP_LINEAR GL_LINEAR "data/normalMaps/diffuseArray.png"
    initTexture2DArraySquare 41 3 GL_LINEAR_MIPMAP_LINEAR GL_LINEAR "data/normalMaps/normalArray.png"

+    putStrLn "Setup chasm VBO, shader"
+    let chasmverxstrd = 3
+    chasmvbo <- setupVBOStatic (floatSize * chasmverxstrd)
+    chasmshader <- makeShaderUsingVBO "positional/blank" [vert, frag] (toFloatVAs [3]) pmTriangles chasmvbo
+
    putStrLn "Setup cloud VBO, shader"
    let cloudverxsizes = [4, 4, 4, 4]
    cloudvbo <- setupVBO (floatSize * sum cloudverxsizes)
@@ -179,6 +184,8 @@ preloadRender = do
            , _vboShapes = shVBO
            , _floorVBO = floorvbo
            , _floorShader = floorshader
+            , _chasmVBO = chasmvbo
+            , _chasmShader = chasmshader
            , _wallVBO = wallvbo
            , _wallShader = wallshader
            , _cloudVBO = cloudvbo