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

remember youth - サクラ曲掲示板6

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

remember youth

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

感謝のコメント

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