CreatePrim "Arc", "NurbsCurve"
SetValue ".Name", "G_profile"
SetValue ".arc.startangle", 90.000
SetValue ".arc.endangle", 270.000
SetValue ".crvlist.geom.subdivu", 8.000
ApplyOp "Revolution", "", 3
SetValue ".surfmsh.revolution.subdivu", 14
SetValue ".surfmsh.revolution.subdivu", 8.000
SetValue ".surfmsh.revolution.subdivv", 8.000
SetValue ".Name", "G_sphere"
SelectObj ".surfmsh.revolution"