#!/usr/bin/perl

my $PDFopts = "-sPAPERSIZE=letter -dCompatibilityLevel=1.4 -dPDFSETTINGS=/prepress";

my $mpgdata;
foreach $tag (@ARGV) {
   $mpgdata .= " $tag/editions/temp10/score/*.mpg";
}

print "DATA = $mpgdata\n";

`./mpg2ps $mpgdata | musefoot -f work.fot > corelli-op3.ps`;
`ps2pdf $PDFopts corelli-op3.ps`;