Tweak clouds

2023-03-20 18:24:07 +00:00
parent 695f849f77
commit 7d0bb7f229
11 changed files with 88 additions and 63 deletions
@@ -30,11 +30,8 @@ sizeFBOs ::
 sizeFBOs xsize ysize xfull yfull rdata = do
    resizeRBO (_rboBaseBloom rdata) xsize ysize
    rdata1 <- updateFBOTO3 xsize ysize GL_NEAREST GL_NEAREST GL_RGBA8 GL_RGBA16F GL_RGBA16F rdata fboBase
-    rdata' <-
-        foldM (updateFBOTO2 xsize ysize GL_NEAREST GL_NEAREST GL_RGBA8 GL_RGBA16F) rdata1 [fboCloud]
-            >>= flip
-                (foldM (updateFBOTO xsize ysize GL_NEAREST GL_NEAREST GL_RGBA8))
-                [fboLighting]
+    rdata2 <- updateFBOTO3 xsize ysize GL_NEAREST GL_NEAREST GL_RGBA8 GL_RGBA16F GL_RGBA16F rdata1 fboCloud
+    rdata' <- updateFBOTO xsize ysize GL_NEAREST GL_NEAREST GL_RGBA8 rdata2 fboLighting
    rdata'' <-
        foldM
            (updateFBOTO xsize ysize GL_LINEAR_MIPMAP_LINEAR GL_LINEAR GL_RGBA16F)