CreatePrim "Arc", "NurbsCurve"
SetValue ".Name", "G_profile"
ApplyOp "CrvInverse", "", 3
SetValue ".arc.endangle", 360.000
SetValue ".crvlist.geom.subdivu", 8.000
SetValue ".arc.radius", 2.000
Translate , 4.000, 0.000, 0.000, siRelative, siView, siObj, siXYZ
ApplyOp "Revolution", "", 3
SetValue ".Name", "G_donut"
SetValue ".surfmsh.revolution.subdivu", 14.000
SetValue ".surfmsh.revolution.subdivu", 8.000
SetValue ".surfmsh.revolution.subdivv", 8.000
SelectObj ".surfmsh.revolution"