Only checking the bottom corners avoids getting stuck
This commit is contained in:
parent
7b03d90b23
commit
457e1bb0e5
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue