Add blurring of lightmap (and refactoring)

2021-05-01 02:28:04 +02:00
parent 9c0e4425da
commit 7711738b3b
33 changed files with 485 additions and 249 deletions
@@ -74,10 +74,12 @@ handleResizeEvent :: WindowSizeChangedEventData -> World -> Maybe World
 handleResizeEvent sev w = Just 
    . set (config . windowX) (fromIntegral x)
    . set (config . windowY) (fromIntegral y)
-    $ over sideEffects ( resizeSpareFBO (fromIntegral x `div` divRes) (fromIntegral y `div` divRes) : )
+    $ over sideEffects ( resizeSpareFBO (x `div` divRes) (y `div` divRes) x y : )
    w
  where 
-    V2 x y = windowSizeChangedEventSize sev
+    x = fromIntegral x'
+    y = fromIntegral y'
+    V2 x' y' = windowSizeChangedEventSize sev
    divRes = w ^. config . shadow_resolution

 handlePressedMouseButton :: MouseButton -> World -> Maybe World