external dJointGetSliderPosition : dJointID -> float = "ocamlode_dJointGetSliderPosition"