external dJointDestroy : dJointID -> unit = "ocamlode_dJointDestroy"