--- frames.pl	2007/07/19 20:17:06	2
+++ frames.pl	2007/07/20 16:02:14	10
@@ -11,8 +11,11 @@
 
 my $tmp = '/tmp/frames';
 my $out = '/tmp/frames.avi';
-my $jpeg_q = 10;
+my $jpeg_q = 100;
+my $repeat = 16;
+$repeat = 1; # off
 
+rmtree $tmp if -e $tmp;
 mkpath $tmp || die "can't create $tmp: $!";
 
 my $im = new GD::Image( 160, 120 );
@@ -45,7 +48,7 @@
 my $frame = 1;
 
 foreach my $c ( @cols ) {
-	foreach ( 1 .. 16 ) {
+	foreach ( 1 .. $repeat ) {
 		$im->fill(50,50, col($c) );
 		warn "frame $frame\n";
 		my $path = sprintf('%s/%03d.jpg', $tmp, $frame++);
@@ -59,3 +62,5 @@
 	die "encoding failed: $?";
 
 rmdir $tmp || die "can't remove $tmp: $!";
+
+warn "created $out ", -s $out, " bytes\n";