// This example shows enumeration of texture layer
// ports, and seeing what target they drive.
oRoot = ActiveProject.ActiveScene.Root;
oSph = oRoot.AddGeometry( "Sphere", "MeshSurface" );
oMat = oSph.AddMaterial( "Phong" );
oPhong = oMat.Shaders(0);
oParam = oPhong.parameters( "specular" );
oFractal = oParam.ConnectFromPreset( "Fractal", siTextureShaderFamily );
// Add a layer at the end.
oLayer = oPhong.CreateTextureLayer( "DirtLayer" );
// Add some texture layer port connections on this layer.
oPorts = new Array(3);
oPorts[0] = oLayer.AddTextureLayerPort( oPhong.parameters( "ambient" ) );
oPorts[1] = oLayer.AddTextureLayerPort( oPhong.parameters( "diffuse" ) );
// The next line shows adding a port which is on a container that the layer
// is currently not part of -- it will be added to that container.
oPorts[2] = oLayer.AddTextureLayerPort( oFractal.parameters( "color1" ) );
Application.LogMessage( "Created " + oLayer.TextureLayerPorts.count + " ports." );
for ( i = 0; i < oLayer.TextureLayerPorts.count; i++ )
{
        oPort = oLayer.TextureLayerPorts(i);
        Application.LogMessage( "Port " + (i+1) + " drives: " + oPort.Target );
}
// This example should log something like:
//INFO : "Created 3 ports."
//INFO : "Port 1 drives: sphere.Material.Phong.ambient"
//INFO : "Port 2 drives: sphere.Material.Phong.diffuse"
//INFO : "Port 3 drives: sphere.Material.Phong.Fractal.color1"

' This VB script example shows enumeration of texture layer
' ports, and seeing what target they drive.
set oRoot = ActiveProject.ActiveScene.Root
set oSph = oRoot.AddGeometry( "Sphere", "MeshSurface" )
set oMat = oSph.AddMaterial( "Phong" )
set oPhong = oMat.Shaders(0)
set oParam = oPhong.parameters( "specular" )
set oFractal = oParam.ConnectFromPreset( "Fractal", siTextureShaderFamily )
' Add a layer at the end.
set oLayer = oPhong.CreateTextureLayer( "DirtLayer" )
' Add some texture layer port connections on this layer.
dim oPorts(2)
set oPorts(0) = oLayer.AddTextureLayerPort( oPhong.parameters( "ambient" ) )
set oPorts(1) = oLayer.AddTextureLayerPort( oPhong.parameters( "diffuse" ) )
' The next line shows adding a port which is on a container that the layer
' is currently not part of -- it will be added to that container.
set oPorts(2) = oLayer.AddTextureLayerPort( oFractal.parameters( "color1" ) )
logmessage "Created " & oLayer.TextureLayerPorts.count & " ports."
i = 1
for each oPort in oLayer.TextureLayerPorts
        logmessage "Port " & i & " drives: " & oPort.Target
        i = i + 1
next
' This example should log something like:
'INFO : "Created 3 ports."
'INFO : "Port 1 drives: sphere.Material.Phong.ambient"
'INFO : "Port 2 drives: sphere.Material.Phong.diffuse"
'INFO : "Port 3 drives: sphere.Material.Phong.Fractal.color1"