'

'  This example demonstrates how to iterate over the collection of animated 

'  parameters in a cube 

'

NewScene , false

set oRoot = Application.ActiveProject.ActiveScene.Root

set oCube = oRoot.AddGeometry( "Cube", "MeshSurface" )

set param = oCube.Material.Shaders("Phong").Parameters("diffuse")

aValues = Array( 0.00, 5.00, 1.00, 6.00, 2.00, 7.00, 3.00, 8.00, 4.00, 9.00, 5.00, 10.00 )

set f = param.red.AddFCurve2( aValues )

for each p in param.AnimatedParameters( siAnySource )

Application.LogMessage p.FullName & " is animated"

next