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

One weekend - サクラ曲掲示板6

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

One weekend

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // One weekend
  3. // (C)Yax
  4. //-----------------------------------------------
  5. ResetGM();
  6. TrackName = {"One weekend"}
  7. Copyright = {"Yax"}
  8.  
  9. Include(bend.h)
  10. Include(delay.h)
  11.  
  12. r4
  13. TrackSync;
  14.  
  15.  
  16. /*
  17. * アルペジオ記号用
  18. */
  19. Function ARP(Int D, Int L, Str S) {
  20. Int LNG = L
  21. Int STP = 0
  22. Int TEMP = 0
  23. Str X = ""
  24. Str RS = ""
  25. Str NS = ""
  26. Int J = 0
  27. Array NAR = ()
  28.  
  29. For(Int I = 1; I <= 100; I++ ){
  30. X = MID(S,I,1)
  31. J = ASC(X)
  32.  
  33. IF (X == "") {
  34. EXIT
  35. }
  36.  
  37. IF ( J >= 97 ) {
  38. IF ( J <= 103 ) {
  39. IF ( NS != "" ) {
  40. NS = Replace(NS,{@-},{-@},off)
  41. NS = Replace(NS,{@+},{+@},off)
  42. NS = Replace(NS,{@#},{#@},off)
  43. NS = Replace(NS,{@*},{*@},off)
  44. NAR = (NAR,NS)
  45. NS = ""
  46. }
  47. X = X + "@"
  48. }
  49. }
  50. NS = NS + X
  51. }
  52. IF ( NS != "" ) {
  53. NS = Replace(NS,{@-},{-@},off)
  54. NS = Replace(NS,{@+},{+@},off)
  55. NS = Replace(NS,{@#},{#@},off)
  56. NS = Replace(NS,{@+},{*@},off)
  57. NAR = (NAR,NS)
  58. NS = ""
  59. }
  60.  
  61. For(Int I=0;I<SizeOf(NAR);I++){
  62. TEMP = L - STP
  63. RS = "r%" + #STR(STP)
  64. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  65. Sub{ RS NS }
  66. STP = STP+D
  67. }
  68. r%(L)
  69. }
  70.  
  71. /*
  72. * 最後に転調するとき用
  73. */
  74. Function LAST() {
  75. TrackKey(1)
  76. }
  77.  
  78. /*
  79. * ドラムトラックのキー調整用
  80. * Keyでドラムがおかしくなるので、下のKeyの符号を入れ替えた値を指定する
  81. */
  82. Function DRUM_KEY() {
  83. TrackKey(2)
  84. }
  85.  
  86. Key(-2) // 全体のキー
  87.  
  88. Tempo=138
  89.  
  90.  
  91. //------------------------------------
  92. // Track 1 : Bass
  93. //------------------------------------
  94. TR(1) CH(1) P(64)
  95. REV(70)
  96. CHO(40)
  97. r2
  98. o2 l16
  99.  
  100. @34 v98 q90
  101. a1^1 g1^1
  102. f1^1 g1g4g4g+4g+4
  103.  
  104. @37 v90
  105. q80a8r2.q30a>q80a< a8r4ar rraq30aq80>a<arq30a
  106. q80g8r2.q30g>q80g< g8r4gr rrgrq30ggq80>g<q30g
  107. q80f8r2.q30f>q80f< f8r4fr rrfq30fq80>f<frq30f
  108. q80g8r2.q30gq80b e8r4er rrerq30eeq80g+q30e
  109.  
  110. [2
  111. q80a8q30a>q80a<rq30ara q80aq30aq80>e&!16c< q30ara>q80a<
  112. q30aaq80>c&!16e<q30aa>q80a<q30a rara q80aq30a>q80ae<
  113.  
作者からのコメント
忙しかった週末を思い出して…。
スラップベースの打ち込み研究目的から始まったものだったりします。
DLしてTW-MUSIC2で再生するのを推奨します。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-12-03 08:53
更新日時
2025-12-03 08:53
お気に入り
森と泉
ダウンロード数
93
タグ
タグはありません。
→この曲(id:2936)に問題がある場合こちらへ

感謝のコメント

森と泉2025/12/05
何たってベースがカッコいいですね。良い曲をありがとうございました♪
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）