''  This file downloaded from www.EdHarriss.com
''  
''  www.EdHarriss.com File Information:
''  
''    Script Name: layers2passes.vbs
''    Author: Gerardo Alvarez
''    Update/Change this file at by sending e-mail to EdHarriss@EdHarriss.com
''


set LayeList = GetValue ("Layers.List")
for each Laye in LayeList
	If (GetValue (Laye&".rendvis") <> 0) Then
		LayeSin = Mid(Laye,8) ' Removes the text "Layers_" from the new pass name.
	CreatePassWithPartition Pass, LayeSin&"_Pass", LayeSin&"_Part", Laye 
	SetValue "Passes."&LayeSin&"_Pass"&"."&LayeSin&"_Part.rendvis", 1
	SetValue "Passes."&LayeSin&"_Pass"&".Background_Objects_Partition.rendvis", 0
	SetValue "Passes."&LayeSin&"_Pass"&".Background_Objects_Partition.visibility.rendvis", 0
	End If
next