diff options
-rw-r--r-- | chickadee/math/vector.scm | 5 |
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)) |