seg = 5
rad = 20.0


delete objects
gsphere = geosphere segments:seg radius:rad
gsphere
converttomesh gsphere
gspherenumverts = gsphere.numverts

for i = 1 to gspherenumverts do
(
	for u = 1 to 3 do
	gspherep3[i[u]] = getvert gsphere i[u]

)