/*--------------------------------------------------------------------------------------------------------------------------------------

Nackyと申します。
10年くらい前にLLLLL氏と共にここで曲を発表していました。
久しぶりに掲示板を覗いてみたら過疎ってて悲しかったので、少しでも支援になればと1曲急いで作りました。
よろしくお願いします。

--------------------------------------------------------------------------------------------------------------------------------------*/
TrackName={"月曜、未明。"};
Copyright={"Nacky"};
MetaText={""};
System.MeasureShift(1);ResetGM;Time(1:1:0);
Tempo(92);
TimeSignature(4,4);
KeyFlag=(-01,-01,000,-01,-01,000,000);//F Minor
TrackSync;
TimeBase(096);
//_Track Initial Setting
Function TrackSet(Array Set=1,1,127,100,0,0,0,64,0,127,64,0,5,100,80){
If(Set(00)==___){Channel(001);r*%1;}Else{Channel(Set(00));r*%1;};
If(Set(01)==___){Voice(001);r*%1;}Else{Voice(Set(01));r*%1;};
If(Set(02)==___){Expression(127);r*%1;}Else{Expression(Set(02));r*%1;};
If(Set(03)==___){MainVolume(100);r*%1;}Else{MainVolume(Set(03));r*%1;};
If(Set(04)==___){Reverb(000);r*%1;}Else{Reverb(Set(04));r*%1;};
If(Set(05)==___){Chorus(000);r*%1;}Else{Chorus(Set(05));r*%1;};
If(Set(06)==___){Modulation(000);r*%1;}Else{Modulation(Set(06));r*%1;};
If(Set(07)==___){Panpot(064);r*%1;}Else{Panpot(Set(07));r*%1;};
If(Set(08)==___){y71(000);r*%1;}Else{y71(Set(08));r*%1;};
If(Set(09)==___){y74(127);r*%1;}Else{y74(Set(09));r*%1;};
If(Set(10)==___){y73(064);r*%1;}Else{y73(Set(10));r*%1;};
If(Set(11)==___){VAR(000);r*%1;}Else{VAR(Set(11));r*%1;};
If(Set(12)==___){o(005);r*%1;}Else{o(Set(12));r*%1;};
If(Set(13)==___){v(100);r*%1;}Else{v(Set(13));r*%1;};
If(Set(14)==___){q(080);r*%1;}Else{q(Set(14));r*%1;};
If(Set(15)==___){BR(002);r*%1;}Else{BR(Set(15));r*%1;};
};
//_グラデーション
Function EG(Array LHL){Expression.onTime(LHL);}
Function RG(Array LHL){Reverb.onTime(LHL);}
Function PG(Array LHL){Panpot.onTime(LHL);}
Function CG(Array LHL){Chorus.onTime(LHL);}
Function MG(Array LHL){Modulation.onTime(LHL);}
//_関数TL...トリル
Function TL(Tl=0){
If(Tl==0){t(00)};
If(Tl==1){t(00)};
If(Tl==2){t.N(00,04)};
If(Tl==3){t.N(00,04,08)};
If(Tl==4){t.N(00,04,08,12)};
If(Tl==5){t.N(00,04,08,12,16)};
If(Tl==6){t.N(00,04,08,12,16,20)};};
//_InstrumentName
Function Ins(Str Instr){InstrumentName={"Instr"}};

