From a3f709f63fb3a10e6b7753039a2daf8813c6a344 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 26 Oct 2015 19:16:03 -0400 Subject: [PATCH] Factor out impulse-multiplier --- examples/platformer/game.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/examples/platformer/game.rkt b/examples/platformer/game.rkt index d1d5b0b..926130c 100644 --- a/examples/platformer/game.rkt +++ b/examples/platformer/game.rkt @@ -331,6 +331,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; PhysicsEngine +(define impulse-multiplier 0.360) ;; 360 pixels per second (define jump-vel (vector 0 -2)) (define gravity 0.004) @@ -465,7 +466,7 @@ [else vel0])) - (define pos1 (v+ pos0 (v* (v+ vel1 imp0) (* 0.360 elapsed-ms)))) ;; 360 pixels per second + (define pos1 (v+ pos0 (v* (v+ vel1 imp0) (* impulse-multiplier elapsed-ms)))) (define final-pos (clip-movement-by-solids state-at-beginning-of-frame pos0 pos1 size)) ;; TODO: collision with enemies ((update-piece g final-pos vel1) s))