'
' This example first creates a sphere deformed by a shape on a point cluster.
' Then, it creates a second sphere, and copies the shape from the first sphere
' to  a corresponding point cluster.
'
' Create 2 spheres: source (orig) and target (dupe)
NewScene , false
set orig = CreatePrim( "Sphere", "MeshSurface" )
set dupe = CreatePrim( "Sphere", "MeshSurface" )
Translate orig, 9, 0, 0, siRelative, siView, siObj, siXYZ
' Create a shape key on a point cluster
set cls1 = CreateCluster( orig & ".pnt[38-42,45-49]" )(0)
Translate cls1, 1, 3, -3, siRelative, siView, siObj, siXYZ
set shapeclp = SaveShapeKey( cls1,,, 1,,,, 1, siShapeLocalReferenceMode )
set shapesrc = shapeclp.MappedItems(0).Source2
' Create the corresponding target point cluster
set cls2 = CreateCluster( dupe & ".pnt[38-42,45-49]" )(0)
' Copy the shape to the target object, and apply the shape
CopyShape shapesrc, cls2
set copiedsrc = dupe.Model.Sources( dupe.Model.Sources.Count-1 )
ApplyShapeKey copiedsrc, , , 1
' Results: Both spheres display the same point extrusion