//	  (Cha,Voi,Exp,Vol,Rev,Cho,Mod,Pan,Res,Cut,Atk,Var,oct,vel,  q, BR);
TR=001;y0(000);
TrackSet(001,001,120,100,127,032,000,064,000,048,___,___,004,070,100,012);Ins={"Piano"};
TR=002;y0(000);
TrackSet(002,001,120,100,127,032,000,064,000,048,___,___,006,070,100,012);Ins={"Piano"};
TR=003;y0(000);
TrackSet(003,001,120,060,127,032,000,000,000,048,___,___,006,070,100,012);Ins={"Piano"};
TR=004;y0(000);
TrackSet(004,001,120,040,127,032,000,127,000,048,___,___,006,070,100,012);Ins={"Piano"};
TR=005;y0(000);
TrackSet(005,040,120,080,064,000,064,064,000,064,___,___,003,080,100,012);Ins={"Bass"};
TR=006;y0(000);
TrackSet(006,090,120,050,064,100,000,024,000,032,___,___,005,080,100,012);Ins={"Pad"};
TR=007;y0(000);
TrackSet(007,090,120,050,064,100,000,104,000,032,___,___,005,080,100,012);Ins={"Pad"};
TR=008;y0(000);
TrackSet(008,066,120,060,064,000,032,080,000,048,___,___,006,080,100,012);Ins={"Sax"};
TR=009;y0(000);
TrackSet(009,066,120,030,064,000,032,048,000,048,___,___,006,080,100,012);Ins={"Sax"};
TR=010;y0(127);
TrackSet(010,026,120,080,064,000,000,064,012,064,___,___,003,060,099,012);Ins={"Drums"};
TR=014;y0(000);
TrackSet(014,076,120,045,127,127,000,127,000,048,___,___,007,080,100,012);Ins={"Siren"};
TR=015;y0(000);
TrackSet(015,076,120,045,127,127,000,127,000,048,___,___,007,080,100,012);Ins={"Siren"};
TR=016;y0(000);
TrackSet(016,076,120,045,127,127,000,127,000,048,___,___,007,080,100,012);Ins={"Siren"};

TR(001);Time(2:1:0);
l01TL(6)v.N(70,60,50,60,60,50)[8'"fcgb`e`a' '"d"acfb`e' '"f"beg`c`f' '"d"befa`c']
   '""b"adf`c`e' '"c-"g-"bea`d' '"d*"a*c+f+b*`e*' '"d"acfb`e' '""b"adf`c`e' '"c-"g-"bea`d' '"c"g*"bea`f' '"g-dfb`e`a*'
   [3'"fcgb`e`a' '"d"acfb`e' '"f"beg`c`f' '"d"befa`c']TempoChange(96,72,!1^1^1)'"fcgb`e`a' '"d"acfb`e' '"f"beg`c`f' EG(120,120,!1^1,120,0,!1)'"d"befa`c'^^
