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

feel in the breeze - サクラ曲掲示板6

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

feel in the breeze

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // feel in the breeze
  3. // (C)Yax
  4. //-----------------------------------------------
  5. ResetGM(); // GM音源用リセット
  6. TrackName = {"feel in the breeze"} //曲名
  7. Copyright = {"Yax"} //著作権表示
  8.  
  9. r4
  10. TrackSync;
  11.  
  12.  
  13. /*
  14. * アルペジオ記号用関数
  15. * D : ずれ幅
  16. * L : 全体長
  17. * S : 構成音
  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. * B : 開始時のテンポ
  74. * E : 終了時のテンポ
  75. * LEN : 開始～終了までの長さ
  76. * STP : 変換タイミング(音長)
  77. */
  78. Function DANDO(B, E, LEN, STP) {
  79. Int _STEP = 24
  80. Int _DIFF = 0
  81. Int _CNT = 0
  82. Int _TMP = 0
  83. Int _LAP = 0
  84.  
  85. IF( STP != 0 ) {
  86. _STEP = STP
  87. }
  88.  
  89. _CNT = LEN/_STEP
  90. _DIFF = (E - B)/_CNT
  91.  
  92. _TMP = B
  93. Tempo = %(B)
  94.  
  95. For(Int I = 1; I < _CNT; I++ ){
  96. r%(_STEP)
  97. _TMP = _TMP + _DIFF
  98. Tempo = %(_TMP)
  99. _LAP = _LAP + _STEP
  100. }
  101.  
  102. r%(LEN-_LAP)
  103. Tempo = %(E)
  104. r-%(LEN)
  105. }
  106.  
  107.  
  108.  
  109. // 全体の調整
  110. TR(1) V(105) REV(30) CHO(63)
  111. TR(2) V(97) REV(25) CHO(30)
  112. TR(12) V(95) REV(30) CHO(40)
  113. TR(3) V(105) REV(28) CHO(
作者からのコメント
エレピの響きに魅せられて…。
DLして再生するのを推奨します。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-05-14 09:02
更新日時
2025-05-14 09:02
お気に入り
森と泉ひとりそのら
ダウンロード数
102
タグ
タグはありません。
→この曲(id:2800)に問題がある場合こちらへ

感謝のコメント

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