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

sunset on grief - サクラ曲掲示板6

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

sunset on grief

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // sunset on grief
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. ResetGM();
  7.  
  8. TrackName = {"sunset on grief"}
  9. Copyright = {"Yax"}
  10.  
  11. r4
  12. TrackSync;
  13.  
  14.  
  15. // アルペジオ関数
  16. Function ARP(Int D, Int L, Str S) {
  17. Int LNG = L
  18. Int STP = 0
  19. Int TEMP = 0
  20. Str X = ""
  21. Str RS = ""
  22. Str NS = ""
  23. Int J = 0
  24. Array NAR = ()
  25.  
  26. For(Int I = 1; I <= 100; I++ ){
  27. X = MID(S,I,1)
  28. J = ASC(X)
  29.  
  30. IF (X == "") {
  31. EXIT
  32. }
  33.  
  34. IF ( J >= 97 ) {
  35. IF ( J <= 103 ) {
  36. IF ( NS != "" ) {
  37. NS = Replace(NS,{@-},{-@},off)
  38. NS = Replace(NS,{@+},{+@},off)
  39. NS = Replace(NS,{@#},{#@},off)
  40. NS = Replace(NS,{@*},{*@},off)
  41. NAR = (NAR,NS)
  42. NS = ""
  43. }
  44. X = X + "@"
  45. }
  46. }
  47. NS = NS + X
  48. }
  49. IF ( NS != "" ) {
  50. NS = Replace(NS,{@-},{-@},off)
  51. NS = Replace(NS,{@+},{+@},off)
  52. NS = Replace(NS,{@#},{#@},off)
  53. NS = Replace(NS,{@+},{*@},off)
  54. NAR = (NAR,NS)
  55. NS = ""
  56. }
  57.  
  58. For(Int I=0;I<SizeOf(NAR);I++){
  59. TEMP = L - STP
  60. RS = "r%" + #STR(STP)
  61. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  62. Sub{ RS NS }
  63. STP = STP+D
  64. }
  65. r%(L)
  66. }
  67.  
  68. // ××ダンド関数
  69. Function DANDO(B, E, LEN, STP) {
  70. Int _STEP = 24
  71. Int _DIFF = 0
  72. Int _CNT = 0
  73. Int _TMP = 0
  74. Int _LAP = 0
  75.  
  76. IF( STP != 0 ) {
  77. _STEP = STP
  78. }
  79.  
  80. _CNT = LEN/_STEP
  81. _DIFF = (E - B)/_CNT
  82.  
  83. _TMP = B
  84. Tempo = %(B)
  85.  
  86. For(Int I = 1; I < _CNT; I++ ){
  87. r%(_STEP)
  88. _TMP = _TMP + _DIFF
  89. Tempo = %(_TMP)
  90. _LAP = _LAP + _STEP
  91. }
  92.  
  93. r%(LEN-_LAP)
  94. Tempo = %(E)
  95. r-%(LEN)
  96. }
  97.  
  98.  
  99. // 全体の調整
  100. TR(1) V(113) REV(20) CHO(40)
  101. TR(2) V(110) REV(40) CHO(20)
  102. TR(3) V(110) REV(30) CHO(66)
  103. TR(4) V(110) REV(40) CHO(60)
  104. TR(5) V(110) REV(48) CHO(80)
  105. TR(6) V(110) REV(47) CHO(64)
  106. TR(7) V(110) REV(50) CHO(70)
  107. TR(8) V(110) REV(20) CHO(0)
  108. TR(9) V(110) REV(20) CHO(0)
  109. TR(10) V(115) REV(30) CHO(0)
  110.  
  111.  
  112. // テンポ
  113. INT T =
作者からのコメント
歌ものっぽい感じで打ち込んでみました。
DLして再生するのを推奨します。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-11-19 15:11
更新日時
2025-11-19 15:11
お気に入り
森と泉
ダウンロード数
93
タグ
タグはありません。
→この曲(id:2931)に問題がある場合こちらへ

感謝のコメント

森と泉2025/11/20
DLして聴きました。悲しい曲にSawtoothLeadがよく合っていました。良い曲をありがとうございました♪
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）