Mirror shave mel

/*
*
*   Problem:mirrored shave shorter than original
*
*
*   Create: Dec 22 2009
*   Last Modify:
*
*/


proc shaveMirrorWin()
{ 
    if(`window -exists mainWindow` == true)
        deleteUI mainWindow;
    window
            -sizeable true
            -minimizeButton true
            -maximizeButton false
            -menuBarVisible false
            -widthHeight 200 300
            -title "Mirror Shave"
            mainWindow;

    string $coLayout1 = `columnLayout -columnAttach "both" 5 -rowSpacing 5 -columnWidth 250`;

            textScrollList -height 40 -width 150 textScroll_01;
           
            string $rowLayout1 = `rowLayout -numberOfColumns 2 -columnWidth2 120 120 -columnAlign 1 "center" -columnAlign 2 "center"-columnAttach 1 "both" 0 -columnAttach 2 "both" 0`;

                    string $loadButton = `button -height 28 -label "Load Shave" -width 120 -c "listShave" `;
                   
                    string $convertButton = `button -height 28 -label "ConvertCurve" -width 120 -c "convertCurve" `;

            setParent..;

            string $sep1 = `separator -height 10 -style "in"`;

            string $coLayout2 = `columnLayout -columnAttach "both" 3 -rowSpacing 3 -columnWidth 240`;
                  
                    intSliderGrp
                            -label "CombNum"
                            -field true
                            -cw3 58 22 40
                            -minValue 0 -maxValue 10
                            -fieldMinValue 0 -fieldMaxValue 10
                            -value 0
                            -cl3 "center" "center" "center"
                            reduce_Percentum;

                    string $reduceButton = `button -height 28 -label "Reduce" -width 150 -c "combNumReduce"`;

            setParent..;

            string $sep2 = `separator -height 10 -style "in"`;

            string $coLayout3 = `columnLayout -columnAttach "both" 5 -rowSpacing 5 -columnWidth 240`;

                    radioButtonGrp
                            -numberOfRadioButtons 3
                            -cw 1 90
                            -cw 2 90
                            -cw 3 60
                            -labelArray3 "+X" "+Y" "+Z"
                            -select 1
                            mirrorAxisRadioButton;

                    $mirButton = `button -height 28 -label "Mirror" -width 150 -c mirrorShave`;

            setParent..;

showWindow;
}


proc listShave()
{

    string $selObj[] = `ls -sl -fl`;
    textScrollList -e -ra textScroll_01;
    textScrollList -e -a $selObj[0] textScroll_01;

}

proc convertCurve()
{
    string $shaveList[] = `textScrollList -q -si textScroll_01`;  
    select $shaveList;
    shaveCreateCurvesFromHairs;
}

proc combNumReduce()
{
    int $percentumNum = `intSliderGrp -q -value reduce_Percentum`;

    $shaveCrvGrp1 = `ls -sl`;

    for($i=0; $i<$percentumNum; $i++)
    {
        string $sel[] = `filterExpand -sm 9`;   
        for($k=0; $k<size($sel); $k++)   
        {
            if($k%2 == 0)
            {
                delete $sel[$k];
            }
        }
    }

}

proc mirrorShave()
{
    string $selFaces[] = `filterExpand -sm 34`;
    if(size($selFaces) == 0)
        error "You Must Select Faces First!"; 

    string $shaveList[] = `textScrollList -q -si textScroll_01`;
    select $shaveList[0];     
    string $shaveShpNod[] = `ls -sl -dag -s`;   

    select $selFaces;
    shaveCreateHairCopy($shaveShpNod[0]);

    string $newShav[] = `ls -sl`;

    int $r = `radioButtonGrp -q -select mirrorAxisRadioButton`;

    string $mirrorDirection;
    switch($r)
    {
        case 1:
            $mirrorDirection = "shaveCurveGroup1.scaleX";
            break;
        case 2:
            $mirrorDirection = "shaveCurveGroup1.scaleY";
            break;        
        case 3:
            $mirrorDirection = "shaveCurveGroup1.scaleZ";
            break;
    } 
  
    string $scalComd = "setAttr " + $mirrorDirection + " -1";
    eval($scalComd);
    select shaveCurveGroup1;
    FreezeTransformations;
   
    select $newShav[0] shaveCurveGroup1;
    shaveCombFromCurves;
    select shaveCurveGroup1;
    delete;
}

shaveMirrorWin;