external dBodyDisable : dBodyID -> unit = "ocamlode_dBodyDisable"