(bind-func cpBBCenter (lambda (bb:cpBB) (cpVect_val (/ (+ (tref bb 0) (tref bb 2)) 2.) (/ (+ (tref bb 1) (tref bb 3)) 2.))))