//------------------------------------------------------------------------------
曲名{"ハーフムーン：ウィンドウ"}
//------------------------------------------------------------------------------


///////////////////////////////////////////////////////////
//各種設定。

//定義ファイル。
  Include(gs.h);　Include(delay.h);

//初期化・初期設定。
　ResetGS;　TR=10 GS_RHYTHM(1);　TR=11 GS_RHYTHM(2);

//初期化用の空白とトラック同期。
　r1;　TrackSync;

//曲の基本設定。
　拍子4,4;　テンポ(125);

//転調。
　TimeKey((1:1:0),0)
　TimeKey((50:1:0),2)

///////////////////////////////////////////////////////////




//この名義のコンセプトは「痛ポエマー」です



//曲データ



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=1 @81,8 l4 o6 q100 v70 REV=30
[8
[4'"aceb'r]
[4'"g"bd`c'r]
]

[16r1]
[10
[4'"ac#eb'r]
[4'"g"bd`c'r]
]

/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=2 @(CelestaStrings) v100 l8 V=100 REV=30 o6 

EP.W(127,127,!16,0,0,!16)
[96
r'c`c,,+20''"gg,,+20'r
]

Time(58:1:0)
EP.W(127,127,!16,0,0,!16)

[16
r'c`c,,+20''"gg,,+20'r
]

[8r1]
[64
r'c`c,,+20''"gg,,+20'r
]

rrrrrrrr
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=3 @(SweepPad) l16 o6 q90 v127 BR=12 REV=30

MidiDelay({
[4
EP.W(127,0,!4)p.W(127,127,!16,127,0,!8)'"aea'4 EP=0 r2.[7r1]]
},5,!4)

[16r1]

MidiDelay({
[6
EP.W(127,0,!4)p.W(127,127,!16,127,0,!8)'"aea'4 EP=0 r2.[7r1]]
},5,!4)

/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=4 @(FretlessBass) l16 v70 V=105 q99 o3 REV=1

