#!/usr/bin/perl
# Time-stamp: "1998-08-23 23:17:29 MDT sburke@alf8.speech.cs.cmu.edu"
use MIDI;

die "No filename" unless @ARGV;
die "$ARGV[0] doesn't exist" unless -e $ARGV[0];
$opus = MIDI::Opus->new({'from_file' => $ARGV[0]});
$gif_out = $ARGV[1] || "out.gif";

$im = $opus->draw;

open(OUT, ">$gif_out"); binmode(OUT);
print OUT $im->gif;
close(OUT);
#printf "%s bytes in %s\n", -s $gif_out, $gif_out;
exit;

__END__