'
' This example creates two shaders in a simple render tree, and applies
' texture layers to one of them.  Then it adds port connections to that
' layer, indicating what shader ports the layer should affect.
' In particular, it builds the following stack of layers.
'
' Phong
'   A
'   B
'
option explicit
dim oSph, oPhong, oMat, oLyr(1), oPorts, oPort
' 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 )
' Now create and add all the layers, as indicated above.
' Add 'A' and 'B' to the Phong at the end.
set oLyr(0) = AddTextureLayer( , oPhong, "A", True )
set oLyr(1) = AddTextureLayer( , oPhong, "B", True )
'
' Now start adding port connections, indicating what these layers will
' affect.
' Start by making layer 'A' affect ambient and diffuse on the Phong.
set oPorts = AddTextureLayerPorts( oLyr(0), oPhong & ".ambient," & oPhong & ".diffuse" )
for each oPort in oPorts
        logmessage "Created port: " & oPort
next
' Now let's add some ports on the 'B' layer, which affect the Phong's
' diffuse and specular, but also affect the material's environment.  We
' have not added the layer explicitly to the material texture layer
' container, so it will be done implicitly by this command.
set oMat = oPhong(0).parent
set oPorts = AddTextureLayerPorts( oLyr(1), _
                        oPhong & ".specular," & _
                        oPhong & ".diffuse," & _
                        oMat & ".environment" )
for each oPort in oPorts
        logmessage "Created port: " & oPort
next
PrintTextureLayersAndPortsInContainer oPhong
PrintTextureLayersAndPortsInContainer oMat
sub PrintTextureLayersAndPortsInContainer( in_cont )
        dim oLayerStack, oLayer, oPortList, oPort, oStr
        oStr = "Texture Layers in Container: " & in_cont & vbCrLf
        set oLayerStack = EnumElements( in_cont & ".TextureLayers" )
        for each oLayer in oLayerStack
                oStr = oStr & "    " & oLayer.name & " -- has ports:" & vbCrLf
                set oPortList = EnumElements( in_cont & ".TextureLayers." & oLayer.name & ".ports" )
                for each oPort in oPortList
                        oStr = oStr & "      " & oPort.name & vbCrLf
                next
        next
        logmessage oStr
end sub
'
' The output from the example should look something like this:
'
'INFO : "Created port: sphere.Material.Phong.A.ports.ambient"
'INFO : "Created port: sphere.Material.Phong.A.ports.diffuse"
'INFO : "Created port: sphere.Material.Phong.B.ports.specular"
'INFO : "Created port: sphere.Material.Phong.B.ports.diffuse"
'INFO : "Created port: sphere.Material.Phong.B.ports.environment"
'INFO : "Texture Layers in Container: sphere.Material.Phong
'    A -- has ports:
'      ambient
'      diffuse
'    B -- has ports:
'      specular
'      diffuse
'      Environment
'
'INFO : "Texture Layers in Container: sphere.Material
'    B -- has ports:
'      specular
'      diffuse
'      Environment
'