random

대상을 모두 선택하고 여러번 실행하면 3가지 성분으로 점차 변환됨

global proc random()
{
string $capSel[] = `ls -sl`;
string $sep;

float $txv,$tyv,$tzv;
float $rxv,$ryv,$rzv;
float $sxv,$syv,$szv;

for ($sep in $capSel){

//translate
$txv = rand(-.012,.012);
$tyv = rand(-.011,.011);
$tzv = rand(-.012,.012);

//rotate
//$rxv = rand(-12,12);
//$ryv = rand(-11,.11);
$rzv = rand(-120,120);

//scale
$sxv = rand(.95, 1.05
$syv = rand(.95, 1.05);
$szv = rand(.95, 1.05);

//action

rotate -r -ws $rxv $ryv $rzv $sep;
move -r -os -wd $txv $tyv $tzv $sep;
scale -r $sxv $syv $szv $sep;
}
}
random;