//_初期設定

TrackName     = {"Frontier"}//曲名を書き込みます
Copyright     = {"騎士王321"}//作者の名前を書き込みます
MetaText      = {"Sakura ver3あるいはTW-Music3を切り拓く音楽です"}//ひとことコーナーです

テンポ 160;
拍子   4,4;
TimeBase = 96;//四分音符のステップ数の設定です。tの指定とかをする人には重要です。

TrackSync;

Include(gs.h);//XG音源でない人はこれを絶対に書き込んでおきましょう
Include(delay.h);Include(groove.h);Include(unison.h);//これくらいあればだいたい事足ります。
//あとはお好みでギターとかコードとかのインクルードファイルでも
System.MeasureShift(1);ResetGS;

TrackSync;

//リズムトラックの拡張です。それぞれの行の『//』を外すことによって有効になります。
CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;//トラック11
CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;//トラック12
CH(13) SysEx$ = f0,41,10,42,12,{40,1c,15,02},f7;//トラック13
CH(14) SysEx$ = f0,41,10,42,12,{40,1d,15,02},f7;//トラック14

//音の基準の高さを決めるチューニング(0~127)です。どれかひとつを有効にしておきましょう
//GSScaleTuning(40,40,40,40,40,40,40,40,40,40,40,40);//古風な低めのチューニング
GSScaleTuning(64,64,64,64,64,64,64,64,64,64,64,64);//ごく一般的なチューニング
//GSScaleTuning(80,80,80,80,80,80,80,80,80,80,80,80);//YMO風の高めのチューニング

//知る人ぞ知るTW-Music2のパラメータ設定。リバーブとコーラスを扱います
//ReverbSetting    Time Dpth High
CuePoint={"TwmParam(120,120, 60)"}//リバーブ。各値は下記を参照
//ChorusSetting     Wave Mix Dpth FB Freq Dly Phs
CuePoint={"TwmChorus(1,127, 30, 30, 30, 30,  1)"}//コーラス。各値は下記を参照

//Slur(1);//スラーの種類を指定します

//==================================================================================================

//_作曲時に役立つツールたち

//PlayFrom(1:0:0);//途中から演奏するときにつかいます
//Solo();//『,』で複数トラック指定可
//Mute();//『,』で複数トラック指定可

STR KeyP = {KeyFlag+(fc);Key(0);}//各トラックの頭に書き込んでおくと転調するタイプの曲で便利です
STR KEEP = {}//なにもしない
STR RS08 = {r%3072}//8小節休み
STR RS16 = {r%6144}//16小節休み

//通常トラック用
/*
TR(1);KeyP;
@1,0,0;
V(120);EP(127);P(64);M(0);p%(0);
REV(0);CHO(0);
o5;l4;q99;v120;t0;r1//予動。プレカウントとも
*/

//リズムトラック用
/*
TR(10);KeyFlag+();Key(0);//ドラムトラックはいつでも同じキーにしておきましょう
@1,0,0;
V(120);EP(127);P(64);BR(12);p%(0);
REV(0);CHO(0);
o3;l16;q9;v120;t0;r1//予動はとりあえず1小節にしてます。4拍子が多いから
*/

