From 1813434abab3a996d672616fded3ef8bbcc4635e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 3 Aug 2022 17:02:41 -0400
Subject: math: matrix: Add matrix4= procedure.

---
 chickadee/math/matrix.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/chickadee/math/matrix.scm b/chickadee/math/matrix.scm
index 1a1e020..a04972f 100644
--- a/chickadee/math/matrix.scm
+++ b/chickadee/math/matrix.scm
@@ -48,6 +48,7 @@
             make-null-matrix4
             make-identity-matrix4
             matrix4?
+            matrix4=
             matrix4-mult!
             matrix4*
             matrix4-identity!
@@ -418,6 +419,10 @@ column-major format."
                   da db dc dd)
     matrix))
 
+(define (matrix4= m1 m2)
+  "Return #t if M1 is the same matrix as M2"
+  (equal? (matrix4-bv m1) (matrix4-bv m2)))
+
 (define (matrix4-mult! dest a b)
   "Multiply matrices A and B, storing the result in DEST."
   (let ((m1 (matrix4-bv a))
-- 
cgit v1.2.3