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

Cancel velocity on collision; cheap hack

This commit is contained in:
Tony Garnock-Jones 2015-10-26 20:32:00 -04:00
parent 11f2074adf
commit 3c3dcea8ee
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/platformer/game.rkt
View File

@ -473,8 +473,11 @@
(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: figure out how to cancel just the component of velocity blocked by the obstacle(s)
;; - which will avoid the "sticking to the wall" artifact
(define final-vel (if (v= pos1 final-pos) vel1 (vector 0 0))) ;; stop at collision
;; TODO: collision with enemies
((update-piece g final-pos vel1) s))
((update-piece g final-pos final-vel) s))
(define (evaluate-jump-request id s)
(define g (piece-cfg s id))