球を半径$rad
の円上に$frame
だけアニメーションさせるMELスクリプト。
global proc circleMove(float $rad, int $frame)
{
float $x, $z;
float $r;
float $add;
float $rr = 2 * 3.1415;
sphere;
$add = $rr / $frame;
for($i = 1, $r = 0.0; $r < $rr; $r += $add, $i ++)
{
$x = $rad * cos($r);
$z = $rad * sin($r);
currentTime $i;
move $x 0.0 $z;
setKeyframe;
}
}
Script Editor から読み込む、 またはディレクトリにコピーしておく方法 で実行させ play させると球が回転する。