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

fate on around - サクラ曲掲示板6

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

fate on around

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // fate on around
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. ResetGM();
  7.  
  8. TrackName = {"fate on around"}
  9. Copyright = {"Yax"}
  10.  
  11. r2
  12. TrackSync;
  13.  
  14. Include(bend.h)
  15.  
  16.  
  17. // アルペジオ関数
  18. Function ARP(Int D, Int L, Str S) {
  19. Int LNG = L
  20. Int STP = 0
  21. Int TEMP = 0
  22. Str X = ""
  23. Str RS = ""
  24. Str NS = ""
  25. Int J = 0
  26. Array NAR = ()
  27.  
  28. For(Int I = 1; I <= 100; I++ ){
  29. X = MID(S,I,1)
  30. J = ASC(X)
  31.  
  32. IF (X == "") {
  33. EXIT
  34. }
  35.  
  36. IF ( J >= 97 ) {
  37. IF ( J <= 103 ) {
  38. IF ( NS != "" ) {
  39. NS = Replace(NS,{@-},{-@},off)
  40. NS = Replace(NS,{@+},{+@},off)
  41. NS = Replace(NS,{@#},{#@},off)
  42. NS = Replace(NS,{@*},{*@},off)
  43. NAR = (NAR,NS)
  44. NS = ""
  45. }
  46. X = X + "@"
  47. }
  48. }
  49. NS = NS + X
  50. }
  51. IF ( NS != "" ) {
  52. NS = Replace(NS,{@-},{-@},off)
  53. NS = Replace(NS,{@+},{+@},off)
  54. NS = Replace(NS,{@#},{#@},off)
  55. NS = Replace(NS,{@+},{*@},off)
  56. NAR = (NAR,NS)
  57. NS = ""
  58. }
  59.  
  60. For(Int I=0;I<SizeOf(NAR);I++){
  61. TEMP = L - STP
  62. RS = "r%" + #STR(STP)
  63. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  64. Sub{ RS NS }
  65. STP = STP+D
  66. }
  67. r%(L)
  68. }
  69.  
  70. // ××ダンド関数
  71. Function DANDO(B, E, LEN, STP) {
  72. Int _STEP = 24
  73. Int _DIFF = 0
  74. Int _CNT = 0
  75. Int _TMP = 0
  76. Int _LAP = 0
  77.  
  78. IF( STP != 0 ) {
  79. _STEP = STP
  80. }
  81.  
  82. _CNT = LEN/_STEP
  83. _DIFF = (E - B)/_CNT
  84.  
  85. _TMP = B
  86. Tempo = %(B)
  87.  
  88. For(Int I = 1; I < _CNT; I++ ){
  89. r%(_STEP)
  90. _TMP = _TMP + _DIFF
  91. Tempo = %(_TMP)
  92. _LAP = _LAP + _STEP
  93. }
  94.  
  95. r%(LEN-_LAP)
  96. Tempo = %(E)
  97. r-%(LEN)
  98. }
  99.  
  100.  
  101. // 全体の調整
  102. TR(1) V(110) REV(30) CHO(50)
  103. TR(2) V(100) REV(30) CHO(80)
  104. TR(3) V(103) REV(60) CHO(40)
  105. TR(4) V(100) REV(45) CHO(60)
  106. TR(5) V(101) REV(30) CHO(40)
  107. TR(6) V(100) REV(40) CHO(70)
  108. TR(7) V(110) REV(20) CHO(90)
  109. TR(8) V(80) REV(70) CHO(90)
  110. TR(9) V(110) REV(20) CHO(0)
  111. TR(10) V(110) REV(30) CHO(0)
  112.  
  113.  
作者からのコメント
フェードインしてくるイントロのシーケンスフレーズから拡げた曲です。
ベースの8分打ちのところはベロシティを変えてオルタネイトピッキングした雰囲気を…と入れてみました。(ぱっと判らないですけどｗ)
DLして再生するのを推奨します。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-10-22 09:16
更新日時
2025-10-22 09:16
お気に入り
レイン望
ダウンロード数
107
タグ
タグはありません。
→この曲(id:2912)に問題がある場合こちらへ

感謝のコメント

レイン望2025/10/24
トラック2のギターアルペジオの鳴らしかたが印象的でした。向かい風に抗いながら歩みを止めずに突き進んでいくというイメージで聴いていました。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）