cross_product   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/math_ext.xtm

Implementation

;; vcross is for 3d vec only
(bind-func cross_product:[Vector:<!a,i64>*,Vector:<!a,i64>*,Vector:<!a,i64>*]*
  (lambda (v1 v2)
    (let ((vdat (alloc 3)))
      (vcross (tref v1 0) (tref v2 0) vdat)
      (Vector vdat 3))))


Back to Index

Similar Entries