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