From 208eb74ed6af4e016f34704bf7c7de547e8b1612 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 7 Jul 2022 08:12:31 -0500 Subject: [refactor] point containment, generalized [add] intersections --- src/core/affine.lisp | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/core/affine.lisp') diff --git a/src/core/affine.lisp b/src/core/affine.lisp index 7cfb805..671c184 100644 --- a/src/core/affine.lisp +++ b/src/core/affine.lisp @@ -87,3 +87,6 @@ (mat:m* m (vec:vec (+ x w) y 0.0 1.0)) (mat:m* m (vec:vec x y 0.0 1.0)))))))) +(defun units-intersect-p (au1 au2) + "Returns T if the two units AU1 an AU2 intersect. Both must implement GET-RECT." + (paths-intersect-p (get-rect au1) (get-rect au2))) -- cgit v1.2.3