/*
■☆the End of Euphoric Epic☆
 作成:さくらもどき

少し音量高めで再生してくださいm(_ _)m

詳細
【推奨環境】ヘッドホン
【推奨音源】MP3,TWM2
【無断転用】MP3に限り不可 / MML,MIDIは可能
【 編曲 】可
【ジャンル】Epic Trance

作成環境
【   OS   】Windoows7 Professional
【 音源 】TWM2、SoundFont
【出力環境】RH-300	(ヘッドホン)
		HP-NC80	(ヘッドホン)
		UA-101	(オーディオI/O)
◆MEMO
お久しぶりです、さくらもどきです。
騎士王さん主催のコンピ用に楽曲を書かせていただきました。
ノリの良い曲を!ということでしたのでEpic Tranceを作ってみました。
泣き系のメロと幻想的な浮遊感を楽しんでいただければ嬉しいです。

音色にはProgressive Tranceなんかに使われるプラック系の音色を意識してみました。
プラック系の音色ってのはゲートの短い弾くような音のことです。

ブレイク以降はこのジャンルでは使い古された古典的な『キック+ハイ2つ』というリズムです。
全体を通してベースもそのリズムですね。([4"frff])

◆MML
MMLのドラムトラックとして10~13チャンネルを割り当てるという贅沢な使い方をしています。
特にハンドクラップとキックはそれぞれ1チャンネルずつ割り当ててあるのでぜひ注目して聞いてみてください。
同時発音数が許せばもう少し音を足せたのですが、そこら辺はMP3に頑張ってもらうことにしますw
音色は全体的にゲートが短めなのでドライ感が強くなり過ぎないようにリバーブを足したり
ディレイを足したりして、リリース後の空間を埋めるようにしてます。


◆MP3
騎士王さん主催のコンピレーションアルバムに収録予定です。
ミックスの方はより浮遊感を感じられるようにSEを追加したりパッドにフェーザをかけたりと
色々な工夫がされていますので、ぜひMP3でお楽しみください。
キックをかなり重めに作ってありますので、キックに合わせてリズムにノって楽しんでみてください
*/

曲名{"☆the End of Euphoric Epic☆"}
作者{"SakuraModki"}
ResetGS;
CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;
CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;
CH(13) SysEx$ = f0,41,10,42,12,{40,1c,15,02},f7;


Key=-4

拍子4,4
Tempo(140)
調#()
//--------------------------------------------------------------------
Str PD={r32 y64,0 r32 y64,127 r-16}
Str PF={r32 y64,0 r-32}
//--------------------------------------------------------------------
Function R1(int){[(int)r*1]}
Function L1(int){Result=int*!1}
//--------------------------------------------------------------------
Int Cnt=1
[16 TR=Cnt V=127 Cnt++ ;r1]
//--------------------------------------------------------------------

// 自作ディレイ

Function SakuraDelay( Str S , Int C , Int L ){
 Int Cnt=C
 [(C)
   Sub{v(127*(C-Cnt+1)/(C+1))  ; [(Cnt) r%(L)] ; S }
   Cnt--;
 ]
 v127 ; S
}
//--------------------------------------------------------------------



