ユーロビート音色のデモ

R*3

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

/*
久しぶりに投稿したら、たまたまH"さんの復活とかぶってて嬉しかったので、ユーロビートの音色作りました。
自由に使って頂いて構いません。
ポイントはピッチのアタックと、音符長の細かい設定です。
今回面倒だったのでやりませんでしたが、リフ中でピッチのフォールなんかも入れればもっとそれっぽくなるかと思います。
それにしてもGM音源だと圧倒的な発音数の足りなさ・・・
*/
//_初期設定
TrackName={" Eurobeat Preset Demo"} //曲名
Copyright = {"R*3"} //著作権表示
System.MeasureShift(1); //音源初期化用に発音を１小節遅らせる
ResetGS;ResetXG;ResetGM;r1;//音源の初期化
TrackSync; //全てのトラックを同期する(初期化後に必須)
Tempo=155
KeyFlag-(b)
Str SC ={ [4 EP.T(00,127,!8) r4 ] }
Str LD_In ={
l8 q90'"bdf'^^'q70"bdf'r'"bdf'rq90'ceg' ^^^^^^^^ r1
}
Str RF1 ={ l16
S{ r-24 q45 "b48c48}
q45'dfa''dfa''dfa''dfa' q90'dfa'^q45'dfa'q90'ceg' ^q45'ceg''ceg'r q90'ceg'^^l48 < v-20baev+20> l16
q45'ceg''ceg''ceg''ceg' q90'ceg'^q45'ceg'q90'ceg' ^q45'dfa''dfa'r q90'dfa'^^l48 < v-20baev+20> l16
l16 q70 "bcd"b f^bf b>cd"b l24 q70 "f"bc "bf`c< l16
q45'dfa''dfa''dfa''dfa' q90'dfa'^q45'dfa'q90'fa`c' ^q45'fa`c''egb'r 'dfa'rq90'"bdf'^ S{ r-24 q45 "a48"b48}
l16
q45'dfa''dfa''dfa''dfa' q90'dfa'^q45'dfa'q90'ceg' ^q45'ceg''ceg'r q90'ceg'^^l48 < v-20baev+20> l16
q45'ceg''ceg''ceg''ceg' q90'ceg'^q45'ceg'q90'ceg' ^q45'dfa''dfa'r q90'dfa'^^l48 < v-20baev+20> l16
l16 q70 "bcd"b b^af b>cd"b l24 q60 fed cfg< l16
q45'dfa''dfa''dfa''dfa' q90'dfa'^q45'dfa'q90'fa`c' ^q45'fa`c''egb'r 'dfa'rq90'"bdf'^
}
Str LD1 ={
S{ v110 o5 LD_In [ RF1 ] }
v90 o6 LD_In [ RF1 ]
}
//----------　メインリードの音色設定！ここらへん参考になるかと思います。
TR=1 BR=13 p.W(127,124,!32) M.W(0,127,!16) @82 P=0 V=75 LD1 //LD Main L
TR=2 BR=13 p.W(113,122,!32) M.W(0,127,!16) @82 P=127 V=75 LD1 //LD Main R
TR=3 BR=13 p.W(127,123,!32) M.W(0,127,!16) @63 P=64 V=90 o6 LD_In [ RF1 ] //LD Sub
//----------　ここまで。自由に使って頂いて構いません。
TR=4 @82 P.N(0,127) V=50 //LD P-Delay
S{ r8. v80 o6 LD_In [RF1] }
S{ r8. r8. v50 o6 LD_In [RF1] }
S{ r8. r8. r8. v20 o6 LD_In [RF1] }
TR=9 @80 q80 l4 o3 REV=0 BR=48 p.W(128,65,!32,65,64,!8.) V=117 v127 r1+1+1 //Kick
S