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

think back to ancient - サクラ曲掲示板6

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

think back to ancient

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // think back to ancient
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. ResetGM(); // GM音源用リセット
  7.  
  8. //曲名
  9. TrackName = {"think back to ancient"}
  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(110) REV(30) CHO(20)
  116. TR(2) V(110) REV(30) CHO(20)
  117. TR(3) V(105) REV(60) CHO(70)
  118. TR(4) V(90) REV(100) CHO(90)
  119. TR(5)
作者からのコメント
古きに思いをはせて…みたいなイメージで、もともとピアノだけだったのがいつの間にかこうなりました。
DLして再生するのを推奨します。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
実行エンジン
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-05-14 08:56
更新日時
2025-05-14 08:56
お気に入り
森と泉
ダウンロード数
111
タグ
タグはありません。
→この曲(id:2799)に問題がある場合こちらへ

感謝のコメント

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