From a3caad0be64cf785a5d516cd1cfaf3f4b88647d8 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 26 Oct 2015 19:08:59 -0400 Subject: [PATCH] Avoid tramlining on edges of blocks --- examples/platformer/game.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/examples/platformer/game.rkt b/examples/platformer/game.rkt index 17d5f73..1e21574 100644 --- a/examples/platformer/game.rkt +++ b/examples/platformer/game.rkt @@ -415,7 +415,7 @@ [else (define q-pxs (vcross2 (v- q0 p0) s)) (define t (/ q-pxs rxs)) - (and (<= 0 t 1) t)])) + (and (< 0 t 1) t)])) (define (three-corners top-left size) (match-define (vector w h) size) @@ -444,7 +444,6 @@ #:when (game-piece-has-attribute? g 'solid)] (define p1* (clip-movement-by p0 p1 size (piece-pos s id) (game-piece-configuration-size g))) - (log-info "\np0 ~v\np1 ~v\ng ~v\np1* ~v" p0 p1 g p1*) p1*)) (define ((update-game-piece elapsed-ms id state-at-beginning-of-frame) s)