global proc circleSphere2(float $rad, int $num)
{
int $i;
int $j;
float $r = 0.0;
float $add = 360.0 / $num;
for($i = 0; $i < $num; $i++)
{
for($j = 0; $j < 3; $j++)
{
sphere;
move ($rad+2*$j) 0 0;
rotate -ws -p 0 0 0 0 $r 0;
}
$r += $add;
}
}
circleSphere2(5.0, 6);