external dJointSetBallAnchor2 : dJointID -> x:float -> y:float -> z:float -> unit = "ocamlode_dJointSetBallAnchor2"