From 457e1bb0e51775008c6bb92fa54ee7a04b3a843c Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 27 Oct 2015 14:36:24 -0400 Subject: [PATCH] Only checking the bottom corners avoids getting stuck --- examples/platformer/main.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/platformer/main.rkt b/examples/platformer/main.rkt index ba4a3ff..36dc0c1 100644 --- a/examples/platformer/main.rkt +++ b/examples/platformer/main.rkt @@ -478,7 +478,7 @@ (define r (v- moved-top-left top-left)) (define t (apply min - (for/list [(p (in-list (list top-left top-right bottom-right bottom-left)))] + (for/list [(p (in-list (list #;top-left #;top-right bottom-right bottom-left)))] (min (or (segment-intersection-time p r solid-top-left solid-top-right) 1) ;; TODO: some means of specifying *which edges* should appear solid. #;(or (segment-intersection-time p r solid-top-right solid-bottom-right) 1)