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 r (v- moved-top-left top-left))
(define t (define t
(apply min (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) (min (or (segment-intersection-time p r solid-top-left solid-top-right) 1)
;; TODO: some means of specifying *which edges* should appear solid. ;; TODO: some means of specifying *which edges* should appear solid.
#;(or (segment-intersection-time p r solid-top-right solid-bottom-right) 1) #;(or (segment-intersection-time p r solid-top-right solid-bottom-right) 1)