'
'  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