CreatePrim "Sphere", "MeshSurface"
SetValue "sphere.polymsh.geom.subdivu", 9
SICreateCurve "crvlist", 3, 0
SIAddPointOnCurveAtEnd "crvlist", 3.779, -0.709, 0.000, False
SIAddPointOnCurveAtEnd "crvlist", 5.304, -1.384, 0.000, False
SIAddPointOnCurveAtEnd "crvlist", 7.290, -1.668, 0.000, False
SIAddPointOnCurveAtEnd "crvlist", 9.206, 0.533, 0.000, False
SIAddPointOnCurveAtEnd "crvlist", 9.738, 3.939, 0.000, False
SIAddPointOnCurveAtEnd "crvlist", 10.980, 4.436, 0.000, False
SIAddPointOnCurveAtEnd "crvlist", 11.831, 3.301, 0.000, False
SelectObj "sphere", , True
ActivateRaycastPolySelTool
AddToSelection "sphere.poly[35]", , True
ApplyTopoOp "ExtrudeComponent", "sphere.poly[35];crvlist", siUnspecified, siPersistentOperation
SetValue "sphere.polymsh.extrudecomponentop.subdivs", 8
ActivateObjectSelTool
SelectObj "sphere", , True
ActivateVertexSelTool
AddToSelection "sphere.pnt[26,33,40,47]", , True
Translate , 0.000, 0.390, 0.000, siRelative, siView, siObj, siXYZ
RemoveFromSelection "sphere.pnt[26,33,40,47]"
AddToSelection "sphere.pnt[25,32,39,46]", , True
Translate , 0.000, -0.426, 0.000, siRelative, siView, siObj, siXYZ
RemoveFromSelection "sphere.pnt[24,25,31,32,38,39,45,46]"
AddToSelection "sphere.pnt[18,19,53,54]", , True
Translate , -0.319, 0.000, 0.000, siRelative, siView, siObj, siXYZ
RemoveFromSelection "sphere.pnt[10,17-19,52-54,59]"
AddToSelection "sphere.pnt[65-LAST]", , True
Scale , 1.000, 1.000, 0.336, siRelative, siGlobal, siObj, siXYZ
ActivateObjectSelTool
DeselectAll
SelectObj "sphere", , True
SelectObj "sphere", , True
SetValue "sphere.polymsh.geom.subdivu", 8
SetValue "sphere.polymsh.geom.subdivu", 9
SelectObj "crvlist", , True
Translate "crvlist.pnt[3]", -1.177, 0.494, 0.000, siRelative, siView, siObj, siXYZ
Translate "crvlist.pnt[4]", -1.101, 0.228, 0.000, siRelative, siView, siObj, siXYZ
SelectObj "sphere", , True
ActivateVertexSelTool
AddToSelection "sphere.pnt[85,86,89-98]", , True
RemoveFromSelection "sphere.pnt[33,40,65-84]"
Scale , 0.755, 0.755, 0.755, siRelative, 273, siObj, siXYZ
RemoveFromSelection "sphere.pnt[81,82,85-LAST]"
AddToSelection "sphere.pnt[77-84]", , True
Scale , 0.819, 0.819, 0.819, siRelative, 273, siObj, siXYZ
Scale , 1.000, 1.315, 1.000, siRelative, siGlobalCOG, siObj, siXYZ
RemoveFromSelection "sphere.pnt[67,68,71-88]"
ActivateObjectSelTool
DeselectAll
SelectObj "sphere", , True
ActivateVertexSelTool
AddToSelection "sphere.pnt[4-8,11-15,18,19,53,54,60-64]", , True
AddToSelection "sphere.pnt[2,3,9,10,58,59]", , True
RemoveFromSelection "sphere.pnt[18,53]"
RemoveFromSelection "sphere.pnt[19,54]"
Translate , -2.163, 0.000, 0.000, siRelative, siView, siObj, siXYZ
RemoveFromSelection "sphere.pnt[2-15,58-64]"
AddToSelection "sphere.pnt[0,1,16-22,51-57]", , True
Translate , -1.078, 0.000, 0.000, siRelative, siView, siObj, siXYZ
RemoveFromSelection "sphere.pnt[0-3,7-11,13-22,51-60,62-64]"
ActivateObjectSelTool
SelectObj "sphere", , True
ActivateRaycastPolySelTool
AddToSelection "sphere.poly[7,15,23,31,35,39,47,55,63]", , True
RemoveFromSelection "sphere.poly[LAST]"
DuplicateMeshComponent "sphere.poly[7,15,23,31,35,39,47,55,63]", siPersistentOperation
Translate , 0.000, -6.720, 0.000, siRelative, siView, siObj, siXYZ
ActivateObjectSelTool
DeselectAll
SelectObj "sphere", , True
ActivateVertexSelTool
AddToSelection "sphere.pnt[7]", , True
AddToSelection "sphere.pnt[4]", , True
ApplyTopoOp "BevelComponent", "sphere.pnt[4,7]", siUnspecified, siPersistentOperation
ActivateObjectSelTool
DeselectAll
SICreateCurve "crvlist1", 3, 0
SIAddPointOnCurveAtEnd "crvlist1", -5.054, 2.705, 0.000, False
SIAddPointOnCurveAtEnd "crvlist1", -6.572, 3.844, 0.000, False
SIAddPointOnCurveAtEnd "crvlist1", -7.787, 3.730, 0.000, False
SIAddPointOnCurveAtEnd "crvlist1", -9.064, 2.533, 0.000, False
SIAddPointOnCurveAtEnd "crvlist1", -9.672, -0.467, 0.000, False
SIAddPointOnCurveAtEnd "crvlist1", -9.292, -2.707, 0.000, False
SIAddPointOnCurveAtEnd "crvlist1", -7.926, -3.808, 0.000, False
SIAddPointOnCurveAtEnd "crvlist1", -6.560, -3.618, 0.000, False
SIAddPointOnCurveAtEnd "crvlist1", -5.231, -2.669, 0.000, False
Translate "crvlist1.pnt[LAST]", -0.266, 0.949, 0.000, siRelative, siView, siObj, siXYZ
Translate "crvlist1.pnt[7]", -0.266, 0.835, 0.000, siRelative, siView, siObj, siXYZ
Translate "crvlist1.pnt[6]", -0.342, 0.532, 0.000, siRelative, siView, siObj, siXYZ
Translate "crvlist1.pnt[5]", -0.417, 0.532, 0.000, siRelative, siView, siObj, siXYZ
Translate "crvlist1.pnt[1]", 0.228, -0.038, 0.000, siRelative, siView, siObj, siXYZ
Translate "crvlist1.pnt[4]", -0.304, 0.190, 0.000, siRelative, siView, siObj, siXYZ
Translate "crvlist1.pnt[3]", -0.152, 0.000, 0.000, siRelative, siView, siObj, siXYZ
SelectObj "sphere", , True
ActivateRaycastPolySelTool
AddToSelection "sphere.poly[LAST]", , True
RemoveFromSelection "sphere.poly[0,8,15-18,21-25,30-33,35,38-41,46-48,55,56,63,64,107-116]"
ApplyTopoOp "ExtrudeComponent", "sphere.poly[LAST];crvlist1", siUnspecified, siPersistentOperation
SetValue "sphere.polymsh.extrudecomponentop[1].subdivs", 6
ActivateObjectSelTool
DeselectAll
SelectObj "sphere", , True
SelectObj "crvlist1", , True
Translate "crvlist1.pnt[LAST]", -0.797, -0.645, 0.000, siRelative, siView, siObj, siXYZ
Translate "crvlist1.pnt[7]", -0.342, -0.114, 0.000, siRelative, siView, siObj, siXYZ
SelectObj "sphere", , True
ActivateRaycastPolySelTool
AddToSelection "sphere.poly[117]", , True
ApplyTopoOp "BridgePolygon", "sphere.poly[117,LAST]", siUnspecified, siPersistentOperation
ActivateObjectSelTool
SelectObj "crvlist1", , True
Scale , 0.988, 1.000, 1.000, siRelative, siGlobalCOG, siObj, siXYZ
Scale , 0.767, 0.767, 0.767, siRelative, 273, siObj, siXYZ
DeleteObj "crvlist1"
Undo
SelectObj "sphere", , True
FreezeObj
ActivateVertexSelTool
AddToSelection "sphere.pnt[116-123]", , True
AddToSelection "sphere.pnt[124-139]", , True
AddToSelection "sphere.pnt[140]", , True
AddToSelection "sphere.pnt[141-LAST]", , True
Scale , 0.808, 0.808, 0.808, siRelative, 273, siObj, siXYZ
Translate , 0.304, 0.000, 0.000, siRelative, siView, siObj, siXYZ
RemoveFromSelection "sphere.pnt[3-7,11-13,60-62,110-114,116-LAST]"
ActivateObjectSelTool
SelectObj "sphere", , True
ApplyOp "MeshSubdivide", "sphere", 3, siPersistentOperation
SetValue "polymsh.polymsh.MeshSubdivide.SubdivisionDepth", 2
FreezeObj
SelectObj "sphere", , True
DeleteObj "sphere"
DeleteObj "crvlist,crvlist1"