Lap warming commit---gpu needs optimisation

2021-07-04 22:51:40 +02:00
parent e6f95b0480
commit ebeec417ce
4 changed files with 46 additions and 70 deletions
@@ -67,6 +67,7 @@ createLightMap pdata resDiv wallPoints lightPoints fpics scPol = do
    let vsize = divideSize resDiv vpsize
    viewport $= (vppos, vsize)
    textureBinding Texture2D $= Just (snd $ (fst $ _fbos pdata) !! 2)
+    -- 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)
    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
    generateMipmap' Texture2D