----------------------------------------------------------------------------------
--Quick Mask Material script
--(C) Sam O'Hare, Uniform Communications Ltd, March 2005
--Email sam.ohare@pixelpollen.com
--Version 0.2
--Current Functionality
--Quickly and dirtily give you a black and white mask from a material selection
--Proposed Functionality:
--
----------------------------------------------------------------------------------

macroScript Quick_Mask_Material category:"Dusk" tooltip: "Quick Mask Material" 
icon:#("Uniform",2)
(
	
	--Materials------------------------
	black_mat = standardMaterial()
	black_mat.diffusecolor = [0,0,0]
	black_mat.selfIllumAmount = 100
	
	white_mat = standardMaterial()
	white_mat.diffusecolor = [255,255,255]
	white_mat.selfIllumAmount = 100
	white_mat.name = "whitemaskmat"
	
	--Interface-------------------------
	rollout QMM "Quick Mask Material"
	(
		spinner mslot "Medit Slot:" range:[1,24,1] type:#integer
		spinner subobj "Sub Object:" range:[0,999,0] type:#integer
		button mask "Mask"
		
		on mask pressed do
		(
			holdmaxfile()
			--Convert scene to new materials--
			for i in geometry where i.material == undefined do i.material = black_mat
			if subobj.value == 0 then replaceInstances meditmaterials[mslot.value] white_mat else
			(
				replaceInstances meditmaterials[mslot.value].materialList[subobj.value] white_mat
				for i in meditmaterials[mslot.value] where i.name != "whitemaskmat" do replaceInstances i black_mat
				meditmaterials[mslot.value].name = "multimask"
			)
			--print chosen_mat
		--	replaceInstances chosen_mat white_mat	
			for i in scenematerials where i.name != "whitemaskmat" and i.name != "multimask" do replaceInstances i black_mat
			
			--Set Background to black--
			useEnvironmentmap = off
			backgroundColor = color 0 0 0
			--Render--
			renderers.current = Default_Scanline_Renderer()
			render()
			fetchmaxfile quiet:on
			gc()
		)
	)
	createdialog QMM 150 75
)