(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)))))