//--------------------------------------------------------------------
// PAD
//--------------------------------------------------------------------
#PAD={
/* Intro */
[8 ""f0"f0a0`c0`e1 ]

/* Phase 1 */
[8 ""f0"f0a0`c0`e1 ]

/* Phase 2 */
[
 [""f0"f0a0`c0`e1]
 [""e0"e0g0b0`d1]
 ""d0"d0g0a0`c1
 ""g0"g0g0`d0`f1
 ""c0"c0e0g0`e1
 ""c0"c0e0g0`c1
]

/* Phase 3 */
[
 [""f0"f0a0`c0`e1]
 [""e0"e0g0b0`d1]
 ""d0"d0g0a0`c1
 ""g0"g0g0`d0`f1
:""c0"c0e0g0`e1
 ""c0"c0e0g0`c1
]
[""g0"g0g0`d0`f1]


/* Break */
[
 [""f0"f0a0`c0`e1]
 [""e0"e0g0b0`d1]
 ""d0"d0g0a0`c1
 ""g0"g0g0`d0`f1
 ""c0"c0e0g0`c1
 ""c0"c0e0g0`c1
]

/* Main 1 */
[8 r1]

/* Main 2 */
[
 [""f0"f0a0`c0`e1]
 [""e0"e0g0b0`d1]
 ""d0"d0g0a0`c1
 ""g0"g0g0`d0`f1
 ""c0"c0e0g0`e1
 ""c0"c0e0g0`c1
]

/* Cool 1-2 */
[
 [""f0"f0a0`c0`e1]
 [""e0"e0g0b0`d1]
 ""d0"d0g0a0`c1
 ""g0"g0g0`d0`f1
 ""c0"c0e0g0`e1
 ""c0"c0e0g0`c1
]

/* last */
[8 [""f0"f0a0`c0`e1]]
}

TR=1 q100 @82,90,1 o5 v80 REV=127 CHO=80 P.W(40,88,!2,88,40,!2)
#PAD
TR=15 q100 @51 o5 v70 REV=127 CHO=80 P.W(88,40,!2,40,88,!2)
#PAD


//========================================================================





//--------------------------------------------------------------------
// BASS
//--------------------------------------------------------------------
TR=2 q70 @39 o4 l16 v127 CHO=127 
/* Intro */
[8 [4 "frff ] ]

/* Phase 1 */
[8 [4 "frff ] ]

/* Phase 2 */
[
 [4 "frff ][4 "frff ]
 [4 "eree ][4 "eree ]
 [4 "drdd ][4 "grgg ]>
 [4 "crcc ][4 "crcc ]<
]

/* Phase 3 */
[
 [4 "frff ][4 "frff ]
 [4 "eree ][4 "eree ]
 [4 "drdd ][4 "grgg ] : >
 [4 "crcc ][4 "crcc ]<
]
 [4 "grgg ][4 "grgg ]

/* Break */
[8 r1]
[8 r1]

/* Main 1-2 */
[3
 [4 "frff ][4 "frff ]
 [4 "eree ][4 "eree ]
 [4 "drdd ][4 "grgg ]>
 [4 "crcc ][4 "crcc ]<
]

/* Cool 1-2 */
[
 [4 "frff ][4 "frff ]
 [4 "eree ][4 "eree ]
 [4 "drdd ][4 "grgg ]>
 [4 "crcc ][4 "crcc ]<
]

/* last */
[16 [4 "frff ] ]


//========================================================================





//--------------------------------------------------------------------
// Pluck
//--------------------------------------------------------------------
TR=3 q50 @82,110,0 o6 l16 v127
Str Pluck1={
	rrrr | `crgr | rrrr | rrrr
	r1
}

Str Pluck2={
	rrrr | `crgr | rgrc | rr"br
	crgr | r"bcr |`crb`c| rb`cr
	
	rrrr | `crgr | rgrc | rr"br
	crgr | r"bcr |`crb`c| rb`cr
	
	rrrr | `crgr | rgrc | rr"br
	crgr | r"bcr |`cr`d`e| r`d`cr
	
	rr`dr| `crgr | r`crb | rrgr
	brgr |  rb`cr|`f8.`e8.`c8
}


/* Intro */
[4 SakuraDelay( Pluck1 , 7 , !8. ) ]

/* Phase 1 */
[4 SakuraDelay( Pluck1 , 7 , !8. ) ]

/* Phase 2 */
[ SakuraDelay( Pluck2 , 7 , !8. ) ]

/* Phase 3 */
[8 r1][8 r1]


/* Break */
[8 r1]
[8 r1]

/* Main 1-2 */
[8 r1]
[8 r1]
[8 r1]

/* Cool 1-2 */
[ SakuraDelay( Pluck2 , 7 , !8. ) ]

/* last */
[8 r1]
[4 SakuraDelay( Pluck1 , 5 , !8. ) ]

/* finalize */
[4 SakuraDelay( Pluck1 , 5 , !8. ) ]


//========================================================================

//--------------------------------------------------------------------
// Pico
//--------------------------------------------------------------------
TR=4 q40 @81 o6 l16 v127
Str Pico1={
	rg`cr | rrrr | rrrr | rrrr
	r1
}

/* Intro */
[4 SakuraDelay( Pico1 , 5 , !8. ) ]

/* Phase 1 */
[4 SakuraDelay( Pico1 , 5 , !8. ) ]

/* Phase 2 */
[16 r1]

/* Phase 3 */
[16 r1]

/* Break */
[8 r1]
[8 r1]

/* Main */
[8 r1]
[8 r1]

/* Cool */
[8 r1]
[8 r1]

/* last */
[8 r1]
[4 SakuraDelay( Pico1 , 5 , !8. ) ]

/* finalize */
[4 SakuraDelay( Pico1 , 5 , !8. ) ]

//========================================================================


//--------------------------------------------------------------------
// Gunshot
//--------------------------------------------------------------------
TR=5 q40 @128,4 o8 l8 v127 CHO=0 REV=70
/* Intro */
[4 "f`cbg rfrd]
[4 "f`cbg]
[4 "f`c16b16]
[8 `c16b16]



//--------------------------------------------------------------------
// Pluck3
//--------------------------------------------------------------------
TR=6 q40 @88 o6 l16 v100 CHO=0
/* Intro */
[8 r1]

/* Phase 1 */
[8 c"fc"f cfcr c"fc"f "fcc"f] 

/* Phase 2 */
[
 [c"fc"f   cfcr     c"fc"f   "fcc"f ] 
 ["b"ec"e  "e"bc"e  "b"ec"e  "bcc"e ]
  "a"dc"a  "dec"d   "a"dcd   "dec"d
  "b"gc"g  "bec"g   "b"gd"g  "bcd"g
  
  c"ce"g   "cde"c   "g"ce"c  "bce"c
  c"cf"g   cdf"g    "c"cg"c  "bcg"c
]

/* Phase 3 */
[
 [c"fc"f   cfcr     c"fc"f   "fcc"f ] 
 ["b"ec"e  "e"bc"e  "b"ec"e  "bcc"e ]
  "a"dc"a  "dec"d   "a"dcd   "dec"d
  "b"gc"g  "bec"g   "b"gd"g  "bcd"g
  
  c"ce"g   "cde"c   "g"ce"c  "bce"c
  c"cf"g   cdf"g    "c"cg"c  "bcg"c
]

/* Break */
[
  c"fa"f    cfa"f   c"fa"f    "fca"f
  c"fa"f    cfa"f   c"fg"f    "bcg"f

  "b"eg"e  "beg"e   c"eg"e    "bcg"e
  "b"ea"e  "bea"e   c"ef"e    "bcf"e

  "a"df"d  "def"d  "a"df"d    "def"d
  "b"gf"g  "bef"g  "b"gd"g    "bcd"g

   c"ce"g  "cde"c  "g"ce"c    "bce"c
   c"ce"g  "cde"c  "g"cg"c    "bcg"c
]

/* Main 1-2 */
[8 r1]
[
  c"fa"f    cfa"f   c"fa"f    "fca"f
  c"fa"f    cfa"f   c"fg"f    "bcg"f

  "b"eg"e  "beg"e   c"eg"e    "bcg"e
  "b"ea"e  "bea"e   c"ef"e    "bcf"e

  "a"df"d  "def"d  "a"df"d    "def"d
  "b"gf"g  "bef"g  "b"gd"g    "bcd"g

   c"ce"g  "cde"c  "g"ce"c    "bce"c
   c"ce"g  "cde"c  "g"cg"c    "bcg"c
]

/* cool 1-2 */
[
  c"fa"f    cfa"f   c"fa"f    "fca"f
  c"fa"f    cfa"f   c"fg"f    "bcg"f

  "b"eg"e  "beg"e   c"eg"e    "bcg"e
  "b"ea"e  "bea"e   c"ef"e    "bcf"e

  "a"df"d  "def"d  "a"df"d    "def"d
  "b"gf"g  "bef"g  "b"gd"g    "bcd"g

   c"ce"g  "cde"c  "g"ce"c    "bce"c
   c"ce"g  "cde"c  "g"cg"c    "bcg"c
]

/* last */
[8
  c"fa"f    cfa"f   c"fa"f    "fca"f
  c"fa"f    cfa"f   c"fg"f    "bcg"f
]


//========================================================================

//--------------------------------------------------------------------
// Main Pluck
//--------------------------------------------------------------------
TR=7 q60 @88 o6 l16 v127 CHO=128 REV=127
/* Intro */
[8 r1]

/* Phase 1 */
[8 r1]
/* Phase 2 */
[8 r1][8 r1]

/* Phase 3 */
[
 [8 rrgr `cbrg ]
 [rrgr b`crg][rrgr b`drg]
:[4 rrgr `f`er`c]
][4rrgr b`drg]

/* Break */
[8 r1]
[8 r1]

/* Main 1-2 */
[8 r1]
[
 [rrgr `cbrg r1 rrgr rrrr]
 rrgr b`crg r2
 rrgr b`drg r2
 [4 rrgr `f`er`c]
]

/* Cool 1-2 */
[
 [rrgr `cbrg r1 rrgr rrrr]
 rrgr b`crg r2
 rrgr b`drg r2
 [4 rrgr `f`er`c]
]

/* last */
[
 [16 rrgr `cbrg ]
]

//========================================================================

//--------------------------------------------------------------------
// Main Synth
//--------------------------------------------------------------------
TR=8 q60 @82 o5 l16 v127 CHO=128 REV=127
Str MainSynth={
 Sub{q140
   [8 "frrr]
   [8 "errr]
   [4 "drrr][4 "grrr]
   [8 "crrr]
 }
 [6 rr q100 a q110 a]
 [6 rr q100 g q110 g]
 [2 rr q100 a q110 a]
 [8 rr q100 f q110 f]
 [2 rr q100 d q110 d]
 [4 rr q100 e q110 e]
 [2 rr q100 f q110 f]
 [2 rr q100 g q110 g]
}
/* Intro */
[8 r1]

/* Phase 1 */
[8 r1]
/* Phase 2 */
[8 r1][8 r1]

/* Phase 3 */
[8 r1][8 r1]

/* Break */
q_=-95
EP.T(40,127,!1*8)
MainSynth

q_.T(-90,0,!1*8)
MainSynth

/* Main 1-2 */
q_=0;EP=127
[3 MainSynth]

//========================================================================
TR=9 q60 @82,110,0 o6 l16 v127 CHO=128
/* Intro */
[8 r1]

/* Phase 1 */
[8 r1]
/* Phase 2 */
[8 r1][8 r1]

/* Phase 3 */
[8 r1][8 r1]

/* Break */
[8 r1][8 r1]

/* Main 1-2 */
[3 MainSynth]



//=Drum and FX============================================================================================
UseKeyShift=off;調#();
Str Drum1={
//	Sub{v127 [4 g+ g+ f+ r ]}
	Sub{v127 [4 ``a+``a+ f+  r ]}
	Sub{v100 [4 ``ag+r``a ]}
	v127 r4d+4r4d+4
}

Str Drum2={
//	Sub{v127 [4 f+ f+ ``a+ r ]}
	Sub{v127 [4 ``a+``a+ f+  r ]}
//	Sub{v100 [4 ``ag+r``a ]}
	Sub{v127 [4 rra+r ]}
	v127 r4d+4r4d+4
}


TR=10 o3 q100 l16 v127 BR(24) @27,90,0 V=127 CHO=127 REV=0
/* Intro */
[4 Drum1 ]
[4 Drum1 ]


/* Phase 1 */
[8  Drum1]

/* Phase 2 */
[ [8  Drum1] ]

/* Phase 3 */
[ [8  Drum1] ]

/* Break */
[8 r1]
[8 r1]


/* Main 1-2 */
[3 [8 Drum2] ]

/* cool 1-2 */
[ [8 Drum1] ]

/* last */
[ [8 Drum1] ]

/* finalize */
[1 [8 Drum1] ]


//========================================================================
TR=11 o3 q100 l8 v127 @1 CHO=127 REV=0 BR(24)
/* Intro */
[4 r1]
P.T(64,0,!1^1,0,127,!1,127,64,!1)
[3 [7e][e16] ][8 e16]p.T(64,127,!2)[16 e32]
p64 P=64


/* Phase 1 */
v127 [6 [4 r4] ]

P.T(64,0,!1^1,0,127,!1,127,64,!1)
[1 [7e][e16] ][8 e16]p.T(64,127,!2)[16 e32]
p64 P=64


/* Phase 2 */
Sub{v127 REV=127 d+2 REV=0 }
v127 [14 [4 r4] ]

P.T(64,0,!1^1,0,127,!1,127,64,!1)
[1 [7e][e16] ][8 e16]p.T(64,127,!2)[16 e32]
p64 P=64

/* Phase 3 */
Sub{v127 REV=127 d+2 REV=0 }
v127 [14 [4 r4] ]

P.T(64,0,!1^1,0,127,!1,127,64,!1)
[1 [7e][e16] ][8 e16]p.T(64,127,!2)[16 e32]
p64 P=64

/* Break */
Sub{v127 `c+0a+}
[8 r1 ]
[4 r1 ]
P.T(64,0,!1^1,0,127,!1,127,64,!1)
[3 [7e][e16] ][8 e16]p.T(64,127,!2)[16 e32]
p64 P=64

/* Main 1-2 */
Sub{v127 `c+0a+}
[7  r1 ]v127 
l16 d0a+rd0f+rd0a+ e0f+re0f+ re0f+ [8 d0f+32][4 e0a+32] l8
[8  r1 ]v127 
[4  r1 ]
P.T(64,0,!1^1,0,127,!1,127,64,!1)
[3 [7e][e16] ][8 e16]p.T(64,127,!2)[16 e32]
p64 P=64

/* cool 1-2 */
Sub{v127 `c+0a+}
[8  r1 ]v127 
[4  r1 ]
P.T(64,0,!1^1,0,127,!1,127,64,!1)
[3 [7e][e16] ][8 e16]p.T(64,127,!2)[16 e32]
p64 P=64

/* last */
Sub{v127 `c+0a+}
[8  r1 ]v127 
Sub{v127 `c+0a+}
[6  r1 ]v127 
P.T(64,0,!1^1,0,127,!1,127,64,!1)
[1 [7e][e16] ][8 e16]p.T(64,127,!2)[16 e32]
p64 P=64

/* finalize */
Sub{v127 `c+0a+}


//========================================================================
TR=12 o3 q100 l16 v127 BR(24) @27,90,0 V=127 CHO=127 REV=127
/* Intro */
[4 v127 r4d+4r4d+4 ]

[4 v127 r4d+4r4d+4 ]


/* Phase 1 */
Sub{v127 `c+0a+}
[8 v127 r4d+4r4d+4 ]



/* Phase 2 */
Sub{v127 `c+0a+}
[ [8 v127 r4d+4r4d+4 ] ]

/* Phase 3 */
Sub{v127 `c+0a+}
[ [8 v127 r4d+4r4d+4 ] ]

/* Break */
Sub{v127 `c+0a+}
[8 r1 ]
Sub{v127 `c+0a+}
[8 v127 [r4d+4] ]

/* Main 1-2 */
Sub{v127 `c+0a+}
[8
	Sub{v127 [4 rra+g+ ] }
	v127 r4d+4r4d+4
]

Sub{v127 `c+0a+}
[
 [8
	Sub{v127 [4 rra+g+ ] }
	v127 r4d+4r4d+4
 ]
]


/* cool 1-2 */
Sub{v127 `c+0a+}
[
 [8
	v127 r4d+4r4d+4
 ]
]

/* last */
Sub{v127 `c+0a+}
[
 [8
	v127 r4d+4r4d+4
 ]
]

/* finalize */
Sub{v127 `c+0a+}
[8
	v127 r4d+4r4d+4
]



//========================================================================
TR=13 o3 q100 l16 v127 BR(24) @12,7 V=127 CHO=127 REV=0 p90
/* Intro */
[4 r1 ]
[crcr crcr ccrc crcr ]
[4crcc][16c]

/* Phase 1 */p90
[7 [4 c4] ]
c4c8c8c16c8.c8c16c16



/* Phase 2 */p90
[7 [4 c4] ] c4c8c8c16c8.c8c16c16 
[8 [4 c4] ]

/* Phase 3 */
[7 [4 c4] ] c4c8c8c16c8.c8c16c16 
[7 [4 c4] ] c4c8c8c16c8.c8c16c16 

/* Break */p90
[8 r1]
[4 r1]
[crcr crcr ccrc crcr ]
[4crcc][16c]

Sub{r-1 d0a+rd0f+rd0a+ e0f+re0f+ re0f+ [8 d0f+32][4 e0a+32] }


/* Main 1 */p90
[7 [4 c4] ] d0a+rd0f+rd0a+ e0f+re0f+ re0f+ [8 d0f+32][4 e0a+32] 
[7 [4 c4] ] c4c8c8c16c8.c8c16c16 
[6 [4 c4] ] r1 d0a+rd0f+rd0a+ e0f+re0f+ re0f+ [8 d0f+32][4 e0a+32] 

/* cool  */p90
[7 [4 c4] ] c4c8c8c16c8.c8c16c16 
[7 [4 c4] ] c4c8c8c16c8.c8c16c16 

/* last  */p90
[7 [4 c4] ] c4c8c8c16c8.c8c16c16 
[7 [4 c4] ] d0a+rd0f+rd0a+ e0f+re0f+ re0f+ [8 d0f+32][4 e0a+32] 

/* finalize  */p90
[8 [4 c4] ]

//--------------------------------------------------------------------
// RevCyn.
//--------------------------------------------------------------------
TR=16 r-1 q400 @123,1 o7 l2 v127 CHO=127 BR(36) r1
/* Intro */
Sub{ r-1 p.T(0,127,!1,127,0,!2) EP.T(0,127,!1,127,0,!1.) <<[cg>] }
[8 r1]

/* Phase 1 */ 
Sub{ r-1 p.T(0,127,!1,127,0,!2) EP.T(0,127,!1,127,0,!1.) <<[cg>] }
[8 r1]

//Sub{ r-1 p.T(0,127,!1,127,0,!2) EP.T(0,127) <<[cg>] }
Sub{ r-1 p.T(0,127,!1,127,0,!2) EP.T(0,127,!1,127,0,!1.) <<[cg>] }

/* Phase 2 */ 
[16 r1]

/* Phase 3 */ 
[16 r1]
Sub{ r-1  p.T(0,127,!1,127,0,!2) EP.T(0,127,!1,127,0,!1.) <<[3`c0"c4 `g0"g4>]< }

/*Break */ 
[16 r1]
Sub{ r-1  p.T(0,127,!1,127,0,!2) EP.T(0,127,!1,127,0,!1.) <<[3`c0"c4 `g0"g4>]< }

/*Main */ 
[24 r1]

/* Cool */ 
[16 r1]
Sub{ r-1  p.T(0,127,!1,127,0,!2) EP.T(0,127,!1,127,0,!1.) <<[3`c0"c4 `g0"g4>]< }

/* last */ 
[16 r1]
Sub{ r-1  p.T(0,127,!1,127,0,!2) EP.T(0,127,!1,127,0,!1.) <<[3`c0"c4 `g0"g4>]< }


/* finalize */ 
[8 r1]
Sub{ r-1  p.T(0,127,!1,127,0,!2) EP.T(0,127,!1,127,0,!1.) <<[3`c0"c4 `g0"g4>]< }