cpTransformBoneScale   xtlang


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

Implementation

(bind-func cpTransformBoneScale
  (lambda (v0:cpVect v1:cpVect)
    (let ((d (cpvsub v1 v0)))
      (cpTransformNewTranspose
        (tref d 0) (- 0.0 (tref d 1)) (tref v0 0)
        (tref d 1) (tref d 0) (tref v0 1)))))


Back to Index