'/// TogglePass 1.0 for XSI 3.5+
'/// By Homam Bahnassi - In|Framez 2004
'--------------------------------------

set oSelection = Application.Selection
set oSelected = oSelection(0)

TogglePass oSelected

function TogglePass(oPass)
	TogglePass = False
	if typename(oPass) <> "Pass" then
		logmessage "TogglePass: Select single pass..."
		exit function
	end if

	Set oRenderOptions = GetValue( oPass & ".RenderOptions" )
	iStartFrame = oRenderOptions.StartFrame.value
	iEndFrame = oRenderOptions.EndFrame.value
	
	SetCurrentPass oPass
	SetValue "PlayControl.In", iStartFrame
	SetValue "PlayControl.Out", iEndFrame
	logmessage "TogglePass: " & oPass.Name & " is set as current pass"
	logmessage "TogglePass: " & "Timeline start is set to " & iStartFrame
	logmessage "TogglePass: " & "Timeline end is set to " & iEndFrame
	TogglePass = True
end function