//dub/electro
//青い海に揺蕩う月
//2010 akusil@lol
//for TW-MUSIC2
//
//DLありがとうございます、アクシル@ロルです
//海だとか月だとか、言い方悪いかもしれませんがよくあるテーマをモチーフにして作りました
//モチーフがありがちだったので、曲の方はあまり見ない類の曲にしてみました
//あくまでサクラ内での話だけどな！自分の勘違いかもしれないけどな！
//
//実は裏でもう一曲作っているのですが、これはそれの息抜きも兼ねてたりします
//曲作りの息抜きで曲作るのってどうよって感じしますね
//実際の所、これ作るのに一週間掛かるか掛からないかって感じだったので、良い感じの息抜きにはなったと思ってます
//大昔に作って放置していたデータからいろいろ引用した部分が大多数ですしね、実は
//ちなみにその当時のデータでは、この曲は哀愁系アートコアになる予定でした
//その通りにしなくてよかったと思ってます(笑)
//
//
//
//
//
//
//
//
//



ArgOrder(lvoqt)
Include(gs.h);
Include(unison.h);
Include(delay.h);	
ResetGS;
TrackName ={"青い海に揺蕩う月"}
// ReverbSetting    Time Dpth High
CuePoint={"TwmParam( 127, 120,  60)"}

// ChorusSetting     Wave  Mix Dpth   FB Freq  Dly  Phs
CuePoint={"TwmChorus(   1, 127,  30,  80,   90,  55,   4)"}
KeyFlag=(0,-1,0,0,-1,0,0);
Tempo 90
//----------------------------------------------------------------------------------------
TR(1)GS_RHYTHM(0)r1 @91 o5 q100 v80 l16 V(80) REV(15)CHO(89)P(64)BR(27)
TR(2)GS_RHYTHM(0)r1 @17,16 o6 q99 v80 l16 V(80) REV(60)CHO(89)P(64)BR(27)
TR(3)GS_RHYTHM(0)r1 @82,90,1 o5 q90 v80 l16 V(100) REV(40)P(64)BR(27)M(127)
TR(4)GS_RHYTHM(0)r1 @5,8 o6 v100 l8 q99 REV(40)V(100)CHO(0)P(40)
TR(5)GS_RHYTHM(0)r1^8^16 @5,8 o6 v90 l8 q50 REV(40)V(100)CHO(0)P.N(40,88)
TR(6)GS_RHYTHM(0)r1 @40        v90  o2 l1 REV(30) V(100) q99  　BR(27)CHO(80)
TR(7)GS_RHYTHM(0)r1 @82,110,1 v60  o3 l16  REV(20)V(100)q83  CHO(127)P(127)p%(-300)
TR(8)GS_RHYTHM(0)r1 @82,110,1 v60  o3 l16  REV(20)V(100)q83  CHO(127)P(0)p%(300)
TR(9)GS_RHYTHM(0)r1 @82,1        v100  o3 l16 REV(5) V(100) q99  　BR(27)CHO(0)
TR(15)GS_RHYTHM(0)r1 @126,9v16  o4 l12 REV(127)V(127) q99  BR(27)CHO(32)
TR(16)GS_RHYTHM(0)r1 @123,1  v97 o4 l8 REV(10)V(127) q99   BR(27)CHO(80)
//----------------------------------------------------------------------------------------
TR(10)CH(10)GS_RHYTHM(1)r1@27,90     v127 P(64) l8 V(100)REV(1) BR(27)CHO(0)P(64) p%(0)
TR(11)CH(11)GS_RHYTHM(1)r1@27,90     v15 P(64) l8 V(100)REV(127) BR(27)CHO(10)P(64) p%(-8000)
TR(12)CH(12)GS_RHYTHM(1)r1@27,90     v127 P(64) l8 V(100)REV(15) BR(27)CHO(30)P(64) p%(0)
TR(13)CH(13)GS_RHYTHM(1)r1@26     v80 P(64) l32 V(100)REV(10) BR(27)CHO(20)P(64) p%(1200)
TR(14)CH(14)GS_RHYTHM(1)r1@1,90,1     v127 P(64) l8 V(100)REV(15) BR(27)CHO(30)P(64) p%(1000)
//----------------------------------------------------------------------------------------

