From 8930b2dfbf5941d1fadce32570cb4b29612e7f68 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 26 Oct 2015 19:10:15 -0400 Subject: [PATCH] Tweak gravity --- examples/platformer/game.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/examples/platformer/game.rkt b/examples/platformer/game.rkt index 171a222..067b37c 100644 --- a/examples/platformer/game.rkt +++ b/examples/platformer/game.rkt @@ -331,7 +331,8 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; PhysicsEngine -(define jump-vel (vector 0 -1)) +(define jump-vel (vector 0 -2)) +(define gravity 0.004) (define (spawn-physics-engine) (struct physics-state (configs ;; Hash ID -> GamePieceConfiguration @@ -460,7 +461,7 @@ (piece-vel state-at-beginning-of-frame (game-piece-configuration-id support))] [(game-piece-has-attribute? g 'massive) - (v+ vel0 (vector 0 (* 0.001 elapsed-ms)))] + (v+ vel0 (vector 0 (* gravity elapsed-ms)))] [else vel0]))