/*

	This JScript example shows creating and sharing 

	texture layers.  It also shows how both Shaders and

	Materials can be texture layer containers, and the same

	layer can drive ports on each of them (if desired).

*/

oRoot = ActiveProject.ActiveScene.Root;

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

oMat = oSph.AddMaterial( "Phong" );

oPhong = oMat.Shaders(0);

// Add a layer to the Phong.

oShared = oPhong.CreateTextureLayer( "SharedLayer" );

// Add an unshared layer to the Material.

oRough = oMat.CreateTextureLayer( "Rough" );

// Add the first layer to the material, thereby sharing it.

// We'll put it before the Rough layer.

oMat.AddSharedTextureLayer( oShared, false, oRough );

// Now for fun, let's create a Fractal, attach it to the

// color input of the shared layer, and make it drive

// both the Phong's diffuse and the Material's displacement.

oParam = Application.Dictionary.GetObject( oShared + ".Color" );

oFractal = oParam.ConnectFromPreset( "Fractal", siTextureShaderFamily );

oDiffuse = oShared.AddTextureLayerPort( oPhong.Parameters( "diffuse" ) );

oDispl = oShared.AddTextureLayerPort( oMat.Parameters( "displacement" ) );

// Now let's explore what we have created...

DumpTextureLayerContainer( oMat );

function DumpTextureLayerContainer( in_cont )

{

	Application.LogMessage( "CONTAINER: " + in_cont.Name );

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

	{

		oTextureLayer = in_cont.TextureLayers(i);

		DumpTextureLayer( oTextureLayer, i+1 );

	}

}

function DumpTextureLayer( in_layer, in_index )

{

	Application.LogMessage( "   Layer " + in_index + ": " + in_layer.Name );

	oColor = in_layer.Parameters("Color");

	var empty;

	if ( oColor == empty )

	{

		Application.LogMessage( "     Color: (" + in_layer.Red.Value +

						"," + in_layer.Green.Value +

						"," + in_layer.Blue.Value + ")" );

	}

	else

	{

		oColorSrc = in_layer.Color.Source;

		Application.LogMessage( "     Color driven by: " + oColorSrc.Name );

	}

	oPorts = in_layer.TextureLayerPorts;

	count = oPorts.Count;

	Application.LogMessage( "     Layer drives:" );

	if ( count == 0 )

		Application.LogMessage( "       <nothing>" );

	else

	{

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

		{

			Application.LogMessage( "       " + oPorts(i).Target.FullName );

		}

	}

}

// This example should log something like:

//INFO : CONTAINER: Material

//INFO :    Layer 1: SharedLayer

//INFO :      Color driven by: Fractal

//INFO :      Layer drives:

//INFO :        Sources.Materials.DefaultLib.Material.Phong.diffuse

//INFO :        Sources.Materials.DefaultLib.Material.displacement

//INFO :    Layer 2: Rough

//INFO :      Color: (0.699999988079071,0.699999988079071,0.699999988079071)

//INFO :      Layer drives:

//INFO :        <nothing>

'

' This VBScript example shows creating and sharing 

' texture layers.  It also shows how both Shaders and

' Materials can be texture layer containers, and the same

' layer can drive ports on each of them (if desired).

'

set oRoot = ActiveProject.ActiveScene.Root

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

set oMat = oSph.AddMaterial( "Phong" )

set oPhong = oMat.Shaders(0)

' Add a layer to the Phong.

set oShared = oPhong.CreateTextureLayer( "SharedLayer" )

' Add an unshared layer to the Material.

set oRough = oMat.CreateTextureLayer( "Rough" )

' Add the first layer to the material, thereby sharing it.

' We'll put it before the Rough layer.

oMat.AddSharedTextureLayer oShared, False, oRough

' Now for fun, let's create a Fractal, attach it to the

' color input of the shared layer, and make it drive

' both the Phong's diffuse and the Material's displacement.

set oParam = Dictionary.GetObject( oShared & ".Color" )

set oFractal = oParam.ConnectFromPreset( "Fractal", siTextureShaderFamily )

set oDiffuse = oShared.AddTextureLayerPort( oPhong.Parameters( "diffuse" ) )

set oDispl = oShared.AddTextureLayerPort( oMat.Parameters( "displacement" ) )

' Now let's explore what we have created...

DumpTextureLayerContainer oMat

sub DumpTextureLayerContainer( in_cont )

	LogMessage "CONTAINER: " & in_cont.Name

	i = 1

	for each oTextureLayer in in_cont.TextureLayers

		DumpTextureLayer oTextureLayer, i

		i = i + 1

	next

end sub

sub DumpTextureLayer( in_layer, in_index )

	LogMessage "   Layer " & in_index & ": " & in_layer.Name

	set oColor = in_layer.Parameters("Color")

	if TypeName( oColor ) = "Nothing" then

		LogMessage "     Color: (" & in_layer.Red.Value & _

						"," & in_layer.Green.Value & _

						"," & in_layer.Blue.Value & ")"

	else

		set oColorSrc = in_layer.Color.Source

		LogMessage "     Color driven by: " & oColorSrc.Name

	end if

	set oPorts = in_layer.TextureLayerPorts

	count = oPorts.Count

	if count = 0 then

		LogMessage "     <layer driving no ports>"

	else

		LogMessage "     Layer drives:"

		for i = 0 to count - 1

			LogMessage "       " & oPorts(i).Target.FullName

		next				

	end if

end sub

' This example should log something like:

'INFO : CONTAINER: Material

'INFO :    Layer 1: SharedLayer

'INFO :      Color driven by: Fractal

'INFO :      Layer drives:

'INFO :        sphere.Material.Phong.diffuse

'INFO :        sphere.Material.Color2scalar.input

'INFO :    Layer 2: Rough

'INFO :      Color: (0.7,0.7,0.7)

'INFO :      <layer driving no ports>