#!/usr/bin/perl
# 
# Usage: perl makempeg.pl mpegfile imageseq 
#
# 



($mpegfile,@imagefiles) = @ARGV;

for ($i = 0; $i < $#ARGV; $i++)
{
#  print $imagefile, "\n";
  $noext = $imagefiles[$i];
  $noext =~ s/\.[a-zA-Z0-9]+$//;
  $yuvfiles[$i] = $noext.".ppm";
  $cmd = "convert ".$imagefiles[$i]." ".$yuvfiles[$i];
  print "$cmd\n";
  system ($cmd);
}