external dCreateCylinder : dSpaceID option -> radius:float -> length:float -> cylinder_geom dGeomID = "ocamlode_dCreateCylinder"