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

Morning routines - サクラ曲掲示板6

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

Morning routines

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // Morning routines
  3. // (C)Yax
  4. //-----------------------------------------------
  5. ResetGM();
  6. TrackName = {"Morning routines"}
  7. Copyright = {"Yax"}
  8.  
  9. Include(bend.h)
  10.  
  11. r4
  12. TrackSync;
  13.  
  14. /*
  15. * アルペジオ記号用関数
  16. * D : ずれ幅
  17. * L : 全体長
  18. * S : 構成音
  19. */
  20. Function ARP(Int D, Int L, Str S) {
  21. Int LNG = L
  22. Int STP = 0
  23. Int TEMP = 0
  24. Str X = ""
  25. Str RS = ""
  26. Str NS = ""
  27. Int J = 0
  28. Array NAR = ()
  29.  
  30. For(Int I = 1; I <= 100; I++ ){
  31. X = MID(S,I,1)
  32. J = ASC(X)
  33.  
  34. IF (X == "") {
  35. EXIT
  36. }
  37.  
  38. IF ( J >= 97 ) {
  39. IF ( J <= 103 ) {
  40. IF ( NS != "" ) {
  41. NS = Replace(NS,{@-},{-@},off)
  42. NS = Replace(NS,{@+},{+@},off)
  43. NS = Replace(NS,{@#},{#@},off)
  44. NS = Replace(NS,{@*},{*@},off)
  45. NAR = (NAR,NS)
  46. NS = ""
  47. }
  48. X = X + "@"
  49. }
  50. }
  51. NS = NS + X
  52. }
  53. IF ( NS != "" ) {
  54. NS = Replace(NS,{@-},{-@},off)
  55. NS = Replace(NS,{@+},{+@},off)
  56. NS = Replace(NS,{@#},{#@},off)
  57. NS = Replace(NS,{@+},{*@},off)
  58. NAR = (NAR,NS)
  59. NS = ""
  60. }
  61.  
  62. For(Int I=0;I<SizeOf(NAR);I++){
  63. TEMP = L - STP
  64. RS = "r%" + #STR(STP)
  65. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  66. Sub{ RS NS }
  67. STP = STP+D
  68. }
  69. r%(L)
  70. }
  71.  
  72.  
  73.  
  74. // テンポ
  75. Tempo=126
  76.  
  77.  
  78.  
  79. //------------------------------------
  80. // Track 1 : Bass
  81. //------------------------------------
  82. TR(1) CH(1) P(60)
  83. @37,90,1 o2 l16 v90
  84. REV(40)
  85. CHO(50)
  86. Slur(0)
  87. r4
  88. [4
  89. e8rr rrea g+8rr rrg+>c+<
  90. :
  91. b8rr rrbf+ g+8rr rrg+d
  92. ]
  93. b8rr rrbf+ brrb8.g+g+
  94.  
  95. [2
  96. [2
  97. a8rarrar a8rarr>a<r
  98. f+8rf+rrf+r f+8rf+rr>f+<r
  99. g+8rg+rrg+r g+8rg+rr>g+<r
  100. :
  101. e8rerrer e8rerr>e<r
  102. ]
  103. e8rerr>er< d8e8g+8b8
  104.  
  105. [2
  106. >c8rc8rcr c8<g8c8&!8e8
  107. a8ra8rar a8d8e16f16f+8
  108. g8rg8rgr g8>d8<b8a16&!16a-16
  109. :
  110. g8re8rgr b8gb>cde8<
  111. ]
  112. :
  113. b8rb8rbr g4g+4
  114. ]
  115. b8rb8rbr g8>g8<a8a>a<
  116.  
  117. [4
  118. e8rr rrea g+8rr rrg+>c+<
  119. :
  120. b8rr rrbf+ g+8rr rrg+d
  121. ]
  122. b
作者からのコメント
さわやかだけど慌ただしい朝をイメージ、最初のリフがぱっと出てきてそこから拡げました。転調したりと普段やらないことをやってますｗ
DLして再生するのを推奨します。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-07-02 09:03
更新日時
2025-07-02 09:03
お気に入り
ななこっち★
ダウンロード数
144
タグ
タグはありません。
→この曲(id:2831)に問題がある場合こちらへ

感謝のコメント

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