//==================================================================================================
//_Piano
STR PF01 = {Sub{o5;l8;q199;v120;[2
		rrr'df'"a'ce'"a'df'"a'ce'"a'df'"a,,100:b`c`d
		'"b,,100d,,100a'^f^^d^"a,,80fed'ce'^^rr>]
		"bcd<
		a^^f^^d^'"g"b-,,,16d,,,32'2,109,100'ce'2,109,80}
		o4;l8;q199;v120;[2
		"d,1450"a,1350d,1250rrrrr|rrrrrrrr:/*ペダルのかわりにゲートで延ばす*/
		"g,750d,650g,550b^^^r|'eg,,,8b,,,16'^r'"ae,,,8g,,,16'^^^r]
		"g,750d,650g,550b^^^r|'e`e'2,109,100'"aea'2,109,80}
STR PF03 = {o4;l8;q199;v120;
		"d"ad'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		"gdg'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		"bfb'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		"b-f-b-'`d`f-`a'b-'`c-`e`g'b-'`d`f-`a'b-'`c-`e`g'b-'`d`f-`a'b-'`c-`e`g'b-'a`d`f'/*8bars*/
		"d"ad'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		"gdg'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		"bfb'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		c-g`c-'`e`g'b'`d`f'b'`e`g'b-'`d`f'b-'`e`g'b-'`d`f'b-'`e`g'/*8bars*/
		}
STR PF05 = {o4;l8;q199;v120;
		"d"ad'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		"gdg'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		"bfb'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		"b-f-b-'`d`f-`a'b-'`c-`e`g'b-'`d`f-`a'b-'`c-`e`g'b-'`d`f-`a'b-'`c-`e`g'b-'a`d`f'/*8bars*/
		"d"ad'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		"gdg'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		"bfb'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		"aeg'`c`g'b-'`c`f'b-'`c`g'b-'`c`f'b-'`c`g'a'`c`f''g`e',,100'a`d',,80/*8bars*/
		>"d"ad'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'<
		'd,100a,100,100,12`d,100,100,24`a,100,100,36``e,100,100,48``a,100,,60'1^1^1^1^4,100}
STR PF11 = {Sub{o5;l8;q199;v120;
		[2 rr`d`c`daba8|^1]q109
		"a4^8"b4^8c4^8d4^8|"b4^8c4^8d4^8e4^8/*この行は拍子6,8*/}
		o4;q99
		"b,399f,299'b`d'^"a,399f,299'a`d'^"g,799d,699a,399b^v100 ad,,90e,,80 v120
		"b,399f,299'b`d'^"a,399f,299'a`d'^"g,599d,499a,399b^^rg
		"f,299d,199f"g,299d,199g"a,299e,199a"b,299f,199a|/*この行は拍子6.8*/
			"g,299d,199g"a,299e,199a"b,299f,199ac,299e,199a/*この行は拍子6.8*/}
STR PF33 = {Sub{o5;l8;q199;v120;
		[3 rr`d`c`daba8|^1]rr`d`c`db-a-g-8|^1|q79
		'b`d+`f'^^'b`d+`f'r'b`c`e+'r'b`d+`f'r'b`c`e+'r'b`d+`f'r'b`d+`f''b`d+`f''b`d+`f'|
		'`c-`e`g'^^'`c-`e`g'r'`c-`d+`f'r'`c-`e`g'r'`c-`d+`f'r'`c-`e`g'r'`c-`d+`f'r'`c-`e`g'
		}o4;q199
		"gdab^^^^|"aea`c^^^^|"bfa`d^^^^|dfa`e^^^^
		"gdab^^^^|"gdb'`d`f'^^^^|"b-a-`c-'b-`d`g-'^^^^|"b-a-`c-'b-`d`g-'^^^^
		"ccg+'b`d+`f'^^^^|"ccg+'b`d+`f'^^^^|"dda'`c-`e`g'^^^^|"dda'`c-`e`g'^^^^/*12bars*/
		Sub{o5;l8;q199;v120;
		[4 rr`d`c`daba8|^1]
		}o4;
		"gdab^^^^|"aea`c^^^^|"bfa`d^^^^|dfa`e^^^^
		"gdab^^^^|"gdb'`d`f'^^^^|"fdf'a+`d`f'^^^^|"bfa'`c`d`f'^^^^
		"f-f-g'`c-`e`g'^^^^|"e"be'a`d`f'^^^^|"aga'`d`e`g'^^^^|"aga'`c`e`g'^^^^}
STR PF51 = {o4;l8;q99;v120;
		Sub{/*拍子4+3.4*/
		[2 "b,1399f,1299b^^^^^|^^^^^^|"f,1399c,1299f^^^^^|^^^^^^]
		/*拍子4.4*/
		}
		o5;l8;q109;v120;
		/*拍子4+3.4*/
		rrr'fa`c`f'^'e`e'^'d+fa`d+'|^'c`c'^'"bd+fb'^'"aa'
			'"aea'^^'"aea'r'"g+"beg+'r'"acef'|^^^^rr
		rrr'fa`c`f'^'e`e'^'d+fa`d+'|^'c`c'^'"bd+fb'^^
			'"aea'^^'"aea'r'"g+"beg+'r'"acef'|^r'"fcdf'^'"e"g+"be'^
		'"d"f"ad'^^'"e"g+"be'4^8,89'"f"acf',89r|rrr`c16`d16`cafd
		/*拍子6.8*/
		'"d"f"ad'^^'"e"g+"be'^^|'"g+"bcf'^^'"g+"beg+'^^|'"acea'^^'"bdfb'^^|'ceg`c'^^'ceg`c'^^
		/*拍子4.4*/
		'dfa`d'rr'cea`c'rr'"bdfb'4|^2^4'"bb'4|'c-d+fb'1|'"a+dea'4r2^4}
STR PF52 = {o4;l8;q99;v120;
		Sub{/*拍子4+3.4*/
		[2 "b,1399f,1299b^^^^^|^^^^^^|"f,1399c,1299f^^^^^|^^^^^^]
		/*拍子4.4*/
		}
		o5;l8;q109;v120;
		/*拍子4+3.4*/
		rrr'fa`c`f'^'e`e'^'d+fa`d+'|^'c`c'^'"bd+fb'^'"aa'
			'"aea'^^'"aea'r'"g+"beg+'r'"acef'|^^^^rr
		rrr'fa`c`f'^'e`e'^'d+fa`d+'|^'c`c'^'"bd+fb'^^
			'"aea'^^'"aea'r'"g+"beg+'r'"acef'|^r'"f"bdf'^'"e"ace'^
		'"d"f"ad'^^'"e"g+"be'4^8,89'"f"acf',89r|rrr`c16`d16`cafd
		/*拍子6.8*/
		'"d"f"ad'^^'"e"g+"be'^^|'"g+"bcf'^^'"g+"beg+'^^|'"acea'^^'"bdfb'^^|'ceg`c'^^'ceg`c'^^
		/*拍子4.4*/
		'dfa`d'rr'cea`c'rr'"bdfb'4|^2^4'"bb'4|'c-d+fb'1|'"a+dea'4r2^4}
STR PF61 = {KeyFlag-(be);q91;v100
		[2 '"gfb`d'2^4'"gfb`d'8,51'"egb`d'8^|2'"egb`d'2|'"bf`c`d'2'"bb`d`f'2|'"ffa`c'2'"ffa`c'2]/*16bars*/
		[2 '"egb`d'1'"df+a`c`f'4'f+a`c`d`f'8,51'"gfb`d`a'8^2:'"egb`d'1'"ffa`c`f'4'`a``c``f'8,51,125'gb`d`f'8^4,129'"gg'4]
		'"cgb`c`e'1'"da`c`d`f'1
		/*o6;l16;q109;v60;[2 
		[5 gb`d]g|[5 b`dg]b|[5 `dfb]`d|[5 fa`c]f
		]*/
		o5;l8;q109;v120;KeyP;}
STR PF71 = {o4;v100;t.N(0,8,16,24);
		'"gdgb'1^2'"aea`c'2'"bfa`d'1^2'"fa`c`e'2 t.N(0,12,24,36,48);
		'"gdab`d`f'1^2'"aeab`c`e'2|Key(3);'"gdab`d`f'1^2'"aeab`c`e'2|Key(0);t0;
		Sub{[8 ""d8,159"d8,159]}'a`d`e`f'2'a`d`f`a'2'b`e`g+'2'b`e`g+`b'2|
			Sub{[4 ""c8,159"c8,159][2 ""c-8,159"c-8,159][2 """b-8,159""b-8,159]}'a`c`e`a'2'a`c`e`g+'2'fa`c-`e'2'egb-`c'2
		Sub{[4 """g+8,159""g+8,159][2 ""c8,159"c8,159]""e8,159"e8,159""e+8,159"e+8,159}'fg+`c-`e'2^4'fa+`c-`e'2'f-g+b`d'4r8'f-g+b`e'4r8
		Sub{[8 ""f8,159"f8,159]}'efa`c'2^4 q259;v120;l16;[2 efa`ca`c`e`f>]'"aa'4,109
		o5;l8;q109;v120;KeyP;}
STR PF72 = {o3;v100;
		Sub{[8 "f-8,159f-8,159][6 "e8,159e8,159][2 "f-8,159f-8,159]}o5;'e-f-a`c'2r4'`e-`f-`a``c'2^4r8'e-f-a`c'4r8|'e-fa`c'2r4'`e-`f`a``c'4r4'ega+`c'4r8'`e`g`a+``c'4r8
		o3;l8;
		Sub{q.onCycle(!8,159,79);"ff"gg"g+g+"aa"a+a+"a+'"bb'8^2}
		o6;q109;v120;'c-e-fa'2'c-e-fa-'2'"b-df-a-'4r8'"bdf-a-'2r8
		//'"f+`c-`d+`f`a'4'"g`c-`d`f-`a'4'"g+`c-`d+`f`g+'4'"aa`c-`d`f'4|'"b-df-a-'4^8'"bdf-a-'2^8
		KeyFlag-(bea);o4[2 '"ccgb`d`f'2:'""c"c'4]Key(3);[2 '"ccgb`d`f'2:'""c"c'4]o5;KeyP;}
TR(1);KeyP;
@2,0,0;
V(120);EP(127);P(48);M(0);p%(0);
REV(50);CHO(20);
o5;l8;q199;v120;t0;r1
PF01 PF11 PF01 PF11
PF03 PF51 PF33
PF03 PF52 PF33 PF03 r1
PF61 PF71 PF72
PF01 PF11 PF03 PF52 PF33
PF03 PF05
//--------------------------------------------------------------------------------------------------
//_E.Bass
STR BA00 = {[8 r1]}
STR BA01 = {Sub{r1'`a,,,-30``f'1,,80}`d1|^1|`d^^g^^^^efga^^^^
		`d1|^2r`d`e`f|`g^^g^^^^e2a2}
STR BA03 = {[16 d][15 g]a[16 b][16 b-][16 d][15 g]a[16 b][16 `c-]}
STR BA04 = {r1^1|`d^^g^^^^efga^^^^
		r1^1|`g^^g^^^^e2a2}
STR BA05 = {`dagd2^1`e16,129`f16,129,80|`g,,80`dbg2^8^1|"b4^8b8^2^1|"b-1^2c-2|d1^1,,100|g1^1,,80|"b1^1,,80|"a1^1,,80/*音域の拡大*/
		d1^1,,80
		'`d,,80`a,,60,24``f,,60,48'1|^1^1^1^8,100'`d`a``f'8,19,20}
STR BA09 = {[2
		d^^^^`d`e`a|`g`a`e`d`c-`dga|gr`d16,69`c-16,69b16,69a16,69g,69`d`e`a|`b`f`g`d`egab
		b^^^^bbb|b`b`bbbfab|:[8 b-]|[8 b-]]
		[8 `c-][8 `c-]}
STR BA10 = {[4 r1][4 r2^4]}
STR BA11 = {b2a2g^^^^aba|b2a2g1
		f4^8g4^8a4^8b4^8|g4^8a4^8b4^8`c4a/*この行は拍子6.8*/}
STR BA33 = {[6 g]ga|^[7 a]|[5 b]ab`d|^[4 `d]agf
		[8 g]|[6 g]ab-|^[7 b-]|b-`a-`b-b-a-b-`d-`e-|`c[7 c]|[7 c]d|^[5 d]ef-|d`d`c-agaef/*12bars*/
		[6 g]ga|^[7 a]|[5 b]ab`d|^[4 `d]agf
		[8 g]|[6 g]af|^[6 f]f|^de"b^"bde|[8 f-]|[6 e]ga|^aga`c-aga|^deaga`c-a}
STR BA34 = {[6 g]ga|^[7 a]|[5 b]ab`d|^[4 `d]agf
		[8 g]|[6 g]ab-|^[7 b-]|b-`a-`b-b-a-b-`d-`e-|`c[7 c]|[7 c]d|^[5 d]ef-|d`d`c-agaef/*12bars*/
		[6 g]ga|^[7 a]|[5 b]ab`d|^[4 `d]agf
		[8 g]|[6 g]af|^[6 f]f|^de"b^"bde|[8 f-]|[6 e]ga|^[4 a]ga`c-|[8 a]}
STR BA51 = {b2^4`f4b2^4|f2^4`f4^2fa|b^^bb`c`d+`fr`d+^`cba|f4rfrerd|^^`d^`c^
		b^^`c^^`dr|r1
		b^^`c^^|`d^^`e^^|f^^g+^^|a^^a+^^/*この行は拍子6.8*/
		b^b,19a^a,19g4|^1|[8 g+8]|f1}
STR BA52 = {b2^4`f4b2^4|f2^4`f4^2fa|b^^bb`c`d+`fr`d+^`cba|f4rfrerd|^^g+^a^
		b^^`c^^`dr|r1
		b^^`c^^|`d^^`e^^|f^^g+^^|a^^a+^^/*この行は拍子6.8*/
		b^b,19a^a,19g4|^1|[8 g+8]|f1}
STR BA61 = {KeyFlag-(be);
		[2 
		[8 g][8 e][8 b][8 f]
		]
		[2 
		[8 e]ddfg^ff+g:|[8 e]fffg^ggg
		][8 c][6 d]d^
		KeyP;}
STR BA71 = {Sub{g4^8'``d,,100``g,,100,12``b,,100,24'2^8^1}[16 r1]}
STR BA72 = {[4 r1]f4g4g+4a4|b-8r4b8^2
		[5 [2 `c-8]][5 [2 `e-8]]/*この行は拍子5.4*/}
TR(2);KeyP;
@34,0,0;
V(127);EP(127);P(64);M(0);p%(0);
REV(0);CHO(30);
o2;l8;q99;v125;t0;r1
BA00 BA10 BA01 BA11
BA03 BA51 BA33
BA03 BA52 BA33 BA03 r1
BA61 BA71 BA72
BA04 BA11 BA03 BA52 BA33
BA03 BA05
//--------------------------------------------------------------------------------------------------
//_A.Sax
STR AS00 = {[8 r1]}
STR AS01 = {[16 r1]}
STR AS02 = {Sub{f16g16,,100f16,,100g16,,100f8,,80}
		Sub{`d4}
		[16 r1]}
STR AS03 = {r1^1|rrdcd"a"b"a^^^^^^^^|r1^1|rrdcd"b-"a"g^^^r"a^^^|"f4r2^4^1|rrdcd"a"b"a^^^^^^^^|r1^1|rrdcd"b"a"g^^^r"a^^^
		Sub{"f4,109}}
STR AS04 = {//o5;r1^2^8b`c`d'fa'2^4'df'4'"bg'4^8'"ae'2^8|r1^2^8b`c`d'fa'2^4'df'4'"bg'4^8'"b-g'2^8
		o5;r1^2^8b`c`da^^e16f8^16d^"afede^^^^|r1^2^8b`c`da^^f^^d^d2e2 o6}
STR AS05 = {Sub{f16g16,,100f16,,100g16,,100f8,,80}
		Sub{`d4}
		r1^1|rrdcd"a"b"a^^^^^^^^|r1^1|rrdcd"b-"a"g^^^r"a^^^|"f4r2^4^1|rrdcd"a"b"a^^^^^^^^|r1^1|rrdcd"b"a"g^^^r"a^^^
		Sub{"f2,109}}
STR AS10 = {[4 r1][4 r2^4]}
STR AS11 = {[4 r1][4 r2^4]}
STR AS31 = {[24 r1]}
STR AS33 = {Sub{o6
		rrdcdcdc|dcdcde"ad|^cdcdcdc|dcdcde"a/*4拍目裏は次の行へ*/
		f8|^1|^1|r1|r1|
		r"bcd+fg+"bc|^d+f"bcd+f"b|e^^erd+re|rd+rerfrg
		}o5
		d^^^rdde|^^^^reef|^^^^rffa|^^^^raab
		d^^^rdde|^^^^reef|^^^^rfff|^^^^ra-a-"a-
		"b^^^rff"b|^^^^rd+cc-|^^^^red+e|^^^^rd+re
		/*↑前半↓後半*/
		Sub{o6
		dcdcdcdc|dcdcde"ad|^cdcdcdc|dcdcde"a/*4拍目裏は次の行へ*/
		f8|^1|^1|r1|^1 o5
		c-^^^redc|^^^^rffg|^^^^rgfg|^^^^refg
		}o5
		d^^^rdde|^^^^reef|^^^^rfaf|^^^^rffe
		d^^^rded|^^^^r"bde|^^^^rfef|^^^^raa"a
		e^^^rgef|^^^^rc"ad|^^^^rab`e|^^^^r`c`d`e}
STR AS50 = {[4 r1^2^4][4 r2^4][6 r1]}
STR AS51 = {Sub{
			rrrf^e^d+^c^"b^"a|"a^^"ar"g+r"f^^^^^^|
			rrrf^e^d+^c^"b^"a|"a^^"ar"g+r"f^r"f4"e4
			/*4分の4拍子*/v100
			"d^^"e^^"fr|r1
			/*8分の6拍子*/v120
			"d^^"e^^|"f^^"g+^^|"a^^"b^^|c^^c^^
			/*4分の4拍子*/
			d^rc^r"b4|^4f^re^r|d1|c4r2^4}
		/*4分の7拍子*/v100
		[3 r4"d+4]"d+12,119"c12,119""b12,119|[3 r4""a4]""a12,119""b12,119"c12,119
		[3 r4"d+4]"d+12,119"c12,119""b12,119|[2 r4""a4]""a4""b4"c4
		/*4分の4拍子*/
		""a^^""b^^"cr|r1
		/*8分の6拍子*/
		""a^^""b^^|"c^^"e^^|"e^^"f^^|"g^^"a+^^
		/*4分の4拍子*/
		"b^r"a^r"g4|^4 v120 d^rc^r|"b1|"a+4r2^4
		v120}
STR AS61 = {[16 r1]}
STR AS71 = {[8 r1]o6;v100;q122;EP.T(100,127,!1^1^1^1);
		Sub{f2a2|g+2b2|a2g+2|e2c2|e2d4c4|"b4c4d4e4|c1|^8r8 v120;o5;`f`e`faba8|^1,,100/*AS55に1小節飛び出し*/}
		Sub{v80;o5;f2a2|g+2b2|`e2`c2|a2a+2|`c-2b4a4|g+4a4b4b4|a1|^1}
		[8 r1]o5;}
STR AS72 = {Sub{v120;r1|r4gf-gcd+c8|^1,,100|r4b-a-b-efg|v100;a2d+2|f-rrf-8^2|`f-2r4[2 `f-8r8]|`a-2r4[2 `a-8r8]}
		Sub{v120;r4d+cd+"a"b"a8|^1,,100|r4g+fg+cd+c8|^1,,100|v100;d+2f2|a-rra-8^2|b-2r4[2 b-8r8]|`d-2r4[2 `d-8r8]}
		[6 r1][2 r1^4]o6;l8;q102;v120;t0;}
TR(3);KeyP;
@66,0,0;
V(110);EP(127);P(72);M(20);p%(0);
REV(60);CHO(0);
o6;l8;q102;v120;t0;r1
AS00 AS10 AS00 AS10
AS01 AS50 AS31
AS01 AS51 AS33 AS02 r1
AS61 AS71 AS72
AS04 AS11 AS03 AS51 AS33
AS05 AS01
//--------------------------------------------------------------------------------------------------
//_T.Sax
STR TS00 = {[8 r1]}
STR TS01 = {[16 r1]}
STR TS02 = {Sub{d}
		Sub{`d}
		[16 r1]}
STR TS03 = {q109;r1^1|rr`d`c`daba^^^^^^^^|r1^1|rr`d`c`db-ag^^^ra^^^|f4r2^4^1|rr`d`c`daba^^^^^^^^|r1^1|rr`d`c`dbag^^^ra^^^
		Sub{f4,109}q89}
STR TS04 = {r1^1'g`d'2^8'f`d'4^8'gb'4^8'g`c'2^8,100|r1^1'gb'2^4'b`d'4'g`d'2'g`c'2,100}
STR TS05 = {Sub{d}
		Sub{`d}
		q109;r1^1|rr`d`c`daba^^^^^^^^|r1^1|rr`d`c`db-ag^^^ra^^^|f4r2^4^1|rr`d`c`daba^^^^^^^^|r1^1|rr`d`c`dbag^^^ra^^^
		Sub{f2,109}q89}
STR TS10 = {[4 r1][4 r2^4]}
STR TS11 = {[4 r1][4 r2^4]}
STR TS31 = {[24 r1]}
STR TS33 = {Sub{
		g^^^rgga|^^^^raab|^^^^rbb`d|^^^^r`d`d
		g|^^^^rgga|^^^^raab-|^^^^rb-b-`d|^^^^rb-b-`c-
		`c^^^rbb`c|^^^^rb`c`d|^^^^r`c-`c-`g|^^^^r q101`dr`f^//飛び出し字余り
		}o4;l8;q89;v120;
		b^^^rbb`c|^^^^r`c`c`d|^^^^r`d`d`f|^^^^r`f`f
		b|^^^^rbb`c|^^^^r`c`c`d|^^^^r`d`d`a-|^^^^r`d`df
		g+^^^rg+g+g+|^^^^rg+g+a|^^^^rab`c-|^^^^rarb
		/*↑前半↓後半*/
		Sub{o5
		refefefe|fefefacf|^efefefe|fefefcf/*4拍目裏は次の行へ*/
		b8|^1|^1|r1|^2^8ddd
		f-^^^rf-f-f-|d^^^rd"a"b|^^^redc|^^^^rccc|
		}o4;l8;q89;v120;
		b^^^rbb`c|^^^^r`c`c`d|^^^^r`d`da|^^^^raa/*4拍目裏は次の行へ*/
		b|^^^^rbab|^^^^r`cba+|^^^^r`d`ea|^^^^rfff
		a^^^ra`c-a|^^^^ra`d`e|^^^^raga|^^^^raaa}
STR TS50 = {[4 r1^2^4][4 r2^4][6 r1]}
STR TS51 = {Sub{o5
			rfbf^e^d+^e^f^f|rcff^e^f^^^^^r
			rfbf^e^d+^e^f^f|rcff^e^f^rd4e4
			/*4分の4拍子*/v100
			d^^e^^fr|r1
			/*8分の6拍子*/o4
			d^^e^^|g+^^g+^^|a^^b^^|c^^g^^
			/*4分の4拍子*/
			f^re^rd4|^4 v120 b^ra^r|f2 l16;q119;fg+ab`c`d`e`f|`e4r2^4}
		/*4分の7拍子*/o4;l8;q89;v100
		[3 r4b4]b12,119a12,119b12,119|[3 r4f4]f12,119g+12,119a12,119
		[3 r4b4]b12,119a12,119b12,119|[2 r4f4]f4g+4a4
		/*4分の4拍子*/
		b^^`c^^`dr|r1
		/*8分の6拍子*/
		b^^`c^^|`d^^e^^|f^^g+^^|a^^a+^^
		/*4分の4拍子*/
		b^ra^rg4|^4 v120 `f^r`e^r|b+1|`c4r2^4}
STR TS61 = {[16 r1]}
STR TS71 = {[8 r1]v80;q122;EP.T(80,127,!1^1^1^1);
		Sub{o5;d2f2|e2g+2|a2g+2|e2e2|e2d4c4|"b4"a4"g+4"e+4|"f1^1}
		Sub{o4;a2`d2|b2`e2|`c2a2|f2g2|f2g+4a4|b4`c4`d4`e4|`c1|^8r8`f8`e8`f8a8b8a8|^1/*TS55に1小節飛び出し*/}
		[8 r1]}
STR TS72 = {Sub{o5;v120;r4d+cd+"a"b"a8|^1,,100|r4g+fg+cd+ v100;c8|^1|c-2c-2|drrd8^2|d2r4[2 d8r8]|f-2r4[2 f-8r8]}
		Sub{v120;r1|r4gf-gcd+c|^1,,100|o4;r4b-a-b-efg|v100;f2g+2|b-rrb8^2|g2r4[2 g8r8]|b-2r4[2 b-8r8]}
		[6 r1][2 r1^4]o4;l8;q89;v120;t0;}
TR(4);KeyP;
@67,0,0;
V(110);EP(127);P(80);M(0);p%(0);
REV(60);CHO(0);
o4;l8;q89;v120;t0;r1
TS00 TS10 TS00 TS10
TS01 TS50 TS31
TS01 TS51 TS33 TS02 r1
TS61 TS71 TS72
TS04 TS11 TS03 TS51 TS33
TS05 TS01
//TS33 TS34
//--------------------------------------------------------------------------------------------------
//_B.Sax
STR BS00 = {[8 r1]}
STR BS01 = {[16 r1]}
STR BS02 = {Sub{`d16`c-16a16g16d8}
		[16 r1]}
STR BS03 = {[16 r1]}
STR BS04 = {r1^1`g2^8`f4^8`d+32`e4^16r32a2^8,100|r1^1`c32`d4^16r32`g2^8`e2a2,100}
STR BS10 = {[4 r1][4 r2^4]}
STR BS11 = {[4 r1][4 r2^4]}
STR BS31 = {[24 r1]}
STR BS33 = {g^^^rgga|^^^^raab|^^^^rbb`d|^^^^r`d`d
		g|^^^^rgga|^^^^raab-|^^^^rb-b-`d|^^^^rb-b-`c-
		`c^^^rbb`c|^^^^rb`c`d|^^^^r`c-`c-`d|^^^^r`drg
		/*↑前半↓後半*/
		g^^^rgga|^^^^raab|^^^^rbb`d|^^^^r`d`d
		g|^^^^rgag|^^^^ragf|^^^^rg+a+b|^^^^rbaf
		f-^^^rgf-e|^^^^r`d`ea|^^^^raga|^^^^rgra}
STR BS34 = {}
STR BS50 = {[4 r1^2^4][4 r2^4][6 r1]}
STR BS51 = {/*4分の7拍子*/
		b1bfb`c`d+`f|f^^a^^`c^^`f^^^^|`a&`b`f`e`d`ebafab`d`e`e+|`f^^`c^^f^^^g+4a4
		/*4分の4拍子*/
		b^^`c^^`dr|r1
		/*8分の6拍子*/
		b^^`c^^|`d^^e^^|f^^g+^^|a^^a+^^
		/*4分の4拍子*/
		brrarrg4|^1|g+1|f4r2^4}
STR BS61 = {[16 r1]}
STR BS71 = {[8 r1]v100;EP.T(64,127,!1^1^1^1);
		d1|^1|c2^8aea|`c-2a+2|g+1|c2e4f-4|f^^`c^^`f^|^a^^`c^`e^}
STR BS72 = {`f-^^`c-^^f-^|^`c-^^a^f-^|e^^`e^^e^|^`e^^e^e+^|f4g4g+4a4|b-rrb8^2|`c-2r4[2 `c-8r8]|`e-2r4[2 `e-8r8]
		o3;l8;q89;v120;}
TR(5);KeyP;
@68,0,0;
V(110);EP(127);P(88);M(0);p%(0);
REV(60);CHO(0);
o3;l8;q89;v120;t0;r1
BS00 BS10 BS00 BS10
BS01 BS50 BS31
BS01 BS51 BS33 BS02 r1
BS61 BS71 BS72
BS04 BS11 BS03 BS51 BS33
BS02 BS01
//BS33 BS34
//--------------------------------------------------------------------------------------------------
//_A.Guitar
STR GC00 = {[8 r1]}
STR GC01 = {}
STR GC04 = {}
STR GC10 = {[4 r1][4 r2^4]}
STR GC11 = {[4 r1]q.N(299,199,99);fa`dgb`da`c`eb`d`f|gb`da`c`eb`d`f`c`e`a q79;}
STR GC03 = {'"ad,,,8f,,,16a,,,24`d,,,32'^^ t.N(0,2,4,6,8);
			[4 '"adfa`f':'"adfa`d',19'"adfa`e''"adfa`d',19]
		t0;l16;q179;"g"a"bdgr t.N(0,2,4,6,8);l8;q79;
			[4 '"gdfb`f':'"gdfa`d',19'"adfa`e''"adfa`d',19]
		rr'"bfa`d`f',19
			[4 '"bfa`d`f':'"bfa`d`f',19'"bfa`c`e''"bfa`c`e',19]
		'"b-f-,,,4a,,,8`d,,,12`f-,,,16'^^ t.N(0,2,4,6,8);
			[3 '"b-f-a`d`f-''"b-f-a`d`f-',19'"b-f-a`c-`g''"b-f-a`c-`g',19]'"ada`d`f'/*8bars*/
		'"ad,,,8f,,,16a,,,24`d,,,32'^^ t.N(0,2,4,6,8);
			[4 '"adfa`f':'"adfa`d',19'"adfa`e''"adfa`d',19]
		t0;l16;q179;"g"a"bdgr t.N(0,2,4,6,8);l8;q79;
			[4 '"gdfb`f':'"gdfa`d',19'"adfa`e''"adfa`d',19]
		rr'"bfa`d`f',19
			[4 '"bfa`d`f':'"bfa`d`f',19'"bfa`c`e''"bfa`c`e',19]
		'"gc-g`c-`e'^`f16,179`g16
			[4 'c-g`c-`e`g':'c-gb-`e`g',19'c-gb-`d`f''c-gb-`d`f',19]/*8bars*/}
STR GC031 = {//MidiDelay({
		rrr'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		rrr'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		rrr'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		rrr'`d`f-`a'b-'`c-`e`g'b-'`d`f-`a'b-'`c-`e`g'b-'`d`f-`a'b-'`c-`e`g'b-'a`d`f'
		rrr'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		rrr'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		rrr'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'a'`c`e'a'`d`f'
		rrr'`e`g'b'`d`f'b'`e`g'b-'`d`f'b-'`e`g'b-'`d`f'b-'`e`g'
		//},5,!8^16);
		}
STR GC31 = {MidiDelay({
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|bb`a`a`e`fr`a^`a`e`e+`e+`e`da
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|b-b-`a-`a-`g-`a-`g-a-|b-`a-b-`g-`a-`c`d`a-
		'`d+`f'^^'`d+`f'r'`c`e+'r'`d+`f'r'`c`e+'r'`d+`f'r'`d+`f''`d+`f''`d+`f'|
			'`e`g'^^'`e`g'r'`d+`f'r'`e`g'r'`d+`f'r'`e`g'r'`d+`f'r'`e`g'/*12bars*/
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|bb`a`a`e`fr`a^`a`e`e+`e+`e`da
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|b-b-`a-`a-`e`fr`a^`a`e`e+`e+`e`da
		b`a`d`e`g`d`e`g|^`a`e`dr`fr`a|^`a`g`a``c-`a`g`a|^`e`g`a`g`a``c-a
		},5,!8^16);}
STR GC33 = {v120;
		MidiDelay({
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|bb`a`a`e`fr`a^`a`e`e+`e+`e`da
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|b-b-`a-`a-`g-`a-`g-a-|b-`a-b-`g-`a-`c`d`a-
		'`d+`f'^^'`d+`f'r'`c`e+'r'`d+`f'r'`c`e+'r'`d+`f'r'`d+`f''`d+`f''`d+`f'|
			'`e`g'^^'`e`g'r'`d+`f'r'`e`g'r'`d+`f'r'`e`g'r'`d+`f'r'`e`g'
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|bb`a`a`e`fr`a^`a`e`e+`e+`e`da
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|b-b-`a-`a-`e`fr`a^`a`e`e+`e+`e`da
		b`a`d`e`g`d`e`g|^`a`e`dr`fr`a|^`a`g`a``c-`a`g`a|^`e`g`a`g`a``c-a
		},5,!8^16);v80;}
STR GC51 = {t.N(0,2,4,6);v80[2
		[2 'fb`d+'4,19,60'fb`d+'4]'fb`d+'4,19,60'fb`d+'4'fb`d+'12,39,80[2 'fb`d+'12,19,60]
		[2 'fa`c'4,19,60'fa`c'4]'fa`c'4,19,60:'fa`c'4'fa`c'12,39,80[2 'fb`d+'12,19,60]
		]f4e4
		'"bfa`d'8[4 '"bfa`d'16,19,60]'cg+b`e'8[4 'cg+b`e'16,19,60]'da`c`f'8r8r1
		'"bfa`d'4[2 '"bfa`d'16,19,60]'cg+b`e'4[2 'cg+b`e'16,19,60]|
			'dg+`c`f'4[2 'dg+`c`f'16,19,60]'"beg+b'4[2 '"beg+b'16,19,60]
			'"fcea'4[2 '"fcea'16,19,60]'"g+"beb'4[2 '"g+"beb'16,19,60]
			'"aeg`c'4[2 '"aeg`c'16,19,60]'"a+eg`c'4[2 '"a+eg`c'16,19,60]
		'"bfa`d'4[2 '"bfa`d'16,19,60]'"aea`c'4[2 '"aea`c'16,19,60]'"gdfb'4|^8
			[2 '"gdfb'16,19,60][3 '"gdfb'8[2 '"gdfb'16,19,60]]
		t0;v120;MidiDelay({
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d},5,!8^16);}
STR GC61 = {KeyFlag-(be);v90;
		[2 
		[2 '"gdfb`d',19,60]'"gdfb`d''"gdfb`d',19,60'"gdfb`d'[2 '"gdfb`d',19,60]'"gdfb`d'
		[2 '"begb`d',19,60]'"begb`d''"begb`d',19,60'"begb`d'[2 '"begb`d',19,60]'"begb`d'
		[2 '"f"bfb`d',19,60]'"f"bfb`d''"f"bfb`d',19,60'"f"bfb`d'[2 '"f"bfb`d',19,60]'"f"bfb`d'
		[2 '"fcfa`c',19,60]'"fcfa`c''"fcfa`c',19,60'"fcfa`c'[2 '"fcfa`c',19,60]'"fcfa`c'
		]
		[2
		[2 '"begb`d',19,70]'"begb`d''"begb`d',19,70'"begb`d'[2 '"begb`d',19,70]'"begb`d'
		[2 '"adf+`c`f',19,70]'"adf+`c`f''"adf+`c`f',19,70'"gdfb`d'[2 '"gdfb`d',19,70]'"gdfb`d':
		[2 '"begb`d',19,70]'"begb`d''"begb`d',19,70'"begb`d'[2 '"begb`d',19,70]'"begb`d'
		[2 'cfa`c`f',19,70]'cfa`c`f''cfa`c`f',19,70'"gdfb`d'[2 '"gdfb`d',19,70]'"gdfb`d'
		]
		[2 'cegb`e',19,70]'cegb`e''cegb`e',19,70'cegb`e'[2 'cegb`e',19,70]'cegb`e'
		Key(2);[2 'cegb`e',19,70]'cegb`e''cegb`e',19,70'cegb`e'[2 'cegb`e',19,70]'cegb`e'
		Key(-2);KeyP;}
STR GC71 = {Sub{'"gdfb`d'1}[16 r1]}
STR GC72 = {KeyFlag-();[6 r1]
		[2 'cgb`d`f'[2 'cgb-`d`f',19,70]][2 'cgb-`d`f''cgb-`d`f',19,70]
		Key(3);[2 'cgb-`d`f'[2 'cgb-`d`f',19,70]][2 'cgb-`d`f''cgb-`d`f',19,70]
		KeyP;}
TR(6);KeyP;
@26,8,0;
V(100);EP(127);P(112);M(0);p%(0);
REV(40);CHO(120);
o4;l8;q79;v80;t0;r1
GC00 GC10 GC00 GC10
GC03 GC51 GC33
GC03 GC51 GC33 GC03 r1
GC61 GC71 GC72
GC00 GC11 GC03 GC51 GC33
GC03
//Solo(6,7)
//--------------------------------------------------------------------------------------------------
//_E.Guitar
STR GT00 = {[8 r1]}
STR GT01 = {}
STR GT02 = {[16 r1]}
STR GT03 = {o4;l8;q99;v90;t.N(0,1,2,3,4,4,3,2,1,0);
		[16 '"ada`d`f'][16 '"gdgb`f'][16 '"bfa`d`f'][16 '"b-f-a`c-`f-']
		[16 '"ada`d`f'][16 '"gdgb`f'][16 '"bfa`d`f'][16 '"gc-g`c-`e']}
STR GT05 = {Sub{EP(0);p%(8191);[4 r1]EP.T(0,127,!1^1,127,0,!1^1);'`a``d'1^1^1^1,100}
		[16 r1]}
STR GT10 = {[4 r1][4 r2^4]}
STR GT11 = {[4 r1]q.N(299,199,99);<dfadgbea`c`d`ca|gb`da`c`eb`d`fa`c`e>q99;}
STR GT31 = {o4;l8;q99;v90;t.N(0,1,2,3,4,4,3,2,1,0);
		[7 '"gdfb`d'][9 '"aea`c`e'][8 '"bfa`d`f'][8 '"adfa`d']
		[16 '"gdfb`d'][16 '"b-da-`c-`f']
		[16 '"g+cg+b`d+'][16 '"ada`c-`e']
		[7 '"gdfb`d'][9 '"aea`c`e'][8 '"bfa`d`f'][8 '"adfa`d']
		[16 '"gdfb`d'][7 '"f"a+ea`d'][9 '"f"bfa`d']
		[8 '"f-c-g`c-`e'][8 '"adfa`c'][8 '"aegb`d'][8 '"aeg`c`e']
		}
STR GT33 = {o5;l8;q99;v120;t0;
		Sub{	rrdcdcdc|dcdcde"ad|^cdcdcdc|dcdcde"af8|^1|^2^8ee+f8|^1|^1|
			r"bcd+fg+"bc|^d+f"bcd+f"b|Key(1);r"bcd+fg+"bc|^d+f"bcd+f"b|Key(0);}
		[12 r1]o5;l8;q99;v120;t0;
		fefefefe|fefefacf|^efefefe|fefefcfb8|^1|^4r4
			o4;l8;q99;v90;t.N(0,1,2,3,4,4,3,2,1,0);p%.T(8191,0,!2);'""g"d"f"bd'2
		'"f"a+ea`d'2^4^8'"f"bfa`d'8|^1
		[8 '"f-c-g`c-`e'][8 '"adfa`c'][8 '"aegb`d'][8 '"aeg`c`e']
		}
STR GT38 = {o5;l8;q99;v120;t0;
		Sub{dcdcdcdcdcdcde"ad|^cdcdcdcdcdcde"af8|^1|^2^8eff8|^1|^1|r"bcd+fg+"bc|^d+f"bcd+f"b|r1^1}
		[12 r1]o5;l8;q99;v120;t0;
		Sub{fefefefefefefacf|^efefefefefefcfb8|^1}
		[12 r1]}
STR GT39 = {[8 '"gg'][8 '"aa'][8 '"bb'][8 'd`d']}
STR GT51 = {o4;l8;q99;v90;t.N(0,2,4,6,8,8,6,4,2,0);
		[4 r1^2^4][7 r1]EP.T(32,127,!1^1);'"g+d+fb+`d+'2^4^8^16,97,120'"g+d+fb+`d+'16,39,120'"fea+`d`a'2^4^8^16,97,120'"fea+`d`a'16,39,120
		/*"f"bd+"bd+f"bd+|f"bd+f"b"a"f"d+*/}
STR GT52 = {t.N(0,2,4,6);v80
		[4 r1^2^4]
		'"bfa`d'8[4 '"bfa`d'16,39,70]'cg+b`e'8[4 'cg+b`e'16,39,70]'da`c`f'8r8r1
		'"bfa`d'4[2 '"bfa`d'16,39,70]'cg+b`e'4[2 'cg+b`e'16,39,70]|
			'dg+`c`f'4[2 'dg+`c`f'16,39,70]'"beg+b'4[2 '"beg+b'16,39,70]
			'"fcea'4[2 '"fcea'16,39,70]'"g+"beb'4[2 '"g+"beb'16,39,70]
			'"aeg`c'4[2 '"aeg`c'16,39,70]'"a+eg`c'4[2 '"a+eg`c'16,39,70]
		'"bfa`d'4[2 '"bfa`d'16,39,70]'"aea`c'4[2 '"aea`c'16,39,70]'"gdfb'4|^1
		'"g+d+fb+`d+'1'"fea+`d`a'1}
STR GT61 = {KeyFlag-(be);
		[2 
		[4 '"gdfb`d'16,39,70]'"gdfb`d''"gdfb`d',39,70'"gdfb`d'[4 '"gdfb`d'16,39,70]'"gdfb`d'
		[4 '"begb`d'16,39,70]'"begb`d''"begb`d',39,70'"begb`d'[4 '"begb`d'16,39,70]'"begb`d'
		[4 '"f"bfb`d'16,39,70]'"f"bfb`d''"f"bfb`d',39,70'"f"bfb`d'[4 '"f"bfb`d'16,39,70]'"f"bfb`d'
		[4 '"fcfa`c'16,39,70]'"fcfa`c''"fcfa`c',39,70'"fcfa`c'[4 '"fcfa`c'16,39,70]'"fcfa`c'
		]
		[2
		[4 '"begb`d'16,39,70]'"begb`d''"begb`d',39,70'"begb`d'[4 '"begb`d'16,39,70]'"begb`d'
		[4 '"adf+`c`f'16,39,70]'"adf+`c`f''"adf+`c`f',39,70'"gdfb`d'[4 '"gdfb`d'16,39,70]'"gdfb`d':
		[4 '"begb`d'16,39,70]'"begb`d''"begb`d',39,70'"begb`d'[4 '"begb`d'16,39,70]'"begb`d'
		[4 'cfa`c`f'16,39,70]'cfa`c`f''cfa`c`f',39,70'"gdfb`d'[4 '"gdfb`d'16,39,70]'"gdfb`d'
		]
		[4 'cegb`e'16,39,70]'cegb`e''cegb`e',39,70'cegb`e'[4 'cegb`e'16,39,70]'cegb`e'
		Key(2);[4 'cegb`e'16,39,70]'cegb`e''cegb`e',39,70'cegb`e'[4 'cegb`e'16,39,70]'cegb`e'
		Key(-2);KeyP;}
STR GT71 = {Sub{p%.T(0,0,!2,0,-8191,!4);'"gdfb`d'2^4,97'"gdfb`d'16,59}[16 r1]}
STR GT72 = {p%(0);[4 r1]KeyFlag-(bea);o5;l8;q129;v120;t0;
		c"acded24e24d24c"a+|cdfa^g16a16g,,100f,,100|
		cdfg`c`drrrr|rrefab`e`f`f+`g|Sub{`a+4}
		KeyP;q99;}
TR(7);KeyP;
@85,0,0;
V(90);EP(127);P(16);M(8);p%(0);BR(12)
REV(40);CHO(120);
o5;l8;q99;v120;t0;r1
GT00 GT10 GT00 GT10
GT02 GT51 GT31
GT03 GT52 GT33 GT02 r1
GT61 GT71 GT72
GT00 GT11 GT03 GT52 GT33
GT02 GT05
//Solo(6,7)
//GT33 GT34 GT03
//--------------------------------------------------------------------------------------------------
//_Trumpet
STR TP00 = {[8 r1]}
STR TP01 = {Sub{f4}[16 r1]}
STR TP02 = {[16 r1]}
STR TP03 = {[4 rrdcd"a"b"a^^^^^^^^|r1^1]}
STR TP04 = {[8 r1]}
STR TP10 = {[4 r1][4 r2^4]}
STR TP11 = {[4 r1][4 r2^4]}
STR TP31 = {r2^4^8"f|^"a"a+"bde+16&f16ed|^^^"b16"a16,33"g16,33"f16,33r4^8|r2^8"a"b"f^r-8//飛び出し字余り
		r2^4^8"a|^"bd"bce"f"a|^rrrrrrr|r"a"e"f"a"e"f"a
		f^^fre+rf|re+rfre+rf|g^^grfrg|rfrgrfrg|
		r2^4^8"f|^"a"a+"bde+16&f16ed|^^^"b16"a16,33"g16,33"f16,33r4^8|r2^8"a"b"f^r-8//飛び出し字余り
		r2^4^8"a|^"bd"bce"f"a|^rrrrrr"a|"bdee+e+ed"a|r1|"a^^"b^^c^|d2^4"g16"a16"b16d16|e1}
STR TP33 = {rrdcdcdc|dcdcde"ad|^cdcdcdc|dcdcde"a/*4拍目裏は次の行へ*/
		f8|^1|^2^8erf8|^1|r1|
		f^^fre+rf|re+rfre+rf|g^^grfrg|rfrgrfrg
		Sub{dcdcdcdc|dcdcde"ad|^cdcdcdc|dcdcde"af8|^1|^1|e2^4f8a8|^1|^2r4e16g16a8|^2^4r8e|^ede"ac-de|^dc"a"g"ac-c
		Sub{d}//飛び出し字余り
			/*c|^c"bcec"bc|^"g"ac"acee*/}
		[12 r1]}
STR TP39 = {Sub{dcdcdcdc|dcdcde"ad|^cdcdcdc|dcdcde"af8|^1|^2^8erf8|^1|^1|r"bcd+fg+"bc|^d+f"bcd+f"b|r1^1}
		[12 r1]}
STR TP51 = {v90 "d+1^2^4"e1^2^4"f1^2^4"a1^4r2
		[9 r1]v120}
STR TP52 = {[4 r1^2^4][2 r1][4 r2^4][3 r1]r4[3 dc]Sub{d}}
STR TP61 = {KeyFlag-(be);
		[8 r1]<
		r-4 ga|bbbbbbbb|agfgrdga|bbbb`cb`cb|`c`d`e`d^rga
		bbbbbbbb|agfgrgbg|brbrbrbr|`c`d`e`d^^^r>
		KeyP;}
STR TP71 = {[16 r1]}
STR TP72 = {[4 r1]KeyFlag-(bea);
		c"acded24e24d24c"a+|cdfa^g16a16g,,100f,,100|
		crrrrrcdfg|b`cr2^4de+|Sub{f+4}
		KeyP;}
TR(8);KeyP;
@57,0,0;
V(110);EP(127);P(56);M(0);p%(0);
REV(80);CHO(10);
o6;l8;q101;v120;t0;r1
TP00 TP10 TP00 TP10
TP02 TP51 TP31
TP01 TP52 TP33 TP02 r1
TP61 TP71 TP72
TP04 TP11 TP03 TP52 TP33
TP03
//TP33 TP34
//--------------------------------------------------------------------------------------------------
//_Misc
STR MC00 = {[8 r1]}
STR MC01 = {}
STR MC02 = {[16 r1]}
STR MC03 = {o7;l8;q89;v100;
		r1|[4 rr`f`e`f`d`e`d|^^^^^^^^|v80;:rr`f`e`f`d`e`d|^^^^^^^^|v100]rr`f`e`f`d`e`d v100;}
STR MC04 = {[8 r1]}
STR MC10 = {[4 r1][4 r2^4]}
STR MC11 = {[4 r1][4 r2^4]}
STR MC12 = {}
STR MC21 = {}
STR MC22 = {}
STR MC23 = {}
STR MC31 = {[3 rr`d`c`daba|^^^^^rrr]rr`d`c`db-a-g-|^^^^^^^r|
		q69[2 `d+[4 d+16]`d+][4 d+16]`d+[4 d+16]`d+d+,,80`d+|[2 `e[4 e16]`e][4 e16]`e[4 e16]`ee,,80`e q99
		[4 rr`d`c`daba|^^^^^rrr]<|b`a`d`e`g`d`e`g|^`a`e`dr`fr`a|^`a`g`a``c-`a`g`a|^`e`g`a`g`a``c-a}
STR MC32 = {[3 rr`d`c`daba8|^1]rr`d`c`db-a-g-8|^1
		[4 r1]
		[4 rr`d`c`daba8|^1]
		[4 r1]}
STR MC50 = {[4 r1^2^4][4 r2^4][6 r1]}
STR MC61 = {o7;l8;q89;v100;
		[8 r1]b-1a4^8g2^8|b-1`c-4^8`d2^8|b-1a4^8g2^8|b-2b-2|`c-4^8`d2^8}
STR MC71 = {[16 r1]}
STR MC72 = {[6 r1][2 r1^4]}
TR(9);KeyP;
@100,0,0;
V(70);EP(127);P(96);M(0);p%(0);
REV(100);CHO(127);
o7;l8;q89;v100;t0;r1
MC00 MC10 MC00 MC10
MC02 MC50 MC31
MC02 MC50 MC31 MC02 r1
MC61 MC71 MC72
MC04 MC11 MC03 MC50 MC31
MC03
//--------------------------------------------------------------------------------------------------
//_Strings
STR SS00 = {[8 r1]}
STR SS01 = {}
STR SS03 = {[16 r1]}
STR SS04 = {Sub{o4;l2;q99;v80
		'"dda`e`f`a'1^1'"gdb`f`a``d'1^1'"bfa`d`f`a'1^1'"b-f-a`c-`d`a'1^1
		'"dda`e`f`a'1^1'"gdb`f`a``d'1^1'"bfa`d`f`a'1^1'c-g`c-`e`g`b'1'c-g`c-`e`g`b-'1
		}o5;l8;q79;v120
		[2 [3 [4 'a`a'8r4^8]][3 'a`a'8r4^8]'`c-``c-'8r4^8]}
STR SS05 = {o4;l2;q99;v80
		'"dda`e`f`a'1^1'"gdb`f`a``d'1^1'"bfa`d`f`a'1^1'"b-f-a`c-`d`a'1^1
		EP.T(127,64,3072);'"dda`e`f`a'1^1'"gdb`f`a``d'1^1'"bb`f`a``d``f'1^1'"ag`e`b-``c``f'1'"aa`c`e`b``g'1
		o5;EP.T(64,127,!1^1,127,16,!1^1^1);'"dda`e`f`a'1^1^1^1^1
		l8;q79;v120}
STR SS06 = {Sub{o4;r1^1'""g"gdgb'1'""e"edgb'4^8'""a"aeg`c'2^8|r1^1'""g"gdgb'1'""e"edgb'4^8'""a"aegb-'2^8}
		o5;v100;
		r1^2^8b`c`d|a^^e16f8^16d^"a|fede^^^^|r1^2^8b`c`d|a^^f^^d^|d2e2}
STR SS10 = {[4 r1][4 r2^4]}
STR SS11 = {Sub{o4;
		'""b"bfa`d'2'""a"adf`d'2'""g"gab`d'1|'""b"bfa`d'2'""a"adf`d'2'""g"gdab'1 q69;
		v100[3 '""f"fda`d'v80]v100[3 '""g"gdb`d'v80]v100[3 '""a"aea`c'v80]v100[3 '""b"bfa`d'v80]
		v100[3 '""g"gdb`d'v80]v100[3 '""a"aea`c'v80]v100[3 '""b"bfa`d'v80]v100[3 '"cca`c`e'v80]
		}o5;v100;q99;
		r4`d`c`daba^^^^^^^^|r4`d`c`daba^^^^^^^f16g16|fgadgbea`c`d`ca|bab`cb`c`d`c`d`e`f`g16`g+16}
STR SS31 = {Sub{o4;l2;q99;v80
		'"gdb`f`a``d'1'"aea`c`e`a'1'"bfa`d`f`a'1'"ddf`c`e`a'1
		'"gdb`f`a``d'1^1'"b-a-`c-`d`f``c'1^1
		'"ccb`d+`f`b'1^1'"dda`e`g``c-'1^1/*12bars*/
		'"gdb`f`a``d'1'"aea`c`e`a'1'"bfa`d`f`a'1'"ddf`c`e`a'1
		'"gdb`f`a``d'1^1'"ffa+`d`a``d'1'"bfa`d`a``c'1
		'"f-f-`c-`e`g``c-'1'"eea`d`f``c'1'"aeg`e`b``d'1'"aa`c`e`g``c'1/*12bars*/}
		/*Melody*/
		o5;l8;v110;>Sub{`f^}
		[3 rr`d`c`daba|^^^^^rrr]rr`d`c`db-a-g-|^^^^^^^r|q69[2 `d+d+d+`d+]d+d+`d+d+d+`d+d+`d+|[2 `eee`e]ee`eee`ee`e q99
		[4 rr`d`c`daba|^^^^^rrr]<v120|b`a`d`e`g`d`e`g|^`a`e`dr`fr`a|^`a`g`a``c-`a`g`a|^`e`g`a`g`a``c-a}
STR SS33 = {Sub{o4;l2;q99;v80
		'"gdb`f`a``d'1'"aea`c`e`a'1'"bfa`d`f`a'1'"ddf`c`e`a'1
		'"gdb`f`a``d'1^1'"b-a-`c-`d`f``c'1^1
		'"ccb`d+`f`b'1^1'"dda`e`g``c-'1^1
		}o5;l8;q79;v120
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|bb`a`a`e`fr`a^`a`e`e+`e+`e`da
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|b-b-`a-`a-`g-`a-`g-a-|b-`a-b-`g-`a-`c`d`a-/*b-b-`a-`a-`e`fr`a-^`a-`e-`e`e`e-`d-a-*/
		'`d+`f'^^'`d+`f'r'`c`e+'r'`d+`f'|r'`c`e+'r'`d+`f'r'`d+`f''`d+`f''`d+`f'
			'`e`g'^^'`e`g'r'`d+`f'r'`e`g'|r'`d+`f'r'`e`g'r'`d+`f'r'`e`g'
		/*↑前半↓後半*/
		Sub{o4;l2;q99;v80
		'"gdb`f`a``d'1'"aea`c`e`a'1'"bfa`d`f`a'1'"ddf`c`e`a'1
		'"gdb`f`a``d'1^1'"ffa+`d`a``d'1'"bfa`d`a``c'1
		'"f-f-`c-`e`g``c-'1'"eea`d`f``c'1'"aeg`e`b``d'1'"aa`c`e`g``c'1
		}o5;l8;q79;v120
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|bb`a`a`e`fr`a^`a`e`e+`e+`e`da
		bb`a`a`e`fr`a^`a`f`f`e`f`e`d|b-b-`a-`a-`e`fr`a^`a`e`e+`e+`e`da
		b`a`d`e`g`d`e`g|^`a`e`dr`fr`a|^`a`g`a``c-`a`g`a|^`e`g`a`g`a``c-``c
		}
STR SS51 = {'""b"b'1^2^4'""f"a'1^2^4'""bd+'1^2^4'""fe'1^4/*EP.T(64,127,!2);*/'"d"ff'4'"c"be'4
		/*4分の4拍子*/
		'""b"f"ad'^^'"c"g+"be'^^'"d"acf'r|r1
		/*8分の6拍子*/
		'""b"d"fd'^^'"c"e"be'^^|'"d"fdf'^^'"e"g+"bg+'^^|'"f"aca'^^'"g+"beb'^^|'"ace`c'^r'"a+ceg`c'^r
		/*4分の4拍子*/
		'"bdfa`d'^'"""b""b''""a"ace`c''"""a""a'^'""g"d"bfb'^|^^^^^^^r|[3 '""g+"d+"b+fb'8]r2^8
			l16;v100;q199;Sub{"f"g+"a"a+"bcde fg+aa+b`c`d`e}>"f"g+"a"a+"bcde fg+aa+b`c`d`e<v80;l8;q99}
STR SS52 = {Sub{v80>
			[3 r4'd+`d+'4,59]'"fd+'4,59|[3 r4'e`e'4,59]'ce'4,59
			[3 r4'd+`d+'4,59]'"fd+'4,59|[2 r4'e`e'4,59]r4'df'4'ce'4}
		v80<
		'""b"b'1^2^4'""f"a'1^2^4'""bd+'1^2^4'""fe'1^4/*EP.T(64,127,!2);*/'"d"ff'4'"c"be'4
		/*4分の4拍子*/
		'""b"f"ad'^^'"c"g+"be'^^'"d"acf'r|r1
		/*8分の6拍子*/
		[4 r2^4]
		/*4分の4拍子*/
		Sub{[3 r1]v120[4 '`d``d':'`c``c']r}
		[3 r1]EP.T(64,127,!1);'""f"fea+'1}
STR SS61 = {[16 r1]o5;l8;q99;v80;}
STR SS71 = {Sub{"b1^2c2|d1^2e2|f1^2e2|a1^2g2|v100;q59;o6;"a"addffdd"b"beeg+g+ee|cceeaaee"a"aeeggcc|"g+"g+c-c-eec-c-"b"beebbee|[2 aaag+g+g+]aag+g+}
		Sub{o5;q99;v80;"g1^2"a2|"b1^2c2|d1^2"b2|d1^2e2|v100;q59;ffaa`d`daag+g+bb`e`ebb|aa`c`c`e`e`c`cffaa`c`cee|ffg+g+`c-`c-g+g+f-f-bb`e`ebb|o6;[2 fffeee]ffee}
		Sub{o4;q99;v80;d1^2e2|f1^2a2|b1^2`c2|f-1^2g2|a4f4a4f4b4g+4b4g+4|o5;c4"a4c4"a4e4c-4e4c4|f4d+4f4d+4g+4e+4g+4a4|a^^g+^^e^^c^^e^g+^}
		Sub{o3;v100;g1^2a2|b1^2f2|g1^2a2|b-1^2`c-2|d1^1|c2^8a8`e8a8`c-2a+2|g+1c2e4f-4|f^^`c^^`f^^a^^`c^`e^|}
		Sub{o2;v80;g1^2a2|b1^2f2|g1^2a2|b-1^2`c-2|d1^1|c1`c-2a+2|g+1c2e4f-4|v100;f1^1}
		[16 r1]}
STR SS72 = {Sub{o6;q59;v100;[2 aaaggg]aa`c`c|[2 `d+`d+`d+`c`c`c]a+a+gg|aaa+a+bb`c-`c-|`drr'b`f-'^^^^|q99;f-1^4a-1^4}
		Sub{o6;q59;v100;[2 f-f-f-e-e-e-]f-f-e-e-|[2 aaafff]ggcc|ffggg+g+aabrr'f-`d'^^^^|q99;"b-1^4c1^4}
		Sub{o5;q99;v80;a^^f-^^a^^f-^^c-^"a^|"a^^c^^d+^^f^^g^"a+^|v100;o4;a4a+4b4`c-4`drr`a-^^^^|`d1^4`f-1^4}
		Sub{o3;v100;`f-^^`c-^^f-^^`c-^^a^f-^|e^^`e^^e^^`e^^e^e+^|f4g4g+4a4|b-rrb8^2|`g1^4|`b-1^4}
		Sub{o2;v100;f-1^1|e1^2^4e+4|v120;f4g4g+4a4b-8r4b8^2|`c-1^4`e-1^4}
		[6 r1][2 r1^4]o5;l8;q99;v80;}
STR SS054 = {o4;l4;q99;v80;t0;
		'"gdgb'1^2'"aea`c'2'"bfa`d'1^2'"fa`c`e'2
		'"gdb`d`f'1^2'"aeb`c`e'2|Key(3);'"gdb`d`f'1^2'"ab`c`e``c'2|Key(0);
		'"dda`d`f``f'2'"dda`f`a``a'2'"ddb`e`g+``g+'2'"ddg+`e`b``b'2|'"cca`e`a``a'2'"cca`e`g+``g+'2'"c-c-fa`e``e'2'""b-"b-f-a-`c``c'2
		Sub{'`e``e'^'`d``d''`c``c''b`b''`c``c''`d``d''`e``e'}'"g+g+c-f'1'"ccf-g+'1
		'""f"fea`c``c'1^1}
STR SS055 = {'""f-"f-e-a`c``c'1^1|'""e"ea`c`f``d+'1^2'""f-"f-ca+`g``e'2/*4bars*/
		Sub{'""f"f''""g"g''""g+"g+''""a"a'}'e-a`f``c-'2'e-a-`f``c-'2'""b-"b-a-`f-`a-``d'4r8'""b"ba-`d`b``f-'2r8/*2bars*/
		'"c-c-g`b-``d``f-'1^4'"e-"b-e-`d-`a-``f-'1^4/*2bars*/}
TR(15);KeyP;
@49,90,1;
V(80);EP(127);P(0);M(20);p%(256);
REV(30);CHO(40);
o5;l8;q99;v80;t0;r1
SS00 SS10 SS00 SS10
SS03 SS51 SS31
SS04 SS52 SS33 SS03 r1
SS61 SS71 SS72
SS06 SS11 SS04 SS52 SS33
SS04 SS05
//SS33 SS34 SS09
//--------------------------------------------------------------------------------------------------
TR(16);KeyP;
@49,90,1;
V(80);EP(127);P(127);M(10);p%(-256);
REV(30);CHO(40);
o5;l8;q99;v80;t0;r1
SS00 SS10 SS00 SS10
SS03 SS51 SS31
SS04 SS52 SS33 SS03 r1
SS61 SS71 SS72
SS06 SS11 SS04 SS52 SS33
SS04 SS05
//SS33 SS34 SS09
//--------------------------------------------------------------------------------------------------
//_Kick
STR BD00 = {[8 r1]}
STR BD01 = {[8 '"bc'2^4^8'"b'8]}
STR BD03 = {[8 [2 '"bc'8:r8]'"bc'8,,40r4'"bc'4|'"bc'4'"bc'8'"bc'8r2]}
STR BD04 = {r1^1|'"bc'4^8'"bc'2[2 '"b'16]|'"bc'4^8'"bc'2^8
		r1^1|'"bc'4^8'"bc'2[2 '"b'16]|'"bc'4^8'"bc'2^8}
STR BD10 = {[4 r1][4 r2^4]}
STR BD11 = {[2 [2 '"bc'8:r8]'"bc'8,,40r4'"bc'4|'"bc'4'"bc'8'"bc'8r2]
		[4 [3 '"bc'4]]/*この行は拍子6.8*/}
STR BD33 = {[2 [12 [4 '"bc'4]]]}
STR BD51 = {[4 [3 '"bc'4^8'"bc'8,,80]'"bc'4]
		[3 '"bc'4:'"bc'8,,40]r1
		[8 '"bc'4^8]
		[3 '"bc'4:'"bc'8,,40]r1|'"bc'1[4 '"bc'4]
		}
STR BD61 = {Sub{'"bc'4}l16;v100
		Sub{[16 [16 /*t.N(Random(-8,8));*/v.Random(5,10);r16]]}
		[16 arff,,80frar[3 f24,,80]frarff,,80]l8;v120
		//[8 [4 '"bc'4]]
		}
STR BD71 = {Sub{'"bc'4}l16;v100
		Sub{[16 [16 /*t.N(Random(-8,8));*/v.Random(5,10);r16]]}
		[16 arff,,80frar[3 f24,,80]frarff,,80]l8;v120
		}
STR BD72 = {Sub{[4 r1][4 '"bc'4]'"bc'4^8'"bc'8^2[2 '"bc'4r2[4 '"bc'8]]}
		Sub{[6 [16 /*t.N(Random(-8,8));*/v.Random(5,10);r16]]}l16;v100
		Sub{[4 arff,,80frarf24[2 f24,,60]frarff,,80][4 arff,,80]`c8a8f4f8,,60`c8a8f8}
		[6 r1][2 r1^4]
		o3;l8;q9;v120;t0;}
TR(10);KeyFlag+();Key(0);//ドラムトラックはいつでも同じキーにしておきましょう
@9,90,1;
V(120);EP(127);P(64);BR(12);p%(-1000);
REV(0);CHO(10);
o3;l8;q9;v120;t0;r1
BD00 BD10 BD01 BD11
BD03 BD51 BD33
BD03 BD51 BD33 BD03 r1
BD61 BD71 BD72
BD04 BD11 BD03 BD51 BD33
BD03
//--------------------------------------------------------------------------------------------------
//_Snare-Tom
STR SD00 = {[8 r1]}
STR SD01 = {[8 r2e2,,80]}
STR SD03 = {[8 r2e4^8e8,,100|r8e24,,80e24,,60e24,,60r4e8a8,,80d16,,80[3 d16,,60]]}
STR SD04 = {r1^1|r8`c8`a8r8`c8a8f4|r2^8`c16`c16,,80a4
		r1^1|r8`c8`a8r8`c8a8f4|r2^8`c16`c16,,80a4}
STR SD10 = {[4 r1][4 r2^4]}
STR SD11 = {[2 r2e4^8,,100e8,,60|r2e2,,100]
		Sub{[2 r2^4r4d4,,100r4]}v80[4 r8r-32`c32,,40`c8a8r8r8:f8]r8 v120/*この行は拍子6.8*/}
STR SD33 = {[12 r4e8^16e16,,60r16e16,,100:e16,,30e16,,30e4]r-32`c32,,80`c8a16a16,,80f8
		[12 r4e8^16e16,,60r16e16,,100:e16,,30e16,,30e4]r-32`c32,,80`c8a16a16,,80f8}
STR SD51 = {[4 [18 d24,,30]e4,,100[3 d12,,60]e4,,100d4,,60]
		[2 r4e8^16e16,,60r16e16,,100:e16,,30e16,,30e4]r-32`c32,,80`c8a16a16,,80f8
		Sub{[2 r2^4r4d4,,100r4]}v80[4 r8r-32`c32,,40`c8a8r8r8:f8]r8 v120
		r1|r4e8^16e16,,60r16e16,,100r-32`c32,,80`c8a16a16,,80f8
			v40[8 'df'8 v+10]v125r4`c24`c24,,80`c24,,80a24a24,,80a24,,80f8a8r4}
STR SD61 = {//[8 [2 r4e4]]
		o7;v120;P(127);
		Sub{[16 [16 /*t.N(Random(-4,4));*/v.Random(5,10);r16]]}
		[16 d+rdd,,100drd+rd24[2 d24,,80]drd+rdd,,100]}
STR SD71 = {o7;v120
		Sub{[16 [16 /*t.N(Random(-4,4));*/v.Random(5,10);r16]]}
		[16 d+rdd,,100drd+rd24[2 d24,,80]drd+rdd,,100]}
STR SD72 = {o7;v120
		Sub{[6 [16 /*t.N(Random(-4,4));*/v.Random(5,10);r16]]}
		[4 d+rdd,,100drd+rd24[2 d24,,80]drd+rdd,,100][4 d+rdd,,80]r1 o3;t0;v40;P(64);
		r4[9 [4 d16 v+2]]t2;v125}
TR(11);KeyFlag+();Key(0);//ドラムトラックはいつでも同じキーにしておきましょう
@1,7,0;
V(120);EP(127);P(64);BR(12);p%(500);
REV(20);CHO(10);
o3;l16;q9;v125;t2;r1
SD00 SD10 SD01 SD11
SD03 SD51 SD33
SD03 SD51 SD33 SD03 r1
SD61 SD71 SD72
SD04 SD11 SD03 SD51 SD33
SD03
//--------------------------------------------------------------------------------------------------
//_HiHat
STR HH00 = {[8 r1]}
STR HH01 = {[8 r4g+4r6g+12,,60f+4]}
STR HH03 = {[16 [2 f+8g+8,,80f+8,,100g+,,80g+,,60]]}
STR HH04 = {[8 r4g+4r6g+12,,60f+4]}
STR HH10 = {[4 r1][4 r2^4]}
STR HH11 = {[4 [2 f+8g+8,,80f+8,,100g+,,80g+,,60]]
		[4 f+8g+8,,80g+8,,80|g+8,,100a+,,80g+,,60f+8,,80]/*この行は拍子6.8*/}
STR HH33 = {[2 [6 [7 f+16g+16,,80a+8]f+24f+24,,80f+24,,80a+8]]}
STR HH51 = {[4 [7 f+8g+8,,80]]
		[2 [4 f+8g+8,,80]]
		[4 f+8g+8,,80g+8,,80|g+8,,100a+,,100g+,,60f+8,,80]/*この行は拍子6.8*/
		[4 [4 f+8g+8,,80]]}
STR HH61 = {[8 [4 f+16,,80g+16,,80f+16g+16,,80]]
		[4 [4 f+16,,80g+16,,80f+16g+16,,80]]
		[4 [4 f+8g+8,,80]]}
STR HH71 = {[16 [4 f+16,,80g+16,,80f+16g+16,,80]]}
STR HH72 = {[4 [4 f+16,,80g+16,,80f+16g+16,,80]]
		[2 [4 f+8g+8,,80]]
		[2 [5 f+8g+8,,80]]}
TR(12);KeyFlag+();Key(0);//ドラムトラックはいつでも同じキーにしておきましょう
@33,90,1;
V(80);EP(127);P(64);BR(12);p%(1500);
REV(20);CHO(60);
o3;l16;q9;v120;t0;r1
HH00 HH10 HH01 HH11
HH03 HH51 HH33
HH03 HH51 HH33 HH03 r1
HH61 HH71 HH72
HH04 HH11 HH03 HH51 HH33
HH03
//--------------------------------------------------------------------------------------------------
//_Cymbal
STR CC00 = {[8 r1]}
STR CC01 = {}
STR CC03 = {Sub{'`c+`a'}[16 r1]}
STR CC04 = {r1^1|'`c+`e'4^8'`g`a'2^8|'`e`g'4^8'`c+`a'2^8
		r1^1|'`c+`e'4^8'`g`a'2^8|'`e`g'4^8'`c+`a'2^8}
STR CC10 = {[4 r1][3 r2^4]Sub{v20[24 `e24 v+5]v120}r2^4}
STR CC11 = {}
STR CC31 = {}
STR CC32 = {Sub{'`c+`a'}[24 r1]}
STR CC33 = {'`c+`a'1`c+2`e4^8`a8^1`c+2`g4^8`a8^1r1`c+1r1/*8bars*/
		[2 `f8`f8`f8[2 `f16,,80]`f8`f8`f8,,80`f8,,100:[3 `f8`f8,,80:`f8,,80]]`f8`a4^8`c+2/*4bars*/
		'`c+`a'1`c+2`e4^8`a8^1`c+2`g4^8`a8^1r1`c+1r1/*8bars*/
		[2 `f8`f8`f8[2 `f16,,80]`f8`f8`f8,,80`f8,,100:[3 `f8`f8,,80:`f8,,80]]`f8`a4^8`c+2/*4bars*/}
STR CC51 = {[2 `e1`g4,,100`c+4,,40`a4,,40r1^2^4]
		r1`e4`g4r2
		[4 r2^4]`c+8`c+4,,10`a8`a4,,10`g4r1'`c+`a'1^2^4`e4}
STR CC61 = {[4 
		[2 `f8`f8`f8[2 `f16,,80]`f8`f8`f8,,80`f8,,100:[3 `f8`f8,,80:`f8,,80]]`f8`a4^8`c+2]
		}
STR CC71 = {[8 r1]
		[2 
		[2 `f8`f8`f8[2 `f16,,80]`f8`f8`f8,,80`f8,,100:[3 `f8`f8,,80:`f8,,80]]`f8`a4^8`c+2]
		}
STR CC72 = {[2 `f8`f8`f8[2 `f16,,80]`f8`f8`f8,,80`f8,,100:[3 `f8`f8,,80:`f8,,80]]`f8`a4^8`c+2
		`c+4,,80`e4`g4`a4,,100|`e16`e4,,10r16'`c+`a'2r8
		[2 '`c+`a'1^4]}
TR(13);KeyFlag+();Key(0);//ドラムトラックはいつでも同じキーにしておきましょう
@1,90,1;
V(110);EP(127);P(64);BR(12);p%(0);
REV(70);CHO(10);
o3;l4;q9;v120;t0;r1
CC00 CC10 CC00 CC10
CC03 CC51 CC33
CC03 CC51 CC33 CC03 '`c+`a'1,,60
CC61 CC71 CC72
CC04 CC10 CC03 CC51 CC33
CC03
//Solo(10,11,12,13)
//--------------------------------------------------------------------------------------------------
TR(14);KeyFlag+();Key(0);//ドラムトラックはいつでも同じキーにしておきましょう
@1,0,0;
V(120);EP(127);P(64);BR(12);p%(0);
REV(0);CHO(0);
o3;l16;q9;v120;t0;r1

/*==構成============================================================================================
テーマの反復と拡大（転調を伴わないソナタ形式）

		四分音符換算拍数小計	楽器
A1(2/2*8)				32	PfSolo		STR01
B1(2/2*4 + 6/8*4)			28				STR11
A1(2/2*8)				32	& Bass,Drum		STR01(02)
B1(2/2*4 + 6/8*4)			28				STR11(12)
A2(2/2*16)				64	& A.Guitar		STR03
C1(7/4*4 + 6/8*4 + 4/4*4)	56	& Strings,Trumpet	STR51
B2(2/2*12 + 2/2*12)		96	& E.Guitar		STR31
A2(2/2*16)				64				STR05
C2(7/4*4 + 6/8*4 + 4/4*4)	56	& Brass		STR52
B3(2/2*12 + 2/2*12)		96	Tutti			STR33(34)
A3(2/2*16)				64				STR03(04)
G.P.(2/2*1)				4	G.P.			STR91
D1(4/4*16)				64	TrpLead		STR61
D2(2/2*16 + 2/2*6 + 5/4*2)	98	(Choral)		STR71-72
A1(2/2*8)				32	Break & Tutti	STR01(04)
B1(2/2*4 + 6/8*4)			28	Tutti			STR11(13)
A2(2/2*16)				64				STR05
C2(7/4*4 + 6/8*4 + 4/4*4)	56	& Brass		STR52
B3(2/2*12 + 2/2*12)		96	Tutti			STR33(34)
A3(2/2*16)				64				STR03
A4(2/2*8)				64	PfSolo		STR03

四分音符換算拍数合計		1092


■ソナタ形式としてとらえマクロに見たとき
　序奏部		A1 B1 A1 B1
　提示部1		A2 C1 B2
　提示部2		A2 C2 B3
　展開部		D1 D2
　序奏再現部	A1 B1
　再現部		A2 C2 B3
　コーダ		A3 A4


====編成============================================================================================

Pf		1	TR(1)
E.Bass	1	TR(2)
A.Sax		2	TR(3)
T.Sax		2	TR(4)
B.Sax		1	TR(5)
Guitar	2	TR(6),TR(7)
Trumpet	1	TR(8)
Misc		1	TR(9)
Strings	-	TR(15),TR(16)Stereo
Drum		1	TR(10),TR(11),TR(12),TR(13)
予備			TR(14)

==================================================================================================*/



//↓仕切り線です。ご自由にお使いください
//==================================================================================================
//--------------------------------------------------------------------------------------------------