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

on the coast - サクラ曲掲示板6

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

on the coast

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // on the coast
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. ResetGM();
  7. TrackName = {"on the coast"}
  8. Copyright = {"Yax"}
  9. r4
  10. TrackSync;
  11.  
  12.  
  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. * B : 開始時のテンポ
  75. * E : 終了時のテンポ
  76. * LEN : 開始～終了までの長さ
  77. * STP : 変換タイミング(音長)
  78. */
  79. Function DANDO(B, E, LEN, STP) {
  80. Int _STEP = 24
  81. Int _DIFF = 0
  82. Int _CNT = 0
  83. Int _TMP = 0
  84. Int _LAP = 0
  85.  
  86. IF( STP != 0 ) {
  87. _STEP = STP
  88. }
  89.  
  90. _CNT = LEN/_STEP
  91. _DIFF = (E - B)/_CNT
  92.  
  93. _TMP = B
  94. Tempo = %(B)
  95.  
  96. For(Int I = 1; I < _CNT; I++ ){
  97. r%(_STEP)
  98. _TMP = _TMP + _DIFF
  99. Tempo = %(_TMP)
  100. _LAP = _LAP + _STEP
  101. }
  102.  
  103. r%(LEN-_LAP)
  104. Tempo = %(E)
  105. r-%(LEN)
  106. }
  107.  
  108.  
  109. // フェードアウト
  110. Function FadeOut() {
  111. r1r1r1r1r1r1r1r1 EP.onTime(127,0,!1^1^1^1^1^1^1^1^1^1^1^1) r-1^1^1^1^1^1^1^1
  112. }
  113.  
  114.  
  115. // 全体の調整
  116. TR(1) V(110) REV(30) CHO(30)
  117. TR(2) V(106) REV(55) CHO(50)
  118. TR(3) V(115) REV
作者からのコメント
夕暮れの海沿い…みたいなイメージで打ち込んでみました。シンプルな構成となっています。
DLしてTW-MUSIC2で再生するのを推奨します。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-06-18 09:32
更新日時
2025-06-18 09:32
お気に入り
森と泉モスケひとりそのら
ダウンロード数
118
タグ
タグはありません。
→この曲(id:2825)に問題がある場合こちらへ

感謝のコメント

森と泉2025/06/18
良い曲をありがとうございました♪
モスケ2025/06/29
夕暮れの海沿い、光景が浮かびました。気に入りました😊
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）