external dGeomGetClass : 'a dGeomID -> geom_class = "ocamlode_dGeomGetClass"