Remove glTexImage

This commit is contained in:
jgk
2021-07-18 21:31:50 +02:00
parent 9407c7af2a
commit 595cb6e9a8
6 changed files with 39 additions and 88 deletions
+1 -1
View File
@@ -37,7 +37,7 @@ applyWorldConfig
-> PreloadData SoundOrigin
-> IO (PreloadData SoundOrigin)
applyWorldConfig cfig pdata = do
setVol cfig pdata >>= resizeSpareFBO (x `div` divRes) (y `div` divRes) x y
setVol cfig pdata >>= sizeFBOs (x `div` divRes) (y `div` divRes) x y
where
x = round $ _windowX cfig
y = round $ _windowY cfig
+1 -1
View File
@@ -65,7 +65,7 @@ handleResizeEvent :: WindowSizeChangedEventData -> World -> Maybe World
handleResizeEvent sev w = Just
. set (config . windowX) (fromIntegral x)
. set (config . windowY) (fromIntegral y)
$ over sideEffects ( resizeSpareFBO (x `div` divRes) (y `div` divRes) x y : )
$ over sideEffects ( sizeFBOs (x `div` divRes) (y `div` divRes) x y : )
w
where
x = fromIntegral x'
+1 -1
View File
@@ -90,7 +90,7 @@ scodeToChar = toEnum . (+ 61) . fromIntegral . toNumber
updateFramebufferSize :: World -> World
updateFramebufferSize w = w & sideEffects
%~ (resizeSpareFBO (x `div` divRes) (y `div` divRes) x y : )
%~ (sizeFBOs (x `div` divRes) (y `div` divRes) x y : )
where
(x,y) = (round $ getWindowX w, round $ getWindowY w)
divRes = w ^. config . shadow_resolution