Prevent cloud "pop" when an overlapping cloud fades out to nothing

2023-03-21 14:46:41 +00:00
parent e56ca3dd8d
commit d5fbc06332
7 changed files with 40 additions and 17 deletions
@@ -346,12 +346,12 @@ pingPongBetween (fb1, to1) (fb2, to2) fs = do
    glBindFramebuffer GL_FRAMEBUFFER (_unFBO fb2)
    --textureBinding Texture2D $= Just to1
    glBindTexture GL_TEXTURE_2D (_unTO to1)
-    drawShader fs 4
+    drawFullShader fs 4
    --bindFramebuffer Framebuffer $= fb1
    glBindFramebuffer GL_FRAMEBUFFER (_unFBO fb1)
    --textureBinding Texture2D $= Just to2
    glBindTexture GL_TEXTURE_2D (_unTO to2)
-    drawShader fs 4
+    drawFullShader fs 4

 renderFoldable ::
    MV.MVector (PrimState IO) (FullShader,VBO) ->