set oRoot = Application.ActiveProject.ActiveScene.Root
set oGrid = oRoot.AddGeometry( "Grid","MeshSurface" )
set oCluster = oGrid.ActivePrimitive.Geometry.AddCluster( siPolygonCluster, "PolygonClusterOnGrid", array(59,60,61) )
Application.LogMessage "IsAnimated2( siFCurveSource )" & oCluster.IsAnimated2( siFCurveSource)
Application.LogMessage "IsAnimated2( siExpressionSource )" & oCluster.IsAnimated2( siExpressionSource )
Application.LogMessage "IsAnimated2( siMixerSource )" & oCluster.IsAnimated2( siMixerSource )
Application.LogMessage "IsAnimated2( siConstraintSource )" & oCluster.IsAnimated2( siConstraintSource )
Application.LogMessage "IsAnimated2( siScriptedOperatorSource )" & oCluster.IsAnimated2( siScriptedOperatorSource )
Application.LogMessage "IsAnimated2( siShapeAnimationSource )" & oCluster.IsAnimated2( siShapeAnimationSource )
Application.LogMessage "IsAnimated2( siAnySource )" & oCluster.IsAnimated2( siAnySource )
Application.LogMessage "Number of animated parameters : " & oCluster.AnimatedParameters2.Count |