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

Crying - サクラ曲掲示板6

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

Crying

MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. TrackName = {"Crying"};
  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 = 1;//イントロからメロディースタートまでの時間
  22. Int Ltime = 52;//1ループの時間
  23. Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間
  24. Int Fade = 8;//フェードアウトにかかる時間
  25. Int Tmp = 74;//テンポ
  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;
  35. For(I=0;I<Rep-Beg;I++){
  36. Time((I+Beg)*Tim+In+1:1:0) MML;
  37. }
  38. }
  39.  
  40. Function PrintPlayTime(Int Tim)
  41. {
  42. Int Minute = Tim/60;
  43. Int Second = Tim%60;
  44. If(Tim<60){ Print({"演奏時間:"}+Second+{"秒"}); }
  45. Else{Print({"演奏時間:"}+Minute+{"分"}+Second+{"秒"}); }
  46. }
  47.  
  48. Function FadeoutVol(Int Mes,Int Prev)// Prev:pre-volume フェードアウト前のメインボリューム
  49. {
  50. Str I = {!1};
  51. While(Mes>1){I = I+{^1}; Mes--;}
  52. Str CMD = {V.onTime(Prev,0,LEN)};
  53. CMD.s({LEN},I);
  54. CMD;
  55. }
  56.  
  57. Function FadeoutAll(Int Mes,Array X)
  58. {
  59. Int T = Time;
  60. For(Int J=1;J<=16;J++){
  61. TR(J); CH(J); Time(T); FadeoutVol(Mes,X(J-1));
  62. }
  63. }
  64.  
  65. //------------------------------system setting---------------------------------
  66.  
  67. SoundType=1;TimeBase(96);System.MeasureShift(1);Include(guitar.h);Include(gs.h);Include(unison.h);
  68. Time(0:1:0) Tempo(Tmp);TimeSignature(Sig,4);PrintPlayTime(Ptime);
  69. ResetGM; r2 ResetGS; r2 TrackSync;
  70.  
  71. //----------------------------------strings-----------------------------------
  72.  
  73. Str TR1In = {};
  74. Str TR1 = {l12 o6 q96
  75. [Slur(0,!24) M(10) "e-24,,80&24"e1-24,,80 Slur(2,100) [5d24&e24&g24&e24] Slur(0,!24) d16&e48d edc M(30) "g4,80 :M(10) "a2,80 "b2-12"a24"g24 M(30)"a2,80]
  76. M(30) "a4,80 M(50) a-24&24a4-24,80,110 M(30) "b4,80 M(40) a24&24b8,,110a24,,110g24,,110 M(50) f+2-12,,105r12
  77. [M(10) e4^12f+g f+ M(50) d4rr M(10) e4^12f+g a M(50) b4 M(10) r:r "a4"a"bc "b4"g^"e e4,90eae M(50)g4f+4,80] a24b24
  78. `c4,85,105`c,,105`d,,105`c,,105 b4,9
作者からのコメント
AMIOです。お久しぶりです。相変わらずループ音楽です。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.3
動画
なし
投稿日時
2019-03-07 08:53
更新日時
2019-03-07 08:53
お気に入り
しゅんレイン望かまきりざーどAmegeH゛
ダウンロード数
333
タグ
タグはありません。
→この曲(id:2056)に問題がある場合こちらへ

感謝のコメント

レイン望2019/03/12
ディストーションギターの鳴らし方一つでこんなに哀愁漂う曲に仕上がる事に感心させられました。途中の1・2トラックのハモらせ方が上手
AMIO2019/03/14
> レイン望さん
ありがとうございます曲のノリ的には某カービィのエンディングBGM(通じるでしょうか?)と、BeatlesのWhile my guitar gently weepsをかなり参考にしています。。泣きのギターってやつですね。
Amege2019/04/19
この物悲しさがすごく心地いいですね。メロディラインも美しいです。
スネアに打楽器を混ぜて鳴ってる音が面白いなぁと思いました。
この曲に「ありがとう」を伝えませんか?
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。