'

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