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

Any Memories... - サクラ曲掲示板6

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

Any Memories...

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // Any Memories...
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. ResetGM();
  7. TrackName = {"Any Memories..."}
  8. Copyright = {"Yax"}
  9.  
  10. Function ARP(Int D, Int L, Str S) {
  11. Int LNG = L
  12. Int STP = 0
  13. Int TEMP = 0
  14. Str X = ""
  15. Str RS = ""
  16. Str NS = ""
  17. Int J = 0
  18. Array NAR = ()
  19.  
  20. For(Int I = 1; I <= 100; I++ ){
  21. X = MID(S,I,1)
  22. J = ASC(X)
  23.  
  24. IF (X == "") {
  25. EXIT
  26. }
  27.  
  28. IF ( J >= 97 ) {
  29. IF ( J <= 103 ) {
  30. IF ( NS != "" ) {
  31. NS = Replace(NS,{@-},{-@},off)
  32. NS = Replace(NS,{@+},{+@},off)
  33. NS = Replace(NS,{@#},{#@},off)
  34. NS = Replace(NS,{@*},{*@},off)
  35. NAR = (NAR,NS)
  36. NS = ""
  37. }
  38. X = X + "@"
  39. }
  40. }
  41. NS = NS + X
  42. }
  43. IF ( NS != "" ) {
  44. NS = Replace(NS,{@-},{-@},off)
  45. NS = Replace(NS,{@+},{+@},off)
  46. NS = Replace(NS,{@#},{#@},off)
  47. NS = Replace(NS,{@+},{*@},off)
  48. NAR = (NAR,NS)
  49. NS = ""
  50. }
  51.  
  52. For(Int I=0;I<SizeOf(NAR);I++){
  53. TEMP = L - STP
  54. RS = "r%" + #STR(STP)
  55. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  56. Sub{ RS NS }
  57. STP = STP+D
  58. }
  59. r%(L)
  60. }
  61.  
  62. r2
  63. TrackSync;
  64.  
  65. Tempo=112
  66.  
  67. Key(1)
  68.  
  69.  
  70.  
  71. // 全体の調整
  72. TR(1) V(117) REV(50) CHO(30) @1,8,0
  73. TR(2) V(118) REV(50) CHO(30) @1,8,0
  74. TR(3) V(118) REV(50) CHO(30) @1,8,0
  75. TR(4) V(92) REV(70) CHO(90)
  76.  
  77.  
  78. //------------------------------------
  79. // Track 1 :
  80. //------------------------------------
  81. TR(1) CH(1) P(74)
  82. l8 v96
  83. Slur(3)
  84.  
  85. o3 q95
  86.  
  87. [2
  88. ARP(!8,!1,{eb>e<}) r-1 <e1>
  89. ARP(!8,!1,{f+b>f+<}) r-1 <f+1> r-4 <b4>
  90. ARP(!8,!1,{g>dg<}) r-1 <g1>
  91. ARP(!8,!1,{f+>c+f+<}) r-1 <f+1> r-2 d4<a4>
  92. ARP(!8,!1,{eb>e<}) r-1 <e1>
  93. ARP(!8,!1,{f+b>f+<}) r-1 <f+1> r-4 <b4>
  94. ARP(!8,!1,{g>dg<}) r-1 <g1>
  95. ARP(!8,!1,{a>ea<}) r-1 <a1> r-2 e2
  96. [2
  97. y64,1; cfaf4a>cf< y64,0; r-1 f1
  98. y64,1; dgbg4b>d<b y64,0; r-1 g1
  99. y64,1; ea>c+<a4>c+ea y64,0; r-1 <a1>
  100. :
作者からのコメント
ある日を思い出して…みたいな、少し抒情的な感じのピアノ曲です。
ストリングスパートも若干入れてありますが、環境によってボリュームは変えるとより良い感じで聴けるでしょう。
リバーブがあると雰囲気が出るので、DLしてTW-MUSIC2で再生するのをお勧めします。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-11-05 09:51
更新日時
2025-11-05 09:51
お気に入り
(^o^)/
ダウンロード数
115
タグ
タグはありません。
→この曲(id:2926)に問題がある場合こちらへ

感謝のコメント

感謝のコメント募集中です!!
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）