Implement different shadow resolutions

src/Dodge/Event/Menu.hs

@@ -9,6 +9,7 @@ import Dodge.SoundLogic
 import Dodge.Config.Data
 import Dodge.Config.Update
 import Dodge.Layout
+import Preload.Update
 
 import Data.Maybe
 import qualified Data.Set as S
@@ -49,7 +50,8 @@ handlePressedKeyInMenu mState scode w = case mState of
         ScancodeM       -> Just $ sw & config . volume_music  %~ inc
         _               -> popMenu $ w & sideEffects %~ (saveConfig (_config w) :)
     GraphicsOptionMenu -> case scode of
-        ScancodeW       -> Just $ w & config . wall_textured %~ not
+        ScancodeW       -> Just $ w & config . wall_textured     %~ not
+        ScancodeS       -> Just $ updateFramebufferSize $ w & config . shadow_resolution %~ cycleResolution
         _ -> popMenu $ w & sideEffects %~ (saveConfig (_config w) :)
     ControlList -> Just $ w & menuLayers %~ tail
     _ -> Just w
@@ -68,6 +70,17 @@ handlePressedKeyInMenu mState scode w = case mState of
             & windowX .~ _windowX w
             & windowY .~ _windowY w
 
+updateFramebufferSize :: World -> World
+updateFramebufferSize w = w & sideEffects 
+    %~ (resizeSpareFBO (ceiling x `div` divRes) (ceiling y `div` divRes) : )
+  where 
+    (x,y) = (_windowX w, _windowY w)
+    divRes = w ^. config . shadow_resolution
+
+cycleResolution 1 = 2
+cycleResolution 2 = 4
+cycleResolution 4 = 1
+
 storeLevel :: World -> World
 storeLevel w = case _storedLevel w of
                  Nothing -> w & storedLevel ?~ w