aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/core
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-07-07 08:12:31 -0500
committerColin Okay <colin@cicadas.surf>2022-07-07 08:12:31 -0500
commit208eb74ed6af4e016f34704bf7c7de547e8b1612 (patch)
tree30c65c80ee76eb230f6092789c5649921119c2b7 /src/core
parent73206ac142e34ce17195b1c3e538cf2e7a3f151d (diff)
[refactor] point containment, generalized [add] intersections
Diffstat (limited to 'src/core')
-rw-r--r--src/core/affine.lisp3
1 files changed, 3 insertions, 0 deletions
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)))