/*

	This example shows how to create texture layers on

	a material, plus enumerating and removing them.

*/

oRoot = ActiveProject.ActiveScene.Root;

oSph = oRoot.AddGeometry( "Sphere", "MeshSurface" );

oMat = oSph.AddMaterial( "Phong" );

// Add a layer at the end (since there are no others the "After"

// flag is irrelevant).

oLayers = new Array(3);

oLayers[0] = oMat.CreateTextureLayer( "B", true );

// Add another layer before the other one.

oLayers[1] = oMat.CreateTextureLayer( "A", false, oLayers[0] );

// Create a third layer at the very start.

oLayers[2] = oMat.CreateTextureLayer( "base", false );

Application.LogMessage( "Created " + oMat.TextureLayers.Count + " layers." );

for ( i = 0; i < oMat.TextureLayers.Count; i++ )

{

	oLayer = oMat.TextureLayers(i);

	Application.LogMessage( (i+1) + ": " + oLayer );

}

oMat.RemoveTextureLayer( oLayers[1] );

oMat.RemoveTextureLayer( oMat.FullName + "." + oLayers[2].Name );

count = oMat.TextureLayers.Count;

Application.LogMessage( "Only " + count + " remains after removal." );

for ( i = 0; i < count; i++ )

{

	Application.LogMessage( (i+1) + ": " + oMat.TextureLayers.Item(i) );

}

// This example should log something like:

//INFO : "Created 3 layers."

//INFO : "1: sphere.Material.base"

//INFO : "2: sphere.Material.A"

//INFO : "3: sphere.Material.B"

//INFO : "Only 1 remains after removal."

//INFO : "1: sphere.Material.B"

'

' This example shows how to create texture layers on

' a material, plus enumerating and removing them.

'

set oRoot = ActiveProject.ActiveScene.Root

set oSph = oRoot.AddGeometry( "Sphere", "MeshSurface" )

set oMat = oSph.AddMaterial( "Phong" )

' Add a layer at the end (since there are no others the "After"

' flag is irrelevant).

dim oLayers(2)

set oLayers(0) = oMat.CreateTextureLayer( "B", True )

' Add another layer before the other one.

set oLayers(1) = oMat.CreateTextureLayer( "A", False, oLayers(0) )

' Create a third layer at the very start.

set oLayers(2) = oMat.CreateTextureLayer( "base", False )

Application.LogMessage "Created " & oMat.TextureLayers.Count & " layers."

i = 1

for each oLayer in oMat.TextureLayers

	Application.LogMessage i & ": " & oLayer

	i = i + 1

next

oMat.RemoveTextureLayer oLayers(1)

oMat.RemoveTextureLayer oMat.FullName & "." & oLayers(2).Name

count = oMat.TextureLayers.Count

Application.LogMessage "Only " & count & " remains after removal."

for i = 0 to count - 1

	Application.LogMessage i + 1 & ": " & oMat.TextureLayers.Item(i)

next

' This example should log something like:

'INFO : "Created 3 layers."

'INFO : "1: sphere.Material.base"

'INFO : "2: sphere.Material.A"

'INFO : "3: sphere.Material.B"

'INFO : "Only 1 remains after removal."

'INFO : "1: sphere.Material.B"