8 my ($file, $delta, $program, $velocity, $transpose, @notes) = @ARGV;
10 my $track = MIDI::Track->new();
12 $track->new_event('set_tempo', 0, $delta * 1000000);
13 $track->new_event('patch_change', 0, 0, $program - 1);
16 $track->new_event('note_on', 96, 0, $transpose + $_, $velocity);
17 $track->new_event('note_off', 96, 0, $transpose + $_, $velocity);
20 my $opus = MIDI::Opus->new({
26 $opus->write_to_file($file);