'

' 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