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

No names - サクラ曲掲示板6

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

No names

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // No names
  3. // (C)Yax
  4. //-----------------------------------------------
  5. ResetGM();
  6. TrackName = {"No names"}
  7. Copyright = {"Yax"}
  8.  
  9. r4
  10. TrackSync;
  11.  
  12.  
  13. Function ARP(Int D, Int L, Str S) {
  14. Int LNG = L
  15. Int STP = 0
  16. Int TEMP = 0
  17. Str X = ""
  18. Str RS = ""
  19. Str NS = ""
  20. Int J = 0
  21. Array NAR = ()
  22.  
  23. For(Int I = 1; I <= 100; I++ ){
  24. X = MID(S,I,1)
  25. J = ASC(X)
  26.  
  27. IF (X == "") {
  28. EXIT
  29. }
  30.  
  31. IF ( J >= 97 ) {
  32. IF ( J <= 103 ) {
  33. IF ( NS != "" ) {
  34. NS = Replace(NS,{@-},{-@},off)
  35. NS = Replace(NS,{@+},{+@},off)
  36. NS = Replace(NS,{@#},{#@},off)
  37. NS = Replace(NS,{@*},{*@},off)
  38. NAR = (NAR,NS)
  39. NS = ""
  40. }
  41. X = X + "@"
  42. }
  43. }
  44. NS = NS + X
  45. }
  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.  
  55. For(Int I=0;I<SizeOf(NAR);I++){
  56. TEMP = L - STP
  57. RS = "r%" + #STR(STP)
  58. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  59. Sub{ RS NS }
  60. STP = STP+D
  61. }
  62. r%(L)
  63. }
  64.  
  65. Function DANDO(B, E, LEN, STP) {
  66. Int _STEP = 24
  67. Int _DIFF = 0
  68. Int _CNT = 0
  69. Int _TMP = 0
  70. Int _LAP = 0
  71.  
  72. IF( STP != 0 ) {
  73. _STEP = STP
  74. }
  75.  
  76. _CNT = LEN/_STEP
  77. _DIFF = (E - B)/_CNT
  78.  
  79. _TMP = B
  80. Tempo = %(B)
  81.  
  82. For(Int I = 1; I < _CNT; I++ ){
  83. r%(_STEP)
  84. _TMP = _TMP + _DIFF
  85. Tempo = %(_TMP)
  86. _LAP = _LAP + _STEP
  87. }
  88.  
  89. r%(LEN-_LAP)
  90. Tempo = %(E)
  91. r-%(LEN)
  92. }
  93.  
  94.  
  95.  
  96. // 全体の調整
  97. TR(1) V(110) REV(30) CHO(10) @2
  98. TR(2) V(108) REV(40) CHO(10) @2
  99.  
  100. Tempo=90
  101.  
  102. Key(0)
  103.  
  104.  
  105. //------------------------------------
  106. // Track 1 :
  107. //------------------------------------
  108. TR(1) CH(1) P(74)
  109. l8 v90
  110.  
  111. o3
  112. q90
  113. v(MML(v)-17)
  114. 'f+1<f+1>'
  115. 'e1<e1>'
  116. 'd1<d1>'
  117. 'e1<e1>'
  118. 'f+1<f+1>'
  119. 'e1<e1>'
  120. 'd1<d1>'
  121. q100 'e1<e1>' r-2. Tempo=48 r2 Tempo=30 r
作者からのコメント
シンプルなピアノ曲を…と思いきや後半は左手が忙しいのなんのｗ
適当にMMLを書いて出てきたものをベースに作ってみました。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-08-27 10:12
更新日時
2025-08-27 10:12
お気に入り
森と泉
ダウンロード数
139
タグ
タグはありません。
→この曲(id:2855)に問題がある場合こちらへ

感謝のコメント

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