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 -…