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

stray in... - サクラ曲掲示板6

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

stray in...

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // stray in...
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. ResetGM(); // GM音源用リセット
  7.  
  8. //曲名
  9. TrackName = {"stray in..."}
  10.  
  11. //著作権表示
  12. Copyright = {"Yax"}
  13.  
  14. r4
  15. TrackSync;
  16.  
  17.  
  18.  
  19. /*
  20. * アルペジオ記号用関数
  21. * D : ずれ幅
  22. * L : 全体長
  23. * S : 構成音
  24. */
  25. Function ARP(Int D, Int L, Str S) {
  26. Int LNG = L
  27. Int STP = 0
  28. Int TEMP = 0
  29. Str X = ""
  30. Str RS = ""
  31. Str NS = ""
  32. Int J = 0
  33. Array NAR = ()
  34.  
  35. For(Int I = 1; I <= 100; I++ ){
  36. X = MID(S,I,1)
  37. J = ASC(X)
  38.  
  39. IF (X == "") {
  40. EXIT
  41. }
  42.  
  43. IF ( J >= 97 ) {
  44. IF ( J <= 103 ) {
  45. IF ( NS != "" ) {
  46. NS = Replace(NS,{@-},{-@},off)
  47. NS = Replace(NS,{@+},{+@},off)
  48. NS = Replace(NS,{@#},{#@},off)
  49. NS = Replace(NS,{@*},{*@},off)
  50. NAR = (NAR,NS)
  51. NS = ""
  52. }
  53. X = X + "@"
  54. }
  55. }
  56. NS = NS + X
  57. }
  58. IF ( NS != "" ) {
  59. NS = Replace(NS,{@-},{-@},off)
  60. NS = Replace(NS,{@+},{+@},off)
  61. NS = Replace(NS,{@#},{#@},off)
  62. NS = Replace(NS,{@+},{*@},off)
  63. NAR = (NAR,NS)
  64. NS = ""
  65. }
  66.  
  67. For(Int I=0;I<SizeOf(NAR);I++){
  68. TEMP = L - STP
  69. RS = "r%" + #STR(STP)
  70. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  71. Sub{ RS NS }
  72. STP = STP+D
  73. }
  74. r%(L)
  75. }
  76.  
  77.  
  78.  
  79. // 全体の調整
  80. TR(1) V(110) REV(25) CHO(90)
  81. TR(2) V(85) REV(70) CHO(90)
  82. TR(3) V(97) REV(30) CHO(30)
  83. TR(4) V(94) REV(40) CHO(70)
  84. TR(5) V(78) REV(40) CHO(90)
  85. TR(6) V(96) REV(60) CHO(70)
  86. TR(7) V(102) REV(90) CHO(100)
  87. TR(8) V(110) REV(20) CHO(0)
  88. TR(9) V(110) REV(20) CHO(0)
  89. TR(10) V(115) REV(35) CHO(10)
  90.  
  91.  
  92. // テンポ
  93. INT T = 132 // 通常のテンポ
  94.  
  95. Tempo=(T)
  96.  
  97.  
  98. // キー
  99.  
  100. INT KEY=-1
  101.  
  102. Key(KEY) // 全体のキー
  103. TR(10) TrackKey(KEY * -1) // リズムトラックの調整用、Keyの符号を逆にしたものをセットしておく
  104. TR(20) TrackKey(KEY * -1) // リズムトラックの調整用、Keyの符号を逆にしたものをセットしておく
  105.  
  106.  
  107. //------------------------------------
  108. // Track 1 :
  109. //------------------------------------
  110. TR(1)
作者からのコメント
タイトル通り打ち込み内容にも迷いが…ｗ
DLして再生するのを推奨します。
バックに入っているカッティング系をMMLで書くには？という実験から始まったものだったりします。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-05-21 09:00
更新日時
2025-05-21 09:00
お気に入り
ひとりそのらレイン望
ダウンロード数
106
タグ
タグはありません。
→この曲(id:2812)に問題がある場合こちらへ

感謝のコメント

レイン望2025/06/12
バッキング用途でのミュートギターの使い方の参考になりそうな曲だなーと思いました。
自分は普段の作曲でミュートギターを活用する事が滅多に無いので、こうやって使いこなしてる曲はすごく新鮮に聴こえました。
良い曲をありがとうございました♪
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）