'

'	This example demonstrates how to get an object pointer to 

'	the current pass. It also shows how to get a collection of

'	all passes in the scene.

'

' Create a new scene 

NewScene , false

' Create a few dummy passes to play with

CreatePass , "Sneezy"

CreatePass , "Grumpy"

CreatePass , "Wimpy"

' Which one is the current pass and what type of object is it?

Set oPass = GetCurrentPass 

Application.LogMessage oPass.Name & " (a " & TypeName( oPass ) & ") is one of the following passes:"

' Get the collection of all passes in the scene

Set oPassList = CreateObject( "XSI.Collection" )

oPassList.SetAsText "Passes.*"

' Loop through the collection, printing out the names of the passes

' Note that the final member is the default pass

For i = 0 To oPassList.Count - 1

	Application.LogMessage oPassList(i).Name & " (a " _

		& TypeName( oPassList(i) ) & ")"

Next

' Output of above script:

'INFO : "Wimpy (a Pass) is one of the following passes:"

'INFO : "List (a Parameter)"

'INFO : "Default_Pass (a Pass)"

'INFO : "Sneezy (a Pass)"

'INFO : "Grumpy (a Pass)"

'INFO : "Wimpy (a Pass)"

'INFO : "Wimpy (a Pass)"