' 
' 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