[16r1]
[4"a^egrra&b^^b^b^b^b^`cbrre^^^e^e^e^
"g^cgrrb&`c^^`c^`c^`c^`c^`d`crrg^^^g^g^g^]

[32r1]
[6"a^egrra&b^^b^b^b^b^`cbrre^^^e^e^e^
"g^cgrrb&`c^^`c^`c^`c^`c^`d`crrg^^^g^g^g^]

/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=5 @81,8 l16 v60 V=120 q99 o3 REV=1

[16r1]
[4"a^egrra&b^^b^b^b^b^`cbrre^^^e^e^e^
"g^cgrrb&`c^^`c^`c^`c^`c^`d`crrg^^^g^g^g^]

[32r1]
[6"a^egrra&b^^b^b^b^b^`cbrre^^^e^e^e^
"g^cgrrb&`c^^`c^`c^`c^`c^`d`crrg^^^g^g^g^]

/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=6 @(Clavi) l16 o6 q30 v60 BR=12 REV=10 P=0


[24r1]
[6
[3'"ab''"ab',,-30'"ab',,-20'"ab''ca'rrr]
'"ab'[4'"ab'64,,-20]'"ab',,-20'"ab''ca'rrr
[3'"g`c''"g`c',,-30'"g`c',,-20'"g`c''"gb'rrr]
'"g`c'[4'"g`c'64,,-20]'"g`c',,-20'"g`c''"gb'rrr
]

[16r1]
[6
[3'"ab''"ab',,-30'"ab',,-20'"ab''ca'rrr]
'"ab'[4'"ab'64,,-20]'"ab',,-20'"ab''ca'rrr
[3'"g`c''"g`c',,-30'"g`c',,-20'"g`c''"gb'rrr]
'"g`c'[4'"g`c'64,,-20]'"g`c',,-20'"g`c''"gb'rrr
]

/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=7 @(Echoes) o7 q100 v50 l16 REV=90

[15r1]r2.
[4r8
EP.T(127,127,!4.,127,0,!1^1^1)a8&`e1+1+1+2.]

[8r1]
[13r8
EP.T(127,127,!4.,127,0,!1^1^1)a8&`e1+1+1+2.]

/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=8 @(Glockenspiel) l16 o6 q30 v65 P=127 REV=10 
[32r1]
EP.W(127,127,!32,0,0,!32)

[4
r[20rae]
'aeb',,-35'aeb',,-20'aeb']

[16r1]
[6
r[20rae]
'aeb',,-35'aeb',,-20'aeb']

/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=9 @(WarmPad) l1 o6 q100 v70 REV=80

[12
'"aceb'^
:'"g"bd`c'^
]
'"g"bd`c'1.
'cega#'2

[14
'"ac#eb'^
:'"g"bd`c'^
]

/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=12 @(OrchestralHarp) l16 o4 q110 v60 REV=60 P=64

Time(49:1:0)
r2
P.T(0,127,!2)
[cega#>]
c

/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=13 @(Strings1) l1 o4 q100 v60 REV=70 P=64
Time(66:1:0)
EP.T(0,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1)
[6a^g^]

/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=14  @(Strings1) l2 o5 q100 v60 REV=70 P=16
Time(66:1:0)
EP.T(0,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1)
[6e^^^d^g^]

/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=15  @(Strings1) l2 o5 q100 v50 REV=70 P=112
 l2 o5 q100 v50
Time(66:1:0)
EP.T(0,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1)
[6rrg`c^^^`e]

/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=16  @(Strings1) l2 o6 q100 v50 REV=70  P=64
l2 o6 q100 v50
Time(66:1:0)
EP.T(0,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1)
[6b1+1+1+1]

/*_______________________________________________________________*/





UseKeyShift=0
/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=10 @(AnalogSet) o3 v110 REV=10 V=110
[8r1]


Sub{v110 [3r1]r2.r8"d#8}
[4
Sub{l16v70 f#rf#,,-20ra#8,,-10f#f#,,-20rrf#,,-20f#,,-10a#8,,-10f#,,-25r}
Sub{v80[r4d4]}
l16 v110 crc,,-10rrrrcrrc,,-10rrrrr
]


Sub{v110 [3r1]r2."d#,,-20"d#,,-10"d#8}
[4
Sub{l16v70 f#rf#,,-20ra#8,,-10f#f#,,-20rrf#,,-20f#,,-10a#8,,-10f#,,-25r}
Sub{v80[r4d4]}
l16 v110 crc,,-10rrrrcrrc,,-10rrrrr
]

[
Sub{v90 `c#}
Sub{v110 [3r1]r2.r8"d#8}
[4
Sub{l16v70 f#rf#,,-20ra#8,,-10f#f#,,-20rrf#,,-20f#,,-10a#8,,-10f#,,-25r}
Sub{v80[r4d4]}
l16 v110 crc,,-10rrrrcrrc,,-10rrrrr
]


Sub{v110 [3r1]r2."d#,,-20"d#,,-10"d#8}
[4
Sub{l16v70 f#rf#,,-20ra#8,,-10f#f#,,-20rrf#,,-20f#,,-10a#8,,-10f#,,-25r}
Sub{v80[r4d4]}
l16 v110 crc,,-10rrrrcrrc,,-10rrrrr
]
]

Sub{`c#}
[24r1]

Sub{l16[28r1]v.T(10,75,!1^1^1^1)[48d16][32d32]}
[4
Sub{v90 `c#}
Sub{v110 [3r1]r2.r8"d#8}
[4
Sub{l16v70 f#rf#,,-20ra#8,,-10f#f#,,-20rrf#,,-20f#,,-10a#8,,-10f#,,-25r}
Sub{v80[r4d4]}
l16 v110 crc,,-10rrrrcrrc,,-10rrrrr
]


Sub{v110 [3r1]r2."d#,,-20"d#,,-10"d#8}
[4
Sub{l16v70 f#rf#,,-20ra#8,,-10f#f#,,-20rrf#,,-20f#,,-10a#8,,-10f#,,-25r}
Sub{v80[r4d4]}
l16 v110 crc,,-10rrrrcrrc,,-10rrrrr
]
]

`c#

TR=11 o3 v110 REV=60 V=110 BR=12 p=30

[32r1]

[8
l16 v110crrc,,-20rrc,,-10rrrc,,-30rrrc,,-40r
]

[7
Sub{ v60 l16 f#rf#,,-20a#^g#,,-20f#r}
Sub{ v80 r2.p.T(40,0,!16)d8 p=30 r8}
l16 v110crrc,,-20rrc,,-10rrrc,,-30rrrc,,-40r
]
r1
[24r1]
[16
Sub{ v60 l16 f#rf#,,-20a#^g#,,-20f#r}
Sub{ v80 r2.p.T(40,0,!16)d8 p=30 r8}
l16 v110crrc,,-20rrc,,-10rrrc,,-30rrrc,,-40r
]
[8
l16 v110crrc,,-20rrc,,-10rrrc,,-30rrrc,,-40r
]

/*_______________________________________________________________*/