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

和音遊びの例2 - サクラ曲掲示板6

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

和音遊びの例2

  1. /*
  2.  
  3. 和音遊びの例2
  4.  
  5. 音の感覚に耳を慣らすとか、一息つきたい時に、気軽に再生してもらえれば・・・と。
  6.  
  7. */
  8.  
  9. //------------------------------------------------------------------------------
  10. //ユーザ定義
  11. //
  12.  
  13. Str I={ 'ceg'}
  14. Str II={'dfa'}
  15. Str IV={'fa>c<'}
  16. Str V7={'gb>df<'}
  17. Str VI={'a>ce<'}
  18.  
  19. #1={ V7 | I}
  20. #2={ II | V7 | I}
  21. #3={ VI | II | V7 | I}
  22. #4={ IV | II | V7 | I}
  23. #5={ VI | IV | II | V7 | I}
  24. #6={ IV | V7 | I}
  25. #7={ VI | IV | V7 | I}
  26. #8={ V7 | VI}
  27. #9={ II | V7 | VI}
  28. #10={VI | II | V7 | VI}
  29. #11={IV | II | V7 | VI}
  30. #12={VI | IV | II | V7 | VI}
  31. #13={IV | V7 | VI}
  32. #14={VI | IV | V7 | VI}
  33. #15={IV | I}
  34. #16={VI | IV | I}
  35.  
  36. //------------------------------------------------------------------------------
  37. //関数
  38. //
  39.  
  40. Function StateLoop(){
  41.  
  42. Int State;
  43. State=Random(1,16);
  44.  
  45. While(State!=0){
  46. //Print(State);
  47. State=OutPut(State);
  48. If(State==0){/* Print("Rest")*/ ;}
  49. }
  50. }
  51.  
  52. Function OutPut(Int State){
  53.  
  54. Switch(State){
  55. Case(1){ #1; }
  56. Case(2){ #2; }
  57. Case(3){ #3; }
  58. Case(4){ #4; }
  59. Case(5){ #5; }
  60. Case(6){ #6; }
  61. Case(7){ #7; }
  62. Case(8){ #8; }
  63. Case(9){ #9; }
  64. Case(10){#10;}
  65. Case(11){#11;}
  66. Case(12){#12;}
  67. Case(13){#13;}
  68. Case(14){#14;}
  69. Case(15){#15;}
  70. Case(16){#16;}
  71. }
  72. State=Random(17);
  73. Result=State;
  74. }
  75.  
  76. //------------------------------------------------------------------------------
  77. //演奏させて確認
  78. //
  79.  
  80. ResetGM r1
  81.  
  82. TR(1) @6 l1 o4 v70
  83.  
  84. I;
  85. [2 StateLoop(); ]
  86. r1;
  87.  
  88.  
作者からのコメント
音の感覚に耳を慣らすとか、一息つきたい時に、気軽に再生してもらえれば・・・と。
作曲者
自作
ライセンス
🚫転載禁止商用利用 ×改変 ×作者に無断で使えません
転載
許可しない
推奨音源
GM
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.3
動画
なし
投稿日時
2011-08-08 05:42
更新日時
2011-08-08 05:43
お気に入り
音助と~ごn.
ダウンロード数
745
タグ
タグはありません。
→この曲(id:663)に問題がある場合こちらへ

感謝のコメント

HiroChan2011/08/08
余力のある人は書き換えて遊んだりしてみてください。
音助2011/08/20
綺麗な和音って心が和みますよね
HiroChan2011/08/20
コメントどうもです。

環境音として自己主張し過ぎない辺りを狙い目にしつつ、和音の進行のサンプルにもなってれば良いかなぁ・・・という感じで、今回は作ってみました。
n.2011/09/07
なるほど…。Random 関数にこんな使い方もありましたか。
毎回違った音が楽しめて、面白い作品ですね
この曲に「ありがとう」を伝えませんか?
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。