/*
	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 ""