如何判断两个皮卡是否相交

Question

如何确定一个pict的一个元素或子元素与另一个元素相交或重叠？

这是一个小例子。

(require pict pict/color)

(define (mkdisk color) (disk 15 #:draw-border? #f #:color color))
(define d1 (mkdisk "Aquamarine"))
(define d2 (mkdisk "SlateGray"))
(define d3 (mkdisk "Orchid"))
(define row (ghost (rectangle 100 20)))
(define p (foldl vl-append (blank) (list (lc-superimpose row d1)
                                         (cc-superimpose row d2)
                                         (rc-superimpose row d3))))

什么功能可以检查最后一个图形并确定线越过d2（中间的磁盘）？

（顺便说一句，如果我笨拙地使用pict或只是不按预期使用它，请告诉我。）