#SR_1={
gfdgfdgf dgfdgfdg fdgfdgdf gfdgfdgf
gfdgfdgf dgfdgfdg fdgfdgdf gfdgfdgf
}
#SR_2_1={
f`cgf`cgf`c gf`egf`egf `cgf`cgf`cg f`ggf`ggf`g
gf`cgf`cgf `fgf`fgf`fg f`egf`dgf`e gf`cgfbgf
f`cgf`cgf`c gf`egf`egf `cgf`cgf`cg f`ggf`ggf`g
gf`cgf`cgf `fgf`fgf`gg f`egf`ggf`e gf`agf``dgf
}
#SR_2_2={
f`ggf`ggf`g gf`egf`egf `cgf`cgf`cg f`ggf`ggf`g
gf`cgf`cgf `fgf`fgf`fg f`egf`dgf`e gf`cgfbgf
f`cgf`cgf`c gf`egf`egf `cgf`cgf`cg f`ggf`ggf`g
gf`fgf`fgf `fgf`fgf`fg f`agf`agf`a gf`agf`agf
}
#SR_3={
f`agf`agf`a gf`agf`agf f`agf`agf`a gf`agf`agf
}
TR(1)
[16r1]
[3
EP.T(127,0,%384*4)
MidiDelayS({
#SR_1
})
]
EP.T(127,0,!1^1,0,127,!1^1)
MidiDelayS({
#SR_1
})
EP.T(127,0,%384*4)
MidiDelayS({
#SR_1
})
[12r1]
[6r1]
EP.T(0,127,!1^1)
MidiDelayS({
fbgfbgfb gfbgfbgf bgfbgfbg f`cgf`c+gf`d
[2
#SR_2_1
#SR_2_2
]
})
EP.T(127,0,!1^1^1^1^1^1^1^1)
MidiDelayS({
[4#SR_3]
})
[8r1]
EP(127)
TrackKey(3)
#SR_2_2
TR(2)
[24r1]
EP.W(127,0,!8)
P.N(0,0,127,127)
Unison5th({
#SR_1
V.T(80,0,!1^1,0,80,!1^1)
#SR_1
})

[16r1]
[8r1]
V(80)
P.N(0,0,127,127)
[2
MidiDelayS({
Unison5th({#SR_2_1 #SR_2_2})
})
]
V.T(80,0,!1^1^1^1^1^1^1^1)
MidiDelayS({
[4Unison5th({#SR_3})]
})
[8r1]
V(80)
TrackKey(3)
#SR_2_2


TR(3)
[88r1]
#E1={EP.W(127,127,!32,0,0,!16)}
#E2={EP(127)}
Unison({
EP(127) c^#E1 cEP(127) c^#E1 eeEP(127) e^#E1 cccEP(127) g^#E1 gg
EP(127) c^#E1 cEP(127) c^#E1 fffEP(127) e^d^c^"b^
EP(127) c^#E1 cEP(127) c^#E1 eeEP(127) e^#E1 cccEP(127) g^#E1 gg
EP(127) c^#E1 cEP(127) c^#E1 fggEP(127) e^g^a^`d^
EP(127) g^#E1 gEP(127) g^#E1 eeEP(127) e^#E1 cccEP(127) g^#E1 gg
EP(127) c^#E1 cEP(127) c^#E1 fffEP(127) e^d^c^"b^
EP(127) c^#E1 cEP(127) c^#E1 eeEP(127) e^#E1 cccEP(127) g^#E1 gg
EP(127) f^#E1 fEP(127) f^#E1 fffEP(127) g^#E1 gEP(127) g^g^#E1 g
},7)
TrackKey(3)
[2
Unison({
EP(127) c^#E1 cEP(127) c^#E1 eeEP(127) e^#E1 cccEP(127) g^#E1 gg
EP(127) c^#E1 cEP(127) c^#E1 fffEP(127) e^d^c^"b^
EP(127) c^#E1 cEP(127) c^#E1 eeEP(127) e^#E1 cccEP(127) g^#E1 gg
EP(127) c^#E1 cEP(127) c^#E1 fggEP(127) e^g^a^`d^
EP(127) g^#E1 gEP(127) g^#E1 eeEP(127) e^#E1 cccEP(127) g^#E1 gg
EP(127) c^#E1 cEP(127) c^#E1 fffEP(127) e^d^c^"b^
EP(127) c^#E1 cEP(127) c^#E1 eeEP(127) e^#E1 cccEP(127) g^#E1 gg
EP(127) f^#E1 fEP(127) f^#E1 fffEP(127) g^#E1 gEP(127) g^g^#E1 g
},7)
]
#ELP={
[104r1]l8
TrackKey(3)
EP.W(#?1,#?2,!2)
'"ac'^e^'"ac'^g^'"gc'^f^'ce''"bd''"ac''"g"b'
'"bc'^e^'"ac'^g^'"gc'^'"af'g'ce''dg''ea''db'
'cg'^e^'"ac'^g^'"gc'^f^'ce''"bd''"ac''"g"b'
'"bc'^e^'"ac'^g^'df'^^^'eg'^'df'^

'ce'^dd+ d^"a^ '"bc'2 c4f4
'eg'cef 'df'"b^e '"be'2d2
'ce'^dd+ d^"a^ '"bc'2 c4f4
'eg'2 'cf'2 EP.W(#?1,#?2,!2)'"gc'1
}
TR(4)
#ELP(127,0);
TR(5)
MidiDelay({
#ELP(127,127);
},3,!8^16)
TR(6)
[4
[4
M.T(0,127,!1)
c1-4"b4
]
]
[16r1]
M(127)
[4
[4
c1-4"b4
]
]

@82,1
EP.WR(127,60,!12,60,127,!12)
[2
[4
c1-4"b4
]
]
V.T(100,0,!1^1^1^1^1^1^1^1)
c1^1^1^1^1^1^1^1
V(100)
[8r1]EP(127)
@40
[16
c1-4"b4
]
[8
c1-4"b4
]
TrackKey(3)
[16
c1-4"b4
]
d4d4d4d4 d4d4d4d4
"b4"b4c4c4 d4d4d4d4
d4d4d4d4 d4d4d4e4
f4f4e4e4 c4c4c4"b4
#SYN={
[32r1]
[4c^cc^c^c^cc^^"b^^ c^cc^c^c^cc^^"b^"b]
Sub{
>[4c32c^cc^c^c^cc^^"b^^r-16 c^cc^c^c^cc^^"b^"b"b32]<
}
[4c^cc^c^c^cc^^"b^^ c^cc^c^c^cc^^"b^"b]
[40r1]
[3c^cc^c^c^cc^^"b^^ c^cc^c^c^cc^^"b^"b]
Sub{
v.T(0,70,!1^1)>c32c^cc^c^c^cc^^"b^^r-16 c^cc^c^c^cc^^"b^"b"b32<
}
v70c^cc^c^c^cc^^"b^^ c^cc^c^c^cc^^"b^"b

TrackKey(3)
[2
Sub{
>[4c32c^cc^c^c^cc^^"b^^r-16 c^cc^c^c^cc^^"b^"b"b32]<
}
[4c^cc^c^c^cc^^"b^^ c^cc^c^c^cc^^"b^"b]
]
}
TR(7)
#SYN
TR(8)
#SYN
TR(9)ArgOrder(lvqto)
[4c^ccc,70cccc,70ccc<b,70bbb>]
CHO.T(0,40,%384*4)
[4c^ccc,70cccc,70ccc<b,70bbb>]
CHO.T(40,80,%384*4)
[4c^ccc,70cccc,70ccc<b,70bbb>]
CHO.T(80,127,%384*4)
[4c^ccc,70cccc,70ccc<b,70bbb>]
[12r1]
CHO(127)EP.T(0,127,!1^1^1^1)
[4c^ccc,70cccc,70ccc<b,70bbb>]
[16c^ccc,70cccc,70ccc<b,70bbb>]
[24r1]
[16c^ccc,70cccc,70ccc<b,70bbb>]
[8c^ccc,70cccc,70ccc<b,70bbb>]
TrackKey(3)
[16c^ccc,70cccc,70ccc<b,70bbb>]
[2d^ddd,70dddd,70dddd,70ddd]
<b^bbb,70bbb>c^ccc,70ccc
d^ddd,70dddd,70dddd,70ddd
[2d^ddd,70dddd,70ddd:d,70ddd]e,70eee
f^fff,70fffe^eee,70eee
c^ccc,70cccc,70ccc<b,70bbb>
TrackKey(0)
[16c^ccc,70cccc,70ccc<b,70bbb>]
#FX1={
P.WR(0,127,!12,127,0,!12)
CHO.WR(10,127,!12,127,127,!12)
p%.T(8129,-8129,!1^1^1^1^1^1)
V.T(0,100,!1^1,100,0,!1^1^1^1)
'""cc'1^1^1^1^1^1
}
TR(15)
[8r1]
r-4EP.T(0,127,!4)P.N(20,117)Sub{r2[8"e1]}[8c1]c4
[16r1]
r-4EP.T(0,127,!4)P.N(20,117)[2Sub{r2[8"e1]}[8c1]c4]
[16r1]
r-4EP.T(0,127,!4)P.N(20,117)[3Sub{r2[8"e1]}[8c1]c4]
[8r1]
r-4EP.T(0,127,!4)P.N(20,117)Sub{r2[8"e1]}[8c1]c4
TR(16)
[6r1]
#FX1
[4r1]
[6r1]
#FX1
[2r1]
#FX1
[8r1]
[8r1]
[2r1]
#FX1
[4r1]
[6r1]
#FX1
[10r1]
#FX1
[8r1]
[2r1]
#FX1
[2r1]
#FX1
[2r1]
#FX1
//-------------------------------
~{ど}={n(36)}
~{で}={n(27),}
~{ち}={n(46),}
~{て}={n(54),}

~{つ}={n(42),}
~{ぱ}={n(49),}
~{さ}={v107n(57),}
~{た}={n(40),}
~{か}={n(56),}

~{ぽ}={n(56),}

Key(0)
//-------------------------------
TR(10)ArgOrder(lvqto)
#BD1={[3どっっっっどっっ]どっっっっ16ど16,-40っどっ}
#BD2={[3どっっっっどっっ]どっっっどどっっ}
#BD3={[3どっっっっどっっ]どっっっっどど16ど16ど16ど16}
REV(30)
[4#BD1]
REV(120)v60EP.W(0,127,!16)
[2
[3どーーーーどーー]どーーーー16ど16,-40ーどー
]
EP(127)REV(30)v127
#BD2 #BD3 [2 #BD2 : #BD1] #BD3
REV(80)
ど1
[21r1]
REV(30)EP.T(0,127,!1^1)
[16ど8]
[3#BD2 #BD1]
REV(80)
ど1
[5r1]
REV(30)EP.T(0,127,!1^1)
[16ど8]
REV(80)どっっっっREV(30)どっっ[2どっっっっどっっ]どっっっどどっっ
#BD1
REV(80)ど4REV(30)ど4ど4ど4
[3ど4ど4ど4ど4]
[2ど4ど4ど4ど4]
どっどっl16どっっどっっどっ
っどっっどっっどどっどっどっどっl8
#BD1 #BD2 #BD1 #BD3
TR(11)ArgOrder(lvqto)
MidiDelay({
[4
[4っっP(127)てっっっP(0)てっ]
]
[4
[4っっp%(-4064)P(127)てっっっp%(-8129)P(0)てっ]
]
},3,!8^16)
[16r1]
CHO(64)
MidiDelay({
[2
[4っっp%(-4064)P(127)てっっっp%(-8129)P(0)てっ]
]
},3,!8^16)
[40r1]
MidiDelay({
[2
[4っっp%(-4064)P(127)てっっっp%(-8129)P(0)てっ]
]
},3,!8^16)
[16r1]
MidiDelay({
[4
[4っっp%(-4064)P(127)てっっっp%(-8129)P(0)てっ]
]
},3,!8^16)
Str EC={EP(0)r16EP(127)r-16}

#SN={
[8r1]l16
っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC っった,65 
っっっったっった,65った,65 EC っったっっ
っっっったっ EC た,65た,80っった,65っった EC った,65た 

っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC っった,65
っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC った た,65
[8r1]
[3
っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC っった,65
]
っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っったたたた
[4
っっっったっった,65った,65 EC っったっっっ
った,65 EC っったっったった,65 EC っったっっっ
:
っっっったっった,65った,65 EC っったっった,65
った,65 EC っったっったった,65 EC っったったっ
]
っっっったっった,65った,65 EC っったたっっ
っっっったっ EC た,65っった,65っったた32,65た32たた
[24r1]
[2
っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC っった,65 
っっっったっった,65った,65 EC っったっっ
っっっったっ EC た,65た,80っった,65っった EC った,65た 

っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC っった,65
っっっったっった,65った,65 EC っったっっっ
:っっっったっ EC た,65っった,65っった EC った EC た,65
]
っっっったっ EC た,65っった,65った,80たたたた
[3
っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC っった,65
]
っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っったたたた
[8r1]
っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC っった,65 
っっっったっった,65った,65 EC っったっっ
っっっったっ EC た,65た,80っった,65っった EC った,65た 

っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC っった,65
っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC った EC た,65
[7
っっっったっっっっっっったっっっ
]
っっっったっ EC た,65っった,65っったたたた

っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC っった,65 
っっっったっった,65った,65 EC っったっっ
っっっったっ EC た,65た,80っった,65っった EC った,65た 

っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っった EC っった,65
っっっったっった,65った,65 EC っったっっっ
っっっったっ EC た,65っった,65っったたたた

}

TR(12)ArgOrder(lvqto)
#SN
TR(14)ArgOrder(lvqto)
#SN
TR(13)ArgOrder(lvqto)
[32r1]
[2
つっっつ,65つっっっちっっつっっつっ
つっっっつっっっちっつっつっつつ
つっっつ,65つっっっちっっつっっつっ
つっっっつっっっEP.W(127,127,!32,0,0,!32)ちーEP(127)つっREV(80)ちーーーREV(10)

つっっつ,65つっっっちっっつっっつっ
つっっっつっっっちっつっつっつつ
つっっつ,65つっっっちっっつっっつっ
つっつ,65っつっっっEP.W(127,127,!32,0,0,!32)ちーEP(127)つっp%(-1200)ちーーーp%(1200)
]
[2
Sub{[4ぽ4,105ぽ4,105ぽ4,105ぽ4,105]}
つっっつ,65つっっっちっっつっっつっ
つっっっつっっっちっつっつっつつ
つっっつ,65つっっっちっっつっっつっ
つっっっつっっっEP.W(127,127,!32,0,0,!32)ちーEP(127)つっREV(80)ちーーーREV(10)

つっっつ,65つっっっちっっつっっつっ
つっっっつっっっちっつっつっつつ
つっっつ,65つっっっちっっつっっつっ
つっつ,65っつっっっEP.W(127,127,!32,0,0,!32)ちーEP(127)つっREV(80)p%(-1200)ちーーーp%(1200)REV(10)
]
[24r1]
v.N(60,10,30,50,30,80,40,90,60,50,70,60,50,40,70,100)l16
[16つつつつつつつつ　つつちつつつちち]
l32 v80
[2
つっっつ,65つっっっちっっつっっつっ
つっっっつっっっちっつっつっつつ
つっっつ,65つっっっちっっつっっつっ
つっっっつっっっEP.W(127,127,!32,0,0,!32)ちーEP(127)つっREV(80)ちーーーREV(10)

つっっつ,65つっっっちっっつっっつっ
つっっっつっっっちっつっつっつつ
つっっつ,65つっっっちっっつっっつっ
つっつ,65っつっっっEP.W(127,127,!32,0,0,!32)ちーEP(127)つっp%(-1200)ちーーーp%(1200)
]
[8r1]
[2
Sub{[4ぽ4,105ぽ4,105ぽ4,105ぽ4,105]}
つっっつ,65つっっっちっっつっっつっ
つっっっつっっっちっつっつっつつ
つっっつ,65つっっっちっっつっっつっ
つっっっつっっっEP.W(127,127,!32,0,0,!32)ちーEP(127)つっREV(80)ちーーーREV(10)

つっっつ,65つっっっちっっつっっつっ
つっっっつっっっちっつっつっつつ
つっっつ,65つっっっちっっつっっつっ
つっつ,65っつっっっEP.W(127,127,!32,0,0,!32)ちーEP(127)つっp%(-1200)ちーーーp%(1200)
]
l16
[7つっちーつつちーっつちーつつちー]
v.N(60,10,30,50,30,80,40,90,60,50,70,60,50,40,70,100)
つつつつつつつつ　つつちつつつちち