Plotting a circle in .mel
May 4th, 2008
I am trying to refresh my geometry knowledge… So I decided to start by making a script to generate a polygon circle.
global proc makePolyCircle()
{
//Tweakables
int $points = 20;
float $radius = 1;
float $xOrigin = 0;
float $zOrigin = 0;
//
float $increment = (360/$points);
float $step;
string $cmd = “polyCreateFacet -ch on -tx 1 -s 1 “;
for ($i = 0; ($points+1) > $i; ++$i)
{
$step = $increment * $i;
$step = `deg_to_rad $step`;
float $xPos = ($xOrigin + ($radius * `cos $step`));
float $zPos = ($zOrigin + ($radius * `sin $step`));
$cmd = ($cmd + ” -p ” + $xPos + ” 0 ” + $zPos);
}
eval $cmd;
}