Cleanup shadows

2025-11-12 22:54:43 +00:00
parent cdf998a1e2
commit 5e9d337288
11 changed files with 118 additions and 428 deletions
@@ -40,6 +40,10 @@ preloadRender = do
    glNamedBufferStorage theUBO 64 nullPtr GL_DYNAMIC_STORAGE_BIT
    glBindBufferBase GL_UNIFORM_BUFFER 0 theUBO

+    lightubo <- mglCreate glCreateBuffers
+    glNamedBufferStorage lightubo 32 nullPtr GL_DYNAMIC_STORAGE_BIT
+    glBindBufferBase GL_UNIFORM_BUFFER 1 lightubo
+
    winssbo <- mglCreate glCreateBuffers
    let winssbosize = sizeOf (0 :: Float) * 8 * 1024
    glNamedBufferStorage winssbo (fromIntegral winssbosize) nullPtr GL_DYNAMIC_STORAGE_BIT
@@ -222,6 +226,7 @@ preloadRender = do
            , _fboPos = fboPosName
            , _rboBaseBloom = rboBaseBloomName
            , _matUBO = theUBO
+            , _lightUBO = lightubo
            , _vboShapes = shVBO
            , _floorVBO = floorvbo
            , _floorShader = floorshader