'

' This example creates two shaders in a simple render tree, and applies

' texture layers to them, illustrating inserting before/after, sharing layers

' between containers, and other fun things.

' In particular, it builds the following stacks of layers (in a slightly

' convoluted way, to show various features of the AddTextureLayer command)...

'

' Phong      Fractal

'   A           A

'   B           D

'   C           E

'   D

'

option explicit

dim oSph, oPhong, oFractal, oLyr(4)

' Build our shaders (a Phong and a Fractal), which will be the "texture

' layer containers" that will each be able to hold a stack of layers.

NewScene , False

set oSph = CreatePrim( "Sphere", "MeshSurface" )

set oPhong = SIApplyShader( "Phong", oSph )

set oFractal = BlendInPresetsInsp( "Fractal", , , True, siReplaceNoBlend, False, False, True )

' Now create and add all the layers, as indicated above.

' Add 'D' to (the end of) the first container.

set oLyr(3) = AddTextureLayer( , oPhong, "D", True )

' Add 'A' to both containers at the start.

set oLyr(0) = AddTextureLayer( , oPhong & "," & oFractal, "A", False )

' Insert 'B' after 'A'.

set oLyr(1) = AddTextureLayer( , oPhong, "B", True, oLyr(0) )

' Insert 'C' before 'D'.

set oLyr(2) = AddTextureLayer( , oPhong, "C", False, oLyr(3) )

' Add 'E' to the end of the second container.

set oLyr(4) = AddTextureLayer( , oFractal, "E", True )

' Add existing layer 'D' to the second container, before 'E'.

AddTextureLayer oLyr(3), oFractal, , False, oLyr(4)

PrintTextureLayersInContainer oPhong

PrintTextureLayersInContainer oFractal

sub PrintTextureLayersInContainer( in_cont )

	dim oStack, oItem, oStr

	oStr = "Texture Layers in Container: " & in_cont & vbCrLf

	set oStack = EnumElements( in_cont & ".TextureLayers" )

	for each oItem in oStack

		oStr = oStr & "    " & oItem.name & vbCrLf

	next

	logmessage oStr

end sub

'

' The output from the example should look something like this:

'

'INFO : "Texture Layers in Container: sphere.Material.Phong

'    A

'    B

'    C

'    D

'

'INFO : "Texture Layers in Container: sphere.Material.Phong.Fractal

'    A

'    D

'    E

'