set oRoot = Application.ActiveProject.ActiveScene.Root

oRoot.AddGeometry "Sphere", "MeshSurface"

oRoot.AddNull

for each oChild in oRoot.Children

	Application.LogMessage oChild.Name & ", " & oChild.Type

next

' Expected results:

'INFO : Camera_Root, CameraRoot

'INFO : light, light

'INFO : sphere, polymsh

'INFO : null, null

/*

	Compare this example with the similar example 

	for X3DObject.FindChildren

*/

// Create a sample scene

NewScene( null, false ) ;

var oRoot = Application.ActiveSceneRoot;

var oNull = oRoot.AddNull( "MyNull" ) ;

var oSphere = oRoot.AddGeometry( "Sphere", "MeshSurface", "MySphere" ) ;

var oNestedSphere = oNull.AddNull( "NestedNull" ) ;

var oConeInModel = oRoot.AddGeometry( "Cone", "NurbsSurface", "ConeInMdl" ) ;

var oModel = oRoot.AddModel(oConeInModel, "MyModel") ;

// The X3DObject.Children collection returns all X3DObjects 

// but it is not recursive.

PrintChildren( "Children of SceneRoot:", oRoot.Children ) ;

PrintChildren( "Children of Null:", oNull.Children ) ;

PrintChildren( "Children of Model:", oModel.Children ) ;

// Expected result:

//INFO : Children of SceneRoot:

//INFO :		Camera_Root

//INFO :		light

//INFO :		MyNull

//INFO :		MySphere

//INFO :		MyModel

//INFO : ----------------------------

//INFO : Children of Null:

//INFO :		NestedNull

//INFO : ----------------------------

//INFO : Children of Model:

//INFO :		MyModel.ConeInMdl

//INFO : ----------------------------

// Helper function showing the contents of a collection

function PrintChildren( in_msg, in_oChildren )

{

	Application.LogMessage( in_msg ) ;

	for ( var i=0 ; i<in_oChildren.Count; i++ ) {

		Application.LogMessage( "\t" + in_oChildren.Item(i).FullName ) ;

	}

	Application.LogMessage( "----------------------------" ) ;

}