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

虫の知らせ - サクラ曲掲示板6

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

虫の知らせ

AMIO
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. TrackName = {"虫の知らせ"};
  2. Copyright = {"AMIO"};
  3.  
  4. /*
  5. 古代遺跡っぽい。
  6. */
  7.  
  8.  
  9.  
  10. Int Repeat = 2;
  11. // 繰り返し回数を設定できます
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19. //-----------------------------variables---------------------------------
  20.  
  21. Int In = 0;//イントロからメロディースタートまでの時間
  22. Int Ltime = 27;//１ループの時間
  23. Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間
  24. Int Fade = 6;//フェードアウトにかかる時間
  25. Int Tmp = 120;//テンポ
  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 = {};
  75. Str TR1 = { l8[r1]
  76. [`crbrg^^r grfrd^^r [r1]]
  77. [8r1]
  78. l16
  79. ["f^"g^"a-"b-c^ ^^"b-^"g^"b-^
  80. ["g"b-]"b-cd^ ^^c^"b-^"g^ :
  81. "a-^"b-^cde-^ ^^e-^f^e-^
  82. [3"b-d]"b-^ ^^"a-^"g^"e-^]
  83. "a-^c^d^e-^ ^^d^c^e-^
  84. [3"bd]"b^ ^^^^^^^^
  85. [3"g"b]d^ ^^^^^^^^};
  86. Str TR1Out = {l8[r1]
  87. `crbrg^^r grfrd^^r [r1]};
  88.  
  89. Str TR2In = {};
  90. Str TR2 = {l8[r1]
  91. [grfre-^^rdr"b-r"g^^r[r1]]};
  92. Str TR2Out = {l8[r1]
  93. grfre-^^rdr"b-r"g^^r[r1]};
  94.  
  95. Str
作者からのコメント
お久しぶりです。AMIOです。怪しい雰囲気のループBGMです。
作曲者
自作
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
TW-MUSIC2等
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.3
動画
なし
投稿日時
2017-02-20 18:55
更新日時
2017-02-20 18:55
お気に入り
しゅん音助木村H゛
ダウンロード数
386
タグ
→この曲(id:1861)に問題がある場合こちらへ

感謝のコメント

しゅん2017/02/25
徐々に上昇する和音とメロディー、独特の雰囲気がいいですね。
トレモロストリングス～ストリングスの低めのメロディーが好きです♪
音量バランスが絶妙だなあと思いました(^^♪
音助2017/03/03
「虫の知らせ」というタイトルがピッタリの嫌な予感のする曲ですねｗ
不気味なのかそうじゃないのか分からないメロディで、緊張感が安定してなくて面白いです。
確かに「古代遺跡」っぽいゲームのシーンにも合いそうですね。
AMIO2017/03/03
> しゅんさん
ありがとうございます。
後半の流れは思いついたまま書いてみたんですが、それが良かったみたいですね。
さすがに量作ってるだけあって、バランスは勝手がわかってきましたｗ

> 音助さん
最初から計算していたわけではないですが、確かにいい具合に不安を煽りつつ、一本調子にならないようになってますね。
ラスト2小節目のBdimが個人的に気に入っています(^^)ｂ
木村2017/03/06
面白いです。笑えました。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）