Work on distortion shader

2025-11-15 23:17:44 +00:00
parent d436b853eb
commit 1205823ddb
12 changed files with 108 additions and 119 deletions
@@ -129,11 +129,11 @@ preloadRender = do
    lightingTextureShad <- makeSourcedShader "lighting/texture" [vert, frag]

    distbo <- mglCreate glCreateBuffers
-    let distbosize = sizeOf (0 :: Float) * 6 * 1024
+    let distbosize = sizeOf (0 :: Float) * 8 * 1024
    glNamedBufferStorage distbo (fromIntegral distbosize) nullPtr GL_DYNAMIC_STORAGE_BIT
    glBindBufferBase GL_SHADER_STORAGE_BUFFER 9 distbo
    distptr <- mallocBytes distbosize
-    let distvbo = VBO distbo distptr (sizeOf (0::Float) * 6)
+    let distvbo = VBO distbo distptr (sizeOf (0::Float) * 8)
    barrelShad <- makeSourcedShader "texture/barrel" [vert,frag]

    putStrLn "Setup floor VBO, shader"