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

September Grass Field - サクラ曲掲示板6

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

September Grass Field

AMIO
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. TrackName = {"September Grass Field"};
  2. Copyright = {"AMIO"};
  3.  
  4. /*
  5. スタイリッシュなBGM……を目指した。
  6. */
  7.  
  8.  
  9.  
  10. Int Repeat = 2;
  11. // 繰り返し回数を設定できます
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19. //-----------------------------variables---------------------------------
  20.  
  21. Int In = 1;//イントロからメロディースタートまでの時間
  22. Int Ltime = 32;//１ループの時間
  23. Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間
  24. Int Fade = 8;//フェードアウトにかかる時間
  25. Int Tmp = 124;//テンポ
  26. Int Sig = 4;
  27.  
  28. Int Ptime = (In+Ltime*Repeat+Fade)*Sig*60/Tmp;
  29.  
  30. //---------------------------functions---------------------------------
  31.  
  32. Function Repstr(Str MML,Int Tim,Int Rep,Int Beg=0)//MML繰り返し処理関数
  33. {
  34. Int I;
  36. For(I=0;I<Rep-Beg;I++){
  37. Time((I+Beg)*Tim+In+1:1:0) MML;
  38. }
  39. }
  40.  
  41. Function PrintPlayTime(Int Tim)
  42. {
  43. Int Minute = Tim/60;
  44. Int Second = Tim%60;
  45. If(Tim<60){ Print({"演奏時間："}+Second+{"秒"}); }
  46. Else{Print({"演奏時間："}+Minute+{"分"}+Second+{"秒"}); }
  47. }
  48.  
  49. Function FadeoutVol(Int Mes,Int Prev)// Prev:pre-volume フェードアウト前のメインボリューム
  50. {
  51. Str I = {!1};
  52. While(Mes>1){I = I+{^1}; Mes--;}
  53. Str CMD = {V.onTime(Prev,0,LEN)};
  54. CMD.s({LEN},I);
  55. CMD;
  56. }
  57.  
  58. Function FadeoutAll(Int Mes,Array X)
  59. {
  60. Int T = Time;
  61. For(Int J=1;J<=16;J++){
  62. TR(J); CH(J); Time(T); FadeoutVol(Mes,X(J-1));
  63. }
  64. }
  65.  
  66. //------------------------------system setting---------------------------------
  67.  
  68. SoundType=1;TimeBase(96);System.MeasureShift(1);Include(guitar.h);Include(gs.h);
  69. Time(0:1:0) Tempo(Tmp);TimeSignature(Sig,4);PrintPlayTime(Ptime);
  70. ResetGM; r2 ResetGS; r2 TrackSync;
  71.  
  72. //----------------------------------strings-----------------------------------
  73.  
  74. Str TR1In = {l16 o4};
  75. Str TR1 = {l16 [['t.N(-5,-2,0)f+b`d'rt0b't.N(-3,0)f+`d'rt0ar't.N(-8,-1)f+b'2^16]
  76. ['t.N(-5,-2,0)b`d`f+'rt0b't.N(-3,0)`d`f+'rt0ar't.N(-8,-1)f+b'2^16]]
  77. //
  78. t0 ['b`e-`f+`a'8,95]r'b`e-`f+`a''b`e-`f+`a'8,95r'b`e-`f+`a'[3'b`e-`f+`a'8,95]
  79. ['a`c+`e`g'8,95]r'a`c+`e`g''a`c+`e`g'8,95r'a`c+`e`g'[3'a`c+`e`g'8,95]
  80. //
  81. ['t.N(-5,-2,0)f+b`d'rt0b't.N(-3,0)f+`d'rt0ar't.N(-8,-1)f+b'2^16]
  82. //
  83. [['t.N(-5,-2,0)f+b`d'rt0b't.N(
作者からのコメント
AMIOです。相変わらずのループBGMですが、今回は少しスタイリッシュな感じに挑戦してみました。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.3
動画
なし
投稿日時
2017-03-16 03:45
更新日時
2017-03-16 03:45
お気に入り
木村双未ヒロキ音助GOMA
ダウンロード数
352
タグ
→この曲(id:1866)に問題がある場合こちらへ

感謝のコメント

音助2017/03/23
今回は少しスタイリッシュですねｗ
BGM 風でありながら、後半サックスがちょっと前に出るところがナイスです。
何度もループして聴ける作りになっているのも流石ですね。
GOMA2017/04/06
ブルース風？だ！（よくわからないのに言う）
ベースが渋い！　サックスのリバーブナイスです。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）