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