Work on bouncing debris

2025-08-02 22:14:25 +01:00
parent eeb7c8ac88
commit 5722ca8204
13 changed files with 141 additions and 1090 deletions
@@ -30,8 +30,8 @@ updateDebrisChunk w db = (w, mdb)
            & dbVel .~ (0.7 * reflectInNormal n sv) - V3 0 0 1
    dospin = (_dbSpin db *)
    mdb = do
-        guard (np > -100)
-        return $ cdb'
+        guard (np ^. _z > -100)
+        return cdb'

 fallSmallBounceDamage :: Prop -> World -> World
 fallSmallBounceDamage pr w =