//------------------------------------------------------------------------------
曲名{"フルムーン：ララバイ"}
//------------------------------------------------------------------------------


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

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

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

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

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

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








//曲データ



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=1 @(ElectricPiano1) l2 o7 q100 v100 REV=70

P.N(64,32,96,48,80)

MidiDelay({

[16g^`cbg^b`c]
[8r1]
[4g^`cbg^b`c]
[8r1]
[8g^`cbg^b`c]
g^

},8,!8)
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=2 @(GrandPiano) v65 l8 REV=40

t.N(-1,2,0)

[8
'"f"ace',,+20[8'"f"ace']
'"f"ace',,+20['"f"ace']
'"f"ace',,+20[3'"f"ace']
'"e"g"bd',,+20[8'"e"g"bd']
'"e"g"bd',,+20['"e"g"bd']
'"e"g"bd',,+20[3'"e"g"bd']
]

[16r1]

[4
'"f"ace',,+20[8'"f"ace']
'"f"ace',,+20['"f"ace']
'"f"ace',,+20[3'"f"ace']
'"e"g"bd',,+20[8'"e"g"bd']
'"e"g"bd',,+20['"e"g"bd']
'"e"g"bd',,+20[3'"e"g"bd']
]

[16r1]

q100
[4
'"f"ace'1+1
'"e"g"bd'1+1
]

[8
'"f"ace',,+20[8'"f"ace']
'"f"ace',,+20['"f"ace']
'"f"ace',,+20[3'"f"ace']
'"e"g"bd',,+20[8'"e"g"bd']
'"e"g"bd',,+20['"e"g"bd']
'"e"g"bd',,+20[3'"e"g"bd']
]


TR=22 CH=2  v75 l8 o7

[5[16r1]]
[4[4eeee]
:[4dddd]][4gg:gg]
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=3 @(DrawbarOrgan) l16 o6 q100 v85 REV=20
[16r1]

[8
'ec"a"f'c,30f,30e,30
rr'afec',50rr1.
'd"b"g"e'd,30g,30e,30
rr'ged"b',50rr1.
]

[24r1]

[4
'ec"a"f'c,30f,30e,30
rr'afec',50rr1.
'd"b"g"e'd,30g,30e,30
rr'ged"b',50rr1.

]
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=4 @(SquareLead) l32 o6 q80 v35 REV=40

[16r1]

[12

P.T(0,127,!1^1,127,0,!1^1)
[8g&a^^errr]
[8g&a^^:drrr]

P.N(0,127,96,32,64)
[8d64]

]

[24r1]

[8

P.T(0,127,!1^1,127,0,!1^1)
[8g&a^^errr]
[8g&a^^:drrr]

P.N(0,127,96,32,64)
[8d64]

]
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=5 @(Brightness) l16 o7 q100 v50 REV=100
[16r1]
[8
ペダル"a8.e8.a2+8放すr1
ペダル"g8.d8.g2+8放すr1
]

[16r1]
[8r1]
[10
ペダル"a8.e8.a2+8放すr1
ペダル"g8.d8.g2+8放すr1
]
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=6 @(81,8) l1 o3 q100 v80 BR=12 REV=1

[16r1]
p.T(127,0,!1,1)a
[15r1]
[3[16r1]]
[15r1]r2.p.T(127,0,!4,1)a4
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=7 @(82,1) o4 q100 v80 l16 REV=1

[32r1]

[4
["f&c&"fr"f^"e"fr"f"arc^"f^]
["e&"b&"er"e^"d"er"e,50"e^:"b^"e^]"d^"e^]

l4 v120
EP.W(30,50,!8,50,127,!8)

[4
["f"fcc]
["e"e"g"g]
]

[32r1]
[6
["f"fcc]
["e"e"g"g]
]
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=8 @(Whistle) l1 o6 q100 v30 REV=70

[32r1]

[4
'"f"ace'1+1
'"e"g"bd'1+1
]


[16r1]

EP=127
[4
'"f"ace'1+1
'"e"g"bd'1+1
]
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=9 @(SawtoothLead) l4 o6 q100 v80 REV=50

[48r1]

