Draw chasms using vertex pulling

2025-11-13 21:58:40 +00:00
parent ec1216e7eb
commit 836c0ba772
6 changed files with 25 additions and 22 deletions
@@ -137,15 +137,10 @@ preloadRender = do
    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
+    chvbo <- mglCreate glCreateBuffers
+    chptr <- mallocArray (2 * 65536)
+    let chasmvbo = VBO chvbo chptr floatSize
+    chasmshader <- makeSourcedShader "chasm" [vert]
    framebuf2 <- newTextureFramebuffer
    framebuf3 <- newTextureFramebuffer