'===================================================================

'

'	This example demonstrates how you can recursively 

'	find and print all the material in a scene.

'

' Set up the scene first with three separate materials on

' the three mesh objects

NewScene , false

dim oThing

set oThing = ActiveSceneRoot.AddGeometry( "Sphere", "MeshSurface" )

oThing.AddMaterial "Phong", , "Wanda" 

set oThing = ActiveSceneRoot.AddGeometry( "Disc", "MeshSurface" )

oThing.AddMaterial "Lambert", , "Stewart" 

set oThing = ActiveSceneRoot.AddGeometry( "Torus", "MeshSurface" )

oThing.AddMaterial "Blinn", , "Lulu" 

' Start a running tally (as a global index)

dim g_Count

g_Count = 0

' Now call the first routine

FindAndPrintAllNodeMaterials

' The following information is logged in Softimage:

'INFO : "These (3) materials were found:"

'INFO : "sphere.Material"

'INFO : "disc.Material"

'INFO : "torus.Material"

'-------------------------------------------------------------------

' This routine just launches the search for the materials by 

' calling the workhorse routine. Notice how the second argument

' uses the byref keyword: that is so we preserve the collection

sub FindAndPrintAllNodeMaterials

	' Create an empty collection that the worker routine

	' will fill with found materials

	dim oMats, m

	set oMats = CreateObject ( "XSI.Collection" )

	SIGetAllNodeMaterial ActiveSceneRoot, oMats 

	' When it's all done we'll have a collection of all

	' the materials under the root (ie., all)

	Application.LogMessage "These (" & g_Count & ") materials were found:" 

	for each m in oMats

		Application.LogMessage m

	next

end sub

'-------------------------------------------------------------------

' This routine is the 'workhorse', it crawls down the whole graph, 

' visiting each node to see if it's a material and collects 

' it if it is.

sub SIGetAllNodeMaterial( in_Obj, byref io_materials )

	' Get the input objects properties and then loop

	' through them looking for materials

	dim oProps, p

	set oProps = in_Obj.Properties

	for each p in oProps

		if TypeName(p) = "Material" Then

			' Only add node materials

			if Not p.Branch then

				' Add them to the collection 

				' & increment the counter

				g_Count = g_Count + 1

				io_materials.Add p

			end if

		end if

	next 

	' This is the recursive part: by calling the 

	' SIGetAllNodeMaterial routine from inside the

	' SIGetAllNodeMaterial routine, we're basically

	' drilling down through the children.

	dim oChildren, c

	set oChildren = in_Obj.FindChildren

	for each c in oChildren

		SIGetAllNodeMaterial c, io_materials 

	next

end sub