'
' This example demonstrates how to apply different kinds of shaders
' to scene objects. It also shows how you can set individual values
' on your shader material once it is applied.
'
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
' has a magenta color)
RenderPasses oDefPass, 1, 1
' Create a default light and apply a preset shader to it
Set oLight = GetPrimLight()
Translate oLight, 8, 3.0, 3, siAbsolute, siView, siObj, siXYZ
ApplyShader "Light\Fast_light_effects", oLight
' View the results in a rendered frame. (You can see the sphere
' now has the default texture wrapped around it)
RenderPasses oDefPass, 1, 1
' Create a cube
Set oCube = CreatePrim( "Cube", "MeshSurface" )
Scale oCube, 0.3, 0.3, 0.3, siAbsolute, siParent, siObj, siXYZ
Translate oCube, 3.5, -2.5, 4, siAbsolute, siView, siObj, siXYZ
' Add the cube to a new layer 
CreateLayer , "CubeLayer", oCube, oLayer
' Apply a shader to the layer and tweak its values
ApplyShader "Illumination\Blinn_shading", oLayer
Set oBlinn = oLayer.Material.Shaders( "Blinn_shading" )
oBlinn.ambient.Parameters( "green").Value = 0.9
' View the results in a rendered frame. (Now there is a small
' cube next to the sphere and on its top the sphere's texture 
' is reflected)
RenderPasses oDefPass, 1, 1