(bind-func cpBBClampVect (lambda (bb:cpBB v:cpVect) (cpVect_val (clamp (tref v 0) (tref bb 0) (tref bb 2)) (clamp (tref v 1) (tref bb 1) (tref bb 3)))))