More streaming refactoring

2022-06-25 22:31:49 +01:00
parent 4eaa31bf32
commit 3c7ea4d73b
12 changed files with 88 additions and 28 deletions
@@ -91,5 +91,6 @@ makeExplosionAt p w = w
    newFs = zipWith5 mF fPs zs (fmap (3 *.*) fVs') sizes times
    addFlames w' = foldl' (flip ($)) w' newFs
    --pushAgainstWalls q = maybe q (uncurry (+.+)) $ reflectPointWalls p q wls
-    pushAgainstWalls q = maybe q fst $ reflectPointWalls p q wls
-    wls = wallsNearPoint p w
+    --pushAgainstWalls q = maybe q fst $ reflectPointWalls p q wls
+    pushAgainstWalls q = maybe q fst $ reflectPointWallsDamp (const True) 1 p q w
+--    wls = wallsNearPoint p w