syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Tweak gravity

This commit is contained in:
Tony Garnock-Jones 2015-10-26 19:10:15 -04:00
parent ae04b9a8fd
commit 8930b2dfbf
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/platformer/game.rkt
View File

@ -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]))