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

Winter is Coming - サクラ曲掲示板6

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

Winter is Coming

AMIO
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. TrackName = {"Winter is Coming"};
  2. Copyright = {"AMIO"};
  3.  
  4. /*
  5.  
  6. */
  7.  
  8. Int bPlayTime = 0;
  9. // 0 : 演奏時間を非表示
  10. // 1 : 演奏時間を表示
  11.  
  12. Int Repeat = 2;
  13. // 繰り返し回数を設定できます
  14.  
  15.  
  16.  
  17. Int WaveOut = 0;
  18. // 0 : サクラ再生用
  19. // 1 : TiMidity++ 変換用
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27. //-----------------------------variables---------------------------------
  28.  
  29. Int In = 1;//イントロからメロディースタートまでの時間
  30. Int Ltime = 36;//１ループの時間
  31. Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間
  32. Int Fade = 6;//フェードアウトにかかる時間
  33. Int Tmp = 100;//テンポ
  34. Int Sig = 6;
  35. Int SigBase = 8;
  36.  
  37. Int Ptime = (In+Ltime*Repeat+Fade)*Sig*240/(Tmp*SigBase);
  38.  
  39. //---------------------------functions---------------------------------
  40.  
  41. Function Repstr(Str MML,Int Tim,Int Rep,Int Beg=0)//MML繰り返し処理関数
  42. {
  43. Int I;
  45. For(I=0;I<Rep-Beg;I++){
  46. Time((I+Beg)*Tim+In+1:1:0) MML;
  47. }
  48. }
  49.  
  50. Function PrintPlayTime(Int Tim)
  51. {
  52. Int Minute = Tim/60;
  53. Int Second = Tim%60;
  54. If(Tim<60){ Print({"演奏時間："}+Second+{"秒"}); }
  55. Else{Print({"演奏時間："}+Minute+{"分"}+Second+{"秒"}); }
  56. }
  57.  
  58. Function FadeoutVol(Int Mes,Int Prev)// Prev:pre-volume フェードアウト前のメインボリューム
  59. {
  60. Str I = {!1};
  61. While(Mes>1){I = I+{^1}; Mes--;}
  62. Str CMD = {V.onTime(Prev,0,LEN)};
  63. CMD.s({LEN},I);
  64. CMD;
  65. }
  66.  
  67. Function FadeoutAll(Int Mes,Array X)
  68. {
  69. Int T = Time;
  70. For(Int J=1;J<=16;J++){
  71. TR(J); CH(J); Time(T); FadeoutVol(Mes,X(J-1));
  72. }
  73. }
  74.  
  75. //------------------------------system setting---------------------------------
  76.  
  77. SoundType=1;TimeBase(96);System.MeasureShift(1);Include(guitar.h);Include(gs.h);
  78. Time(0:1:0) Tempo(Tmp);TimeSignature(Sig,SigBase);
  79. IF (bPlayTime == 1) { PrintPlayTime(Ptime); }
  80. ResetGM; r4^8 ResetGS; r4^8 TrackSync;
  81.  
  82. //----------------------------------strings-----------------------------------
  83.  
  84. Str TR1In = {l16 o5 "a"a"a^"a^"a^,70"b-^,70c^,70};
  85. Str TR1 = {l16 [rrd,90cdrdrerf,90g frerdr c^^rgr gf+2^4-16,90 r2^4
  86. rrd,90cdrdrerf,90g g48,96f24rerdr c^^r"ar cd2^4-16,90 r2^4]
  87. [r2^4] r2^8 `d^ `c^a^fdc^rrrr
  88. [15r2^4] "a"a"a^"a^"a^,70"b-^,70c^,70};
  89. Str TR1Out = {l16 rrd,90cdrdrerf,90g fr
作者からのコメント
AMIOです。今回は冬っぽい感じのループ曲です。いつ思いついた曲か忘れましたが、昔脳内作曲した曲だったはず。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
特になし
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.3
動画
なし
投稿日時
2014-11-15 19:28
更新日時
2014-11-15 19:28
お気に入り
音助木村しゅんGOMAH゛
ダウンロード数
435
タグ
→この曲(id:1546)に問題がある場合こちらへ

感謝のコメント

音助2014/11/20
クリスマスっぽいですねｗ
弾むようなリズムが可愛いです。
オルガンが鳴った後、パイプが追っかける部分とか、冬って感じが出てて上手いと思いました。
ループさせてゲーム等にも使えそうな気がします。
AMIO2014/11/23
> 音助さん
ありがとうございます。
基本的にゲームBGMに影響されてきたので、作る曲はどうもゲームっぽくなりますｗ
しゅん2014/11/23
いつまでも耳に残る、いい曲ですね。
全体的に抑えめで、嬉しすぎず悲しすぎず、肩ひじ張らずにゆったりとした気分になりました。
(REV値も控えめなのは、あまり響かせないためでしょうか)
個人的には笛系の楽器が、哀愁があってとてもすてきだなと思いました。
AMIO2014/11/23
> しゅんさん
ありがとうございます。
笛のパートの哀愁感は個人的にも気に入っているので嬉しいです。
REV値ですが、あんまり大きくしすぎるとお風呂場で演奏してるみたいで変かなと思ったりするので、いつも40ぐらいまでしか上げてません。もっとも、自分の環境ではサクラで直接再生したときREVの値は演奏に反映されませんが……ｗ
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）