cpTransformOrtho   xtlang


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

Implementation

(bind-func cpTransformOrtho
  (lambda (bb:cpBB)
    (cpTransformNewTranspose
      (/ 2.0 (- (tref bb 2) (tref bb 0)))
      0.
      (/ (- 0.0 (+ (tref bb 0) (tref bb 2))) (- (tref bb 2) (tref bb 0)))
      0.
      (/ 2.0 (- (tref bb 3) (tref bb 1)))
      (/ (- 0.0 (+ (tref bb 1) (tref bb 3))) (- (tref bb 3) (tref bb 1))))))


Back to Index