cpTransformRigidInverse   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/contrib/libchipmunk/cpTransform.xtm

Implementation

(bind-func cpTransformRigidInverse
  (lambda (t:cpTransform)
    (cpTransformNewTranspose
      (tref t 3) (- 0. (tref t 2)) (- (* (tref t 2) (tref t 5)) (* (tref t 4) (tref t 3)))
      (- 0. (tref t 1)) (tref t 0) (- (* (tref t 4) (tref t 1)) (* (tref t 0) (tref t 5))))))


Back to Index