Add text messages on loading screens

src/Dodge/Render.hs

@@ -201,10 +201,10 @@ doDrawing' win pdata u = do
 
     --setup downscale viewport for blurring bloom
     setViewport _gr_downsize_res cfig
-    glBindFramebuffer GL_FRAMEBUFFER (_unFBO (fst (_fboHalf pdata)))
+    glBindFramebuffer GL_FRAMEBUFFER $ pdata ^. fboHalf . _1 . unFBO
     glDepthFunc GL_ALWAYS
-    glBindTextureUnit 0 (pdata ^. fboBloom . _2 . unTO)
     glGenerateTextureMipmap (pdata ^. fboBloom . _2 . unTO)
+    glBindTextureUnit 0 (pdata ^. fboBloom . _2 . unTO)
     glDisable GL_BLEND
     -- this all needs more tuning + more thought
     -- a fade effect would be cool, so not to fully reset last frames bloom
@@ -398,7 +398,8 @@ doDrawing' win pdata u = do
             glDrawArrays GL_TRIANGLES 0 6
     glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
     -- draw the overlay
-    glDepthFunc GL_ALWAYS
+    glDepthFunc GL_LEQUAL
+    --glDepthFunc GL_ALWAYS
     glDepthMask GL_FALSE
     glEnable GL_BLEND
     --glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
@@ -406,9 +407,8 @@ doDrawing' win pdata u = do
     renderLayer DebugLayer shadV pokeCounts
     withArray (scaleMatrix (2 / windowXFloat cfig) (2 / windowYFloat cfig)) $
         glNamedBufferSubData (pdata ^. matUBO) 0 64
-    glDepthFunc GL_GEQUAL
     glDepthMask GL_TRUE
-    with (-1) $ glClearNamedFramebufferfv 0 GL_DEPTH 0
+    with 1 $ glClearNamedFramebufferfv 0 GL_DEPTH 0
     renderLayer FixedCoordLayer shadV pokeCounts
     checkGLError "during doDrawing'"
     SDL.glSwapWindow win