'

'	This example shows how to find all image clips associated with a Material

'

set oObj = BuildDemoScene

set oImageClips = oObj.Material.ImageClips 

for each oImageClip in oImageClips

	Application.LogMessage oImageClip.FullName

next

'Example output:

'INFO : sphere.Material.Phong.Image.jaiqua_face_jpg

'INFO : sphere.Material.Phong.Color2scalar.Image1.ehair_08_jpg

'	Create a little sample render tree

'	It has no interesting visual appearance but is a render tree with

'	various shaders and two images so that we can demonstrate the 

'	FindImageClips routine

'

'   Return value is the X3DObject

'

function BuildDemoScene

	NewScene ,false

	ImageFile1 = XSIUtils.BuildPath( Application.InstallationPath(siFactoryPath), _

				"Data", _

				"XSI_SAMPLES",_

				"Pictures",_

				"jaiqua_face.jpg" )			

	ImageFile2 = XSIUtils.BuildPath( Application.InstallationPath(siFactoryPath), _

				"Data", _

				"XSI_SAMPLES",_

				"Pictures",_

				"ehair_08.jpg" )			

	NewScene , false

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

	oObj.AddMaterial "Phong" 

	dim oPhongShader, oAmbientParam, oDiffuseParam, oShinyParam

	set oPhongShader = oObj.Material.Shaders(0)

	set oAmbientParam = oPhongShader.Parameters( "ambient" )

	set oDiffuseParam = oPhongShader.Parameters( "diffuse" )	

	set oShinyParam= oPhongShader.Parameters( "shiny" )	

	dim oImageClip1, oImageClip2

	SICreateImageClip ImageFile1, ,oImageClip1	

	SICreateImageClip ImageFile2, ,oImageClip2

	dim oImageNode1,oImageNode2

	set oImageNode1 = oAmbientParam.connectfrompreset("Image", siTextureShaderFamily)

	oDiffuseParam.Connect( oImageNode1 )	

	oImageNode1.Parameters( "tex" ).Connect( oImageClip1 )

	set oImageNode2 = oShinyParam.connectfrompreset("Image", siTextureShaderFamily)

	oImageNode2.Parameters( "tex" ).Connect( oImageClip2 )

	set BuildDemoScene = oObj

end function