TR(002);Time(2:1:0);
l01[4r] l08r^^`c^^^g ^^^^^f^^ ^^`c^^^^^ b^^^`g^^^l2 [6r`c r^ r`c :b`g]l4r'"bb''f`f''g`g'
l12[`a`e,,65`d,,60`c,,55b,,50f,,45e,,40d,,35c,,30"b,,25"a,,20"f,,15 r1 :r1 '"bb'2'g`g'2]l16r^f^^^^^^b^^^^^^ ^`e^^^^^^^`f^^^^^^
l02[r`c r^ r`c b`g]
l08r^^`c^^^`d ^^^^`e^^^ ^^`f^^^^^ ^`g^^^^^^
TR(003);Time(2:1:0);FineTune(60);l12r
l01[4r] l08r^^`c^^^g ^^^^^f^^ ^^`c^^^^^ b^^^`g^^^l2 [6r`c r^ r`c :b`g]l1r
l01[6r]l16r^f^^^^^^b^^^^^^ ^`e^^^^^^^`f^^^^^^
l02[r`c r^ r`c b`g]
l08r^^`c^^^`d ^^^^`e^^^ ^^`f^^^^^ ^`g^^^^^^
TR(004);Time(2:1:0);FineTune(68);l6r
l01[4r] l08r^^`c^^^g ^^^^^f^^ ^^`c^^^^^ b^^^`g^^^l2 [6r`c r^ r`c :b`g]l1r
l01[6r]l16r^f^^^^^^b^^^^^^ ^`e^^^^^^^`f^^^^^^
l02[r`c r^ r`c b`g]
l08r^^`c^^^`d ^^^^`e^^^ ^^`f^^^^^ ^`g^^^^^^
TR(005);Time(2:1:0);M.W(64,24,!1)l01[7r*]
l16r*2. b&&`c^&&c,,65 "f1^2.^12l12ce e&&f^^^^^^^^ed* d2.l16"b*&&c^^ "f1^1 f2.^12>v50l12b24&&b*24b v60af^^,,50d*&&ed^^v70"d^^v80<
l16"e*&&"f^"fr^cee*&&f^f^^d&&d* d^^"ar^v50>c&&d^"ac-"b<v80"f&&"g-^^ "f^^fr^ee*fc"f^^d*&ed* d^^"a^^d^r"adep%.T(-512,0,!16,0,0,!16,0,-8192,!8)`d^^^,,60p%(0)
   "f^efr^"b&&c^v70`e32&&`f32`e`cl12b*bv80d* l16d^"g"al12refv60l16`c&&`d^^a*&&b^^v80 l12fc"fl16r^efr"b&&c^^^e*&&f l12aedcc-"bl16r"ad*32&&e32d`c&&`d,,60"a^
   [4r1]l16"f^^"fr^^^r^c^e^e&&f d^^dr^^^r^d^"a^"g-^ "f^^"fr^^^r^c^f^g&&a l12fedc-cdl16r^d^c^c-^
l16"b^f^a&&b^^^e&&f^"b^"f^ c-^g-^a&&b^^^f&&g-^l12bg-el16 d*^"a*^d*^^^^^a&&a*^d&&d*^ d^^"a^^c&&d^^d^c^c-^
   "b^"bfr^^a&&bv60`f`e`dv70b^v80"f^ c-^c-g-r^^a&&b^c-^^^c-^ c^rc^^^^g^^^p%.T(-512,0,!16,0,0,!16,0,-8192,!8)b^^^p%(0) "g-^^^"d^^^f^^^"f&&"g-^^
   "f^^^^^^^^^^^^^^^ ^^^^^^^^^^^^v50`d*^&&`e^ ^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^v80
   "f^"f^r*^^ee&&ff^r*^"f^ d^^^^^^^^^^^"f&&"g-^^ "f^"f^r*^^ee&&ff^r*^fe d^^^^^v50`c&&`d^^^^^^^^
   b&&`c^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^ r*1^1
TR(006);Time(2:1:0);EP.W(120,120,!4,120,60,!8,60,100,!8,100,40,!8,40,80,!8,80,20,!8,20,60,!8,60,0,!8,0,40,!8,40,0,!8)
l01[16r*][4r*]
l08r*^^'cfb`e'^^^^ ^^^^^^^^ r*^^'"bef`c'^^^^ ^^^^^^^^ r*^^'cfb`e'^^^^ ^^^^^^^^ r*^^'"bef`c'^^^^ ^^^^^^^^ r*^^'cfb`e'^^^^ ^^^^^^^^ r*^^'"bef`c'^^^^ ^^^^^r*^^
l01r* ^ r* ^ r* ^ r* EP.T(0,60,!8,60,0,!8,0,80,!8,80,40,!8,40,100,!8,100,60,!8,60,120,!8,120,80,!8)'"aeb`f'
EP.W(120,120,!4,120,60,!8,60,100,!8,100,40,!8,40,80,!8,80,20,!8,20,60,!8,60,0,!8,0,40,!8,40,0,!8)
l08r*^^'cfb`e'^^^^ ^^^^^^^^ r*^^'"bef`c'^^^^ ^^^^^^^^ r*^^'cfb`e'^^^^ ^^^^^^^^ r*^^'"bef`c'^^^^ ^^^^^^^^ r*^^'cfb`e'^^^^ ^^^^^^^^ ^^
TR(007);Time(2:1:0);EP.W(0,0,!8,0,120,!16,120,120,!8.,120,60,!8,60,100,!8,100,40,!8,40,80,!8,80,20,!8,20,60,!8,60,0,!8,0,40,!8,40,0,!8)
l01[16r*][4r*]
l08r*^^'cfb`e'^^^^ ^^^^^^^^ r*^^'"bef`c'^^^^ ^^^^^^^^ r*^^'cfb`e'^^^^ ^^^^^^^^ r*^^'"bef`c'^^^^ ^^^^^^^^ r*^^'cfb`e'^^^^ ^^^^^^^^ r*^^'"bef`c'^^^^ ^^^^^r*^^
l01r* ^ r* ^ r* ^ r* EP.T(0,0,!8,0,60,!8,60,0,!8,0,80,!8,80,40,!8,40,100,!8,100,60,!8,60,120,!8)'"aeb`f'
EP.W(0,0,!8,0,120,!16,120,120,!8.,120,60,!8,60,100,!8,100,40,!8,40,80,!8,80,20,!8,20,60,!8,60,0,!8,0,40,!8,40,0,!8)
l08r*^^'cfb`e'^^^^ ^^^^^^^^ r*^^'"bef`c'^^^^ ^^^^^^^^ r*^^'cfb`e'^^^^ ^^^^^^^^ r*^^'"bef`c'^^^^ ^^^^^^^^ r*^^'cfb`e'^^^^ ^^^^^^^^ ^^
TR(008);Time(2:1:0);
#Sax={l01[24r*]
l16r*^^^^^^^^^^^c,,70e,70,60EG(120,100,!4)p%.T(-512,0,!16,0,0,!16,0,-1024,!16)f^ ^EP(120)p%(0)r*^c-,,70l12"bc-,80,70"b,,60"a12,70EG(120,90,!6)p%.T(0,0,!12,0,-512,!12)"f6p%(0)r*4EP(120)
   r*^^p%.T(-512,0,!16)EG(120,70,!8,70,120,!8^12)"f^^^r*"e"f,70,60EG(100,120,!6,120,90,!6)p%.T(-512,0,!8.)"a^ ^^r*EP(120)l16r*^"f,90,80"a,90,70l24"b&c-"b,90,70"a^,,60r*l12r*^^
   r*^^^^^^^^"a,70p%.T(-512,0,!16)"b"f,,60 r*^^^^"e^,,60EG(120,70,!6)r*24"f8r*16EG(80,120,!8,120,90,!8)p%.T(-512,0,!8)"a8.EP(120)
   l16r*^^^^^^^^^"e^,,70r*"e&&"f^,,60 r*^^^^^^^^^^^c^,70,70p%.T(0,0,!8,0,-1024,!16)e^
   ^r*p%.T(-512,0,!8)f^^^^^r*^"a^^,,70r*p%.T(-512,0,!8)"b^ ^^^r*^^p%.T(-512,0,!8,0,0,!4,0,-1024,!16)e^^^^^^,,70r*^^p%(0) EG(100,120,!4.)c&&d^^^^"g-^^^e&&e*^^d*^ p%.T(0,0,!4,0,-512,!16)EG(120,100,!2)e^^^^r*p%(0)"b^&&c^^r*EP(120)c^,70,70p%.T(0,0,!8,0,-1024,!16)e^
   ^r*p%.T(-512,0,!8)f^^^^^r*^"b^^,,70r*p%.T(-512,0,!8)e^ ^^^r*^^p%.T(-512,0,!8,0,0,!8.,0,-1024,!16)f^^^^^p%.T(-512,0,!16)d12e12,70,70f12,70,80 p%.T(-512,0,!8)g*^^^^^^^EG(120,80,!4..)e^^^^^^r*EG(120,90,!2)p%.T(-512,0,!8) f^^^^^^^EG(90,120,!4.)g-^^^^^r*^
   [4r*1] <l16r*^^^^^^^r*^^b,,70p%.T(-512,0,!24)`c-12b12,,70a12^16,80,70 p%.T(0,0,!8,0,-1024,!16)f^^,,60p%(0)r*^^^^^^^^^^^ l12r*^^^p%.T(-512,0,!24)c,70,60e,,70l16r*p%.T(-512,0,!16,0,-512,!16)f^r*^^^^ r*1}
#Sax
TR(009);Time(2:1:0);FineTune(60)r12
#Sax
TR(014);Time(2:1:0);P.W(127,0,!3^3,0,127,!3^3,127,0,!3^3)
#Siren={
[4r*1] r*1^1^1EG(0,127,!1,127,0,!1)p%.T(0,0,!1,0,-8192,!1)g1^1 r*1^1^1
r*1^1^1EG(0,127,!1,127,0,!1)p%.T(0,0,!1,0,-8192,!1)g1^1 r*1^1^1
r*1^1^1EG(0,127,!1,127,0,!1)p%.T(0,0,!1,0,-8192,!1)g1^1 r*1^1^1 [12r*1]
r*1^1^1EG(0,127,!1,127,0,!1)p%.T(0,0,!1,0,-8192,!1)g1^1 r*1^1^1
r*1^1^1EG(0,127,!1,127,0,!1)p%.T(0,0,!1,0,-8192,!1)g1^1 r*1^1^1}
#Siren
TR(015);Time(2:1:0);r6;FineTune(54);P.W(127,0,!3^3,0,127,!3^3,127,0,!3^3)
#Siren
TR(016);Time(2:1:0);r3;FineTune(74);P.W(127,0,!3^3,0,127,!3^3,127,0,!3^3)
#Siren
KeyFlag+();
TR(010);Time(2:1:0);
l01[12r]
EG(120,30,!1.)l16a+f+f+f+l12f+f+f+l8f+f+l12f+^f+ ^f+^l4f+rr EG(120,30,!1.)l16a+f+f+f+l12f+f+f+l8f+f+l12f+^f+ ^f+^ f+^EG(60,120,!2)f+24f+24l24f+^f+l16rf+32f+32"b0,,70f+f+f+r
   
   [S{v70l16"br"b,,60rr^^"b32,,55"b32,,55"b"b,,55"b,,55rc+,,90c+,,40c+,,30r}v60l16a+f+,,50f+f+,,50l12f+f+,,50f+,,50l8f+f+,,50l12f+^f+,,50
   S{v70l16"br"b,,60rr^^"b32,,55"b32,,55"b"b,,55"b,,55rc+,,90c+,,40c+,,30"b,,60}v60l16f+f+,,50f+f+,,50l12f+f+,,50f+,,50l8f+f+,,50l12f+^f+,,50
   S{v70l16"br"b,,60rr^^"b32,,55"b32,,55"b"b,,55"b,,55rc+,,90c+,,40c+,,30r}v60l16f+f+,,50f+f+,,50l12f+f+,,50f+,,50l8f+f+,,50l12f+^f+,,50:
   S{v70l16"br"b,,60rr^^"b32,,55"b32,,55"b"b,,55"b,,55rc+,,90c+,,40"b0,,70c+,,30r}v60l16f+f+,,50f+f+,,50l12f+f+,,50f+,,50l8f+f+,,50l32f+f+,,50f+,,40f+,,30f+,,20rf+,,50r]
   S{v70l16"br"b,,60rr^^"b32,,55"b32,,55"b"b,,55"b,,55rl32'"bd',,30d,,40'"bd',,50d,,60'"bd'r^^}v60l16f+f+,,50f+f+,,50l12f+f+,,50f+,,50l8f+f+,,50l32f+f+,,50f+,,50f+,,30f+,,20rf+,,50r
   
   EG(120,30,!1.)l16a+f+f+f+l12f+f+f+l8f+f+l12f+^f+ ^f+^l4f+rr EG(120,30,!1.)l16a+f+f+f+l12f+f+f+l8f+f+l12f+^f+ ^f+^l4f+rEP(120)r
   S{v70l16"br"b,,60rr^^"b32,,55"b32,,55"b"b,,55"b,,55rc+,,90c+,,40c+,,30r}v60l16a+f+,,50f+f+,,50l12f+f+,,50f+,,50l8f+f+,,50l12f+^f+,,50
   S{v70l16"br"b,,60rr^^"b32,,55"b32,,55"b"b,,55"b,,55rc+,,90c+,,40c+,,30"b,,60}v60l16f+f+,,50f+f+,,50l12f+f+,,50f+,,50l8f+f+,,50l12f+^f+,,50
   S{v70l16"br"b,,60rr^^"b32,,55"b32,,55"b"b,,55"b,,55rc+,,90c+,,40c+,,30r}v60l16f+f+,,50f+f+,,50l12f+f+,,50f+,,50l8f+f+,,50l12f+^f+,,50
   S{v70l16"br"b,,60rr^^"b32,,55"b32,,55"b"b,,55"b,,55rl32'"bd',,60d,,50'"bd',,40d,,30'"bd',,30d,,40'"bd',,50d,,60}v60l16f+f+,,50f+f+,,50l12f+f+,,50f+,,50l8f+f+,,50l32f+f+,,50f+,,40f+,,30f+,,20rf+,,50r
   
   S{v70l16"brr"b32,,55"b32,,55c+,,90"b0,,55c+,,40c+,,30rr"br^c+,,90"b0,,70c+,,40c+,,30"b,,60}v60l16a+f+,,50f+f+,,50rf+,,50f+f+,,50l12f+f+,,50f+,,50l16f+f+,,50rf+,,50
   S{v70l16"brr"b32,,55"b32,,55c+,,90"b0,,55c+,,40c+,,30rr"br^c+,,90"b0,,70c+,,40c+,,30r}v60l16a+f+,,50f+f+,,50rf+,,50f+f+,,50l12f+f+,,50f+,,50l16f+f+,,50f+f+32,,50f+32,,50
   S{v70l16"brr"b32,,55"b32,,55c+,,90"b0,,55c+,,40c+,,30rr"br^c+,,90"b0,,70c+,,40c+,,30"b,,60}v60l16a+f+,,50f+f+,,50rf+,,50f+f+,,50l12f+f+,,50f+,,50l16f+f+,,50rf+,,50
   S{v70l16"brr"b32,,55"b32,,55c+,,90"b0,,55c+,,40c+,,30rr"br^c+,,90"b0,,70c+,,40c+,,30r}v60l16a+f+,,50f+f+,,50rf+,,50f+f+,,50l12f+f+,,50f+,,50l16f+f+,,50f+f+,,50
   S{v70l16"brr"b32,,55"b32,,55c+,,90"b0,,55c+,,40c+,,30rr"br^c+,,90"b0,,70c+,,40c+,,30"b,,60}v60l16a+f+,,50f+f+,,50rf+,,50f+f+,,50l12f+f+,,50f+,,50l16f+f+,,50rf+,,50
   S{v70l16"brr"b32,,55"b32,,55c+,,90"b0,,55c+,,40c+,,30rr"br^c+,,90"b0,,70c+,,40c+,,30r}v60l16a+f+,,50f+f+,,50rf+,,50f+f+,,50l12f+f+,,50f+,,50l16f+f+,,50f+f+32,,50f+32,,50
   S{v70l16"brr"b32,,55"b32,,55c+,,90"b0,,55c+,,40c+,,30rr"br^c+,,90"b0,,70c+,,40c+,,30"b,,60}v60l16a+f+,,50f+f+,,50rf+,,50f+f+,,50l12f+f+,,50f+,,50l16f+f+,,50rf+,,50
   v.T(0,60,!1)S{l32[32d]}v70
   S{l16"brr"b32,,55"b32,,55c+,,90"b0,,55c+,,40c+,,30rr"br^c+,,90"b0,,70c+,,40c+,,30r}v60l16a+f+,,50f+f+,,50rf+,,50f+f+,,50l12f+f+,,50f+,,50l16f+f+,,50f+f+,,50
   
   EG(120,30,!1.)l16a+f+f+f+l12f+f+f+l8f+f+l12f+^f+ ^f+^l4f+rr EG(120,30,!1.)l16a+f+f+f+l12f+f+f+l8f+f+l12f+^f+ ^f+^l4f+rEP(120)r
   S{v70l16"br"b,,60rr^^"b32,,55"b32,,55"b"b,,55"b,,55rc+,,90c+,,40c+,,30r}v60l16a+f+,,50f+f+,,50l12f+f+,,50f+,,50l8f+f+,,50l12f+^f+,,50
   EG(120,30,!1.)l16a+f+f+f+l12f+f+f+l8f+f+l12f+^f+EP(120)
   S{v70l16"br"b,,60rr^^"b32,,55"b32,,55"b"b,,55"b,,55rc+,,90c+,,40c+,,30r}v60l16f+f+,,50f+f+,,50l12f+f+,,50f+,,50l8f+f+,,50l12f+^f+,,50
   EG(120,30,!1.)l16a+f+f+f+l12f+f+f+l8f+f+l12f+^f+ ^f+^l4f+rr