MEL テクスチャマッピングの為のボタン集 昨日のMELを修正(最初10)

global proc B()
{
polyProjection -ch 1 -type Planar -ibd on -kir -md b;
float $aa = `textField -query -text AA`;
setAttr .projectionWidth $aa ;
setAttr .projectionHeight $aa ;
};

global proc X()
{
polyProjection -ch 1 -type Planar -ibd on -kir -md x;
float $aa = `textField -query -text AA`;
setAttr .projectionWidth $aa ;
setAttr .projectionHeight $aa ;
};

global proc Y()
{
polyProjection -ch 1 -type Planar -ibd on -kir -md y;
float $aa = `textField -query -text AA`;
setAttr .projectionWidth $aa ;
setAttr .projectionHeight $aa ;
};

global proc Z()
{
polyProjection -ch 1 -type Planar -ibd on -kir -md z;
float $aa = `textField -query -text AA`;
setAttr .projectionWidth $aa ;
setAttr .projectionHeight $aa ;
};

global proc ChannelInfo() {
if ((`window -ex ChannelInfo`) == true) deleteUI ChannelInfo;

window -width 80 -height 50 -title "Projection Map" -rtf 1 ChannelInfo;

columnLayout -adjustableColumn true;

separator;

rowColumnLayout -numberOfColumns 2 -columnAttach 1 "right" 0 -columnWidth 1 80 -columnWidth 2 50;
text -label "Projection Size" -align "left";
textField -editable true AA;
setParent..;
separator;

gridLayout -numberOfColumns 4 -cellWidth 50 -cellHeight 20;
button -label "Best" -command "B";
button -label "X" -command "X";
button -label "Y" -command "Y";
button -label "Z" -command "Z";
button -label "UV Edit" -command "TextureViewWindow;";
button -label "UVShell" -command "SelectUVShell;";
button -label "Move -1" -command "polyEditUV -u -1-v 0;";
checkBox -height 28 -label "Border" -offCommand "PolygonSelectionConstraints;polySelectConstraint -m 0;polySelectConstraint -w 0;rememberPolySelectConstraint; deleteUI polySelectionConstraintPanel1Window" -onCommand "PolygonSelectionConstraints;polySelectConstraint -m 1;polySelectConstraint -w 1;rememberPolySelectConstraint;deleteUI polySelectionConstraintPanel1Window;" -align "right";
setParent..;

showWindow ChannelInfo;

};
ChannelInfo;
textField -e -tx 10 AA;