' Create a sphere, add a default material and texture projection

NewScene , false

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

ApplyShader , , , , siLetLocalMaterialsOverlap

CreateProjection oSphere, siTxtPlanarXY, siTxtDefaultSpherical, "Texture_Support", "Texture_Projection"

' Add a new layer with an image shader

Dim oLayer

set oLayer = AddPresetTextureLayer("Image", oSphere.material & ".Phong")

logmessage "Created Layer " & oLayer

' Add the diffuse port to the layer

AddTextureLayerPorts oLayer, oSphere.material & ".Phong.diffuse"

' Add a layer with a cell shader

set oLayer = AddPresetTextureLayer("Cell", oSphere.material & ".Phong")

logmessage "Created Layer " & oLayer

' Make the cell shader's effect more pronounced

SetValue oLayer & ".weight", 1

' Add the ambient port to the layer

AddTextureLayerPorts oLayer, oSphere.material & ".Phong.ambient"

'-------------------------

' Output of script:

'

'INFO : "Created Layer Sources.DefaultLib.Material.Phong.Image_Layer"

'INFO : "Created Layer Sources.DefaultLib.Material.Phong.Cell_Layer"

'

' If you open the texture layer editor, you will find there are two layers, an Image layer

' affecting the diffuse component and a Cell shader affecting the ambient component.

' Rendering the sphere will give the sphere with an image, with a cell pattern on top.

'-------------------------