TrackName={"----------‚䂤‚·‚¯----------"}Copyright={"�ˆ??"}MetaText={""}INT KKK=0;INT KK=-1;Key(KKK)STR Ph={•ú‚·ƒyƒ_ƒ‹}
Include(unison.h);Include(delay.h);Include(gs.h);Tempo(137)ResetGS;
FUNCTION HT(AA,AB,AC,AD,AG,AH,AI,AJ,AK,AL){TR=AA;CH=AB;@=AC;V=AD;q=(AG);REV=(AH);CHO=AI;M=AJ;P=AK;}
FUNCTION TD(t){Time(t:1:0)}Include(unison.h);
SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;
SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;
Time(2:1:0)
TrackSync;
STR SIG={SUB{l16rEP(0)rrEP(127)rEP(0)rrEP(127)rEP(0)rEP(127)}}
STR MR0={l8TempoChange(110,128,!1+1+1+1+1+1+1)aeabd^b`d`e`dbal8b^^^^^^^^^^^rrrrrrrre"bef#"a^f#abaf#el8f#^^^^^^^^^^^rrrrrrrr;Tempo(137)r1}
STR MR1={l8e^^^a^edd^^^g^edd^^cc^^^^^rr"a^e^;c^^^d#^c^d^^^e^g#ee^^dd^^^'ea'^^'eb''eb'^^r}
STR MR2={l8'ca'^^^'a`d'^'`c`e'^'ea'^^^^^ga'"bd'^^^^^^^'"be'^^^^^eg'da'^^^^^'dg'^'c"a'^^^'`da'^^^'eb'^^^^^^^}//r1
STR MR3={l8aeabd^b`d`e`dbal16b^^^l8eaabaede"a"b^^^^^rd^e"bef#"a^f#abaf#el16f#^^^l8b`d`d`e`dbab`d}
STR RM3={e"aeg"b^gb`cbgel16g^^^l8"beeged"bc"e"g^^^^^r"b^
"b"e"bd"f#^df#gf#d"bl16d^^^l8gbb`cbgf#gab^^^^rrrr}
STR RML={[e"aeg"b^gb`cbgel16g^^^l8:"beeged"bc"e"g^^^^^re^]`c`e`e`e`e`cgb`d`e^^^<}
STR MRL={>
[aeabd^b`d`e`dbal16b^^^l8:eaabaede"a"b^^^^^rg^
]`e`g`g`a`g`e`d`e`g`a^^^^^^rr<}
STR MMR={MR0;MR1;MR2;'`eb'1;SUB{RM3}MR3;`e^^^^r`dl16`e`db^l8SUB{RM3}MR3;`e^^^^rrrr
TD(34+8+1+9)SUB{RM3}MR3`e^^^^r`dl16`e`db^l8SUB{RM3}MR3;`e^^^^SIG;l16`drr`drr`drl8
SUB{RML}MRL}
// TR  CH   @   V   q  REV CHO  M   P   //
HT(001,001,091,090,092,050,040,040,060)TrackKey(KK)>MMR;
HT(009,009,099,090,092,050,040,040,068)TrackKey(KK)>>MMR
HT(008,008,101,045,092,050,040,080,064)TrackKey(KK)>>>>TD(2+8+8+9)MR3;`e^^^^r`dl16`e`db^l8MR3;`e^^^^rrrrTD(34+8+1+9)[MR3`e^^^^rrrr]
MR3;`e^^^^rrrr
HT(013,013,091,090,092,050,040,050,060)TrackKey(KK)>v(80)r9
MR0;MR1;MR2;'`eb'1;SUB{RM3}MR3;`e^^^^r`dl16`e`db^l8SUB{RM3}MR3;`e^^^^rrrr
TD(34+8+1+9)r9;SUB{RM3}MR3`e^^^^r`dl16`e`db^l8SUB{RM3}MR3;`e^^^^SIG;l16`drr`drr`drl8
SUB{RML}MRL
STR BS0={[4r1][crc^gcga;dra^gad^:"brf#^df#ba;erb^gr`d^]erb^er`d^`e^g#rad^d}
STR BS1={[4ar]a^ar`e^`d`e[4gr]`d^gr`d^b`d[5fr]c^af`ca[4f#r]a^f#r`f#^`dr;[4d#r]`c^d#rf#^d#r[4g#r]g#^g#r`d^b`d[4fr]a^fr`crfr[4er]a^erbe`d^}
STR BS2={frfr`c^f`crfrf`c^f`c;frfr`c^f`f^faf`c^f`c;ererb^ebr`e^ebrer;ererbre`d^eaebre`d;drdrf^dardarad`df;drdradr`d^darada`d;ererbeb`e^`d`eabe^e"e1}//erera^eb^ereaeb^;
STR BS3={[frf^`f`ca`c;rg`g^`dg`d`e:erb^beb`d;ar`e^`d`e`a^]ere^`d^eb;drdra^de[crc^gcga;dra^gad^:"brf#^df#ba;erb^gr`d^]erb^er`d^`e^g#rad^d}
/*STR BS1={arar`e^aaraba`e^a^;grgr`drgrgdgbg`d^`d;frfr`crfrc`caff`c^`f;f#rf#rca^arcar`c^f#^;
d#rd#r`crd#f#^d#f#r`c^d#r;g#r`drg#g#rg#`d^g#r`f^g#r;fafrf`c^`crf`cf`f^`c`f;ererab^bre``d`d`d`d`d`d`d`c#`c#`c#eba}
STR BS2={[[f`cfrrfr`erfr`crfr`e;]:ererb^eerbe^ebe^;eberee^bre`degeb`d]
ererb^eeraeb`d`e`dbr1}*/
STR BS4={[frfr`crfrf`cfr`f^f`c:frf^`f`ca`cfrf^`c^f`c;grg^`d^grg`ggrgr`d^gr`d^g`d`g^g^dr`d^gr]grg^`d^grg`ggrgr`d^
ererb^ebeaer`dra^r1}
STR BS33={[frf^`f`ca`c;rg`g^`dg`d`e:erb^beb`d;ar`e^`d`e`a^]ere^`d^eb;drdra^de[crc^gcga;dra^gad^:"brf#^df#ba;erb^gr`d^]erb^er`d^`eEP(0)rrEP(127)eEP(0)rrEP(127)eEP(0)rEP(127)}
STR BSL={[4frf^`f`ca`c;rg`g^`dg`d`e:erb^beb`dar`e^`d`e`a^]ar`e^`d`e`a^ar`e^ar`a^}
HT(002,002,037,110,088,020,000,030,064)
TrackKey(KK)<<<l16OctaveUnison(BS0;r1;BS1;BS2[BS3]BS4;TD(34+8+1+7+9)r2erb^ee`d^BS33;BSL;)
STR ST1={SUB{`e1`d1`c1+1`c1`d1`c1b2`d2}SUB{<a1g1f1f#1d#1g#1f1e1>}a1g1f1f#1d#1g#1f1e1}
STR ST2={SUB{l4a^^^`e^^^b^^^`d^b^`c^^^`e^`d^a^b^}SUB{<f1+1e1+1d1+1e1>}f1+1e1+1d1+1e1r4EP.T(10,50,!2,50,127,!6)'eab"e`d'2+4}
STR ST3={SUB{l8>e^^^e^^^e^^^d^g^e^^^`c^b^e^^^^^^^e^^^a^d^d^^^b^a^e^^^^^^^SUB{"b^^^^^^^}e^^^d^^^<}
SUB{l4[a^b^b^:`e^]a^;g^f#^g^b^g^a^g#^^^}SUB{<f2g2e2a2f2g2e2d2c2d2"b2e2c2d2e1>}f2g2e2a2f2g2e2d2c2d2"b2e2c2d2e1}
STR ST4={SUB{l4`c^`e^^^a^b^`d^^^g^`c^^^`d^^^'ab'^^^}SUB{<f1+1e1+1f1g1e1r1>}f1+1e1+1f1g1e1r4EP.T(10,50,!2,50,70,!4,70,127,!6)'eab"e`d'2+4+2}
STR ST33={SUB{l8>e^^^e^^^e^^^d^g^e^^^`c^b^e^^^^^^^e^^^a^d^d^^^b^a^e^^^^^^^SUB{"b^^^l16"bEP(0)rrEP(127)"bEP(0)rrEP(127)"bEP(0)rEP(127)}l8e^^^l16errerrer<}
SUB{l4[a^b^b^:`e^]a^;g^f#^g^b^g^a^g#^l16g#rrg#rrg#r}SUB{<f2g2e2a2f2g2e2d2c2d2"b2e2c2d2e2l16errerrer>}f2g2e2a2f2g2e2d2c2d2"b2e2c2d2e2l16errerrerl4}
STR STL={SUB{l8>[e^^^e^^^e^^^d^g^e^^^`c^b^e^^^^^^^]<}
SUB{l4[[a^b^b^:`e^]a^]}SUB{<[f2g2e2a2f2g2:e2a2]a1>}[f2g2e2a2f2g2:e2a2]a1}
STR SST={ST3;r1;ST1;ST2[ST3]ST4;r2;ST3;ST33;STL;}
HT(003,003,049,070,099,040,070,070,016)BR=5p(63)TrackKey(KK)<SST;HT(004,004,051,070,099,040,070,070,096)TrackKey(KK)BR=5p(65)SST
STR PD={;•ú‚·;ƒyƒ_ƒ‹;}
STR PN1={l8PD'a`e`a'^^'a`e`a'^l16`e`a`e^`d^PD;l8'g`d'^^'dg'^bgdPD>'"f"ac'^^'"f"ae'<^e`cePD;'cf#a'^^l16c^PD;l8af#l16c"acf#
PD;l8'cd#"f#'^^'cd#f#'^`caf#l16PD;d^"g#^f^"g#^l8'g#f'^'cg#'^PD'afc'cf'f`c`e'^`c`f`cPD'eba'^^'e`da'^^'ea`db'^PD}
STR PN2={>PD`f`c`ea`cfacaefce"ac"fPD`eb`dgbeg"bgde"bd"g"b"ePD`da`cfadfcaefdecd"a;PD;<'eab`d'^^'eab`d'^'eab`d'^'eab`d'PD;l16
/*BR=1;p.T(54,64,!2+4)EP.T(0,0,!2,69,127,!4)*/>>SUB{r2abe^de"a^}OctaveUnison(`d`eb^abe^de"b^"a"b"e^)•ú‚·<<}
STR PN3={l16>[PD'af'^^^cdabPD;'bg'^'dg'^'b`d'^'ad'^PD;'gb'^e^"be'b`d'^PD:;'a`e'^'a`g'^'a`e'^'`da'^PD]'da'^'`cd'^'da'^'dg'^
[PD'eg'^^^c^g^PD;'af#'df#a'bf#'^'f#a'^PD:'"bf#'^'"be'^'df#'^'eg'^PD;'be'^'eg'^eab`d;]'eb'^^^eg#ab`e`g#`a`b`a`g#`e`d•ú‚·<}
//STR PN4={l16caga`da`d`e^^`d`e`dage;d^e^"ac^d^^egaged;d^e"a^^gae^`c`da^`e`g`d^^^^^`e^^^`d`e`da`d`e;}
STR PN4={>l16PD;[4"f"acfafa`c]PD[4"e"g"bdedeg]l16PD;caga`da`d`e^^`d`e`dagePD;d^e^"ac^d^^egaged;[PD'eab`d'^^'eab`d'^^'eab`d'^]<
PD
>>SUB{r2l12abede"a<abede"a>}OctaveUnison(`d`ebabede"b"a"b"e<de"b"a"b"e>)•ú‚·r2l8<<}
STR PN33={l16>[PD'af'^^^cdabPD;'bg'^'dg'^'b`d'^'ad'^PD;'gb'^e^"be'b`d'^PD:;'a`e'^'a`g'^'a`e'^'`da'^PD]'da'^'`cd'^'da'^'dg'^
[PD'eg'^^^c^g^PD;'af#'df#a'bf#'^'f#a'^PD:'"bf#'^'"be'^'df#'^'eg'^PD;'be'^'eg'^eab`d;]'eb'^^^eg#ab
•ú‚·SIG;`err`brr`er<}
STR PNL={l16>[PD'af'^^^cdabPD;'bg'^'dg'^'b`d'^'ad'^PD;'gb'^e^"be'b`d'^PD:;'a`e'^'a`g'^'a`e'^'`da'^PD]'a`e'^'a`g'^'a`e'^'`da'^PD
['af'^^^cdabPD;'bg'^'dg'^'b`d'^'ad'^PD:'gb'^e^"be'b`d'^PD;'a`e'^'a`g'^'a`e'^'`da'^PD]'a`e'^'a`g'^'a`e'^'`da'^'`ea'^'a`d'^'a`e'^'eg'^
<}
STR PNLL={PD>>SUB{l16abe^de"a^l12PD"a"bd"bd}OctaveUnison(l16`d`eb^abe^l12degegPD;'ea')•ú‚·r1<<}
STR PN0={>>PD"fc'ea'^PD"gd'ga'^PD"e"b'dg'^PD"ae'g`d'`e
PD"fc'ea'^PD"gd'ga'^PD"e"b'de'gPD"d"a'df#'c
PD"c"g'"be'^PD"d"a'dcb'^PD<"bf#'`d`eb'd>PD"e"b'dea'^
PD"c"g'"be'^PD"d"a'dca'^PD"e"b'eg#'dPD;'be'g#b`d<<}
HT(005,005,001,120,088,020,040,050,096)TrackKey(KK)v(110)<l8PN0;r1lPN1;PN2[PN3]PN4;TD(34+8+1+8+9)PN33;PNL;PNLL
INT GG9=88
STR GT1={EP(127)arar'a`c`e'^arar'a`c`e'^araa;grgr'gb`d'^grgr'gb`d'^grggfrfr'fa`c'^frff'fa`c'^frff;[f#rf#r'f#a`c'^f#r];
d#rd#r'd#f#`c'^d#r'd#f#`c'^d#rd#rd#d#;g#rg#r'g#`d`f'^g#r'g#`d`f'^g#rg#rg#rfrfr'fa`c'^frfrfr'fa`c'^ff'eab'^erererer'eab`d'^eree}
STR GT2={EP(100)q(99)>'"ffa`f'1+1'"eeb`d'1+1'"dda`c'1+1'"eea`d'1
@(5)EP.T(30,127,!2)
>>>SUB{r2abe^de"a^}OctaveUnison({`d`eb^abe^de"b^"a"b"e^})<<•ú‚·q(GG9)@(31)EP(127)<<
}
STR GT3={l16[[ff'f`c'^][gg'g`d'^][ee'be'^]:[aa'a`e'^]][dd'da'^];[[cc'cg'^][dd'da'^]:["b"b'"bf#'^][ee'eb'^]][ee'eb'^][ee'e`d'^]}
STR GT4={q(99)>l8>'fa"a'^^^^^^l16agl8'ea'^^BR=2p.T(0,64,!32)<'``e`e'^^'`aa'^'`d`g'^^'b`d''b`d'^^^^^^^^^>p.T(0,64,!32)'b"b'^'c`c'^^^^^^l16'b`d''`c`e'l8'bd`d'^^^'g`g'^^^EP.T(80,127,!4)p.T(0,64,!16)'eb`e'^^^^^^^q(GG9)
EP.T(80,127,!7)p.T(30,64,!7)q(99)'`eba'1+2q(GG9)
<
}
STR GT33={l16[[ff'f`c'^][gg'g`d'^][ee'be'^]:[aa'a`e'^]][dd'da'^];[[cc'cg'^][dd'da'^]:["b"b'"bf#'^][ee'eb'^]][ee'eb'^]l16errerr'e`d'r}
STR GTL={l16[[ff'f`c'^][gg'g`d'^][ee'be'^]:[aa'a`e'^]][aa'a`e'^][[ff'f`c'^][gg'g`d'^]:[ee'be'^][aa'a`e'^]][4aa'a`e'^]}
HT(006,006,031,110,088,020,050,040,032)TrackKey(KK)<<l16[8r1]r1;GT1;GT2[GT3]GT4;TD(34+8+1+8+9)GT33;GTL
$d{v(110)'n36,n35,n33'}$t{v(110)'n36,n35,n33,n40,n38'}$p{v(80)'n39,n28'}$s{v(80)n42}$i{v(80)n44}$n{v(90)'n46,n53'}$e{v(90)'n53,n55,n59'}
$q{v(100)'n55,n49'}$w{v(100)'n55,n57'}
STR DR1={Rhythm{{[32rrpr]}[[[drrrtrrr]drrrtrdr:drrrtrrr]:drdrtrdr]l32ttl32ttl16dddddd}}
STR DR2={Rhythm{{[14rrprrrrr]}drdrtrdrrdrrtrdr;drdrtrdrrdrrtdl32ddl16d;drdrtrdrrdrrtrdrdrdrtrdrtrddtttl32ddl16;
drdrtrdrrdrrtrdr;drdrtrdrrtrrtrdr;trdrtrdrttl32ttl16tttdd;t2+4;l32tdddddddl16}}
STR DR3={Rhythm{{[32rrpr]}[drdrtrdrdtdrtrdr;drdrtrd:tdtdrtrdr]l32ddttttl16dd{q}{e}tddd[drdrtrdrdtdrtrdr:drdrtrdtdtdrtddr]drdrtrl32ddddttttl16ddd{w}{e}tdd}}
STR DR4={Rhythm{{[28rrpr]}[drdrtrdrdrdrtrdt;drdrtrdr:rtdrtrdr]rtddtdl32ddddl16
drdrtrdrdrdrtrdt;drdrtrdrrtdrtrdr;trdrtrdrrtdrtrdd
l12tdddddl24ddddl12ddddl6dddl16tr(EP(0))rrrrrr(EP(127))}}
STR DR33={Rhythm{{[32rrpr]}[drdrtrdrdtdrtrdr;drdrtrd:tdtdrtrdr]l32ddttttl16dd{q}{e}tddd[drdrtrdrdtdrtrdr:drdrtrdtdtdrtddr]drdrtrl32ddddttttl16ddd{w}{e}tdd}}
STR DR0={Rhythm{[4r1]{[12rrpr]}[drdrtrdrdrdrtrdt;drdrtrdr:rtdrtrdr]rtddtdl32ddddl16drdrtrdtdtl32ddl16dttl32ttttl16}}
HT(010,010,001,100,099,030,000,050,064)BR=9p(100)‰¹�F(PowerSet)l16DR0;DR1;DR2[DR3]DR4;TD(34+8+1+7+9)Rhythm{r2rrdrl32ttttl16dd}DR33;DR3;Rhythm{trdrtrdrl12dttttt}
STR SI1={Rhythm{[8[srnr]sinrsrnr]}}
STR SI2={Rhythm{[6[srnr][sinr]][nrss]nrsisinre2r2}}
STR SI3={Rhythm{[8[ssnr]ssnisinr]}}
STR SI4={Rhythm{[6[sinr]sinisinr][4nrsr]{e}l12[6s]n[11s]l16nr(EP(0))rrrrrr(EP(127))}}
HT(011,011,001,127,099,030,000,050,040)BR=9;p(127)‰¹�F(ElectronicSet)l16[8r1]r1;SI1;SI2[SI3]SI4;TD(34+8+1+8+9)[8r1]SI3;Rhythm{srnrsinr}
STR QS1={Rhythm{l1qrrrrrrr}}
STR QS2={Rhythm{l1wrrrqrwr}}
STR QS3={Rhythm{l1qrrrwrrr}}
STR QS4={Rhythm{l1qrrrwrrrl4rrrr}}
HT(012,012,001,100,099,030,000,050,064)‰¹�F(PowerSet)BR=3;p(0)[8r1]r1;QS1;QS2[QS3]QS4;TD(34+8+1+8+9)[8r1]QS3;Rhythm{l2ql12wrrrrq}
STR B1={@(126,7)BR(48)p(127)EP.T(20,127,!1+2)a1+1}
HT(007,007,001,120,099,040,000,060,064)TrackKey(KK)TD(9)P.T(127,0,!1,0,127,!1,127,0,!1)B1
TD(2+8+6+8+1)P.T(0,127,!1,127,0,!1,0,127,!1)B1