DSA glClear

src/Dodge/Render.hs

@@ -112,8 +112,18 @@ doDrawing' win pdata u = do
     setViewportSize (round winx `div` resFact) (round winy `div` resFact)
     glBindFramebuffer GL_FRAMEBUFFER (_unFBO (fst (_fboBase pdata)))
     glDepthMask GL_TRUE
-    glClearColor 0 0 0 1
-    glClear $ sum [GL_COLOR_BUFFER_BIT, GL_DEPTH_BUFFER_BIT]
+-- the following clear may not be necessary
+    withArray [0,0,0,1] $ \ptr -> glClearNamedFramebufferfv 
+        (pdata ^. fboBase . _1 . unFBO)
+        GL_COLOR
+        0
+        ptr
+    with 1 $ \ptr -> glClearNamedFramebufferfv 
+        (pdata ^. fboBase . _1 . unFBO)
+        GL_DEPTH
+        0
+        ptr
+
     glDepthFunc GL_LESS
     -- draw wall occlusions from the camera's point of view
     glUseProgram (pdata ^. lightingWallShadShader . shadName)
@@ -163,7 +173,6 @@ doDrawing' win pdata u = do
         (pdata ^. fboBase . _2 . _2)
         (drawCPUShadows pdata ws)
     glColorMask GL_TRUE GL_TRUE GL_TRUE GL_TRUE
-    glClearColor 0 0 0 0
     --apply lightmap to base buffer
     glBindFramebuffer GL_FRAMEBUFFER (pdata ^. fboBase . _1 . unFBO)
     glBindTexture GL_TEXTURE_2D (pdata ^. fboLighting . _2 . unTO)
@@ -177,7 +186,11 @@ doDrawing' win pdata u = do
             ptr
     --draw bloom onto bloom buffer
     glBindFramebuffer GL_FRAMEBUFFER (pdata ^. fboBloom . _1 . unFBO)
-    glClear GL_COLOR_BUFFER_BIT
+    withArray [0,0,0,0] $ \ptr -> glClearNamedFramebufferfv
+        (pdata ^. fboBloom . _1 . unFBO)
+        GL_COLOR
+        0
+        ptr
     glDepthFunc GL_LESS
     glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
     glDepthMask GL_FALSE
@@ -198,10 +211,13 @@ doDrawing' win pdata u = do
     glBindFramebuffer GL_FRAMEBUFFER (_unFBO (fst (_fboCloud pdata)))
     glDepthFunc GL_LEQUAL
     glDepthMask GL_FALSE
-    glClearColor 0.5 0.5 0.5 0
     glBlendFuncSeparate GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA GL_ONE GL_ONE_MINUS_SRC_ALPHA
     withArray [GL_COLOR_ATTACHMENT0, GL_NONE] $ \ptr -> glDrawBuffers 2 ptr
-    glClear GL_COLOR_BUFFER_BIT
+    withArray [0.5,0.5,0.5,0] $ \ptr -> glClearNamedFramebufferfv
+        (pdata ^. fboCloud . _1 . unFBO)
+        GL_COLOR
+        0
+        ptr
     renderLayer MidLayer shadV layerCounts
     drawShader (_windowShader pdata) nWins
 --    when (_graphics_cloud_shadows cfig) $ do
@@ -225,11 +241,8 @@ doDrawing' win pdata u = do
 --            (_graphics_object_shadows $ _uvConfig u)
 --            (snd $ snd $ _fboCloud pdata)
 --            (drawCPUShadows pdata ws)
---        glColorMask GL_TRUE GL_TRUE GL_TRUE GL_TRUE
---        glClearColor 0 0 0 0
     glInvalidateBufferData (pdata ^. vboShapes . vboName)
     --apply lightmap to cloud buffer
-    glClearColor 0 0 0 0
     glBindFramebuffer GL_FRAMEBUFFER (_unFBO (fst (_fboCloud pdata)))
     glDepthMask GL_FALSE
     withArray [GL_COLOR_ATTACHMENT0, GL_NONE] $ \ptr -> glDrawBuffers 2 ptr