external dJointGetHingeAngle : dJointID -> float = "ocamlode_dJointGetHingeAngle"