external dGeomGetBody : 'a dGeomID -> dBodyID option = "ocamlode_dGeomGetBody"