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