Only checking the bottom corners avoids getting stuck

This commit is contained in:
Tony Garnock-Jones 2015-10-27 14:36:24 -04:00
parent 7b03d90b23
commit 457e1bb0e5
1 changed files with 1 additions and 1 deletions

View File

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