From 69413418072d45ccdb1bc1d682fbf18913bd291a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 12 Oct 2020 20:46:39 -0400
Subject: math: vector: Add vec2= and vec3= procedures.

---
 chickadee/math/vector.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/chickadee/math/vector.scm b/chickadee/math/vector.scm
index 2269486..4206206 100644
--- a/chickadee/math/vector.scm
+++ b/chickadee/math/vector.scm
@@ -25,6 +25,8 @@
   #:export (vec2
             vec2/polar
             vec2?
+            vec2=
+            vec3=
             vec2->pointer
             vec2-copy
             vec2-copy!
@@ -101,6 +103,15 @@
 (define (make-null-vec3)
   (wrap-vec3 (make-f32vector 3) #f))
 
+(define-inlinable (vec2= a b)
+  (and (= (vec2-x a) (vec2-x b))
+       (= (vec2-y a) (vec2-y b))))
+
+(define-inlinable (vec3= a b)
+  (and (= (vec3-x a) (vec3-x b))
+       (= (vec3-y a) (vec3-y b))
+       (= (vec3-z a) (vec3-z b))))
+
 (define-syntax-rule (with-new-vec2 name body ...)
   (let ((name (make-null-vec2))) body ... name))
 
-- 
cgit v1.2.3