Tweak rendering

2021-07-05 00:06:04 +02:00
parent ebeec417ce
commit 2d94e50e3a
5 changed files with 39 additions and 15 deletions
@@ -66,9 +66,9 @@ createLightMap pdata resDiv wallPoints lightPoints fpics scPol = do
    -- set the viewport size to desired fidelity
    let vsize = divideSize resDiv vpsize
    viewport $= (vppos, vsize)
-    textureBinding Texture2D $= Just (snd $ (fst $ _fbos pdata) !! 2)
+    textureBinding Texture2D $= Just (snd $ _fboLighting pdata)
    -- this is a problem! it should be resized once on screen/parameter resize
-    texImage2D Texture2D NoProxy 0 RGBA8 (sizeToTexSize vsize) 0 (PixelData RGBA UnsignedByte nullPtr)
+    --texImage2D Texture2D NoProxy 0 RGBA8 (sizeToTexSize vsize) 0 (PixelData RGBA UnsignedByte nullPtr)
    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
    generateMipmap' Texture2D
 --    bindFramebuffer Framebuffer $= _spareFBO pdata