#!/usr/bin/perl

$time = $ARGV[1];

for $i (1..$ARGV[0]){
	sleep($time) if $time;
	print("click! ($i)\n");
	`/bb/qcam-0.3/qcam | /bb/mpeg/pgmtoppm rgb:f/f/f > /tmp/movie/img.$i.pnm`;
}
$pfile = "/tmp/mpegencode.param";
unlink($pfile);
open(PARAMFILE, ">$pfile");

print PARAMFILE <<EOP;
PATTERN I
OUTPUT test.mpg
INPUT_DIR /tmp/movie
INPUT
img.*.pnm [1-$ARGV[0]]
END_INPUT
BASE_FILE_FORMAT PNM

GOP_SIZE 2
PIXEL HALF
PQSCALE 1
RANGE 3
PSEARCH_ALG SUBSAMPLE
IQSCALE 1
INPUT_CONVERT *
BQSCALE 1
SLICES_PER_FRAME 1
BSEARCH_ALG SIMPLE
REFERENCE_FRAME ORIGINAL
EOP

close(PARAMFILE);

print("Encoding movie...\n");
`/bb/mpeg/mpeg_encode $pfile`;
print("Playing movie\n");
`/bb/mpeg/mpeg_play -framerate 3 test.mpg`;