' 

' This example demonstrates how to create and access scene passes

' 

NewScene , false

' First create some extra passes

Dim oPassContainer

set oPassContainer = ActiveProject.ActiveScene.PassContainer

oPassContainer.AddPass "Caustic_Pass", "TestPass1"

oPassContainer.AddPass "Lens_Flare_Pass", "TestPass2"

set oPasses = oPassContainer.Passes

for each oPass in oPasses

	Application.LogMessage oPass

next

' Expected result:

' INFO : Passes.RenderOptions

' INFO : Passes.HardwareRenderer

' INFO : Passes.mentalray