Add sound queue when on chasm edge

2025-07-30 14:01:56 +01:00
parent d1346b855f
commit 7110ddb7a6
16 changed files with 401 additions and 341 deletions
@@ -185,10 +185,15 @@ doDrawing' win pdata u = do
    -- draw chasm shader blocking floor
    glUseProgram (pdata ^. chasmShader . shaderUINT)
    glBindVertexArray $ pdata ^. chasmShader . shaderVAO . vaoName
+--    glColorMask GL_FALSE GL_FALSE GL_FALSE GL_FALSE
+    glDrawBuffer GL_NONE
    glDrawArrays
        (_unPrimitiveMode $ pdata ^. chasmShader . shaderPrimitive)
        0
        (fromIntegral nchs)
+--    glColorMask GL_TRUE GL_TRUE GL_TRUE GL_TRUE
+    withArray [GL_COLOR_ATTACHMENT0, GL_COLOR_ATTACHMENT1, GL_COLOR_ATTACHMENT2] 
+            $ \ptr -> glDrawBuffers 3 ptr
    --draw floor onto base buffer
    glUseProgram (pdata ^. floorShader . shaderUINT)
    glBindVertexArray $ pdata ^. floorShader . shaderVAO . vaoName