## X3DObject.ShapeAnimatedClusters

### Description

Returns a collection of Cluster objects for each cluster containing shape animation.

### C# Syntax

    ClusterCollection X3DObject.ShapeAnimatedClusters();

### Scripting Syntax

    oReturn = X3DObject.ShapeAnimatedClusters();

### Return Value

ClusterCollection

### Examples

#### VBScript Example

    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