external dGeomSetCategoryBits : 'a dGeomID -> bits:int -> unit = "ocamlode_dGeomSetCategoryBits"