' 

' This example demonstrates the difference between the Property and Parameter objects

' and what they relate to when you are looking at scene objects in Explorer view 

' (with All Nodes scope selected):

'

'   Scene_Root                      (icon looks like:)      (TypeName returns:)

'      + torus

'         + Visibility              (gray square)           (Property)

'            - View Visibility      (green tv screen)       (simple Parameter)

'         + Kinematics              (gray square)           (Kinematics (a kind of Property))

'            + Local                (gray square)           (KinematicState (a kind of compound Parameter))

'               + Pos               (folder)                (Nothing)

'                  - X              (green tv screen)       (simple Parameter)

'

' 

NewScene , false

' First create an X3DObject to search on

Set oTorus = Application.ActiveSceneRoot.AddGeometry( "Torus", "MeshSurface" )

' 

' Looking for a parameter set and its simple parameter

' 

' Get the Visibility parameter set and the View Visibility parameter

Set oVisPSet = oTorus.Properties( "Visibility" )

Set oViewParam = oTorus.Properties( "Visibility" ).Parameters( "viewvis" )

' What have we got?

printType oVisPSet

printType oViewParam 

' 

' Looking for a parameter set and its compound parameter

' 

' Get the Kinematics property, the Local compound parameter and the PosX parameter

Set oKinePSet = oTorus.Kinematics

Set oCompound = oTorus.Kinematics.Local

Set oSimple = oTorus.Kinematics.Local.Parameters( "PosX" )

' What have we got?

printType oKinePSet 

printType oCompound 

printType oSimple 

' Helper Function

Function printType( in_oThing )

	' Print name and class name of input object

	Application.LogMessage in_oThing & " is a " & TypeName( in_oThing )

End Function

' Expected result:

'INFO : "torus.visibility is a Property"

'INFO : "torus.visibility.viewvis is a Parameter"

'INFO : "torus.kine is a Kinematics"

'INFO : "torus.kine.local is a KinematicState"

'INFO : "torus.kine.local.posx is a Parameter"