external dJointGetSliderPositionRate : dJointID -> float = "ocamlode_dJointGetSliderPositionRate"