Add blurring of lightmap (and refactoring)

src/Dodge/Event/Keyboard.hs

@@ -7,6 +7,7 @@ module Dodge.Event.Keyboard
     where
 import Dodge.Data
 import Dodge.Data.Menu
+import Dodge.Picture.Layer
 import Dodge.Base
 import Dodge.Creature.Action
 import Dodge.Config.KeyConfig

src/Dodge/Event/Menu.hs

@@ -73,9 +73,9 @@ handlePressedKeyInMenu mState scode w = case mState of
 
 updateFramebufferSize :: World -> World
 updateFramebufferSize w = w & sideEffects 
-    %~ (resizeSpareFBO (ceiling x `div` divRes) (ceiling y `div` divRes) : )
+    %~ (resizeSpareFBO (x `div` divRes) (y `div` divRes) x y : )
   where 
-    (x,y) = (getWindowX w, getWindowY w)
+    (x,y) = (round $ getWindowX w, round $ getWindowY w)
     divRes = w ^. config . shadow_resolution
 
 cycleResolution 1 = 2