Allow for real time window resize

2021-04-08 13:21:40 +02:00
parent 7969c3f9e8
commit feec924d5d
5 changed files with 25 additions and 8 deletions
@@ -21,6 +21,8 @@ import Dodge.CreatureAction
 import Dodge.SoundLogic
 import Dodge.Inventory
 import Geometry
+import Preload.Update
+
 import Control.Lens
 import Data.Maybe
 import Data.Char
@@ -65,9 +67,12 @@ handleMouseWheelEvent mwev w = case _menuLayers w of
   _ -> Just w

 handleResizeEvent :: WindowSizeChangedEventData -> World -> Maybe World
-handleResizeEvent sev = Just . set windowX (fromIntegral x)
-                             . set windowY (fromIntegral y)
-  where V2 x y = windowSizeChangedEventSize sev
+handleResizeEvent sev = Just 
+    . set windowX (fromIntegral x)
+    . set windowY (fromIntegral y)
+    . over sideEffects ( resizeSpareFBO (fromIntegral x) (fromIntegral y) : )
+  where 
+    V2 x y = windowSizeChangedEventSize sev

 handlePressedMouseButton :: MouseButton -> World -> Maybe World
 handlePressedMouseButton but w