external dJointGetHingeParam : dJointID -> dJointParam -> float = "ocamlode_dJointGetHingeParam"