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

in the cool town - サクラ曲掲示板6

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

in the cool town

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

感謝のコメント

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