/* array_2.txt */

point3 $locs[9], $loc;
int $i, $j;
shape $myshape;

for $i = 0 to 2 do
    for $j = 0 to 2 do
        $locs[$i*3 + $j] = (($i - 1)*20, ($j - 1)*20, 0);

$locs.size = 4;
for $i = 0 to $locs.size - 1 do {
    $myshape = sphere(10);
    $myshape.loc = $locs[$i];
}

for $i = 0 to 3 do
    $locs.push(($i*20, 30, 0));

for $i = 0 to $locs.size - 1 do {
    $myshape = sphere(5);
    $locs[$i].y = $locs[$i].y + 9;
    $myshape.loc = $locs[$i] + (7, 2, 0);
}

while ($locs.size) {
    $loc = $locs.pop();
    $myshape = sphere(3);
    $myshape.loc = $loc + (5, 4, 3);
}

$myshape = sphere($locs.size + 1);