perlでmidi

perlで音楽

　試行錯誤しています。音のファイルは、mp3に変換しています。

　ピアノの鍵盤。CSSで作成されます。鍵盤のクリックやキーボードで演奏が出来ます。

　なんでmidi-perl と思われそう。動画に音楽を付けたいと思い、曲を自作できればと思った。それでperlで楽譜が書けないかと「perl midi」で検索。midi-perlがあることが分かる。でも、midi-perlをインストールしないと「midi」用のperl scriptが動かない。それで、midi-perlをインストールする。

　コマンドプロンプトを開き、perlがインストールされている先頭のディレクトリーで、

ppm install MIDI-Perl

でMIDI-Perlがインストールされて、"use MIDI;"が使えるようになった。

　最近は、”StrawBerry Perl”を使用しています。それで、midi-perlのモジュールのインストールを試みたのですが、うまく行きません。それで、MIDI-Perl-0.83.tar.gzをダウンロードし、解凍後、perlがインストールされているperlデレクトリーの"lib"にMIDI.pmとMIDIデレクトリーを置いてみたら、MIDI-perlが動作しました。
　なお、perlの実行は、ローカルサーバーで行っています。

　インストールされたMIDI.pmを読み、記述してあるスクリプトファイルを実行してみた。

use MIDI::Simple;
new_score;
text_event ' comment';
text_event ' comment';
set_tempo 500000; # 1 qn =.5 seconds (500,000 microseconds)
patch_change 1, 8; # Patch 8 = Celesta
noop c1, f, o5; # Setup
# Now play
n qn, Cs; n F; n Ds; n hn, Gs_d1;
n qn, Cs; n Ds; n F; n hn, Cs;
n qn, F; n Cs; n Ds; n hn, Gs_d1;
n qn, Gs_d1; n Ds; n F; n hn, Cs;
write_score 'westmister_chimes.mid';
dump_score 'westmister_chimes.mid';

　。もしも、曲-1が鳴らない時は曲-2を押して下さい。。midファイルですので、Final Note Pad などの楽譜作成ソフトで作成された曲を確認、試聴できます。
スクリプトの説明
3、4行目、オリジナルとは異なるがここにコメントや著作権者名を記入できる。
5行目は演奏のテンポを指定する。ここでは、４分音符を0.5秒。
6行目のpatch_change 1, 8とあり、1は、チャンネル番号。次の8は音色の番号。8はCelestaを表す。音色は、128種類あり、16グループに分けられている。対応する楽器や実際の音などを音色の一覧を示した。

　8行目のnoopの次のc1はチャンネル番号が1を、次のfは音量を表す。値は1～127。音量は次のような記号が使用され、記号と音量の関係を次に示す。なお、数値で表す場合は、数値の前に大文字のVを付けて書く。

記号	音量	名称
ppp	1	pianississimo
pp	12	pianissimo
p	24	piano
mp	48	mezzopiano
m	64	mezzo/medio/meta/middle/whatever
mezzo	64
mf	80	mezzoforte
f	96	forte
ff	112	fortissimo
fff	127	fortississimo

　次のo5は、音階(octave)を表す。音階は0～10まである。
　次の10行目は、音符を表している。nは、note(音符)。qnは、四分音符を表す。
wn は全音符、hn は２分音符、en は８分音符、sn は16分音符である。d は府点。４分お音符を1とすると各記号の長さは、次のようになる。

記号	長さ	記号	長さ	記号	長さ	記号	長さ
wn	4	dwn	6	ddwn	7	twn	(8/3)
hn	2	dhn	3	ddhn	3.5	thn	(4/3)
qn	1	dqn	1.5	ddqn	1.75	tqn	(2/3)
en	.5	den	.75	dden	.875	ten	(1/3)
sn	.25	dsn	.375	ddsn	.4375	tsn	(1/6)

次のCs のCはドを、s はsharpを表す。音名は、C、D、E、F、G、A、Bで表され、Cはド、Dはレ、Eはミ、Fはﾌｧ、Gはソ、Aはラ、Ｂはシを表す。

音名記号	Ｃ	Ｄ	Ｅ	Ｆ	Ｇ	Ａ	Ｂ
音	ド	レ	ミ	ﾌｧ	ソ	ラ	シ

　音は、全部で128個あり、次のようになる。数値は、オクターブを表し、s はシャープ、ピアノで黒の鍵盤に対応。各音色で128種類の音を出すことはできるが、本物の楽器では出ない音やmidiで推薦されている音域があるようです。ボタンをクリックすると反応は鈍いですが音がでます。音はピアノです。なお、C0～B1、Cs9～G10までは省略。

