//_初期設定

TrackName     = {"イ調のピアノ協奏曲第一楽章"}//曲名を書き込みます
Copyright     = {"騎士王321"}//作者の名前を書き込みます
MetaText      = {"提示部のみ作って放置しています。結構好きな曲なのでとりあえずアップ!!"}//ひとことコーナーです

テンポ 127;
拍子   4,4;//DTMにおいて拍子は気休め以下です。
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(3,3,3,3,3,3,3,3,3,3,3,3);//424Hz
//GSScaleTuning(25,25,25,25,25,25,25,25,25,25,25,25);//430Hz
//GSScaleTuning(64,64,64,64,64,64,64,64,64,64,64,64);//440Hz
//GSScaleTuning(74,74,74,74,74,74,74,74,74,74,74,74);//442Hz
//GSScaleTuning(80,80,80,80,80,80,80,80,80,80,80,80);//443Hz
//BR(2);においてp%(512);はだいたい442Hz

//知る人ぞ知るTW-Music2のパラメータ設定。リバーブとコーラスを扱います
//ReverbSetting    Time Dpth High
CuePoint={"TwmParam( 80,125, 64)"}//リバーブ。各値は上記を参照
//ChorusSetting     Wave Mix Dpth FB Freq Dly Phs
//CuePoint={"TwmChorus(  1,127, 32, 80,127,  2, 1)"}
/*
	パワーコーラス　(三番目の値〔Dpth〕を動かすと少しずつ変化します)
	クラブトラック向け。深いリバーブに合う。ディチューンや音の割れ具合がカッコイイ
	基本的に高域が強調された音色に合うのでクラブ方面でなくてもいける。
*/
CuePoint={"TwmChorus(  0,127, 16, 88,127, 48, 1)"}
/*
	ポリコーラス
	パワーコーラスが原音を強化するタイプに対し、こちらはディチューンを強くかける。
	最大までかけると@39とかが別の音色みたいになる。ほんと、パワーコーラスといい勝負。
*/
//CuePoint={"TwmChorus(  0,127, 16, 25, 32, 40, 1)"}
/*
	ジャズコーラス(アンプの名前ではない)
	エレガントなコーラス
	あんまりこだわりのないときにコンプレッサと一緒にちょっと通すと音がまとまるくん
	V.W(100,120,!8);//みたいにアタックの強い音は出だしの音を小さくする//Compresser
*/
//CuePoint={"TwmChorus(  1,127,  0, 64,  8, 64, 1)"}
/*
	ピアノ用コーラス　(三番目の値〔Dpth〕は0固定)
	名前そのまま。ピアノソロの曲とかにどうぞ。少しは「らしく」なります。
	ほかのトラックに使ってもあんまり意味のない特化型コーラス
*/
//CuePoint={"TwmChorus(  1,127, 30, 60,  1, 50, 0)"}
/*
	高い天井コーラス　(故　梅本先生の作品『高い天井』で使われていた設定です)
	ロングトーンやハイハットの音色とかに良く効く設定です。
	以下、本人によるメモです。
	ゆらぎの周期を最も遅くし、フランジャー設定
	ディレイを長めにとって、擬似ステレオに
*/
//CuePoint={"TwmChorus(  1,127, 40, 16, 16, 24, 1)"}
/*
	ステレオ&エンハンサー
	微妙にリバーブがかかったみたいにこもって聞こえる。
	低音はかなり高域強調。音色によっては和音で音割れ(というか音域をつぶしあうことも)
*/
//CuePoint={"TwmChorus(  1,127,120, 64, 88,120, 1)"}
/*
	メジャーキーコーラス(不思議ちゃん)
	なぜか和音が出来ちゃう!!　(正確にはトレモロ)
	面白トラックを作るときとか。そういうときは真面目なトラックはコーラスなしで我慢(ディチューンがあるよ)
	p%(250);//複数トラックを使い、それぞれのトラックのピッチベンドを微妙にずらすこと//Detune
*/

//Slur(1);//スラーの種類を指定します

//==================================================================================================

//_作曲時に役立つツールたち

//PlayFrom(1:0:0);//途中から演奏するときにつかいます
//Solo();//『,』で複数トラック指定可
//Mute();//『,』で複数トラック指定可

