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 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)
|
||||||
|
|
Loading…
Reference in New Issue