diff options
| -rw-r--r-- | chickadee/math/matrix.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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)) |