'
' This example demonstrates how to replace one shader with another one
' on scene objects. It also shows how you can use the scripting
' equivalent of Drag & Drop (CreateShaderFromPreset) which is required 
' by the ReplaceShader command.
'
NewScene , false
' Get the default pass
Set oDefPass = GetValue( "Passes.Default_Pass" )
' Create a sphere and apply a default shader to it (since the sphere 
' is already selected we don't need to specify it as an input object)
Set oSphere = CreatePrim( "Sphere", "MeshSurface" )
ApplyShader
' Tweak the color values on the sphere's material using the Shader
' parameter shortcuts "diffuse" and "ambient"
Set oPhong = oSphere.Material.Shaders( "Phong" )
oPhong.diffuse.Parameters( "red" ).Value = 0.9
oPhong.diffuse.Parameters( "green" ).Value = 0.5
oPhong.ambient.Parameters( "green" ).Value = 0.7
' View the results in a rendered frame. (You can see the sphere now has the 
' default image wrapped around it with a specular highlight)
RenderPasses oDefPass, 1, 1
' Now, replace the Phong shader on the sphere by a Lambert preset shader which
' we access through the CreateShaderFromPreset command (the scripting equivalent 
' of Drag & Drop), which handily returns a pointer to the unconnected shader
set oLambert = CreateShaderFromPreset( "Shaders\Material\Lambert.Preset", _
        "Sources.Materials.DefaultLib.Material" )
oLambert.diffuse.Parameters( "red" ).Value = 0.9
oLambert.diffuse.Parameters( "green" ).Value = 0.5
oLambert.ambient.Parameters( "green" ).Value = 0.7
ReplaceShader "sphere.Material.Phong", oLambert 
' View the results in a rendered frame. (Now the image is still on the sphere, 
' but it appears with a matte surface and no specular highlight)
RenderPasses oDefPass, 1, 1