external dJointGetBallAnchor : dJointID -> dVector3 = "ocamlode_dJointGetBallAnchor"