external dGeomSetBody : 'a dGeomID -> dBodyID option -> unit = "ocamlode_dGeomSetBody"