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

雨上がりの森 - サクラ曲掲示板6

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

雨上がりの森

AMIO
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. TrackName = {"雨上がりの森"};
  2. Copyright = {"AMIO"};
  3.  
  4. /*
  5. 高校時代に脳内作曲した曲の一つ。
  6. そのときはドラムパートはもっと単調でした。
  8. タイトルは後付けです。
  9. */
  10.  
  11.  
  12.  
  13. Int Repeat = 2;
  14. // 繰り返し回数を設定できます
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22. //-----------------------------variables---------------------------------
  23.  
  24. Int In = 4;//イントロからメロディースタートまでの時間
  25. Int Ltime = 98;//１ループの時間
  26. Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間
  27. Int Fade = 8;//フェードアウトにかかる時間
  28. Int Tmp = 198;//テンポ
  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. Str TR1In = {};
  78. Str TR1 = { l12
  79. // 16*2
  80. [ r4g^ra^r`c^b ^^ra^rg^ra^r f+^b^rb^^^rrr r1
  81. b^r`c^r`d^`e^r`d ^^r`c^rb^r`c^r `d^^^^rg^rf+^r b^^^^r : r2
  82. g^ra^rb^`c^rb ^^ra^rg^bg^a ^^rg^rf+^e^re ^^^rrr r2
  83. a^rg^rf+^e^rf+ ^^rg^ra^rb^r `c1r1
  84. ]
  85. rrba^b
  86. a^rg^rf+^g^ra ^^re^re^f+^rg ^^ra^rb^r`c^`d ^^r`e^r`f+^r`g^r
  87. `f+^^`e^r`d^`c^rb ^^ra^rg^ra^r g^^,75f^re-^f^rg ^^^rrd g^rb^r
  88. // 12
  89. EP.T(80,127,!1^2^4)`d2
作者からのコメント
AMIOです。今回は高校（多分）時代に頭のなかで作っていた曲を打ち込んでみました。ループ曲です。
作曲者
自作
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
特になし（制作環境：内蔵音源）
実行エンジン
未対応
ピコサクラバージョン
0.2.3
動画
なし
投稿日時
2014-08-05 22:25
更新日時
2014-08-05 22:26
お気に入り
幽霊庚申works音助H゛
ダウンロード数
478
タグ
→この曲(id:1494)に問題がある場合こちらへ

感謝のコメント

幽霊2014/08/08
なんだか聴いていてうれしくなってくるような感じで、ずっと聴いていたくなりますね。
前向きな感じのオルガン、元気なブラスが気分をうきうきさせてくれます。
自分は特にベースのリフが大好きです。良曲ありがとうございます。
ちなみに、TW-MUSIC2はコンソール出力すると演奏がとまってしまうので、
Print文ははずしておいたほうがよいかもしれません。(サクラから再生する分には大丈夫です。)
AMIO2014/08/09
> ghost-426さん
コメントありがとうございます。
TW-MUSICの仕様の件、ご指摘ありがとうございます。
今度からは出力部分を外してから投稿することにします。
音助2014/08/28
横ノリで踊りたくなる曲ですねｗ
盛り上がりっ放しに思わせつつも、ちゃんとメリハリを付けてあるところが上手いと思います。
ghost-426さんもコメントされてますが、ずっと聴いてられる魅力がありますね。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）