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

Tears Never Back - サクラ曲掲示板6

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

Tears Never Back

AMIO動画
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. TrackName = {"Tears Never Back"};
  2. Copyright = {"AMIO"};
  3.  
  4. /*
  5. Equinox_Grand_Pianos.sf2 bank 0:0 steinway D
  6. Valiant violin 0:40
  7. */
  8.  
  9.  
  10.  
  11. Int Repeat = 2;
  12. // 繰り返し回数を設定できます
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20. //-----------------------------variables---------------------------------
  21.  
  22. Int In = 1;//イントロからメロディースタートまでの時間
  23. Int Ltime = 60;//1ループの時間
  24. Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間
  25. Int Fade = 8;//フェードアウトにかかる時間
  26. Int Tmp = 84;//テンポ
  27. Int Sig = 4;
  28.  
  29. Int Ptime = (In+Ltime*Repeat+Fade)*Sig*60/Tmp;
  30.  
  31. //---------------------------functions---------------------------------
  32.  
  33. Function Repstr(Str MML,Int Tim,Int Rep,Int Beg=0)//MML繰り返し処理関数
  34. {
  35. 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 = {l8 o6 t.Random(2) v.Random(3) q.Random(4) y64(127) rrrrr v.N(80,90,95)"d"g"b- };
  75. Str TR1 = {[v100
  76. Sub{"b-2,,80,-3}d^ddcdc24,95,90d24,95,90c24,95,90"a,,80
  77. Sub{"g2,,80,-3}"b-2^8,,90"a,,85d,,95f,,100
  78. Sub{"b-2,,90,-3}g4ggSub{"a2,,80,-3}g^fe-
  79. Sub{"b-2,,90,-3}f2r"b-,,90d,,95f,,100
  80. Sub{e-2,,110,0}a2^8,,110,6c,,90f,,95a,,100
  81. Sub{d2,,95,-3}Sub{g2,,95,3}b-2,,,9rgf,,95d,
作者からのコメント
AMIOです。今回もループ音楽です。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY-ND商用利用 ○改変 ×そのままの形でなら使える
転載
許可
推奨音源
MMLに記載
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
投稿日時
2024-05-20 23:53
更新日時
2024-05-20 23:53
お気に入り
森と泉Amegesonny折れH゛
ダウンロード数
252
タグ
タグはありません。
→この曲(id:2582)に問題がある場合こちらへ

感謝のコメント

Amege2024/05/27
叙情的で流れるようなピアノバラード、美しいです。優しいとも切ないとも感じ取れる、聴く側の気分を教えてくれるような曲ですね。
バイオリンの音にも仄かに抑揚があって呼吸が感じられました。
次に来たら嬉しい展開と、来たら嬉しいコード進行、そのとき来たら嬉しい音程みたいなツボを一つ一つ満たしてくれてる感じで気持ち良かったです。
AMIO2024/05/28
> Amegeさん
ありがとうございます音のはまり方は自分でも良いと思っていたので、そのように書いていただいて嬉しいです
Joker2024/06/15
良い曲ですね。しんみり聴けました。
AMIO2024/06/19
> Jokerさん
ありがとうございますしんみりしていただけたなら嬉しいです
この曲に「ありがとう」を伝えませんか?
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。