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