I had missed out half the segment-intersection-time test
This commit is contained in:
parent
72ed89ab35
commit
11f2074adf
|
@ -415,9 +415,14 @@
|
||||||
(define rxs (vcross2 r s))
|
(define rxs (vcross2 r s))
|
||||||
(cond [(< (abs rxs) 0.005) #f] ;; zeroish; lines are parallel (and maybe collinear)
|
(cond [(< (abs rxs) 0.005) #f] ;; zeroish; lines are parallel (and maybe collinear)
|
||||||
[else
|
[else
|
||||||
(define q-pxs (vcross2 (v- q0 p0) s))
|
(define q-p (v- q0 p0))
|
||||||
|
(define q-pxs (vcross2 q-p s))
|
||||||
(define t (/ q-pxs rxs))
|
(define t (/ q-pxs rxs))
|
||||||
(and (< 0 t 1) t)]))
|
(and (< 0 t 1)
|
||||||
|
(let* ((q-pxr (vcross2 q-p r))
|
||||||
|
(u (/ q-pxr rxs)))
|
||||||
|
(and (< 0 u 1)
|
||||||
|
(- t 0.001))))]))
|
||||||
|
|
||||||
(define (three-corners top-left size)
|
(define (three-corners top-left size)
|
||||||
(match-define (vector w h) size)
|
(match-define (vector w h) size)
|
||||||
|
|
Loading…
Reference in New Issue