# 
#       This example logs all children under the scene root
#
from win32com.client import constants as c
Application.NewScene( "", 0 )
root = Application.ActiveSceneRoot
# Set the scene up
root.AddGeometry( "Cone", "NurbsSurface" )
root.AddGeometry( "Torus", "MeshSurface" )
root.AddGeometry( "Disc", "MeshSurface" )
root.AddGeometry( "Disc", "NurbsSurface" )
root.AddGeometry( "Cube", "NurbsSurface" )
# Get an X3DCollection
xc = Application.ActiveSceneRoot.FindChildren()
Application.LogMessage( Application.ClassName(xc) )
# Find all nurbs primitives in the collection
nrbs = xc.Filter( c.siSrfMeshPrimType )
Application.LogMessage( nrbs.GetAsText() )
# Expected result:
#INFO : X3DObjectCollection
#INFO : cone,disc1,cube

/* 
        This example logs all children under the scene root
*/
NewScene( null, false );
var root = Application.ActiveSceneRoot;
// Set the scene up
root.AddPrimitive( "Square" );
root.AddGeometry( "Disc", "MeshSurface" );
root.AddGeometry( "Disc", "MeshSurface" );
root.AddGeometry( "Cube", "MeshSurface" );
// Get an X3DCollection
var kids = Application.ActiveSceneRoot.FindChildren();
Application.LogMessage( Application.ClassName(kids) );
// Find all discs in the collection
var discs = kids.Filter( siDiscPrimType );
Application.LogMessage( discs.GetAsText() );
// Expected result:
//INFO : X3DObjectCollection
//INFO : disc,disc1

'
' This example logs all children under the scene root
'
NewScene , false
set sr = Application.ActiveSceneRoot
' Set the scene up
sr.AddPrimitive "Arc"
sr.AddPrimitive "Arc"
sr.AddGeometry "Cone"
sr.AddNull
' Get an X3DCollection
set x3dc = Application.ActiveSceneRoot.FindChildren()
Application.LogMessage TypeName(x3dc)   
' Find all arc primitives in the collection
set arcs = x3dc.Filter(siArcPrimType)
Application.LogMessage arcs.GetAsText()
' Expected result:
'INFO : X3DObjectCollection
'INFO : arc,arc1