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

premontion of beginning - サクラ曲掲示板6

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

premontion of beginning

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // premontion of beginning
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. TrackName = {"premontion of beginning"}
  7. Copyright = {"Yax"}
  8.  
  9. ResetGM();
  10. r4
  11. TrackSync;
  12.  
  13.  
  14. //------------------------------------------------
  15. // アルペジオ関数
  16. //------------------------------------------------
  17. Function ARP(Int D, Int L, Str S) {
  18. Int LNG = L
  19. Int STP = 0
  20. Int TEMP = 0
  21. Str X = ""
  22. Str RS = ""
  23. Str NS = ""
  24. Int J = 0
  25. Array NAR = ()
  26.  
  27. For(Int I = 1; I <= 100; I++ ){
  28. X = MID(S,I,1)
  29. J = ASC(X)
  30.  
  31. IF (X == "") {
  32. EXIT
  33. }
  34.  
  35. IF ( J >= 97 ) {
  36. IF ( J <= 103 ) {
  37. IF ( NS != "" ) {
  38. NS = Replace(NS,{@-},{-@},off)
  39. NS = Replace(NS,{@+},{+@},off)
  40. NS = Replace(NS,{@#},{#@},off)
  41. NS = Replace(NS,{@*},{*@},off)
  42. NAR = (NAR,NS)
  43. NS = ""
  44. }
  45. X = X + "@"
  46. }
  47. }
  48. NS = NS + X
  49. }
  50. IF ( NS != "" ) {
  51. NS = Replace(NS,{@-},{-@},off)
  52. NS = Replace(NS,{@+},{+@},off)
  53. NS = Replace(NS,{@#},{#@},off)
  54. NS = Replace(NS,{@+},{*@},off)
  55. NAR = (NAR,NS)
  56. NS = ""
  57. }
  58.  
  59. For(Int I=0;I<SizeOf(NAR);I++){
  60. TEMP = L - STP
  61. RS = "r%" + #STR(STP)
  62. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  63. Sub{ RS NS }
  64. STP = STP+D
  65. }
  66. r%(L)
  67. }
  68.  
  69. //------------------------------------------------
  70. // 全体の調整
  71. //------------------------------------------------
  72. TR(1) V(110) REV(30) CHO(40)
  73. TR(2) V(112) REV(30) CHO(0)
  74. TR(3) V(117) REV(30) CHO(30)
  75. TR(4) V(101) REV(80) CHO(80)
  76. TR(5) V(110) REV(60) CHO(70)
  77. TR(6) V(100) REV(70) CHO(40)
  78. TR(7) V(110) REV(50) CHO(20)
  79. TR(8) V(110) REV(20) CHO(0)
  80. TR(9) V(110) REV(20) CHO(0)
  81. TR(11) V(110) REV(20) CHO(0)
  82. TR(12) V(110) REV(20) CHO(0)
  83. TR(13) V(110) REV(20) CHO(0)
  84. TR(14) V(110) REV(20) CHO(0)
  85. TR(15) V(110) REV(20) CHO(0)
  86. TR(16) V(110) REV(20) CHO(0)
  87. TR(10) V(120) REV(30) CHO(0)
  88.  
  89.  
  90. //-------------------------------------------
作者からのコメント
新しい始まりの予感…ちょっと不安もあるけど…みたいなイメージで打ち込んでみました。
スラップベースでノリ良い感じを意識しています。
DLして再生するのを推奨します。

今年は毎週水曜日投稿でしたが、来年は少しゆっくりした投稿ペースになるかと思います。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-12-31 12:54
更新日時
2025-12-31 12:54
お気に入り
(^o^)/
ダウンロード数
78
タグ
タグはありません。
→この曲(id:2948)に問題がある場合こちらへ

感謝のコメント

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