summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee/math/vector.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/chickadee/math/vector.scm b/chickadee/math/vector.scm
index e2720c6..3476326 100644
--- a/chickadee/math/vector.scm
+++ b/chickadee/math/vector.scm
@@ -34,6 +34,7 @@
vec2-y
vec2-magnitude
vec2-dot-product
+ vec2-cross
vec2-normalize
set-vec2-x!
set-vec2-y!
@@ -243,6 +244,10 @@ polar coordinate (R, THETA) with an arbitrary ORIGIN point."
(* (vec3-y v1) (vec3-y v2))
(* (vec3-z v1) (vec3-z v2))))
+(define-inlinable (vec2-cross v1 v2)
+ (- (* (vec2-x v1) (vec2-x v2))
+ (* (vec2-y v1) (vec2-y v2))))
+
(define-inlinable (vec3-cross! dest v1 v2)
(set-vec3! dest
(- (* (vec3-y v1) (vec3-z v2))