'----------------------------------------------------------
'
'	This example demonstrates how to find groups under the
'	scene root or under a specific model given the 
'	following structure:
'
'        Scene_Root                        Model    Group
'            + RootGroup                              *
'            + ChildModel                    *
'                + ChildGroup                         *
'            + AnotherChildModel             *
'                + AnotherChildGroup                  *
'                + GrandChildModel           *
'                    + GrandChildGroup                *
'                                          =====    =====
'                                            3        4
'
'	NB: The Model.Groups property has a limitation of only 
'		getting the immediate children of that model 
'		(whereas you can get every all models in all 
'		generations with the X3DObject.Models property).
'
'----------------------------------------------------------
'
'	SETUP
'
NewScene , false
' Set up a scene with 4 objects
set oRoot = ActiveSceneRoot
set oMbr1 = oRoot.AddGeometry( "Disc", "MeshSurface" )
set oMbr2 = oRoot.AddGeometry( "Torus", "MeshSurface" )
set oMbr3 = oRoot.AddGeometry( "Sphere", "MeshSurface" )
set oMbr4 = oRoot.AddNull()
' Create a group under the root 
oRoot.AddGroup oMbr1, "RootGroup"
' Create a new model and another group under the new model 
set oMdl = oRoot.AddModel( oMbr2, "ChildModel" )
oMdl.AddGroup oMbr2, "ChildGroup" 
' Add another model to the root 
set oMdl = oRoot.AddModel( oMbr3, "AnotherChildModel" )
oMdl.AddGroup oMbr3, "AnotherChildGroup"
' Nest yet another model under the second child model
set oMdl = oMdl.AddModel( oMbr4, "GrandChildModel" )
oMdl.AddGroup oMbr4, "GrandChildGroup"
'----------------------------------------------------------
'
'	SEARCH
'
' Find all groups under the scene root
LogMessage "******** GROUPS UNDER " & oRoot.Name & " ********"
FindGroupsUnderModel oRoot
' Find all groups under 'AnotherChildModel' 
LogMessage "******** GROUPS UNDER " & oMdl.Name & " ********"
FindGroupsUnderModel oMdl 
' Now find all groups in the scene
RecursiveGroupSearch oRoot
'----------------------------------------------------------
'
'	RESULTS
'
'INFO : "******** GROUPS UNDER Scene_Root ********"
'INFO : "RootGroup contains these members:"
'INFO : "	disc"
'INFO : "******** GROUPS UNDER GrandChildModel ********"
'INFO : "GrandChildModel.GrandChildGroup contains these members:"
'INFO : "	null"
'INFO : "******** FINDING ALL GROUPS IN THE SCENE ********"
'INFO : "# of models under the root: 3"
'INFO : "RootGroup contains these members:"
'INFO : "	disc"
'INFO : "ChildModel.ChildGroup contains these members:"
'INFO : "	torus"
'INFO : "AnotherChildModel.AnotherChildGroup contains these members:"
'INFO : "	sphere"
'INFO : "GrandChildModel.GrandChildGroup contains these members:"
'INFO : "	null"
'----------------------------------------------------------
'
'	HELPERS
'
' Finds all groups under a specific model (not recursive)
function FindGroupsUnderModel( in_model )
	' Find all groups under the specified model
	set oGrps = in_model.Groups
	for each g in oGrps 
		LogMessage g.FullName & " contains these members:"
		for each m in g.Members
			LogMessage vbTab & m.Name
		next
	next
end function
'----------------------------------------------------------
' Finds all groups under a specific model (recursive). Since
' we can get every model recursively (except the one we 
' started with) start with listing the groups under the 
' current model and then get the groups for each model under
' it, calling FindGroupsUnderModel for each one.
function RecursiveGroupSearch( in_model )
	LogMessage "******** FINDING ALL GROUPS IN THE SCENE ********"
	LogMessage "# of models under the root: " & in_model.Models.Count
	' First print out the groups info for the current model
	FindGroupsUnderModel in_model
	' Then iterate over every model contained inside the
	' current model, printing the groups info for each one
	for each mdl in in_model.Models
		FindGroupsUnderModel mdl
	next
end function