'
' This example demonstrates how to read the object's capabilities
'
NewScene , false
set oCylinder = CreatePrim( "Cylinder", "MeshSurface" )
Application.LogMessage "The cylinder has these capabilities: " & oCylinder.Capabilities
' Hide the cylinder from the scene explorer
oCylinder.SetCapabilityFlag siReadOnly, true 
Application.LogMessage "Now the cylinder has these capabilities: " & oCylinder.Capabilities
' Expected results:
'INFO : The cylinder has these capabilities: 32772
'INFO : Now the cylinder has these capabilities: 32774