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

fly over the rainbow - サクラ曲掲示板6

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

fly over the rainbow

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // fly over the rainbow
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. ResetGM(); // GM音源リセット
  7.  
  8. //曲名
  9. TrackName = {"fly over the rainbow"}
  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. * B : 開始時のテンポ
  80. * E : 終了時のテンポ
  81. * LEN : 開始～終了までの長さ
  82. * STP : 変換タイミング(音長)
  83. */
  84. Function DANDO(B, E, LEN, STP) {
  85. Int _STEP = 24
  86. Int _DIFF = 0
  87. Int _CNT = 0
  88. Int _TMP = 0
  89. Int _LAP = 0
  90.  
  91. IF( STP != 0 ) {
  92. _STEP = STP
  93. }
  94.  
  95. _CNT = LEN/_STEP
  96. _DIFF = (E - B)/_CNT
  97.  
  98. _TMP = B
  99. Tempo = %(B)
  100.  
  101. For(Int I = 1; I < _CNT; I++ ){
  102. r%(_STEP)
  103. _TMP = _TMP + _DIFF
  104. Tempo = %(_TMP)
  105. _LAP = _LAP + _STEP
  106. }
  107.  
  108. r%(LEN-_LAP)
  109. Tempo = %(E)
  110. r-%(LEN)
  111. }
  112.  
  113.  
  114. // 全体の調整
  115. TR(1) V(108) REV(30) CHO(50)
  116. TR(2) V(114) REV(35) CHO(20)
  117. TR(3) V(90) REV(80) CHO(90)
  118. TR(4) V(115
作者からのコメント
明るくアップテンポな曲です。ここで再生するとバランスが崩れるので、DLしてTW-MUSIC2にて再生してください。
ARP関数とDANDO関数を自作して使っています。
作曲者
自作
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-04-09 17:41
更新日時
2025-04-09 17:41
お気に入り
森と泉ひとりそのら
ダウンロード数
123
タグ
タグはありません。
→この曲(id:2774)に問題がある場合こちらへ

感謝のコメント

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