Add blurring of lightmap (and refactoring)

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