STR KeyP = {KeyFlag-();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拍子が多いから
*/

//↓仕切り線です。ご自由にお使いください
//==================================================================================================
//--------------------------------------------------------------------------------------------------

/*演奏情報
TR1	
TR2	
TR3	
TR4	
TR5	
TR6	
TR7	
TR8	
TR9	
TR10	
TR11	
TR12	
TR13	
TR14	
TR15	
TR16	
--------------------------------------------------------------------------------------------------*/
STR PF01 = {[2 "ae'a`c`e'"ae'gb`d'"ae'a`c`e'^^'gb`d'^^'a`c`e'^]
		[2 "fc'a`c`e'"fc'gb`d'"fc'a`c`e'^^'gb`d'^^'a`c`e'^]
		[2 "ae'a`c`e'"ae'gb`d'"ae'a`c`e'^^'gb`d'^^'a`c`e'^]
		[2 "fc'`c`e`a'"fc'`c`e`g'"fc'`c`e`a'^^'`c`e`g'^^'`c`e`a'^]
		[2 "d"a'`c`f`a'"d"a'`c`e`g'"d"a'`c`f`a'^^'`c`e`g'^^'`c`f`a'^]
		[2 "d+"b'b`d+`a'"d+"b'a`d+`g'"d+"b'b`d+`a'^^'a`d+`g'^^'b`d+`a'^]}
STR PF02 = {[2 "e"b'egb'"e"b'df+a'"e"b'egb'^^'df+a'^^'egb'^]
		[2 "c"g'egb'"c"g'df+a'"c"g'egb'^^'df+a'^^'egb'^]
		[2 "e"b'egb'"e"b'df+a'"e"b'egb'^^'df+a'^^'egb'^]
		[2 "c"g'egb'"c"g'df+a'"c"g'egb'^^'df+a'^^'egb'^]
		[2 ""a"a'ceg'"e"b'cef+'"e"b'ceg'^^'cef+'^^'ceg'^]
		[2 ""b"a'"bd+a'"c"g'"bd+g'"c"g'"bd+a'^^'"bf+g'^^'"bd+a'^]
		[2 "e"b'egb'"e"b'df+a'"e"b'egb'^^'df+a'^^'egb'^]
		[2 "e"b'eg+b'"c"g'df+a'"c"g'eg+b'^^'df+a'^^'eg+b'^]}
STR PF03 = {""a"a'`c`e`g`b'""a"a'`c`e`g`a'""a"a'a`c`e`g`b'^^'a`c`e`g`a'^^'a`c`e`g`b'^
		"dd'`c`f+`a'"dd'`c`e`g'"dd'"da`c`f+`a'^^'da`c`e`g'^^'da`c`f+`a'^
		""g"g'`d`f+`b'""g"g'`d`f+`a'""g"g'g`d`f+`b'^^'g`d`f+`a'^^'g`d`f+`b'^
		"cc'`c`e`g`b'"cc'`c`e`g`a'"cc'"c`e`g`b'^^'c`e`g`a'^^'c`e`g`b'^
		""b"b'b`d+`a'""b"b'a`d+`g'""b"b'b`d+`a'^^'"ba`d+`g'^^'"bb`d+`a'^
		""e"e'`e`g`b'"ee'`d`f+`a'"ee'"e"b`e`g`b'^^'e`d`f+`a'^^'e`e`g`b'^
		""f"f'`c`f`a'""f"f'`c`e-`g'""f"f'f`c`f`a'^^'f`c`e-`g'^^'f`c`f`a'^
		""d"d'`c`f+`a'"dd'`c`e`g'"dd'"da`c`e`g'4'"da`c`d`f+'4}
STR PF11 = {>'gb`d'4^8'dgb'4^8'"bdg'4|'"bda'4^8'dgb'4^8'"bdg'4
		'ceg'4^8'"gce'4^8'ceg'4|'d-fa'2^4g8a8
		'dgb'4^8'"bdg'4^8'"gd'4|^8'egb'4^8'c+eg'4'"bc+e'4
		'"bea'4^8'e'4^8'"beg'4<Sub{'a`c'1}`e2`d+2
		q200>
		""g"d"gdgab`d`g`a`b`a`g`e`dg|""f"fdgab`d`f`g`a`b-`a`g`e`dg
		"eceg`c`d`e`g`d`e`g`e`d+`d`cg|"e-"b-e-fgb`d-`f`a4,100ge-"e^
		"d"gdgab`d`gdegab`d`e`g|"c+c+egab`c`e`g`a`b`a`gc+^^
		"c"gcegab`ecdegab`d`g|"dcdf+a`c`d`e`f+deff+'a`c`d+'8^16,100
		<q100}
STR PF12 = {l8 o6 g^^e^^c^|d^^e^^c^|c^^"a^^c^|d2^4cd
			e^^c^^"gc|e^^c^^"ac|"b1|^2g+2 l16 o4}
STR PF21 = {q200
		"gdb`d`g`a`b``d``g2,100|"fdg`d`g`a`b``d``g2,100
		TempoChange(127,96,!1^1);
		"e-"b-e-gb-e-gb- `e-e-fgb-gb-`f|`e-`f`g`b-``c``d``f``f+``g2,100
		TempoChange(116,127,!1);q100 o5
		[2 ""d"d'dgb'""d"d'df+a'""d"d'dgb'^^'df+a'^^'dgb'^]/*1st,2nd*/
		""e-"e-'e-g`c'""e-"e-'e-gb-'""e-"e-'e-g`c'^^'e-gb-'^^'e-gc`'^/*3rd*/
		[2 ""d"d'gb`d'""d"d'eg`c'""d"d'gb`d'^^'eg`c'^^'gb`d'^]/*4,5th*/
		""c"c'gb`e'""c"c'gb`d'""c"c'""bf+a`e'^^'"bf+a`d'^^'""bf+a`e'^/*6th*/
		o4
		""b"b"bbf+a`c+`d+`f+`c+`d+`g""b"ad+g/*7th*/
		""f+"f+'f+a`c`d+'""f"f'fa`c`e'""e"e'g+b`d`g'^^^"e""b""e^/*8th*/}
STR PF31 = {[2 ""a"a'a`c`e'""a"a'gb`d'""a"a'a`c`e'^^'gb`d'^^'a`c`e'^]
		[2 ""f"f'a`c`e'""f"f'gb`d'""f"f'a`c`e'^^'gb`d'^^:'a`c`e'^]'""ebg+`e'^
		[2 ""a"a'a`c`e'""a"a'gb`d'""a"a'a`c`e'^^'gb`d'^^'a`c`e'^]
		[2 ""f"f'a`c`e'""f"f'gb`d'""f"f:'a`c`e'^^'gb`d'^^'a`c`e'^]
			'a`c`e'^Sub{rr'a`c`d+'^'g+b`d'^}""d"d""d+"d+""e"e
		[2 ""a"a'a`c`e'""a"a'gb`d'""a"a'a`c`e'^^'gb`d'^^'a`c`e'^]
		[2 ""f"f'a`c`e'""f"f'gb`d'""f"f'a`c`e'^^'gb`d'^^'a`c`e'^]
		[2 "ee'g+b`e'"ee'g+b`d'"ee'g+b`e'^^'g+b`d'^^'g+b`e'^]
		[2 ""a"a'a`c`e'""a"a'gb`d'][7 ""a"a:'a`c`e']/*2bars*/'""aa`c`e`a'}
TR(1);KeyP;
@1,0,0;CCMute(off);
V(125);EP(127);P(80);M(0);p%(0);
REV(40);CHO(0);
o4;l16;q100;v120;t0;r1
PF01 PF02 PF03 PF11 PF21 PF31
//--------------------------------------------------------------------------------------------------
STR XS01 = {r1^1|"b1c2d2|e1a2g2|`c1^2`d2|
		[2 `e`g`g+`a`g`f`c`d|egg+a`c`d`e:a]`f|
		[2 `f+f+gab`d`d+a:`d`e`d`e`g`e`db]f+abab`db`d}
STR XS02 = {e4r1^2^4[4 e`e`d`er2^4r1:`b``d``d+``er2^4r1]}
STR XS03 = {g1a1b1`e1`d+1`f+2`g2`a1^2^4age"a}
STR XS11 = {[2
		'"g"a"bd'1'"f"g"bd'1'"e"gce'1'"e-d-fg'1
		'"d"bdg'1'"c+"beg'1'"c"g"be'1Sub{e2d+2}'"d"f+c'1
		]}
STR XS12 = {'"c"gce'1'""b-"gce'1'""a"fcf'1'""a-"g-"b-d'1
		'""g"gce'1'""f+"ace'1'""f"a-ce-'1'""g"a-"bf'1}
STR XS21 = {'"g"bdg'1'"f"bdg'1'"e-"b-dg'1^1
		d1e1g1a1b2g2e4`e4`f+4`g4`a4`b4b4`d4`e8^16`g4^16^2}
STR XS31 = {r1^1|"b1c2d2|e1a2g2|`c1^2`d2|
		`e1^1^1^1`g1^1`a1^1}
TR(2);KeyP;
@64,8,0;CCMute(off);
V(60);EP(127);P(0);M(0);p%(128);
REV(30);CHO(60);
o5;l16;q100;v120;t0;r1
XS01 XS02 XS03 XS11 XS21 XS31
//--------------------------------------------------------------------------------------------------
TR(3);KeyP;
@64,8,0;CCMute(off);
V(60);EP(127);P(127);M(0);p%(-128);
REV(30);CHO(80);
o5;l16;q100;v120;t0;r1
XS01 XS02 XS03 XS11 XS21 XS31
//--------------------------------------------------------------------------------------------------
STR BA01 = {[12 r1]}
STR BA02 = {[2
		[2 e^^^^^"e,30"e,30"b^^d^^e^]
		[2 c^^^^^c,30"g,30c^^d^^e^]
		]
		[2 "a^^^^^"e,30"a,30:"acegega^]"a^^"e^^^^
		[2 "b^^^^^"b,30"a,30:"g^^"a^^"b^]a^^b^^^^
		[2 e^^^^^"e,30"e,30"b^^d^^e^]
		[2 e^^^^^"e,30"e,30"b^^d^^e^]}
STR BA03 = {"a^"e,30ar2^4|d^d,30`dr2^4|"g^"d,30gr2^4|c^"g,30`cr4c^"g,30`c"a^"e,30a|
		"b^"f+,30`d+r4"b4d8^16`d16|`e^"e,30er2^4|"f^"f,30fr2^8e-a-|d^"a,30`dr4c4"a4}
STR BA11 = {[2 "g2g2|f2"f2|"e2e2|d+8"d+8"g8d+8g2|d1|c+1|c2d+4"d+4|"d1]}
STR BA21 = {"g2g2f1d+1^1
		[2 d^d,30dr2^4]d+^d+,30d+r2^4[2 d^d,30dr2^4]c^c,30cr2^4|"b^"b,30"br2^4|f+^^f^^e^^[5 r]e,30`e}
STR BA31 = {[2 "a^^^^^"e,30"g,30"a^^"g^^"a^]
		[2 "f^^^^^"f,30"f,30f^^g^^:a^]e^
		[2 "a^^^^^"e,30"g,30"a^^"g^^"a^]
		[2 "f^^^^^"f,30"f,30:f^^g^^a^]"f^d`d`d+d+e"e
		[2 "a^^^^^"e,30"g,30"e^^"g^^"a^]
		[2 "f^^^^^"f,30"f,30f^^g^^a^]
		[2 e^^^^^"e,30"e,30:e^^d^^g^]g^^d^^e^
		[11 "aea]}
TR(4);KeyP;
@39,1,0;CCMute(off);
V(120);EP(127);P(64);M(0);p%(0);
REV(10);CHO(60);
o3;l16;q100;v120;t.onCycle(!16,0,6);r1
BA01 BA02 BA03 BA11 BA21 BA31
//--------------------------------------------------------------------------------------------------
STR GT01 = {[12 r1]}
STR GT02 = {[8
		[2 'egb',20]'egb'[2 'df+a',20]'df+a'[2 'egb',20]'"begb'^^'"adf+a'^^'"begb'^/*1bar*/
		]
		[2 [2 'cgb',20]'cgb'[2 'cea',20]'cea'[2 'cgb',20]'"acgb'^^'"acea'^^'"acgb'^/*1bar*/]
		[2 [2 '"bd+a',20]'"bd+a'[2 '"bd+g',20]'"bd+g'[2 '"bd+g',20]'"d+"bd+a'^^'"d+"bd+g'^^'"d+"bd+a'^/*1bar*/]
		[2 [2 'egb',20]'egb'[2 'df+a',20]'df+a'[2 'egb',20]'"begb'^^'"adf+a'^^'"begb'^/*1bar*/]
		[2 [2 'eg+b',20]'eg+b'[2 'df+a',20]'df+a'[2 'eg+b',20]'"beg+b'^^'"adf+a'^^'"beg+b'^/*1bar*/]}
STR GT03 = {[3 ""a8,10'"acgb'8,10][4 '"acgb']|[3 "d8,10'"adf+`c'8,10][4 '"adf+`c']
		[3 ""g8,10'"gdf+b'8,10][4 '"gdf+b']|[3 "c8,10'"gceb'8,10][4 '"gceb']
		[3 ""b8,10'"bd+f+a'8,10][4 '"bd+f+a']|[3 "e8,10'"begb'8,10][4 '"begb']
		[3 ""f8,10'"fce-a'8,10][4 '"fce-a']|[3 "d8,10'"adf+`c'8,10][4 '"adf+`c']}
STR GT11 = {[2 l8 MidiDelay({
		"g^d^g^b^|"f^d^g^b^|"e^c^g^e^|"e-^d-^f^a^
		"d"g^d^g^b|"c+^"b^g^e^|"c"g"b^e^g^|"dacf+^a^d},4,!8^16);]}
STR GT21 = {MidiDelay({
		"g^d^g^b^|"f^d^g^b^|"e-""b"e-g^b-^`c|`db-^e-^g^^},4,!8^16);l16
		[8 r1]}
STR GT31 = {[2 [2 'cea',20]'cea'[2 'ceg',20]'ceg'[2 'cga',20]'"aca'^^'"acg'^^'"aca'^/*1bar*/]
		[2 [2 'cea',20]'cea'[2 'ceg',20]'ceg'[2 'cga',20]'"fcea'^^'"fceg'^^'"e"bdg'^/*1bar*/]
		[2 [2 'cea',20]'cea'[2 'ceg',20]'ceg'[2 'cga',20]'"aca'^^'"acg'^^'"aca'^/*1bar*/]
		[2 [2 'cea',20]'cea'[2 'ceg',20]'ceg'[2 'cga',20][8 '"e"bdg',20]/*1bar*/]
		[2 [2 'cea',20]'cea'[2 'ceg',20]'ceg'[2 'cga',20]'"aca'^^'"acg'^^'"aca'^/*1bar*/]
		[2 [2 'cea',20]'cea'[2 'ceg',20]'ceg'[2 'cga',20]'"fcea'^^'"fceg'^^'"fcea'^/*1bar*/]
		[2 [2 '"beg',20]'"beg'[2 '"bdf+',20]'"bdf+'[2 '"beg',20]'"e"bdg'^^'"e"bdf+'^^'"e"bdg'^/*1bar*/]
		[11 '""a"ecgb':[2 '""a"ecgb',20]][3 '""a"ecgb']}
TR(5);KeyP;
@25,16,0;CCMute(off);
V(120);EP(100);P(32);M(0);p%(0);
REV(30);CHO(15);
o5;l16;q100;v120;t.N(0,1,2,3);r1
GT01 GT02 GT03 GT11 GT21 GT31
//--------------------------------------------------------------------------------------------------
STR SS01 = {[12 r1]}
STR SS02 = {[16 r1]}
STR SS03 = {rrb`cbageged+dc"bcg|f+gaf+gaa+b`c`d`eab`d`e^|^r`d`eb^abfgaa+b"b,20de|"e"g"a"bdegab`d`ebgarr
		`e`d`e`dbabafefedefd|rr"bdefgagaa+b`d`eee,20|g+^fg+a+`c`d+`ffg+fd+f^d`c|rrgfdfgf^^^g^^a`d+,,90}
STR SS11 = {v90
		[2 `d`cbgdc"b"gdgaa+b`d`e`g]
		`d`cbgdc"b"gdegab`d`e`g|`f`d+`c+ba+gfd+c+d+fg`c+`d+`f`g|
		`d`cbgdc"b"gdgaa+b`d`e`g|`f`e`c+bagec+"bc+efgab`c+|
		`d`cbgdc"b"gdegab`d`e`g|`f`e`d`cbafd`caf+fedc"a
		v120 l8
		`d^^b^^g^|a^^b^^g^|g^^e^^g^|a2^4ga|b^^g^^d^|^b^^g^e^|a^^e^^g^|e2d+2}
STR SS21 = {g1[3 r1][8 r1]}
STR SS31 = {[16 r1]}
TR(6);KeyP;
@103,1,0;CCMute(off);
V(120);EP(127);P(48);M(0);p%(0);
REV(40);CHO(30);
o5;l16;q100;v127;t0;r1
SS01 SS02 SS03 SS11 SS21 SS31
//--------------------------------------------------------------------------------------------------
TR(7);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(8);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(9);KeyP;
@1,0,0;
V(120);EP(127);P(64);M(0);p%(0);
REV(0);CHO(0);
o5;l4;q99;v120;t0;r1

//--------------------------------------------------------------------------------------------------
STR B001 = {[4 '"bc'4]}
STR S001 = {r4d4r4d8d+8,,60}
STR S002 = {r2d2r2Sub{[3 d+8,,60:r16]}d2}
STR H001 = {g+16,,40f+16,,80f+16,,120f+16,,60}
STR H002 = {r8g+8}
//--------------------------------------------------------------------------------------------------
STR BD01 = {[11 r1]r2'"bc'4[2 '"bc'8]}
STR BD02 = {[15 B001]'"bc'4'"bc'8^16'"bc'16[4 '"bc'8]}
STR BD03 = {[7 B001][2 '"bc'2]}
STR BD11 = {[8 [2 '"bc'4]r4[2 '"bc'8][3 '"bc'8:r16]r4'"bc'4]}
STR BD21 = {[3 '"bc'1]r1
		'"bc'1'"bc'2^4^8'"bc'8|'"bc'1'"bc'8^16'"bc'8^16r8r4^8'"bc'8
		[2 [2 '"bc'4]r4[2 '"bc'8]:[3 '"bc'8:r16]r4'"bc'4][5 '"bc'8]r4^8}
STR BD31 = {[16 B001]'"bc'}
TR(10);KeyFlag+();Key(0);
@27,7,0;CCMute(off);
V(120);EP(127);P(64);BR(12);p%(0);
REV(0);CHO(0);
o3;l16;q9;v120;t0;r1
BD01 BD02 BD03 BD11 BD21 BD31
//--------------------------------------------------------------------------------------------------
STR SD01 = {[11 r1][4 d8][3 d24,,60][6 d,,120]}
STR SD02 = {[16 S001]}
STR SD03 = {[8 S001]}
STR SD11 = {[8 S002]}
STR SD21 = {[2 S002]
		[2 S002][4 S001]}
STR SD31 = {[7 S001]Sub{r2^4d+4,,60}[16 d16][6 S001]Sub{[4 r4d+4,,60]}[10 'd'rr]rr}
TR(11);KeyFlag+();Key(0);
@33,90,1;CCMute(off);
V(120);EP(127);P(64);BR(12);p%(2000);
REV(30);CHO(10);
o3;l16;q9;v120;t0;r1
SD01 SD02 SD03 SD11 SD21 SD31
//--------------------------------------------------------------------------------------------------
STR HH01 = {[8 r1][4 [4 H002]]}
STR HH02 = {[16 [4 H001]]}
STR HH03 = {[8 [4 H001]]}
STR HH11 = {[16 [4 f+,,80]a+8,,80g+,,60f+,,40[4 f+,,60]f+,,120g+[2 f+,,40]]}
STR HH21 = {[4 [4 f+,,80]a+8,,80g+,,60f+,,40[4 f+,,60]f+,,120g+[2 f+,,40]]
		[8 [4 H002]]}
STR HH31 = {[16 [4 H001]]}
TR(12);KeyFlag+();Key(0);
@25,0,0;CCMute(off);
V(120);EP(127);P(80);BR(12);p%(0);
REV(40);CHO(80);
o3;l16;q9;v120;t.onCycle(!16,0,5);r1
HH01 HH02 HH03 HH11 HH21 HH31
//--------------------------------------------------------------------------------------------------
STR CC01 = {[11 r1]r4`c+4r4`a4}
STR CC02 = {Sub{'`c+`a'}[15 r1]r2'`c+`a'2}
STR CC03 = {Sub{'`c+`a'}[8 r1]}
STR CC11 = {v60 [2 [2 `c+1`a1`c+2`a2:[2 `c+4`a4]`c+2`a2]]v120}
STR CC21 = {v60 `c+1`a1`c+2`a2`c+4`a4[8 '`c+`a'16,,40]v120
		Sub{'`c+`a'60}[8 r1]}
STR CC31 = {[2 Sub{'`c+`a'}[8 r1]]}
TR(13);KeyFlag+();Key(0);
@1,0,0;CCMute(off);
V(120);EP(127);P(64);BR(12);p%(3000);
REV(100);CHO(10);
o3;l4;q9;v120;t0;r1
CC01 CC02 CC03 CC11 CC21 CC31
//--------------------------------------------------------------------------------------------------
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

//==================================================================================================

