//---Reduce_Maker---
//---Machinery Contents---
//---Create by Praying Spider--- 
//---Release 2008/05/03----
//---Optimization Fales----

global proc reduceMakerWindow()
{
	int $wide1;
		$wide1 = 40;
	int $wide2;
		$wide2 = 35;
	int $wide3;
		$wide3 = 160;

	if(`window -q -ex reduceMakerWindow`){deleteUI reduceMakerWindow;}
	window -rtf true -t "Reduce Maker" reduceMakerWindow;

	columnLayout p_CL1;
		text -w 240 -label "Reduse Maker" -align "left" -font "smallBoldLabelFont" -backgroundColor 0.6 0.6 0.7;
		separator -width 240  -height 1;
	        radioCollection p_RC1;

		rowLayout -numberOfColumns 2 -columnWidth2 80 80 p_RL1;
		        radioButton -label "Step1" -select step1;
			checkBox -label "Non Before Triangulate" p_CH1;
		setParent..;

	        radioButton -label "Step2" step2;
	        radioButton -label "Step3" step3;

		intSliderGrp 
			-label "Level" 
			-cw3 $wide1 $wide2 $wide3  
			-step 1 -min 1 -max 50 
			-value 1 
			-adj 3 
			-field true 
			reduceMater;

		separator -width 240  -height 4 -st "double";
		rowLayout -numberOfColumns 2 -columnWidth2 115 115;
		        button -w 115 -h 20 -label "OK" -command "reduceAction()";
		        button -w 115 -h 20 -label "Close" -command "deleteUI reduceMakerWindow";
		setParent..;

	setParent..;

	showWindow  reduceMakerWindow;
	window -e -wh 240 140 reduceMakerWindow;
}
reduceMakerWindow();

global proc reduceAction()
{
	string $SelObj[] = `ls -sl`;
	string $radioSel;
	string $checkSet1;
	string $radioSel;
	int $setPal1;
	int $setPal2;
	int $setPal3;
	int $i;

	$radioSel = `radioCollection -q -select p_RC1`;
	$setPal3 = `intSliderGrp -q -value reduceMater`;

	if($radioSel == "step1")
	{
		$setPal1 = 1;
	}
	else if($radioSel == "step2")
	{
		$setPal1 = 2;
	}
	else if($radioSel == "step3")
	{
		$setPal1 = 3;
	}

	if(`checkBox -q -value ("reduceMakerWindow" + "|p_CL1|p_RL1|p_CH1")`)
	{
		$setPal2 = 0;
	}
	else
	{
		$setPal2 = 1;
	}

	for($i = 1; $i <= $setPal3; $i++)
	{
		polyReduce -percentage $setPal1 -uvWeights 1 -colorWeights 0 -keepBorder 0 -keepMapBorder 1 -keepHardEdge 0 -compactness 0 -triangulate $setPal2 -replaceOriginal 1 -ch 1 $SelObj[0];
		select -r $SelObj[1] ;
		select -tgl $SelObj[0] ;
		transferAttributes -transferPositions 1 -transferNormals 1 -transferUVs 2 -transferColors 2 -sampleSpace 0 -sourceUvSpace map1 -targetUvSpace map1 -flipUVs 0 -colorBorders 0 ;
	}
	select -r $SelObj[0] ;
	select -add $SelObj[1] ;
}