/*

	This JScript example demonstrates creating texture layers on

	a shader, plus enumerating and removing them.

*/

oRoot = ActiveProject.ActiveScene.Root;

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

oMat = oSph.AddMaterial( "Phong" );

oPhong = oMat.Shaders(0);

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

// flag is irrelevant).

oLayers = new Array(3);

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

// Add another layer before the other one.

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

// Create a third layer at the very start.

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

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

for ( i = 0; i < oPhong.TextureLayers.count; i++ )

{

	oLayer = oPhong.TextureLayers(i);

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

}

oPhong.RemoveTextureLayer( oLayers[1] );

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

count = oPhong.TextureLayers.Count;

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

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

{

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

}

// This example should log something like:

//INFO : "Created 3 layers."

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

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

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

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

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

'

' This VBScript example demonstrates creating texture layers on

' a shader, plus enumerating and removing them.

'

set oRoot = ActiveProject.ActiveScene.Root

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

set oMat = oSph.AddMaterial( "Phong" )

set oPhong = oMat.Shaders(0)

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

' flag is irrelevant).

dim oLayers(2)

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

' Add another layer before the other one.

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

' Create a third layer at the very start.

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

LogMessage "Created " & oPhong.TextureLayers.Count & " layers."

i = 1

for each oLayer in oPhong.TextureLayers

	LogMessage i & ": " & oLayer

	i = i + 1

next

oPhong.RemoveTextureLayer oLayers(1)

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

count = oPhong.TextureLayers.Count

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

for i = 0 to count - 1

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

next

' This example should log something like:

'INFO : "Created 3 layers."

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

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

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

'INFO : "Only 1 remains after removal."

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