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

春の終わりに - サクラ曲掲示板6

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

春の終わりに

AMIO
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. TrackName = {"春の終わりに"};
  2. Copyright = {"AMIO"};
  3.  
  4. /*
  5. やさしいけどせつない
  7. タイトルがなかなか決まらず案を10個ぐらい作ったのですが、どれもしっくり来ず。
  8. もっといいタイトルはないものか……
  9. */
  10.  
  11.  
  12.  
  13. Int Repeat = 2;
  14. // 繰り返し回数を設定できます
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22. //-----------------------------variables---------------------------------
  23.  
  24. Int In = 0;//イントロからメロディースタートまでの時間
  25. Int Ltime = 56;//１ループの時間
  26. Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間
  27. Int Fade = 8;//フェードアウトにかかる時間
  28. Int Tmp = 90;//テンポ
  29. Int Sig = 4;
  30.  
  31. Int Ptime = (In+Ltime*Repeat+Fade)*Sig*60/Tmp;
  32.  
  33. //---------------------------functions---------------------------------
  34.  
  35. Function Repstr(Str MML,Int Tim,Int Rep,Int Beg=0)//MML繰り返し処理関数
  36. {
  37. Int I;
  39. For(I=0;I<Rep-Beg;I++){
  40. Time((I+Beg)*Tim+In+1:1:0) MML;
  41. }
  42. }
  43.  
  44. Function PrintPlayTime(Int Tim)
  45. {
  46. Int Minute = Tim/60;
  47. Int Second = Tim%60;
  48. If(Tim<60){ Print({"演奏時間："}+Second+{"秒"}); }
  49. Else{Print({"演奏時間："}+Minute+{"分"}+Second+{"秒"}); }
  50. }
  51.  
  52. Function FadeoutVol(Int Mes,Int Prev)// Prev:pre-volume フェードアウト前のメインボリューム
  53. {
  54. Str I = {!1};
  55. While(Mes>1){I = I+{^1}; Mes--;}
  56. Str CMD = {V.onTime(Prev,0,LEN)};
  57. CMD.s({LEN},I);
  58. CMD;
  59. }
  60.  
  61. Function FadeoutAll(Int Mes,Array X)
  62. {
  63. Int T = Time;
  64. For(Int J=1;J<=16;J++){
  65. TR(J); CH(J); Time(T); FadeoutVol(Mes,X(J-1));
  66. }
  67. }
  68.  
  69. //------------------------------system setting---------------------------------
  70.  
  71. SoundType=1;TimeBase(96);System.MeasureShift(1);Include(guitar.h);Include(gs.h);
  72. Time(0:1:0) Tempo(Tmp);TimeSignature(Sig,4);PrintPlayTime(Ptime);
  73. ResetGM; r2 ResetGS; r2 TrackSync;
  74.  
  75. //----------------------------------strings-----------------------------------
  76.  
  77. #Cre1 = {EP.T(80,127,!2^4)};
  78. #Cre2 = {EP.T(127,104,!2^4)};
  79.  
  80. Str TR1In = {};
  81. Str TR1 = {l16 [
  82. [[#Cre1 e-2^4,90e-f+^^,,110 #Cre1 c+2^4,85c+8f+8,,110 : #Cre1 "b2^4,98"a8,,90"g8,,90 #Cre2 "f+2^4,,90r4] #Cre1 "b2^4,98"a8c+8,,105 EP.T(96,127,!2^4) "b2^4,90,105r4]
  83. #Cre1 "a-2^4,96,95"a8,,95"b8,,95 e2,96,95"a-2,90 #Cre1 "b-2^4,96"b8c+8 f+2,96,110"b-2
  84. #Cre1 a-2^4,96,120f+8e8 #Cre1 "a-2^4,96"a-8"a8 #Cre1 "
作者からのコメント
AMIOです。最近暑くなってきたにもかかわらず春らしい優しい＆切ないループBGMです。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.3
動画
なし
投稿日時
2017-06-25 01:29
更新日時
2017-06-25 01:29
お気に入り
木村音助H゛
ダウンロード数
295
タグ
→この曲(id:1900)に問題がある場合こちらへ

感謝のコメント

音助2017/07/04
ボサノバっぽい雰囲気の優しい曲ですね。
気持ち良すぎて眠くなっちゃう春のイメージを感じますｗ
AMIO2017/07/11
> 音助さん
ありがとうございます！
主旋律がゆったりしているので、眠気を誘うかもしれませんねｗ
春らしさがちゃんと伝わったようで良かったですｗ
Amege2017/08/07
暖かい感じがイイですね。シンプルながら和音やリズムが効果的でなんだか元気になれる曲だなと思いました
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）