Factor out impulse-multiplier
This commit is contained in:
parent
6bb3ef493a
commit
a3f709f63f
|
@ -331,6 +331,7 @@
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; PhysicsEngine
|
;; PhysicsEngine
|
||||||
|
|
||||||
|
(define impulse-multiplier 0.360) ;; 360 pixels per second
|
||||||
(define jump-vel (vector 0 -2))
|
(define jump-vel (vector 0 -2))
|
||||||
(define gravity 0.004)
|
(define gravity 0.004)
|
||||||
|
|
||||||
|
@ -465,7 +466,7 @@
|
||||||
[else
|
[else
|
||||||
vel0]))
|
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))
|
(define final-pos (clip-movement-by-solids state-at-beginning-of-frame pos0 pos1 size))
|
||||||
;; TODO: collision with enemies
|
;; TODO: collision with enemies
|
||||||
((update-piece g final-pos vel1) s))
|
((update-piece g final-pos vel1) s))
|
||||||
|
|
Loading…
Reference in New Issue