Move wall damages to external position

src/Dodge/Update/Camera.hs

@@ -210,7 +210,7 @@ farWallDistDirection :: Point2 -> Configuration -> World -> (Float,Float,Float,F
 --farWallDist p cfig w = (winFac /) . min maxViewDistance $ ssfold (> maxViewDistance) findMax 1 vps
 farWallDistDirection p cfig w = foldr (m . f) (0,0,0,0) vps
   where
-    f q = g $ rotateV (negate $ _cameraRot w) $ collidePointWalls' p q (IM.filter wlIsOpaque wos) -.- p
+    f q = g $ rotateV (negate $ _cameraRot w) $ collidePointWallsFilt' wlIsOpaque p q wos -.- p
     g (V2 x y) = (y, negate y, x, negate x)
     m (a,b,c,d) (x,y,z,w') = (max a x, max b y, max c z, max d w')
     vps = concatMap _grViewpoints grs ++ extendedViewPoints p grs

src/Dodge/Update/WallDamage.hs

@@ -0,0 +1,16 @@
+module Dodge.Update.WallDamage where
+import Dodge.Wall.Damage
+import Dodge.Data
+
+import qualified Data.IntMap.Strict as IM
+import Control.Lens
+import Data.Maybe
+
+updateWallDamages :: World -> World
+updateWallDamages w = w
+    & wallDamages .~ IM.empty
+    & flip (IM.foldrWithKey f) (_wallDamages w)
+  where
+    f k dams w' = fromMaybe w' $ do
+        wl <- w' ^? walls . ix k
+        return $ foldr (flip damageWall wl) w' dams