'

'	This example demonstrates how to query parameter capabilities

'

NewScene , false

set oRoot = Application.ActiveProject.ActiveScene.Root

set oGrid = oRoot.AddGeometry("Grid","MeshSurface")

set oProp = oGrid.AddProperty("Custom_parameter_list",,"b")

set oParam = oProp.AddParameter ("Int2CustomParam", siInt2, siClassifVisualization , _

	siAnimatable, "ShortName", "LongName", , -1, -5, 5)

oCaps = oParam.Capabilities

Application.LogMessage "Object has capabilities : " & oCaps

if (oCaps and siAnimatable) then

	Application.LogMessage "Object is Animatable."

else

	Application.LogMessage "Object is NOT Animatable."

end if

if (oCaps and siPersistable) then

	Application.LogMessage "Object is Persistable."

else

	Application.LogMessage "Object is NOT Persistable."

end if

if (oCaps and siNotInspectable) then

	Application.LogMessage "Object is NotInspectable."

else

	Application.LogMessage "Object is NOT NotInspectable."

end if

if (oCaps and siNotPresetPersistable) then

	Application.LogMessage "Object is NotPresetPersistable."

else

	Application.LogMessage "Object is NOT NotPresetPersistable."

end if

if (oCaps and siKeyable) then

	Application.LogMessage "Object is keyable."

else

	Application.LogMessage "Object is NOT keyable."

end if

if (oCaps and siNonKeyableVisible) then

	Application.LogMessage "Object is non-keyable visible."

else

	Application.LogMessage "Object is NOT non-keyable visible."

end if

' Expected results:

'INFO : Object has capabilities : 2053

'INFO : Object is Animatable.

'INFO : Object is Persistable.

'INFO : Object is NOT NotInspectable.

'INFO : Object is NOT NotPresetPersistable.

'INFO : Object is keyable.

'INFO : Object is NOT non-keyable visible.