external dJointGetBallAnchor2 : dJointID -> dVector3 = "ocamlode_dJointGetBallAnchor2"