Cl_pyramid_UI2.mel

[index]

11th April 2009   2:22am 12sec
C:\Work\vsfx705\mel\Cl_pyramid_UI2.mel

PYRAMID UI 2

//DECLARE Global NAMES//
  
global string $Xslider ;
global string $Yslider ;
global string $Zslider ;
global string $Sslider ;
global string $dupXslider ;
global string $dupZslider ;
  
//END of Global Declaration//
  
//-___________---------------------________________--------------------------
  
  
//----------------------------------------------------------//
//INTERFACE//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$//
global proc LeongPyramid_UI()
{
global string $wn;
global string $Xslider ;
global string $Yslider ;
global string $Zslider ;
global string $Sslider ;
global string $dupXslider ;
global string $dupZslider ;
  
//avoid duplicate window
if(`window -exists $wn`)
    deleteUI $wn;
  
//UI window
$wn =`window -title "leong Pyramid generator"  -h 400 -w 400` ;
  
columnLayout -columnAttach "both" 5 -rowSpacing 10 -columnWidth 400;
//for defining size of pyramid//
//units//
  
  
  
//X-axis//
$Xslider = 
`intSliderGrp     -min 0 -max 10
                    -value 5
                    -field true
                    -label "Units in X-axis"`;
                
//Y-axis//
$Yslider = 
`intSliderGrp     -min 0 -max 10
                    -value 5
                    -field true
                    -label "Units in Y-axis"`;
//Z-axis//
$Zslider = 
`intSliderGrp     -min 0 -max 10
                    -value 5
                    -field true
                    -label "Units in X-axis"`;
//create Pyramid//
button -label "Make Pyramid" -command "solver()";
button -label "Grp Pyramids" -command "makePyr1()";
button -label "Delete Pyramid" -command "deletestuff()";
  
  
//limit number iof selection//
  
$Sslider = `intSliderGrp     -min 0 -max 50
                            -value 10
                            -field true
                            -label "limit selection"`;
button -label "Random Select" -command "randomSelect()";
button -label "hypershade window" -command "shading()";
  
  
//-------------------------
  
//dupY-axis//
$dupXslider = 
`intSliderGrp         
                    -min 0 -max 10
                    -value 5
                    -field true
                    -label "Units in dupX-axis"`;
//dupZ-axis//
$dupZslider = 
`intSliderGrp     
                    -min 0 -max 10
                    -value 5
                    -field true
                    -label "Units in dupZ-axis"`;
  
  
button -label "Collapse" -command "Punite()";
button -label "Mass Scatter" -command " Dup_Pyr()";
button -label "delete Scatter" -command "delete2()";
button -label "Delete Pyramid" -command "deletestuff()";
button -label "Floor Plane" -command "Plane()";
 
  
showWindow;
}
  
source "C:/Work/vsfx705/mel/Cl_pyramid_03.mel";
  
LeongPyramid_UI();