Top

perlで音楽‐試聴室

---

　ドラムを演奏するには、２種類以上の楽器を同時に演奏するようになる。midiファイルの構造は知らない。それで、finale notePadで2種類の楽器で楽譜を作り、midiファイルをテキストに変換して、midiファイルの構造を確認したりして、複数のトラックに楽譜を書き込む方法を試してみた。試行錯誤の末、うまくいったのが、次のスクリプトです。

1. use MIDI;
2. use strict;
3. use warnings;
5. my @events = (
6.   ['text_event',0, 'MORE COWBELL'],
7.   ['set_tempo', 0, 450_000], # 1qn = .45 seconds
8. );
10. for (1..4){
11.   push @events,
12.   ['note_on' ,  0, 9, 36, 127],
13.   ['note_off', 96, 9, 36, 127],;
14. }
16. for (1..3){
17.   push @events,
18.   ['note_on' ,  0, 9, 42, 127],
19.   ['note_off', 96, 9, 42, 127],;
20. }
21. for (1..2){
22.   push @events,
23.   ['note_on' ,  0, 9, 36, 127],
24.   ['note_off', 96, 9, 36, 127],
25.   ['note_on' ,  0, 9, 42, 127],
26.   ['note_off', 96, 9, 42, 127],;
27. }
29. my $drum = MIDI::Track->new({ 'events' => \@events });
31. my @events2 = (
32.   ['note_on' , 288, 9, 49, 127],
33.   ['note_off',  96, 9, 49, 127],
34.   ['note_on' , 480, 9, 49, 127],
35.   ['note_off',  96, 9, 49, 127],
36.   ['note_on' ,  96, 9, 49, 127],
37.   ['note_off',  96, 9, 49, 127],);
39. my $drum2 = MIDI::Track->new({ 'events' => \@events2 });
41. my $opus = MIDI::Opus->new({ 'format' => 0,
42.   'ticks' => 96, 'tracks' => [ $drum, $drum2 ] } );
44. $opus->write_to_file( "drum.mid" );

　2種の配列に、それぞれの楽器の音符を書き込み、それらの音符をはじめ、第一の配列からmidiファイルに書き込み、次に第二の配列を書き込むで2つのトラックができる。

　作成された曲の楽譜。
　
　曲を鳴らしてみます。　drum-曲停止

１）ドラム、スネアドラム、タム音を連続して鳴らします。


２）ハット、シンバル、ベル音を連続して鳴らします。


３）その他のdrum sound (60-79)が出ます。


４）Bass drum、Side stick、Acoustic Snare、Low Floor Tom、High Tom、Closed High-Hat、Open High-Hat、Crash Symbal 1、Ride Symbal-2の9音を順番に２音ずつ交互に組合わせて鳴らします。

楽譜です。