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);
17 $track->new_event('note_on', $first ? 0 : 96, 0, $transpose + $_, $velocity);
18 $track->new_event('note_off', 96, 0, $transpose + $_, $velocity);
22 my $opus = MIDI::Opus->new({
28 $opus->write_to_file($file);