(bind-func cpTransformTranslate (lambda (translate:cpVect) (cpTransformNewTranspose 1. 0. (tref translate 0) 0. 1. (tref translate 1))))