Improve window drawing

2025-10-28 09:58:44 +00:00
parent d6c4d3d609
commit 10503da955
9 changed files with 58 additions and 42 deletions
@@ -307,7 +307,12 @@ doDrawing' win pdata u = do
        (fromIntegral nCloudIs)
        GL_UNSIGNED_SHORT
        nullPtr
+    glEnable GL_CULL_FACE
+    glEnable GL_DEPTH_CLAMP
+    glCullFace GL_BACK
    drawShader (_windowShader pdata) nWins
+    glDisable GL_DEPTH_CLAMP
+    glDisable GL_CULL_FACE
    when (_graphics_cloud_shadows cfig) $ do
        ----render transparency depths
        glDepthMask GL_TRUE
@@ -340,7 +345,7 @@ doDrawing' win pdata u = do
            (fromIntegral nCloudIs)
            GL_UNSIGNED_SHORT
            nullPtr
-        drawShader (_windowShader pdata) nWins
+--        drawShader (_windowShader pdata) nWins
        glBindFramebuffer GL_FRAMEBUFFER (pdata ^. fboPos . _1 . unFBO)
        withArray [0, 0, 0, 0] $ \ptr ->
            glClearNamedFramebufferfv