Remove separate wall color, should be handled by material type

2025-10-23 21:27:14 +01:00
parent 819f0d37ea
commit 3c6d269d00
24 changed files with 136 additions and 123 deletions
@@ -27,11 +27,12 @@ shootShatter _ cr w =
 shatterWall :: World -> Point2 -> Point2 -> Point2 -> Wall -> World
 shatterWall w sp ep p wl =
    w
-        & makeDebris (_wlMaterial wl) (_wlColor wl) p
+--        & makeDebris (_wlMaterial wl) (_wlColor wl) p
+        & makeDebris (_wlMaterial wl)  p
        & makeDebrisDirected
            (pi / 2)
            (argV $ vNormal $ uncurry (-) $ _wlLine wl)
            (_wlMaterial wl)
-            (_wlColor wl)
+--            (_wlColor wl)
            p
        & damageWall (Shattering 1000 p (ep - sp)) wl