Work on textures and lighting

2023-03-23 21:17:24 +00:00
parent 1a2fc7c715
commit 1abfaa3cd0
25 changed files with 641 additions and 710 deletions
@@ -7,6 +7,7 @@ module Framebuffer.Update (
    sizeFBOs,
 ) where

+import Dodge.DownscaleSize
 import Shader.Data
 import Framebuffer.Check
 import Control.Lens
@@ -45,7 +46,7 @@ sizeFBOs xsize ysize xfull yfull rdata = do
            [fbo2, fbo3]
    rdata4 <-
        foldM
-            (updateFBOTO (xsize `div` 2) (ysize `div` 2) GL_LINEAR_MIPMAP_LINEAR GL_LINEAR GL_RGBA16F)
+            (updateFBOTO (xfull `div` downSize) (yfull `div` downSize) GL_LINEAR_MIPMAP_LINEAR GL_LINEAR GL_RGBA16F)
            rdata'''
            [fboHalf1, fboHalf2, fboHalf3]
    newShadowFBO <- resizeShadowFBO (rdata ^. fboShadow) xsize ysize