dim oRoot, oMat, oGrid, oPhong, oShader

NewScene ,false

' Create a grid

set oRoot = ActiveProject.ActiveScene.Root

set oGrid = oRoot.AddGeometry("Grid", "MeshSurface")

SelectObj "grid"

' Create a local material with a Phong surface shader 

ApplyShader "Phong", oGrid, , , siLetLocalMaterialsOverlap

set oMat = oGrid.Material

set oPhong = oMat.Shaders(0)

' Apply two shaders, but with the Rock shader attached on two ports

SIApplyShaderToCnxPoint "Cell", oPhong & ".ambient"

SIApplyShaderToCnxPoint "Rock", oPhong & ".diffuse," & oPhong & ".specular"

' Enumerate the shaders of Phong: Note the rock shader only appears once even though connected twice.

LogMessage "root shader: " & oPhong.FullName

for each oShader in oPhong.Shaders

		Logmessage "shader of Shaders: " & oShader.FullName

Next