/*

	This example shows how to find the material from a shader even when the

	shader is buried deeply in a shader tree.

*/

// Create an object with a texture shader

newscene(null,false);

var root = Application.ActiveProject.ActiveScene.Root;

var model = root.AddModel();

model.name = "MyModel";

var sphere = model.AddGeometry( "Sphere", "MeshSurface" );

var grid = model.AddGeometry( "Grid", "MeshSurface" );

var col = XSIFactory.CreateObject("XSI.Collection");

col.add(sphere);

col.add(grid);

BlendInPresets( "Image", col, false, false );

CreateProjection( col, siTxtSpherical, siTxtDefaultSpherical, "TxtSupport", "TxtProjection" );

var filename = Application.InstallationPath( siFactoryPath ) + 

	"\\Data\\XSI_SAMPLES\\Pictures\\xsilogo.jpg";

var imageclip = CreateImageClip( filename, "XSILogo" );

// Set up the texture space on texture shader

var mat = sphere.Material;

var textureshader = sphere.Material.CurrentTexture;

// Set the texturespace parameter

textureshader.parameters("tspace_id").Value = "TxtProjection";

textureshader.parameters("tex").Connect(imageclip);

// Select the texture shader

SelectObj("MyModel.sphere.Scene_Material.Phong.ambient_blend.Image", null, null);

// Get the sphere from the selection list

var obj = selection(0);

// Set up the sharee material with a specific txtuv for the sphere.

if ( obj.isclassof( siShaderID ) )

{

	var tspace_id = obj.parameters("tspace_id");

	var tex = obj.parameters("tex");

	if ( tspace_id && tex )

	{

		// If the object has a texture shader then change the

		// material hardware display settings to explicitly

		// track the shader's texture uvws and image clip

		// Get material from shader

		var mat = obj.Root;

		// A material may be used by many objects, just pick the first one

		// with a uvw and image clip setting

		var eUsedBy = new Enumerator(mat.usedby);

		for ( ; !eUsedBy.atEnd(); eUsedBy.moveNext() )

		{

			var curObj = eUsedBy.item();

			var uvw = tspace_id.getinstancevalue( curObj, true );

			var imageclip = tex.source;

			if ( uvw && imageclip )

			{

				mat.parameters("TextureSel").value = 3; // Specific TxtUVW & ImageClip

				mat.parameters("UV").setinstancevalue( curObj, uvw );

				mat.parameters("ImageClipName").value = imageclip.name;

			}	

		}

	}

}

// Log the hardware display settings for txtuvw on the scene material

mat = ActiveSceneRoot.Material;

var eUsedBy = new Enumerator(mat.usedby);

var uvparam = mat.parameters("UV");

for ( ; !eUsedBy.atEnd(); eUsedBy.moveNext() )

{

	var curObj = eUsedBy.item();

	var uvwObj = uvparam.getinstancevalue( curObj, true );

	var uvwval = "\"\"";

	if (uvwObj!=null)

		uvwval = uvwObj.fullname;

	logmessage( mat.fullname + " " + curObj.fullname + " " + uvwval );

}

//INFO : Scene_Material MyModel.sphere MyModel.sphere.polymsh.cls.Texture_Coordinates_AUTO.TxtProjection

//INFO : Scene_Material MyModel.grid ""