external dJointSetFixed : dJointID -> unit = "ocamlode_dJointSetFixed"