EP.W(30,50,!8,50,127,!8)
[4
[8'"f"ace']
[8'"e"g"bd']

]

[32r1]
[6
[8'"f"ace']
[8'"e"g"bd']

]
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=11 @(SynthBass1) l16 o6 q50 v60 REV=30

P.N(127,32,96,0,64)
[55r1]r2ag32a32gfefge

aefa`caga`cbagab`ca
fefgafeg`cbabfgag
efgegagfedebcdgf
edegdc32d32fg`cbagfede

aefa`caga`cbagab`ca
fefgafeg`cb32`c32ae`ea`f`e
`g32`f32`e32`d32gagabg32a32bg32a32`cg`dg`e`f
`g32`f32`e32`d32`c32b32a32b32gagabg32a32bg32a32`eg`f`e
`g

[31r1]r1-16
[7r1]
r2ag32a32gfefge

aefa`caga`cbagab`ca
fefgafeg`cbabfgag
efgegagfedebcdgf
edegdc32d32fg`cbagfede

aefa`caga`cbagab`ca
fefgafeg`cb32`c32ae`ea`f`e
`g32`f32`e32`d32gagabg32a32bg32a32`cg`dg`e`f
`g32`f32`e32`d32`c32b32a32b32gagabg32a32bg32a32`eg`f`e
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=12 @(CalliopeLead) l2 o5 q110 v60 BR=2 REV=60 P=96

p=64
[16r1]
[3
[8r1]
[ rra`c : b^g^]g^`d1,100
]
p.T(64,64,!1,64,0,!1)
`e1+1,100

[6r1]
p=64
[24r1]

[8r1]
[ rra`c : b^g^]g^`d^ 

p.T(64,64,!1,64,0,!1)`e1+1,100

TR=16 @(CalliopeLead) l2 o5 q110 v45 BR=2 REV=60 P=32

p=64
[16r1]
[3
[8r1]
[ rrfa : e^d^]e^g1,100
]

p.T(64,64,!1,64,0,!1) `c1+1,100
[6r1]
p=64
[24r1]

[8r1]
[ rrfa : e^d^]e^g^ p.T(64,64,!1,64,0,!1)`c1+1,100
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=14 @(SteelcGuitar) l8 o5 q100 v70 REV=50 P=40
t.Random(0,-2,1)
Str PP = {放すペダル}

[64r1]
[
PP "e"f"ac^"a^"f^ PP c^"ae8.c8."a
PP '"e"g"bd'2c2 PP "b2'c"g'2
PP "f"ace^d^c^PP "a^"f^"b^c
PP '"g"bd'efed8.e8.f PP '"g"bdg'4d4'f"b'4"g4
]
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=15 @(Accordion) l1 o6 q100 v30 REV=50 P=80

[72r1]
EP.W(50,127,!2)

['`cea''`cfa'
'bge''bgd']
/*_______________________________________________________________*/



/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
TR=10 @(AnalogSet) o3 v110 REV=10
[32r1]
[15c2+8c4c8]

[17cccc]
[8r1]
[8c2+8c4c8]
[8r1]
[32cccc]
[8c2+8c4c8]


TR=20CH=10 o3 l8 v60
[40r1]
[
[8f#32,,-20][8f#16,,-20]f#,,-20r
:[3r1]]
[r1]
[ra#ra#16f#16]
[8rf#rf#r16f#16a#rf#
rf#r16f#16a#ra#rf#]


[24r1]
[8rf#rf#r16f#16a#rf#
rf#r16f#16a#ra#rf#]

[12rf#rf#r16f#16a#rf#
rf#r16f#16a#ra#rf#]


TR=13 @(OrchestraSet) o3 l16 v60 REV=70 P=96
[47r1]
v.T(20,60,!1)[16d]

Sub{`a,,60}
[16r1]
l12
v60
Sub{`a,,60}
[8[3d4dd,,-30d,,-20][dd,,-30d,,-20]]

Sub{`a,,60}
[14r1]
v.T(20,60,!1^1-4)[28d16]
r4

Sub{`a,,60}
[12r1]
v.T(20,60,!1^1^1^1)[64d16]
[
Sub{`a,,60}
:[8r1]
]
/*_______________________________________________________________*/