サクラトップ 掲示板トップ ログイン

chord進行作成 - サクラ曲掲示板6

曲掲示板6にエディタ機能が追加されました！気軽に曲を作成してみましょう！
森と泉

chord進行作成

森と泉ピコ対応
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. System.Include(stdmsg.h)
  2. System.MeasureShift(1);
  3. ResetGM();
  4. TrackSync;
  5. TrackName={'chord進行作成'}
  6. Copyright={'Moritoizumi'}
  7. System.TimeBase=48
  8. TimeSignature=4,4
  9. Str Am={[8 'acea']};Str C7={[8 'cega+']};Str Cm={[8 'cd+gc']};Str Cx7={[8 'c+fg+b']};
  10. Str Dm={[8 'dfad']};Str D7={[8 'df+ac']};Str Dxm={[8 'd+f+a+']};Str Dx7={[8 'd+ga+c+']};
  11. Str Em={[8 'egbe']};Str E7={[8 'eg+bd']};Str Fm={[8 'fg+cf']};Str F7={[8 'facd+']};
  12. Str Gm={[8 'ga+d']};Str G7={[8 'gbdf']};Str B={[8 'bd+f+b']};Str Gx7={[8 'g+cd+f+']};
  13. Str C={[8 'cegc']};Str Dm7={[8 'dfac']};Str F={[8 'facf']};Str Caug={[8 'ceg+c']};
  14. Str Gx={[8 'g+cd+g+']};Str Gaug={[8 'gbd+g']};Str A7={[8 'ac+eg']};Str Cdim={[8 'cd+f+a']};
  15. Str Ax7={[8 'a+dfg+']};Str Cxdim={[8 'c+ega+']};Str B7={[8 'bd+f+a']};Str Gdim={[8 'ga+c+e']};
  16. Tempo=120 TR=1 CH=1 V(100) l8 @26 P.onNoteWave(32,96,!4) r1
  17. v.N(80,80,80,80,60,60,60,60,80,80,80,80,80,80,80,80,60,60,60,60,80,80,80,80,80,80,80,80,80,80,80,80)
  18. Am E7 Dm E7 Dm Am C G7 C Em
  19. D7 G7 C Em D7 G7 C Am E7 Dm
  20. Am G7 C Em D7 G7 C Em D7 G7
  21. C G7 C Em D7 G7 E7 Am Dm E7
  22. Am E7 Dm Am E7 Dm E7 E7 Dm F
  23. E7 E7 Am E7 Am E7 Am E7 Dm E7
  24.  
  25. //先頭からここまではサンプル曲(ピコサクラ対応)です。
  26. //コード進行作成本体(ピコサクラ未対応)は毎回ランダムに違ったMMLを下側タブに出力・演奏しま
  27. //すが、これを使用する場合は先頭から次行までを消して下さい。
  28. /*
  29.  
  30.  
  31.  
  32. //好きなコード進行から、毎回異なるコード進行を作り、下側タブに表示・演奏します。
  33.  
  34.  
  35. //-------------------------------------------------------------------
  36. //好きなコード進行をカッコ内に入力して下さい(スペースなしで)
  37.  
  38. Array X=(Am,E7,Dm,E7,Dm,Am,E7,Am,G7,C,Am,C,G7,C,Em,D7,G7,E7,Am,Dm,E7,Am,Am,E7,
  39. Dm,E7,Dm,Am,E7,Am,E7,E7,E7,Am,Dm,F,E7,Am,E7,Dm,E7,Dm,Am,E7,Am)
  40. //コードがStr Am={[8 'acea']}などと定義されているか確認して下さい。
  41. //それぞれ、構成音は4音にして下さい。
  42. //コード名に+を使わずxにして下さい(誤動作防止)。
  44. Int D=2; //1コードの最大文字数（数字を入力して下さい）
  45. Int TT=120; //テンポ　（数字を入力して下さい）
  46. Int JJ=26; //楽器番号（数字を入力して下さい）
  47. Int II=60; //小節数　（数字を入力して下さい）
  48. //--------------------------------------------------------------------
  49.  
  50.  
  51.  
  52. Int N=SizeOf(X); //好きなコード進行の全コード数
  53. FOR(Int J=0; J<N; J++){
作者からのコメント
好きなコード進行をヒントに、毎回ランダムに新しいコード進行を作り、即演奏するMMLを作りました。ただのSteelcGuitarの8ビート伴奏です。
前半のサンプル曲はピコサクラ対応、後半はサクラ対応です。
サクラで実行すると、次のようなリストを新規作成し、すぐにMMLが表示(毎回異なる)され、演奏が始まります。
chord 次chord候補 候補数
Am ; E7,E7,G7,C ,Dm,Am,E7,E7,E7,Dm,E7,E7 12
E7 ; Dm,Dm,Am,Am,Am,Dm,Dm,Am,E7,E7,Am,Am,Dm,Dm,Am 15
Dm ; E7,Am,E7,E7,Am,F ,E7,Am 8
G7 ; C ,C ,E7 3
C ; Am,G7,Em 3
Em ; D7 1
D7 ; G7 1
F ; E7 1
一番左がユニークなchordになっています。
例えば、chord Amのところを見ると、次chord候補数が12あり、C,G7,Am,Dm,E7の割合が1:1:1:2:7 となっており、この確率で次chordを決め、次々に進行していきます。
作曲者
自作
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
soundfont
ピコサクラ対応
対応
ピコサクラバージョン
0.1.26
動画
なし
投稿日時
2024-01-03 22:12
更新日時
2024-01-05 08:06
お気に入り
(^o^)/
ダウンロード数
178
タグ
→この曲(id:2539)に問題がある場合こちらへ

感謝のコメント

感謝のコメント募集中です!!
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）