/*
*************************************************************
* Scene Radiosity Converter									*
* Design and Code By Fred Moreau							*
* VELOCE Interactive										*
* All Right Reserved										*
* http://www.fredmoreau.net									*
* http://www.veloceinteractive.com							*
* Version V1.01 for 3dsmax 7.5 and 3dsmax 8.0				*
*************************************************************
* MODIFY THIS AT YOUR OWN RISK								*
*************************************************************
*/

macroScript radiosityMesh_convert
enabledIn:#("max", "viz")
            ButtonText:"ConvertRadMesh"
            category:"VELOCE"
            Tooltip:"ConvertRadiosityMesh"
(
	sceneRad = sceneRadiosity
	
	if (sceneRad.radiosity != undefined) and (sceneRad.radiosity.srrRadiosityMesh.doesSolutionExist()) then
	(
		if selection.count == 0 then messageBox "Select Objects to Bake Radiosity for"
		else
		(
			if queryBox "Delete Original Objects?" then deleteOriginal = true else deleteOriginal = false
		)
				
		for o in selection do
		(
			if (sceneRad.radiosity.srrRadiosityMesh.doesMeshExist o) then
			(
				radMesh = sceneRad.radiosity.srrRadiosityMesh.getMesh o
				radMesh2 = mesh mesh:radMesh name:(o.name + "_radiosity")
				radMesh2.showVertexColors = on
				
				case units.SystemType of
				(
					#Inches : scale radMesh2 ([0.0254,0.0254,0.0254]/units.SystemScale)
					#Feet : scale radMesh2 ([0.3048,0.3048,0.3048]/units.SystemScale)
					#Miles : scale radMesh2 ([1609.344,1609.344,1609.344]/units.SystemScale)
					#Millimeters : scale radMesh2 ([1000,1000,1000]/units.SystemScale)
					#Centimeters : scale radMesh2 ([100,100,100]/units.SystemScale)
					#Meters : scale radMesh2 ([1,1,1]/units.SystemScale)
					#Kilometers : scale radMesh2 ([0.1,0.1,0.1]/units.SystemScale)
				)
				resetScale radMesh2
				radMesh2.center = o.center
				radMesh2.pivot = o.pivot	
				
				if deleteOriginal then delete o
			)
		)
	)
	else messageBox "No Radiosity Solution Found"
)