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

Think someday - サクラ曲掲示板6

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

Think someday

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // Think someday
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. ResetGM(); // GM音源リセット
  7.  
  8. // 曲名
  9. TrackName = {"Think someday"}
  10.  
  11. // 著作権表示
  12. Copyright = {"Yax"}
  13.  
  14. r4
  15. TrackSync; // 全てのトラックを同期
  16.  
  17.  
  18.  
  19.  
  20. /*
  21. * アルペジオ記号用関数
  22. * D : ずれ幅
  23. * L : 全体長
  24. * S : 構成音
  25. */
  26. Function ARP(Int D, Int L, Str S) {
  27. Int LNG = L
  28. Int STP = 0
  29. Int TEMP = 0
  30. Str X = ""
  31. Str RS = ""
  32. Str NS = ""
  33. Int J = 0
  34. Array NAR = ()
  35.  
  36. For(Int I = 1; I <= 100; I++ ){
  37. X = MID(S,I,1)
  38. J = ASC(X)
  39.  
  40. IF (X == "") {
  41. EXIT
  42. }
  43.  
  44. IF ( J >= 97 ) {
  45. IF ( J <= 103 ) {
  46. IF ( NS != "" ) {
  47. NS = Replace(NS,{@-},{-@},off)
  48. NS = Replace(NS,{@+},{+@},off)
  49. NS = Replace(NS,{@#},{#@},off)
  50. NS = Replace(NS,{@*},{*@},off)
  51. NAR = (NAR,NS)
  52. NS = ""
  53. }
  54. X = X + "@"
  55. }
  56. }
  57. NS = NS + X
  58. }
  59. IF ( NS != "" ) {
  60. NS = Replace(NS,{@-},{-@},off)
  61. NS = Replace(NS,{@+},{+@},off)
  62. NS = Replace(NS,{@#},{#@},off)
  63. NS = Replace(NS,{@+},{*@},off)
  64. NAR = (NAR,NS)
  65. NS = ""
  66. }
  67.  
  68. For(Int I=0;I<SizeOf(NAR);I++){
  69. TEMP = L - STP
  70. RS = "r%" + #STR(STP)
  71. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  72. Sub{ RS NS }
  73. STP = STP+D
  74. }
  75. r%(L)
  76. }
  77.  
  78.  
  79.  
  80.  
  81. Key(1)
  82.  
  83. Function ETRANS() {
  84. TrackKey(1)
  85. }
  86. Function ETRANS_REV() {
  87. TrackKey(0)
  88. }
  89.  
  90. Tempo=100
  91.  
  92.  
  93. // 全体の調整
  94. TR(1) V(110) REV(50) CHO(30)
  95. TR(2) V(110) REV(70) CHO(50)
  96. TR(3) V(100) REV(70) CHO(40)
  97. TR(4) V(63) REV(100) CHO(110)
  98.  
  99.  
  100. //------------------------------------
  101. // Track 1 :
  102. //------------------------------------
  103. TR(1) CH(1) P(64)
  104. @1,8,0 l8 v99 q95
  105.  
  106. [2
  107. o5
  108. v(MML(v)-20)
  109. [2
  110. ARP(0,!2.^8,{gb>e<}) ARP(!8,!2^8,{>gf+ed<})
  111. ARP(0,!1.,{a>c+e<}) r-2. v(MML(v)-10)> r'a2^8c+2^8'< v(MML(v)+10)
  112. ARP(0,!2.^8,{gb>e<}) ARP(!8,!2^8,{>gf+e<})
  113. :
  114. ARP(4,!1.,{f+a>c+e<}) r-2. v(MML(v)-10) >gagab>c+<<
作者からのコメント
緩いピアノ曲を書いてみたつもりが1台で弾けない感じに…。
MMLで打ち込みましたが、こういうのはDTMで鍵盤を使って打ち込んだ方が楽だなと思いました(笑)
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-04-30 11:39
更新日時
2025-04-30 11:39
お気に入り
ななこっち★
ダウンロード数
123
タグ
タグはありません。
→この曲(id:2788)に問題がある場合こちらへ

感謝のコメント

ななこっち★2025/05/05
別にいいんじゃないかしら？１台で弾けなくても
でもペダル駆使すればあたしには弾けそうだわ

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