#!/usr/bin/perl
#
# Programmer:    Craig Stuart Sapp <craig.stanford.edu>
# Creation Date: Thu Dec  9 16:13:55 PST 2010
# Last Modified: Thu Dec  9 16:13:55 PST 2010
# Filename:      /tmp/corellipages/concerto/op6n01/editions/temp10/score/mpg2ps
# Syntax:        perl 5
#
# Description:   Convert MPG (MuseData Music PaGe Files) into PostScript
# 		 files using muse2ps.
#

use strict;
my $tag;

foreach $tag (@ARGV) {
   `cat $tag/$tag.ps | musefoot -f $tag/work.fot > $tag.ps`;
   `ps2pdf $tag.ps`;
   print "$tag is done\n";
}