NewScene , false

set obj = Application.ActiveProject.ActiveScene.Root.AddGeometry( "Grid","MeshSurface" )

SetSelFilter "Point"

SaveShapeKey obj.Name & ".pnt[1,2,10,11,19,20,28,29]", , , 1.000

SetValue "PlayControl.Current", 30.000

SaveShapeKey obj.Name & ".pnt[41,42,50,51,59,60,68,69]", , , 30.000

set clscoll = obj.ShapeAnimatedClusters

for each cls in clscoll

	Application.LogMessage TypeName(cls) & ":" & cls.Name

next