C2	Cs2	D2	Ds2	E2	F2	Fs2	G2	Gs2	A2	As2	B2
C3	Cs3	D3	Ds3	E3	F3	Fs3	G3	Gs3	A3	As3	B3
C4	Cs4	D4	Ds4	E4	F4	Fs4	G4	Gs4	A4	As4	B4
C5	Cs5	D5	Ds5	E5	F5	Fs5	G5	Gs5	A5	As5	B5
C6	Cs6	D6	Ds6	E6	F6	Fs6	G6	Gs6	A6	As6	B6
C7	Cs7	D7	Ds7	E7	F7	Fs7	G7	Gs7	A7	As7	B7
C8	Cs8	D8	Ds8	E8	F8	Fs8	G8	Gs8	A8	As8	B8
C9

（上の表の作成と音の再生の仕方は、Audio でサウンド再生を参考にさせて頂きました。）

音(C、D、E、、、)は、変数での取扱いは、単音だけ(@note=(C,E,D,E,F,G,A,B,C_u1))、和音はできない。音符の長さの変数取扱い可能。

15行目は、作成されたmidiファイルを'westmister_chimes.mid'として書き出すことを表している。
16行目で、作成されたmidiファイルがテキストに変換されたものが、表示される。

　ドラム音も用意されている。ドラム音の一覧

ドラム演奏用のスクリプト例。なお、前述のスクリプトでは、1行目、use MIDIの後に Simple があり、音名記号(C、D、E、F、、、)でドレミが鳴りましたが、use MIDI では、音名記号は使用できません。

use MIDI;
use strict;
use warnings;
my @events = (
['text_event',0, 'MORE COWBELL'],
['set_tempo', 0, 450_000], # 1qn = .45 seconds
);
for (1 .. 20) {
push @events,
['note_on' , 90, 9, 56, 127],
['note_off', 6, 9, 56, 127],
;
}
foreach my $delay (reverse(1..96)) {
push @events,
['note_on' , 0, 9, 56, 127],
['note_off', $delay, 9, 56, 127],
;
}
my $cowbell_track = MIDI::Track->new({ 'events' => \@events });
my $opus = MIDI::Opus->new(
{ 'format' => 0, 'ticks' => 96, 'tracks' => [ $cowbell_track ] } );
$opus->write_to_file( 'cowbell.mid' );

スクリプトの説明
11、12行目の9はチャネル番号。ドラム音は9に割り当てられている。56は、音色の" cowbell "。127は最大音量。11行目の90は、約４分休符分後にcowbellを鳴らす。12行目の6は11行目の音を消音するまでの時間。
15行目から20行目までで、ベルを４分音符で鳴らし、徐々にベルの鳴る間隔が速くなる。
18行目の$delayで、各値が変数で取り扱えそうだと想像できる。

　準備は出来た。後は音を出すだけ。

　コメント　
　コメントや要望は匿名でできます。

このページへの訪問者数

C2	Cs2	D2	Ds2	E2	F2	Fs2	G2	Gs2	A2	As2	B2
C3	Cs3	D3	Ds3	E3	F3	Fs3	G3	Gs3	A3	As3	B3
C4	Cs4	D4	Ds4	E4	F4	Fs4	G4	Gs4	A4	As4	B4
C5	Cs5	D5	Ds5	E5	F5	Fs5	G5	Gs5	A5	As5	B5
C6	Cs6	D6	Ds6	E6	F6	Fs6	G6	Gs6	A6	As6	B6
C7	Cs7	D7	Ds7	E7	F7	Fs7	G7	Gs7	A7	As7	B7
C8	Cs8	D8	Ds8	E8	F8	Fs8	G8	Gs8	A8	As8	B8
C9

C2	Cs2	D2	Ds2	E2	F2	Fs2	G2	Gs2	A2	As2	B2
C3	Cs3	D3	Ds3	E3	F3	Fs3	G3	Gs3	A3	As3	B3
C4	Cs4	D4	Ds4	E4	F4	Fs4	G4	Gs4	A4	As4	B4
C5	Cs5	D5	Ds5	E5	F5	Fs5	G5	Gs5	A5	As5	B5
C6	Cs6	D6	Ds6	E6	F6	Fs6	G6	Gs6	A6	As6	B6
C7	Cs7	D7	Ds7	E7	F7	Fs7	G7	Gs7	A7	As7	B7
C8	Cs8	D8	Ds8	E8	F8	Fs8	G8	Gs8	A8	As8	B8
C9

C2	Cs2	D2	Ds2	E2	F2	Fs2	G2	Gs2	A2	As2	B2
C3	Cs3	D3	Ds3	E3	F3	Fs3	G3	Gs3	A3	As3	B3
C4	Cs4	D4	Ds4	E4	F4	Fs4	G4	Gs4	A4	As4	B4
C5	Cs5	D5	Ds5	E5	F5	Fs5	G5	Gs5	A5	As5	B5
C6	Cs6	D6	Ds6	E6	F6	Fs6	G6	Gs6	A6	As6	B6
C7	Cs7	D7	Ds7	E7	F7	Fs7	G7	Gs7	A7	As7	B7
C8	Cs8	D8	Ds8	E8	F8	Fs8	G8	Gs8	A8	As8	B8
C9