external dQGetIdentity : unit -> dQuaternion = "ocamlode_dQSetIdentity"