Cleanup

2022-06-26 02:30:17 +01:00
parent 7532c4cafb
commit ee9523dabb
8 changed files with 83 additions and 172 deletions
@@ -92,5 +92,5 @@ makeExplosionAt p w = w
    addFlames w' = foldl' (flip ($)) w' newFs
    --pushAgainstWalls q = maybe q (uncurry (+.+)) $ reflectPointWalls p q wls
    --pushAgainstWalls q = maybe q fst $ reflectPointWalls p q wls
-    pushAgainstWalls q = maybe q fst $ reflectPointWallsDamp (const True) 1 p q w
+    pushAgainstWalls q = maybe q fst $ bouncePoint (const True) 1 p q w
 --    wls = wallsNearPoint p w