external dGeomGetCategoryBits : 'a dGeomID -> int = "ocamlode_dGeomGetCategoryBits"