'
'  This example demonstrates how to query each parameter in a grid to see
'  whether or not it is animated
'
NewScene , false
set oRoot = Application.ActiveProject.ActiveScene.Root
set oGrid = oRoot.AddGeometry( "Grid", "MeshSurface" )
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 = oGrid.posx.AddFCurve2( aValues )
for each p in oGrid.Parameters
Application.LogMessage p.FullName & " is animated: " & p.IsAnimated( siAnySource )
next
' Expected results:
'INFO : grid.Name is animated: False
'INFO : grid.kine.local.blendweight is animated: False
'INFO : grid.kine.local.active is animated: False
'INFO : grid.kine.local.posx is animated: True
'INFO : grid.kine.local.posy is animated: False
'INFO : grid.kine.local.posz is animated: False
'               ...etc.