invert   xtlang


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

Implementation

(bind-func invert:[Matrix:<!a,i64,i64,i1>*,Matrix:<!a,i64,i64,i1>*]*
  (lambda (m1)
    (let ((mdat (alloc (* (tref m1 1) (tref m1 2)))))
      (minv (tref m1 0) (tref m1 1) mdat)
      (Matrix mdat (tref m1 1) (tref m1 2) (tref m1 3)))))


Back to Index

Similar Entries