my $foot = "gnome-2-foot.png";
my $dir = "throbber-2";
my $shadow = 
  sub {
    my ($n) = @_;
    return (15 * $n) % 90;
  };

foreach my $n (1 .. 6) {
  print "making 00$n from shadow-" .
    $shadow->($n) . "deg.png\n";
  system("composite",
	 $foot,
	"shadow-".$shadow->($n)."deg.png",
	 "$dir/00$n.png");
}

system("cp", "$dir/006.png", "$dir/rest.png");