Working shadows on clouds

2021-09-01 11:18:53 +01:00
parent 82551328a1
commit f3ea46d7d0
5 changed files with 44 additions and 33 deletions
@@ -23,7 +23,7 @@ sizeFBOs
    -> IO RenderData
 sizeFBOs xsize ysize xfull yfull rdata = do
    resizeRBO (_rboBaseBloom rdata) xsize ysize
-    rdata' <- updateFBOTO2 xsize ysize linMinMagFilter GL_RGBA8 GL_RGBA16F rdata fboBase
+    rdata' <- foldM (updateFBOTO2 xsize ysize linMinMagFilter GL_RGBA8 GL_RGBA16F) rdata [fboBase,fboCloud]
        >>= flip (foldM (updateFBOTO xsize ysize minMagFilter GL_RGBA8))
            [fboColor,fboLighting,fboLightingHigh]
    rdata'' <- foldM (updateFBOTO xsize ysize linMinMagFilter GL_RGBA16F) rdata'