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

wandering in my mind - サクラ曲掲示板6

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

wandering in my mind

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // wandering in my mind
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. Include(delay.h)
  7.  
  8. TrackName = {"wandering in my mind"}
  9. Copyright = {"Yax"}
  10.  
  11. ResetGM();
  12. r2
  13. TrackSync;
  14. r4
  15.  
  16.  
  17.  
  18. //------------------------------------------------
  19. // アルペジオ関数
  20. // D - 1音あたりのずらし幅
  21. // L - 全体の長さ
  22. // S - 鳴らす音、{}内に音階を記述(>と<は利用可能)
  23. //------------------------------------------------
  24. Function ARP(Int D, Int L, Str S) {
  25. Int LNG = L
  26. Int STP = 0
  27. Int TEMP = 0
  28. Str X = ""
  29. Str RS = ""
  30. Str NS = ""
  31. Int J = 0
  32. Array NAR = ()
  33.  
  34. For(Int I = 1; I <= 100; I++ ){
  35. X = MID(S,I,1)
  36. J = ASC(X)
  37.  
  38. IF (X == "") {
  39. EXIT
  40. }
  41.  
  42. IF ( J >= 97 ) {
  43. IF ( J <= 103 ) {
  44. IF ( NS != "" ) {
  45. NS = Replace(NS,{@-},{-@},off)
  46. NS = Replace(NS,{@+},{+@},off)
  47. NS = Replace(NS,{@#},{#@},off)
  48. NS = Replace(NS,{@*},{*@},off)
  49. NAR = (NAR,NS)
  50. NS = ""
  51. }
  52. X = X + "@"
  53. }
  54. }
  55. NS = NS + X
  56. }
  57. IF ( NS != "" ) {
  58. NS = Replace(NS,{@-},{-@},off)
  59. NS = Replace(NS,{@+},{+@},off)
  60. NS = Replace(NS,{@#},{#@},off)
  61. NS = Replace(NS,{@+},{*@},off)
  62. NAR = (NAR,NS)
  63. NS = ""
  64. }
  65.  
  66. For(Int I=0;I<SizeOf(NAR);I++){
  67. TEMP = L - STP
  68. RS = "r%" + #STR(STP)
  69. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  70. Sub{ RS NS }
  71. STP = STP+D
  72. }
  73. r%(L)
  74. }
  75.  
  76. //------------------------------------------------
  77. // ××ダンド関数
  78. // (B>Eでリタルダンド、B>Eでアッチェラダンド)
  79. // B - 開始時のテンポ(bpm)
  80. // E - 終了時のテンポ(bpm)
  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. Tem
作者からのコメント
なんか心に迷いがあってさまよってしまった…みたいなイメージで若干スロー気味に作ってみました。
後半にあるベースラインの高音域って結構気持ちいいなぁとｗ
DLして再生するのを推奨します。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-07-23 09:18
更新日時
2025-07-23 09:18
お気に入り
森と泉
ダウンロード数
129
タグ
タグはありません。
→この曲(id:2838)に問題がある場合こちらへ

感謝のコメント

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