自作関数「DTMらしく聴こえなくする」ドラム編 HALLY（3回目の修正済版）

MML先頭 2000 文字だけ表示していますダウンロード全文を見る

Tempo 180
Int RANDON=1
Int KYOKUTANNISURU=0 // ※めちゃくちゃへたくそに演奏するなの
System.TimeBase=10368
Int CYMINIT=1
Function Cymbal() {
Int CC
IF(CYMINIT=0) {
CC=CrashCymbal1
CYMINIT=1
} ELSE {
CC=CrashCymbal2
CYMINIT=0
}
Result=CC
}
Function RandV(Int MIN, Int MAX) {
Str MML="v"
IF(KYOKUTANNISURU=1) {
MIN=64
}
IF(RANDON=1) {
MML=MML+Random(MIN,MAX)
// Print(MML)
} ELSE {
MML=MML+MAX
}
MML
}
Str RMML
Function RandR(Int MIN, Int MAX) {
Str MML
IF(RANDON=1) {
MML=MML+"r"
RMML=RMML+"r"
Int VALUE=Random(0,10)
IF(VALUE<5) {
MML=MML+"-"
} ELSE {
RMML=RMML+"-"
}
Str RAND=Random(MIN,MAX)
MML=MML+RAND
RMML=RMML+RAND
// Print(MML)
MML
}
}
Function SyncR() {
Str MML=RMML
RMML=""
// Print(MML)
MML
}
TR(10)
Voice(1)
$k{Sub{RandR(999,1728) RandV(124,127) n(Sticks),16}r} //37
$B{Sub{RandR(999,1728) RandV(124,127) n(Kick2),16}r}//35
$b{Sub{RandR(999,1728) RandV(124,127) n(Kick1),16}r}//36
$S{Sub{RandR(999,1728) RandV(120,127) n(Snare2),16}r}//40
$s{Sub{RandR(999,1728) RandV(120,127) n(Snare1),16}r}//38
$L{Sub{RandR(999,1728) RandV(123,127) n(LowTom2),16}r}//41
$l{Sub{RandR(999,1728) RandV(123,127) n(LowTom1),16}r}//43
$M{Sub{RandR(999,1728) RandV(123,127) n(MidTom2),16}r}//45
$m{Sub{RandR(999,1728) RandV(123,127) n(MidTom1),16}r}//47
$T{Sub{RandR(999,1728) RandV(123,127) n(HighTom2),16}r}//48
$t{Sub{RandR(999,1728) RandV(123,127) n(HighTom1),16}r}//50
$p{Sub{RandR(999,1728) RandV(110,127) n(PedalHiHat),16}r}//44
$h{Sub{RandR(999,1728) RandV(115,127) n(ClosedHiHat),16}r}//42
$o{Sub{RandR(999,1728) RandV(120,127) n(OpenHiHat),16}r}//46
$r{Sub{RandR(999,1728) RandV( 85,100) n(RideCymbal1),16}r}//51
$R{Sub{RandR(999,1728) RandV(120,127) n(RideBell),16}r}//53
$i{Sub{RandR(999,1728) RandV( 85,95) n(MuteHighConga),16}r}//62
$I{Sub{RandR(999,1728) RandV(120,127) n(OpenHighConga),16}r}//63
$c{Sub{RandR(999,1728) RandV(120,127) n(Cymba

作者からのコメント

3回目の修正なの。。。ぐすぐす；；以前のマクロですと、後になるほどずれるなの。。。えーん＞＜

曲自体のライセンスは「転載禁止」ですが、関数、使い方については、承諾を得ずに、自由につかってくださいなの。
ドラムマクロをいじるだけで使えるようになるなの。

はいいとして・・ついでに、シンバルの自動ロテートも入ってます。
音源を使い分ければ、スネアドラムやタム、バスドラムとかも自動ロテートできるなのね。

さて、不思議なことが起きているなの…
r で、タイミングがずれていますが、自動的に同期関数を入れることで定期的に r 補正をしています。
from http://oto.chu.jp/mmlbbs6/post.php?mml_id=1345
（原因不明ですが、一部の楽曲ではうまく動きません。。。）

作曲者: ななこっち★
ライセンス: 🚫転載禁止商用利用 ×改変 ×作者に無断で使えません
転載: 許可
推奨音源: なんでもいいなの（高いクォンタイズを受け付けるもののみ）MSGSはやめたほうがいい？ちなみに動画の音源は YAMAHA YD9000もあるなの http://www.pettinhouse.com/html/download.html (Yamaha kit for Battery and Kontakt )詳細はソース同梱 Timidity.cfg 参照なの
ピコサクラ対応: 未対応
ピコサクラバージョン: 0.2.3
動画: ▶ YouTubeで見る
投稿日時: 2015-01-07 12:33
更新日時: 2015-01-12 22:18