Cleanup

2022-06-26 02:30:17 +01:00
parent 7532c4cafb
commit ee9523dabb
8 changed files with 83 additions and 172 deletions
@@ -58,7 +58,7 @@ fallSmallBounce' w pr
    velz = _pjVelZ pr
    vel  = _pjVel pr
    pos  = _prPos pr
-    updateWithVel v = case reflectPointWallsDamp (const True) 0.5 pos (pos + v) w of
+    updateWithVel v = case bouncePoint (const True) 0.5 pos (pos + v) w of
        Nothing -> prPos +~ v
        Just (p,v') -> (prPos .~ p) . (pjVel .~ v')