//_初期設定

INT R = 3

TimeBase      = 96
Tempo         = 101
TimeSignature = 4,4
KeyFlag+(fc);

TrackSync;
System.MeasureShift(1);
ResetGS;
TrackSync;

CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;
CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;
CH(13) SysEx$ = f0,41,10,42,12,{40,1c,15,02},f7;
CH(14) SysEx$ = f0,41,10,42,12,{40,1d,15,02},f7;

// ReverbSetting    Time Dpth HiDump
CuePoint={"TwmParam(100, 120,  40)"}
// ChorusSetting     Wave  Mix Dpth   FB Freq  Dly  Phs
CuePoint={"TwmChorus(   1, 127, 100,  16,  32,  24,  32)"}

Include(delay.h);
Include(groove.h);


//アメリカのポップス風ブレイクビーツ


//==ドラム以外======================================================================================
STR ML01 = {//A
            d^^"a^^a,123rg^f^e^c,153rd^^"a^^^^
            c^^d^^e^d^^"a^ra^^^^^rr
		"e^"f^^^^^^^"g+4"a4
		
		d^^"a^^a,123rg^f^e^c,153rd^^"a^^^^
		c^^d^^e^d^^"a^ra^^^^^^rrr
		a4g4f4e4
		d1[7 r1]
		//B
		[2 d^^"a^^a,153rg^f-^e^c-^:d4^16`d`c-`da`c-gaf-gdc-]Sub{d4^16}[2 a`c-`d]ag[2 f-ga]c-"a<
		EP(80)
		[2 'a`d'rr]rr[2 'g`c-'rr]g^[2 'da'rr]rr[2 'fa'rr]rr [2 'f-a`d'rr]rr[2 'eg`c-'rr]g^[2 'dfa'rr]'eg'^[2 'dfa'rr]rr>
		EP(127)
		r8f8f8e8f4^8a8a4^8g8f^^d^^^^r8f8f8e8f4^8a8r8a^^g^^f2
		EP(80)
		[2 'a`d'rr]rr[2 'g`c-'rr]g^[2 'da'rr]rr[2 'fa'rr]rr [2 'f-a`d'rr]rr[2 'eg`c-'rr]rr
		rr"g"ac-cega`c-`c`e`g^^r
		EP(127)}
STR ML02 = {//A
            d^^"a^^a,123rg^f^e^c,153rd^^"a^^^^
		c^^d^^e^d^^"a^ra^^^^^rr
		"e^"f^^^^^^^"g+4"a4
		
		d^^"a^^a,123rg^f^e^c,153rd^^"a^^^^
		c^^d^^e^d^^"a^ra^^^^^^rrr
		a4g4f4e4
		d1[7 r1]
		//B
		[2 d^^"a^^a,153rg^f-^e^c-^d1]
		EP(80)
		[2 `drr]rr[2 `c-rr]g^[2 arr]e&g[2 arr]rr [2 `drr]rr[2 `c-rr]g^[2 arr]rr[2 arr]rr
		EP(127)
		r8'df'8'df'8'ce'8'cf'4^8'ca'8'fa'4^8'eg'8'df'^^Sub{rrcec}d^^^^"a8'df'8'df'8'ce'8'cf'4^8'ca8'c8'fa'^^'eg'^^'df'2
		EP(80)
		[2 `drr]rr[2 `c-rr]g^[2 arr]e&g[2 arr]rr [2 `drr]rr[2 `c-rr]rrr1
		EP(127)}
STR GT34 = {//A
            [2
		[2
		[2 '"adfa']'"adfa',18'"acea'^'"acea''"acea',18'"acea' [2 '"gdfa']'"gdfa',18'"acea'^'"acea''"acea',18'"acea'
		[2 '"adfa']'"adfa',18'"g"bda'^'"g"bda''"g"bda',18'"g"bda':[2 '"gdfb']'"gdfb',18'"e"bdg+'^'"e"bdg+''"aceg',18'"aceg']
		[2 '"acea']'"acea',18'"g"bfa'^'"g"bfa''"acgb',18'"acgb'
		]<
		//B
		[2 '"b-da`d'4'"b-da`d'8[3 '"b-da`d'24,18]'"gc-eg`c-'16r16'"gc-eg`c-'^'"gc-eg`c-',18'"adfa`d'2^8r[2 '"adfa`d',18]]
		[2 '"b-da`d'4'"b-da`d'8[3 '"b-da`d'24,18]'"gc-eg`c-'16r16'"gc-eg`c-'^'"gc-eg`c-',18'"adfa`d'2^8r:[2 '"adfa`d',18]][2 '"adfa`c-',18]
		[2 '"gdb`d'4'"gdb`d'8[3 '"gdb`d'24,18]'"aea`c'16r16'"aea`c'^'"aea`c',18:'"adfa`d'2^8r[2 '"adfa`d',18]]'"adfa`d'4^8[2 '"adfa`d'16,18]'c-f-a`c-`d+',30'c-f-a`c-`d+'4^8
		[2 '"b-da`d'4'"b-da`d'8[3 '"b-da`d'24,18]'"gc-eg`c-'16r16'"gc-eg`c-'^:'"gc-eg`c-',18'"adfa`d'2^8r[2 '"adfa`d',18]]'"aeg`c`e'1r>}
STR SS05 = {//A
            M(30)r1^1^1^1 a1^2^4`c4`d1^1,101
		r1^1^1^1`d1^2^4`c4a1^1
		//B
		M(0)[8 [4 'a`d',25,125]]
		[7 [4 'a`d',25,125]]EP.T(32,127,!2^4);'a`c'1,79}
STR PP67 = {//A
            [2 '"d"f"ad''"c"ace''"d"bdg''"e"g"ac''"d"f"ad':'"d"g"bd'^'"e"g+"bd'4,,127'"e"g"ac'4,,127]
		'"d"g"bd''"c"ace''"d"g"bd'4,,127'""a"e"gc'4,,127
		[2 '"d"f"ad''"c"ace''"d"bdg''"e"g"ac''"d"f"ad':'"d"g"bd'^'"e"g+"bd'4,,127'"e"g"ac'4,,127]
		'"d"g"bd''"c"ace''"d"g"bd'4,,127'""a"e"gc'4,,127
		//B
		[4 '""b-"f-"b-d''"c-"gc-e':'"d"f"ad'1]Sub{dc-}'"d"f"a'1
		[2 '""g"d"bd''""a"e"ac':'""d"f"ad'1]'"d"f"ad''""f-"ac-d+f-'
		[2 '""b-"f-"b-d''"c-"gc-e':'"d"f"ad'1]'""a"e"g"ac'1}
STR BA08 = {//A
            [2 dd"a"a"g"g"a"a "f"f"g"g"a"be,,125"a]
		[2 dd"a"a"g"g"a"a "f"f"g"g"a"be,,125"a]
		//B
		q128 l16[2 "b-^^b-r"b-c-"b-c-rc-,28`c-rrc-^d8"fr"f8&"a8^16"aa"a:d8&f8]d8&"a8
		[2 "b-^^b-r"b-c-"b-c-rc-,28`c-rrc-^d8"fr"f8&"a8^16"aa"a:d8&f8]d8&c-8
		[2 "g^^gr"g"a"g"a^"a,28arr"a^d8"fr"f8&"a8^16"aa:"ad8&f8]c-d+8&f-8
		[2 "b-^^b-r"b-c-"b-c-rc-,28`c-rr:c-^d8"fr"f8&"a8^16"aa"ad8&f8]"a2^4r4^8 q78 l4}
STR MT09 = {//A
            Sub{[8 P.T(0,127,!2,127,0,!2);r1]}[8 [4 'dfa'^^'dfa'^"a,,100,-1]]
		Sub{[8 P.T(0,127,!2,127,0,!2);r1]}[8 [4 'dfa'^^'dfa'^"a,,100,-1]]
		//B
		Sub{[16 P.T(0,127,!2,127,0,!2);r1]}[8 [4 'dga'^^'dga'^"a,,100,-1][4 'dfa'^^'dfa'^"a,,100,-1]]}
STR SA15 = {//A
            [8 r1]
		d2e4f4grdrg2f^^ed^^^rra,88a,88bra^^ra,88a,88bra^^^d^g4f^^e
		d2e4f4grdrg2f^^ed^^^rra,88a,88bra^^ra,88a,88bra^^rd^g4f^^e
		//B
		d1[3 r1]q88
		[2 d^^"a^^a,153rg^f-^e^c-rd1,99]q102 v-40
		[2 r4dcder4c"bcer4fefar4:"f"ace]dc-dr q88 v+40
		[2 d^^"a^^a,153rg^f-^:e^c-rd1,99]er q102 e2^4^8f-32e^^r32 d2r-2}
STR BS16 = {//A
            [8 r1]
		d2e4f4grdrg2f^^ed^^^rra,88a,88bra^^ra,88a,88bra^^^d^g4f^^e
		[2 r8d8]r8'ce'8r8'df'8'dg'r'"bd'rSub{d4c2}g2f^^ed^^^rr[2 [2 'dfa',88]'dgb'r:'dfa'^^r]'cea'^^r'"bd'^'eg'4'"af'^^'"ae'
		//B
		Sub{'"b-d'rr'"b-d'}[4 r1]q88
		[2 '"b-d'^^"a^^a,153r'c-g'^f-^e^c-rd1,99]q102
		[2 r4'"g"bd'^rrr4'"e"ac'^rr:[2 r4'"f"ad'^rr]]r4'"f"ad'^rrr4'"f"ac-'^rr q88
		[2 d^^"a^^a,153rg^f-^:e^c-rd1,99]er q102 e2^4^8f-32e^^r32 d2r-2}
//==ここからドラム==================================================================================
Key(0);KeyFlag+();
STR BD10 = {//A
            [8 c4,,127r8^16c16,,,8c8c8r4]
		[8 c4,,127r8^16c16,,,8c8c8:r4]c8c8
		//B
		[8 c4,,127r8^16c16,,,8c8c8r4]
		[8 c4,,127r8^16c16,,,8:c8c8r4]r2}
STR HH11 = {//A
            [8 [4 r8g+8,,60]]
		[8 [4 r8g+8,,60]]
		//B
		[8 [4 r8g+8,,60]]
		[8 [4 r8g+8,,60]]}
STR SD12 = {//A
            [4 [2 r4e4,,,1r4e,,,1rr:r]e,,60,8]
		[3 [2 r4e4,,,1r4e,,,1rr:r]e,,60,8][2 r4e4,,,1r4:e,,,1rrr]r4
		//B
		Sub{[2 [3 [4 `f8,,70`f8,,40]]`f4,,70`f,,70rr`f,,70r8[3 `f24,,70]`f4,,70]}[4 [2 r4e4,,,1r4e,,,1rr:r]e,,60,8]
		Sub{[2 [3 [4 `f8,,70`f8,,40]]`f4,,70`f,,70rr`f,,70r8[3 `f24,,70]`f4,,70]}[4 [2 r4e4,,,1r4e,,,1rr:r]e,,60,8]}
STR BL13 = {//A
            r-8r16[3 `b48,,60]`b1[7 r1]
		[8 r1]
		//B
		r-8r16[3 `b48,,60]`b1[7 r1]
		r-8r16[3 `b48,,60]`b1[7 r1]}
STR TT14 = {//A
            [8 r1]
		[7 r1]r2r8`d24`d24,,100b24ggrg,,80
		//B
		[8 r1]
		[7 r1]r2r8`d24`d24,,100b24ggrg,,80}
//==================================================================================================



TR(1)       //ピアノ

@2,0,0
V(105);p%(50);r4
q103 o6 l16 v127 r4
P(96);M(0);REV(16);CHO(0);r4
r4



TR(2)       //やわらかい音

@81,8,0
V(85);p%(0);r4
q98 o6 l16 v127 r4
P(32);M(0);REV(32);CHO(1);r4
r4



TR(3)       //ギター

@26,32,0
V(50);p%(0);r4
q61 o5 l8 v120 r4
P(40);M(0);REV(16);CHO(0);r4
r4 t.N(0,1,2,3)



TR(4)       //ギター

@29,16,0
V(30);p%(0);r4
q61 o6 l8 v120 r4
P(48);M(0);REV(32);CHO(40);r4
r4 t.N(0,1,2,3)



TR(5)       //弦

@49,90,1
V(40);p%(150);r4
q100 o6 l4 v100 r4
P(56);M(30);REV(40);CHO(16);r4
r4



TR(6)       //コード(左側)

@90,0,0
V(40);p%(-30);r4
q99 o5 l2 v125 r4
P(0);M(10);REV(80);CHO(60);r4
r4 r-32



TR(7)       //コード(右側)

@90,0,0
V(40);p%(30);r4
q98 o5 l2 v125 r4
P(127);M(20);REV(80);CHO(60);r4
r4 r-32



TR(8)       //ベース

@36,0,0
V(100);p%(0);r4
q78 o3 l4 v127 r4
P(64);M(0);REV(1);CHO(8);r4
r4



TR(9)       //マレット

@14,0,0
V(50);p%(0);r4
q98 o7 l24 v125 r4
P(64);M(0);REV(64);CHO(0);r4
r4



TR(15)      //サキソフォン

@66,0,0
V(90);p%(50);r4
q102 o5 l16 v120 r4
P(72);M.onNoteWave(20,20,!2,20,60,!4);REV(32);CHO(2);r4
r4



TR(16)      //ブラス

@91,0,0
V(90);p%(100);r4
q102 o5 l16 v120 r4
P(60);M(10);REV(48);CHO(8);r4
r4



KeyFlag-();

TR(10)      //バスドラ

@27,7,0
V(100);BR(12);p%(-1000);r4
q11 o3 l16 v100 r4
P(64);REV(8);CHO(0);r4
r4



TR(11)      //ハイハット

@1,90,1
V(100);BR(12);p%(1000);r4
q12 o3 l16 v125 r4
P(64);REV(16);CHO(32);r4
r4



TR(12)      //スネオ

@2,100,0
V(85);BR(12);p%(-500);r4
q13 o3 l16 v127 r4
P(64);REV(40);CHO(32);r4
r4



TR(13)      //クリスマスなベル

@1,0,0
V(100);BR(12);p%(1000);r4
q14 o5 l1 v120 r4
P(24);REV(120);CHO(0);r4
r4



TR(14)      //タム

@33,90,1
V(100);BR(12);p%(-1000);r4
q15 o3 l16 v127 r4
P(64);REV(40);CHO(64);r4
r4



//==================================================================================================
[(R)
KeyFlag+(fc);
トラック1  ML01
トラック2  ML02
トラック3  GT34
トラック4  GT34
トラック5  SS05
トラック6  PP67
トラック7  PP67
トラック8  BA08
トラック9  MT09
トラック15 SA15
トラック16 BS16
Key(0);KeyFlag+();
トラック10 BD10
トラック11 HH11
トラック12 SD12
トラック13 BL13
トラック14 TT14
KeyFlag+(fc);]
//==================================================================================================
TrackName     = {"雪の朝"}
Copyright     = {"滝之上"}
MetaText      = {"原作：ぐらたさん「もぉにんぐ、すのうふぉおる」"}
