(bind-func cpTransformRotate (lambda (radians:cpFloat) (let ((rot (cpvforangle radians))) (cpTransformNewTranspose (tref rot 0) (- 0.0 (tref rot 1)) 0. (tref rot 1) (tref rot 0) 0.))))