Commit before attempting to remove bottom and mid picture layers

2024-10-01 00:16:46 +01:00
parent c2214dae60
commit c3d112e52e
8 changed files with 28 additions and 14 deletions
@@ -162,7 +162,7 @@ doDrawing' win pdata u = do
        0
        (fromIntegral trueNWalls)
    --draw object pictures onto base buffer (are there any?!)
-    renderLayer BottomLayer shadV layerCounts
+--    renderLayer BottomLayer shadV layerCounts
    --draw object shapes onto base buffer
    let fs = _shapeShader pdata
    glUseProgram (_shaderUINT fs)
@@ -251,7 +251,7 @@ doDrawing' win pdata u = do
            GL_COLOR
            0
            ptr
-    renderLayer MidLayer shadV layerCounts
+--    renderLayer MidLayer shadV layerCounts
    glUseProgram (pdata ^. cloudShader . shaderUINT)
    glBindVertexArray $ pdata ^. cloudShader . shaderVAO . vaoName
    glDrawElements