cpTransformRigid   xtlang


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

Implementation

(bind-func cpTransformRigid
  (lambda (translate:cpVect radians:cpFloat)
    (let ((rot (cpvforangle radians)))
      (cpTransformNewTranspose
        (tref rot 0) (- 0.0 (tref rot 1)) (tref translate 0)
        (tref rot 1) (tref rot 0) (tref translate 1)))))


Back to Index

Similar Entries