----------------------------------------------------------------------------------
--Quick Mask Object 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 the selected object.
--Proposed Functionality:
--
----------------------------------------------------------------------------------

macroScript Quick_Mask_Object category:"Dusk" tooltip: "Quick Mask Object" 
icon:#("Uniform",3)
(
holdmaxfile()
--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

--Convert scene to new materials--
if $ != undefined then $.material = white_mat
max select invert
if $ != undefined then $.material = black_mat

--Set BG colour---
useEnvironmentmap = off
backgroundColor = color 0 0 0
--~Render--
renderers.current = Default_Scanline_Renderer()
render()
fetchmaxfile quiet:on
gc()
)