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

躍動する絵画 - サクラ曲掲示板6

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

躍動する絵画

AMIO
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. TrackName = {"躍動する絵画"};
  2. Copyright = {"S.Zayo"};
  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 = 3;//イントロからメロディースタートまでの時間
  22. Int Ltime = 27;//１ループの時間
  23. Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間
  24. Int Fade = 4;//フェードアウトにかかる時間
  25. Int Tmp = 130;//テンポ
  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. TimeBase(96);System.MeasureShift(1);Include(guitar.h);
  69. Time(0:1:0) Tempo(Tmp);TimeSignature(Sig,4);TrackSync;PrintPlayTime(Ptime);
  70.  
  71. //-------------------------------string definitions---------------------------------
  72.  
  73. Str TrpIn = {};
  74. Str Trp = {[r1] [8 l24 r8 c^rd^^e^f^^^f^rrrrrrr r1][4r1]l16 d^^"b-^^f^ e^^^rrrr e^^c^^g^ f+^^^rrrr b-8r8a8r8d8e8f8g8 f2^4^8f16&g16 e8};
  75. Str TrpOut = {[r1] l24 r8 c^rd^^e^f^^^f^rrrrrrr r1};
  76.  
  77. Str Trb = {[6r1]l24 r8 "a^r"b-^^c^d^^^d^rrrrrrr r1 l24 r8 "a^r"b-^^"b^c^^^c^rrrrrrr r1
  78. [l24 r8 "a^r"b-^^"b^c^^^c^rrrrrrr r1]l24 r8 "a^r"b-^^c^d^^^d^rrrrrrr r1 l24 r8 "a^r"b-^^"b^c^^^c^rrrrrrr r1
  79. [4r1]l16 "b-^^"g^^d^ c^^^rrrr c^^"a^^e-^ d^^^rrrr g8r8f8r8"b8c8d8e8 d2^4^8d16&e16 c8};
  80.  
  81. Str Obe = {[18
作者からのコメント
6では初めまして。S.Zayoという者です。相変わらずループ曲です。サックスパートはあまり自信ありません（笑）
作曲者
S.Zayo
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
timidity++ (自分の環境の中では最も音が良いというだけで、最善というわけではない)
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.3
動画
なし
投稿日時
2010-07-10 19:39
更新日時
2010-07-10 20:07
お気に入り
さくらもどきH゛
ダウンロード数
572
タグ
タグはありません。
→この曲(id:147)に問題がある場合こちらへ

感謝のコメント

さくらもどき2010/07/13
お洒落で軽快な曲ですね～
聞いていると楽しい気分になれます。
ジャジーな雰囲気に音色がとても良く合っていますね
Azuline2010/07/14
S.Zayoさん、お久しぶりです。
なんだか、とても楽しい曲ですね。
トラック３のメロディや、軽やかに動き回るトラック13のパートが、特に好きです。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）