chord進行作成2

MML先頭 2000 文字だけ表示していますダウンロード全文を見る

System.Include(stdmsg.h)
System.MeasureShift(1);
ResetGM();
TrackSync;
TrackName={'chord進行作成2'}
Copyright={'Moritoizumi'}
TimeSignature=4,4
Str Am={[2 acea]};Str C7={[2 cega+]};Str Cm={[2 cd+gc]};Str Cx7={[2 c+fg+b]};
Str Dm={[2 dfad]};Str D7={[2 df+ac]};Str Dxm={[2 d+f+a+]};Str Dx7={[2 d+ga+c+]};
Str Em={[2 egbe]};Str E7={[2 eg+bd]};Str Fm={[2 fg+cf]};Str F7={[2 facd+]};
Str Gm={[2 ga+d]};Str G7={[2 gbdf]};Str B={[2 bd+f+b]};Str Gx7={[2 g+cd+f+]};
Str C={[2 cegc]};Str Dm7={[2 dfac]};Str F={[2 facf]};Str Caug={[2 ceg+c]};
Str Gx={[2 g+cd+g+]};Str Gaug={[2 gbd+g]};Str A7={[2 ac+eg]};Str Cdim={[2 cd+f+a]};
Str Ax7={[2 a+dfg+]};Str Cxdim={[2 c+ega+]};Str B7={[2 bd+f+a]};Str Gdim={[2 ga+c+e]};
Tempo=120 TR=1 CH=1 V(100) l8 @11 P.onNoteWave(32,96,!4) r1 v.N(80,50,80,80,40,70,70,70)
C B7 Dm G7 C C B C Gx7 Dm
C Cxdim G7 C Gx G7 C Am Em Am
Cxdim Dm7 G7 C C7 F Fm C F7 C
B7 E7 E7 A7 Dm C C7 B7 Em Am
Cxdim Dm7 G7 C Cxdim G7 C Gx7 G7 C
Gx7 G7 C B7 Ax7 A7 D7 G7 C F7
C Dx7 D7 G7 C
//先頭からここまではサンプル曲(ピコサクラ対応)です。
//コード進行作成本体(ピコサクラ未対応)は毎回ランダムに違ったMMLを下側タブに出力・演奏しま
//すが、これを使用する場合は先頭から次行までを消して下さい。
/*
//好きなコード進行から、毎回異なるコード進行を作り、下側タブに表示・演奏します。
//-------------------------------------------------------------------
//好きなコード進行をスペースなしでカッコ内に入力して下さい（いま、サンプルが入っています)
Array X=(C,Am,Gx7,Dm,B7,Em,Dm,E7,E7,A7,Cm,D7,G7,C,D7,G7,C,Am,Em,Am,Em,Caug,F,F,Fm,
C,Dx7,D7,G7,C,A7,Dm,Cx7,C,C,Gx,G7,C,C,Fm,C,Cdim,Dm7,G7,C,A7,D7,Cx7,C,C7,B7,E7,A7,
Cm,D7,G7,C,F7,C,B7,Ax7,A7,Cm,D7,Cx7,C,Dm,G7,C,E7,A7,Dm,C,F7,C,B,C,Am,Cxdim,Dm7,G7,
C,E7,E7,A7,Dm,Cx7,C,Em,Am,Cxdim,G7,C,Cxdim,G7,C,B7,E7,E7,A7,D7,G7,C,Dm,C,Am,Em,Dm,
B7,Em,Caug,F,F,C,B,C,G7,C,Cxdim,Dm7,G7,C,Gx7,G7,C,Gm,A7,Dm,B7,E7,A7,Dm,C,E7,A7,Dm,
B7,Dm,C,Gx7,Dm,B7,Dm,E7,E7,A7,Dm,Em,Am,Cxdim,Dm,E7,A7,Cm,D7,Dm7,G7,C,F7,C,C7,F

作者からのコメント

先の「chord進行作成」を改良しました。ピコサクラでサンプルを聴けます。
テキスト音楽サクラでは、好きなコード進行をヒントに、毎回ユニークなコード進行を作り出し、下側タブにMMLを出力・演奏します。
演奏をストロークからアルペジオに変更しました。
ドミナントとドミナントセブンスを指定できるようにしました。
指定小節を超えた以降、ドミナントセブンス・ドミナントが続けて現れた時点で終了するようにしました。

作曲者: 自作
ライセンス: 🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載: 許可
推奨音源: soundfont
ピコサクラ対応: 対応
ピコサクラバージョン: 0.1.26
動画: なし
投稿日時: 2024-06-29 17:40
更新日時: 2024-07-02 21:22