Implement low res shadows

2021-04-28 20:50:53 +02:00
parent 5a8555d5a0
commit 8cb177a21c
11 changed files with 147 additions and 77 deletions
@@ -14,8 +14,8 @@ resizeSpareFBO xsize ysize pdata = do
        fboName = _spareFBO rdata
        fboTO   = _fboTexture rdata
        fboRBO  = _fboRenderbufferObject rdata
-        xsize' = fromIntegral xsize
-        ysize' = fromIntegral ysize
+        xsize' = fromIntegral $ xsize `div` 2
+        ysize' = fromIntegral $ ysize `div` 2
    bindFramebuffer Framebuffer $= fboName
    textureBinding Texture2D $= Just fboTO
    texImage2D Texture2D NoProxy 0 RGBA8 (TextureSize2D xsize' ysize') 0 (PixelData RGBA UnsignedByte nullPtr)