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

strange beats - サクラ曲掲示板6

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

strange beats

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // strange beats
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. TrackName = {"strange beats"}
  7. Copyright = {"Yax"}
  8.  
  9. ResetGM();
  10. TrackSync;
  11.  
  12.  
  13.  
  14. // アルペジオ関数
  15. Function ARP(Int D, Int L, Str S) {
  16. Int LNG = L
  17. Int STP = 0
  18. Int TEMP = 0
  19. Str X = ""
  20. Str RS = ""
  21. Str NS = ""
  22. Int J = 0
  23. Array NAR = ()
  24.  
  25. For(Int I = 1; I <= 100; I++ ){
  26. X = MID(S,I,1)
  27. J = ASC(X)
  28.  
  29. IF (X == "") {
  30. EXIT
  31. }
  32.  
  33. IF ( J >= 97 ) {
  34. IF ( J <= 103 ) {
  35. IF ( NS != "" ) {
  36. NS = Replace(NS,{@-},{-@},off)
  37. NS = Replace(NS,{@+},{+@},off)
  38. NS = Replace(NS,{@#},{#@},off)
  39. NS = Replace(NS,{@*},{*@},off)
  40. NAR = (NAR,NS)
  41. NS = ""
  42. }
  43. X = X + "@"
  44. }
  45. }
  46. NS = NS + X
  47. }
  48. IF ( NS != "" ) {
  49. NS = Replace(NS,{@-},{-@},off)
  50. NS = Replace(NS,{@+},{+@},off)
  51. NS = Replace(NS,{@#},{#@},off)
  52. NS = Replace(NS,{@+},{*@},off)
  53. NAR = (NAR,NS)
  54. NS = ""
  55. }
  56.  
  57. For(Int I=0;I<SizeOf(NAR);I++){
  58. TEMP = L - STP
  59. RS = "r%" + #STR(STP)
  60. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  61. Sub{ RS NS }
  62. STP = STP+D
  63. }
  64. r%(L)
  65. }
  66.  
  67.  
  68. // 全体の調整
  69. TR(1) V(110) REV(20) CHO(0)
  70. TR(2) V(110) REV(20) CHO(0)
  71. TR(3) V(110) REV(20) CHO(0)
  72. TR(4) V(110) REV(20) CHO(0)
  73. TR(5) V(110) REV(20) CHO(0)
  74. TR(6) V(110) REV(20) CHO(0)
  75. TR(7) V(110) REV(20) CHO(0)
  76. TR(8) V(110) REV(20) CHO(0)
  77. TR(9) V(110) REV(20) CHO(0)
  78. TR(10) V(110) REV(20) CHO(0)
  79.  
  80.  
  81. // テンポ
  82. INT T = 123 // 通常のテンポ
  83.  
  84. Tempo=(T)
  85.  
  86.  
  87. // キー
  88. INT KEY=1
  89.  
  90. Key(KEY) // 全体のキー
  91. TR(10) TrackKey(KEY * -1) // リズムトラックの調整用、Keyの符号を逆にしたものをセットしておく
  92.  
  93.  
  94.  
  95. //------------------------------------
  96. // Track 1 :
  97. //------------------------------------
  98. TR(1) CH(1) P(64)
  99. @37,90,1 v100
  100. M.onNoteWave(10,90,!1)
  101.  
  102. o3 l16 q70
  103.  
  104. r4
  105. [4
  106. g8gc8
  107. d^4
  108. e8ge8
  109. f^4
  110. g8gc8
  111. d^4
  112. e8ge8
  113. <b8.>c d8d>d<
  114. ]
  115. b8^8..
作者からのコメント
変拍子の組み合わせというテーマでの実験曲です。
最初からぶっ飛んだ拍となっているうえどんどん変化しますが、意識しなければ違和感ないかと思います。とはいえ、自分でも正確にリズム取れないという…。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2026-04-08 08:45
更新日時
2026-04-08 08:49
お気に入り
goh折れクジラ飛行机
ダウンロード数
49
タグ
タグはありません。
→この曲(id:2976)に問題がある場合こちらへ

感謝のコメント

goh2026/05/13
リズムも音符も細かくて圧倒されましたー
クジラ飛行机2026/09/08
変拍子が気持ちよく、とても良い感じです！ずっと聞いていられます！
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）