external dJointAddSliderForce: dJointID -> force:float -> unit = "ocamlode_dJointAddSliderForce"