#!/usr/local/bin/perl
## Time-stamp: "1998-08-23 23:21:06 MDT sburke@alf8.speech.cs.cmu.edu" ##
# Try writing raw MIDI data to /dev/midi, or to a file specified as $ARGV[0]

use MIDI;
$chimes_r = [ ['patch_change', 0, 1, 8],
map( (['note_on',0,1,$_->[0],96], ['note_off',$_->[1],1,$_->[0],0]),
     [25,96],[29,96],[27,96],[20,192],[25,96],[27,96],[29,96],[25,192],
   ) ];
$out = $ARGV[0] || "/dev/midi";
open(MOUT, ">$out") || die "Can't open $out : $!";
$data_r = MIDI::Event::encode($chimes_r, {'never_add_eot' => 1});
print MOUT $$data_r;
close(MOUT);
exit;

__END__