TrackName={"---------- ----------"}Copyright={"ˆ??"}MetaText={""}
Include(unison.h);Include(delay.h);Tempo(120)ResetGS;
STR PD={•ú‚·;ƒyƒ_ƒ‹}
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)Include(gs.h);TrackSync;
INT IN=7
INT KK=5
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)}
STR HM1={[grrrfrrrd#rdddrrrd#rd#d#fr"a#"a#grgf:crrr]grrr}
STR MR1={[crrrcrrrcr"a#"a#crrrcrcccrddcrc"a#:"grrr]crrr}
STR MR4={[gfc^fc"a#^"a#^^c"g^:"g"a#c^d#^l16d^^"a#^^"g^l8"a#^^cc^^^]"g"a#c^g^l16f^^"a#^^c^^^^^^^^^^^^^^^^^l8}
STR RM4={[`d#gg^`dff^g^^gd#^d#g;g^g^l16f^^d^^:d^l8:f^^d#d#^^^]d#^^^^^^^^^^^^^^^^^l8}
// TR  CH   @   V   q  REV CHO  M   P   //
STR MMR={EP.W(10,127,!10,127,60,!1)>>l8MR1;[[8r1]]MR1;MR1;TD(58)r2TrackKey(KK)<[RM4]SUB{RM4}MR4;SUB{"grrr"frrr"d#r"d"d"d#rrr}crrrcrrrcr"a#"a#crrr[r1]}
HT(001,001,011,127,099,040,000,010,064)MMR
HT(006,006,012,127,099,040,000,010,064)EP.W(10,127,!10,127,60,!1)>>l8MR1;TD(26)MR1;l8;TD(34)SUB{MR1}<HM1>;TD(58)r2<TrackKey(KK)l8[OctaveUnison(MR4)]SUB{HM1}>MR1;;SUB{"grrr"frrr"d#r"d"d"d#rrr}crrrcrrrcr"a#"a#crrr
STR ST1={SUB{["g#2"a#2c2"g2"g#2"a#2c1]}SUB{[c2d2d#2"a#2c2d2d#1]}l4[g^fd#a#^g^g^fa#a#^`cg]}
STR ST2={SUB{[[c1+2r8:c4+8]"a#4+8;"g#1+2r8"g#4+8;"f2r8"f4+8;"g2r8"g4+8]}SUB{[[d#1+2r8:d#4+8]d4+8;c1+2r8c4+8;"g#2r8"g#4+8;"b2r8"b4+8]}
l8[g^^^^^^^a#^^`cra#^^g^^^^^^^f^^`crf^^g^^^^^^^g^^frd#^^d#^^^rc^^g^^frd^^]}
STR ST3={SUB{["g#2"a#2c1"g#2"a#2c1]}SUB{[c2d2d#1c2d2d#1]}l4[g^fd#a#^g^g^fa#a#^`cg]}
STR SST={l8ST1;ST2[ST1][ST3]r2TrackKey(KK)[3ST1]}
HT(002,002,090,080,099,030,000,030,032)>SST
HT(003,003,092,080,099,030,000,030,096)SST
STR PN1={EP.T(50,70,!1+1,70,50,!1+1,50,70,!1+1,70,50,!1+1)[7fa#`cga#fgc]TempoChange(120,60,!1)fa#`c`f`g`a#``c``d;Tempo(150)}
STR PN2={l8EP(127)[3fa#`cga#fgc]gcfcd#"a#d"a#[fa#`cga#fgc]fa#`cga#f`cg`g`c`fb`d#g`dg}
STR PN11={EP(100)l16SUB{[["d#r"g#r"d#r"g#r"fr"a#r"fr"a#r"grcr"grcr:"dr"gr"dr"gr]"grcr"grcr]}[["g#rd#r"g#rd#r"a#rfrfd"a#f:crgrgrcg"gcdrd"a#"g"d]crgrcrgcd#d"grgfd#"a#]}
STR PN3={EP(110)l16[['cd#'^^^d#r"g#r'df'^^^fr"a#r:'d#g'^^^^^c^g^c^a#gfc]'cg'^a#`c^^a#^g^a#^g^c^]}
HT(004,004,018,110,099,060,000,080,016)>>l8PN1[PN2][PN11]PN3;r2;TD(66)r2TrackKey(KK)[PN11]
STR NP2={EP(127)l16[[3PD;gcfg^^g^]PD;rrfcgfc"a#][3PD;g"g#cg^^g^]PD;rrgfcfc"a#PD;gcfg^^g^rrgfc"g#cd#PD;gdfg^^g^rrgfdfd"b}
STR NP1={l8SUB{<[["g#cd#c"a#dfdcd#gd#:"g"a#d"a#]cd#"g"a#]>}SUB{>OctaveUnison(MR1)<}[PD;grrrPD;frrrPD;d#rddPD;drrrPD;d#rd#d#PD;fr"a#"a#PD;grgfcrrr]}
STR NP3={>EP(127)l16PD;gcfg^^c^PD;gfcfg`ca#`dPD;l12`d#`ca#`ca#ga#gfgfcPD;"g"a#dd#cd#PD;l16dd#d"a#l12a#gfPD;g^^^^^^l12a#`ca#`c`d;
PD;`d#`ca#ga#gPD;l16fgfdl12fgfPD;d#dcl16"g^^^^^g^f^c^PD;a#`ca#gl12fgfPD;l16d#dcdl12d#g`dPD;l16`d#^^^^^^^`d#^^`d^^`d#^<}
STR NP33={<[4"g#d#g#d#"a#fa#f:cg`cg`d#g`cg]cg`c`d`d#`c`g^>}
HT(005,005,001,120,088,020,000,010,111)TD(10)ST2;TD(18)NP2;TD(26)EP(100)[NP1]SUB{TD(42)[NP33]}OctaveUnison([NP3])•ú‚·TD(66)EP(120)r2TrackKey(KK)[NP1]
PD;"g#d#g#d#PD;"a#fa#fPD;TempoChange(150,70,!1)cd#ga#`c`d`d#`g`a#Tempo(35)``d``g
STR BS2={l16[q(99)c1+2r8q(80)c"gcdd#"g]q(99)"g#1+2r8q(80)"g#"f"g#df"g#;q(99)"f2r8q(80)"c"f"g#"f"g"g#q(99)"g2r8q(80)"b"ggfd"b
q(80)[4crgrcrg:crcgrcrgr]"a#r"a#fr"a#rf"a#;["g#rd#r"g#rd#"g#r"g#d#"g#d#r"g#r];"frcr"frc"fr"fcrcr"fc"grdr"gr"gdr"gd"ggrf"b}
STR BS33={l8[["g#r"g#r"a#r"a#rcrcr:"gr"gr]:crcr]l16crgcrcgc}
STR BS3={[["g#rd#r"g#rd#r"a#"a#fr"a#f"a#f;crgrcrgcr:"gdrdr"gd]cgrgcgc]}
STR BS4={[["g#^^^^^"g#r"a#^^^^^"a#r:c^rrc^rrc^rrcd#gc]l8gcfcl16d#dc"gc"gcd]}
STR BS11={[["g#"g#d#"g#"g#d#"g#d#;"a#"a#f"a#a#"a#f"a#:ccgcc`ccgccgcc`cgc;]ccgcgc"gcccgc`ccgc]}
HT(007,007,039,120,090,020,000,010,064)<<TD(10)BS2;BS33;BS3;BS4;TrackKey(KK)TD(66)r2[BS11]
$d{'n27,n32,n35,n36'}$t{'n27,n32,n35,n36,n40'}$s{n42}$i{n44}$n{n46}$q{'n49,n55'}$w{'n55,n57'}
$f{'n50,n48'}$g{'n47,n45'}$h{'n43,n41'}
STR DR1={Rhythm{l16{d}{q}w1[2r1]r2drdrrrdd{d}{q}q1[3r1]}}
STR DR2={Rhythm{{[4r1][16ssnr]}[l8drrrrrrddrrrrtrl16ddl8drrrrrrd:drrrrtrl16tt]l16drrrtrdrddrrrrtt
{[32sinr]}[[drdrtrdrrrdrtdrrdrdrtr:drrrdrttrr]dtrrdr:ddrr]l32ttttttttl16}}
STR DR3={Rhythm{{[32nrss][32ssnr]}[4drrrffrrggrrtrdrddrrggrrhhrr:ttrr]tddd;
[4drtrdtrtdrtrdrtd:drtrdrttdrtttdtt]drtrdrtrddttrttt}}
STR DR4={Rhythm{[[trdrdrtttrdrdrtt:trdrtrddtdddtrdr]drtrdrdt:drtrddtr]tdddtrtr
[14drrdrrrr]drrrtttttrrtrrtr;}}
STR DR5={Rhythm{[7r1]l32[tttttttt]l16{qrrwrrqr}trrtrrtt
[[4drtrdrtdrdtrdrtrdrtrdrtdrdtr:ddtt]tttt]}}
HT(010,010,012,080,090,020,000,010,064)‰¹F(ElectronicSet)DR1;DR2;DR3;DR4;r2;DR5;Rhythm{t}
STR SN2={Rhythm{l16[16[16s]]}}
STR SN3={Rhythm{{(TD(26))[[4drrdrrdrtrrdrrdrdrrdrrdrttrdrrdr]]}[16[16s]]/*[8[ssnr]ssnissnr]*/}}
STR SN4={Rhythm{[4[ssnrnrss][nrss]ssnrnrss]}}
STR SN5={Rhythm{[8[ssnr]ssnissnr]}}
HT(011,011,012,100,090,020,000,010,064)BR=5;p(96)TD(10)SN2;SN3;[SN4];TD(66);r2;[SN5]
HT(008,008,012,110,099,020,000,010,064)
TD(9)@(126,7)BR(100)p(127)P.T(127,0,!1)EP.T(100,127,!1)'a'1
TD(17)P.T(127,0,!1)EP.T(100,127,!1)'a'1
TD(25)P.T(0,127,!1)EP.T(100,127,!1)'a'1
TD(41)P.T(127,0,!1)EP.T(100,127,!1)'a'1
TD(49)P.T(0,127,!1)EP.T(100,127,!1)'a'1
TD(56)P.T(127,0,!1+1)EP.T(100,127,!1+1)'a'1+1
TD(64)r2P.T(0,127,!1+1)EP.T(100,127,!1+1)'a'1+1
TD(73)r2P.T(127,0,!1)EP.T(100,127,!1)'a'1
TD(81)r2P.T(0,127,!1)EP.T(100,127,!1)'a'1
$j{n51}
HT(012,012,012,090,090,020,000,010,064)l16Rhythm{
(TD(10))w1[r1][4jr:rr]wrq1r1w1q1
w1[r1][4jr:rr]wrq1r1w1q1
[w1[r1][4jr:rr]wrq1[3r1]]
[[w1r1q1:[4jr:rr]qr]:w2q2]r2qrrwrrqr
r2
w1
(TD(66))r2[w1[r1][4jr:rr]wrq1[3r1]]
w1
}