/*
久しぶりに投稿したら、たまたま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{ v127 l4 o0	[8	d d d d ] }


TR=10 @25 BR=2 p127											//DRM
v127 l8 'n49n36n35'r'n36n35''n49n36n35' r'n36n35'r'n49n36n35' r1+1

n49,0
S{ 	v127 l4	[8	n36 n36 n36 n36 ] }
S{ 	v50  l4	[8	 r  n40  r  n40 ] }
S{ 	v50  l16	[8	[4v60n44v50n44v100n44v60n44 ] ] }
S{ 	v127 l8	[8	[4rn42] ] }
	 v127 l8	[8	[4rn82] ] 

	 

Str BA_RF	={ l8
	S{ 	[8 SC ] }
		"bb"bb c`cc`c "aa"aa d`dd`d	"bb"bb c`cc`c "ff"aa f`fe`e 
		"bb"bb c`cc`c "aa"aa d`dd`d	"gg"gg  "gg"gg c`cc`c c`cc`c
}

TR=11 @88 l8 o2 b^^brbr`c ^^^^^^^^ r1 BA_RF							//BAS


TR=16 r1+1 @119 l16 P=0 q120 "erP.T(127,0,!1)er eree edr<br agr 				//Syn-Tom