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

自作関数「DTMらしく聴こえないようにする」ドラムロテート編 SM調教師瞳3 OP - サクラ曲掲示板6

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

自作関数「DTMらしく聴こえないようにする」ドラムロテート編 SM調教師瞳3 OP

ななこっち★動画
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. Tempo 145
  2.  
  3. Int CYMINIT=0
  4. Int SNAREINIT=0
  5. Int TOMINIT=0
  6.  
  7. System.TimeBase=10368
  8.  
  9. Function Tom(Int NO) {
  10. Int CC
  11. Int V=0
  12. IF(NO=1) {
  13. V=3
  14. } ELSE {
  15. IF(NO=2) {
  16. V=7
  17. }
  18. }
  19. IF(TIMIDITY=0) {
  20. CC=HighTom2-V
  21. } ELSE {
  22. IF(TOMINIT=0) {
  23. CC=HighTom1-V
  24. TOMINIT=1
  25. } ELSE {
  26. CC=HighTom2-V
  27. TOMINIT=0
  28. }
  29. }
  30. Result=CC
  31. }
  32.  
  33. Function Snare() {
  34. Int CC
  35. IF(TIMIDITY=0) {
  36. CC=Snare1
  37. } ELSE {
  38. IF(SNAREINIT=0) {
  39. CC=Snare1
  40. SNAREINIT=1
  41. } ELSE {
  42. CC=Snare2
  43. SNAREINIT=0
  44. }
  45. }
  46. Result=CC
  47. }
  48.  
  49. Function Cymbal() {
  50. Int CC
  51. IF(CYMINIT=0) {
  52. CC=CrashCymbal1
  53. CYMINIT=1
  54. } ELSE {
  55. CC=CrashCymbal2
  56. CYMINIT=0
  57. }
  58. Result=CC
  59. }
  60.  
  61. Function RandV(Int MIN, Int MAX) {
  62. Str MML="v"
  63. MML=MML+Random(MIN,MAX)
  64. // Print(MML)
  65. MML
  66. }
  67.  
  68. Str RMML
  69. Function RandR(Int MIN, Int MAX) {
  70. SyncR
  71. Str MML="r"
  72. IF(KYOKUTANNISURU=1) {
  73. MIN=80
  74. }
  75. IF(RANDON=1) {
  76. RMML=RMML+"r"
  77. Int VALUE=Random(0,10)
  78. IF(VALUE<5) {
  79. MML=MML+"-"
  80. } ELSE {
  81. RMML=RMML+"-"
  82. }
  83. Str RAND=Random(MIN,MAX)
  84. MML=MML+RAND
  85. RMML=RMML+RAND
  86. // Print(MML)
  87. MML
  88. }
  89. }
  90.  
  91. Function SyncR() {
  92. Str MML=RMML
  93. RMML=""
  94. // Print(MML)
  95. MML
  96. }
  97.  
  98.  
  99. TR(10)
  100. Voice(StandardSet)
  101. $b{RandR(999,1728) RandV(120,127) n(Kick1),} //36
  102. $s{RandR(999,1728) RandV(120,127) n(Snare()),} //40
  103. $o{RandR(999,1728) RandV(110,127) n(OpenHiHat),}//46
  104. $p{RandR(999,1728) RandV(110,127) n(PedalHiHat),}//44
  105. $h{RandR(999,1728) RandV(110,127) n(ClosedHiHat),}//42
  106. $T{RandR(999,1728) RandV(110,127) n(Tom(0)),}//50
  107. $t{RandR(999,1728) RandV(110,127) n(Tom(0)),}//48
  108. $M{RandR(999,1728) RandV(110,127) n(Tom(1)),}//47
  109. $m{RandR(999,1728) RandV(110,127) n(Tom(1)),}//45
  110. $L{RandR(999,1728) RandV(110,127) n(Tom(2)),}//43
  111. $l{RandR(999,1728) RandV(110,127) n(Tom(2)),}//41
  112. $c{RandR(999,1728) RandV(115,127) n(Cymbal()),}//49
  113. $y{RandR(999,1728) RandV(115,127) n(CrashCymbal2),}//57
  114. $K{RandR(999,1728) RandV(120,127) n(Stic
作者からのコメント
こちらは、主にドラムの自動ロテートをさせて、少しでも生音に聴こえるようにしたものです。
ドラムマクロ定義をいじるだけで使えるなの
これでは、TomとSnare/Cymbalをロテートさせています。
Tomは、GMセットでは6つあるのですが、1ノートに2つの類似音色を割り当てることで、3つだけになってしまいます。
Snareは、類似音色を2つだけ割り当てます。
シンバルは、左右パン異なるものを割り当てると良いでしょう。
他にも、バスドラムもロテートさせると、味が出るかもしれません。
これより → http://oto.chu.jp/mmlbbs6/post.php?mml_id=1520
作曲者
ななこっち★
ライセンス
🚫転載禁止商用利用 ×改変 ×作者に無断で使えません
転載
許可
推奨音源
ドラムを自分で割り当てできる音源のみ「MSGS、TWM2不可注意！」
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.3
動画
▶ YouTubeで見る
投稿日時
2015-01-08 07:59
更新日時
2015-01-09 01:01
お気に入り
H゛
ダウンロード数
358
タグ
→この曲(id:1596)に問題がある場合こちらへ

感謝のコメント

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