external dJointGetHingeAngleRate : dJointID -> float = "ocamlode_dJointGetHingeAngleRate"