/*
■☆紅 -Kurenai- ☆
　作成：さくらもどき

　:-------------------------------------------------------------------------------:
 :::				紅く、煌く、伝統と継承の色。				　	　 :::
　:-------------------------------------------------------------------------------:

詳細
【推奨環境】ヘッドホン
【推奨音源】MP3，TWM2
【無断転用】可
【　編曲　】可
【ジャンル】Japanese Spritual Trance

作成環境
【   OS   】WindoowsXP HomeEdition
【　音源　】TWM2、SoundFont
【出力環境】MDR-CD100	（ヘッドホン）
		RH-300	（ヘッドホン）
		HP-NC80	（ヘッドホン）
		UA-101		（オーディオI/O）
◆ＭＥＭＯ
 DLありがとうございます。
 明けましておめでとうございます、お久しぶりです。
 今年も宜しくお願いします。
 年末の時間の進み方が早すぎて怖いですねｗ

 相変わらずの和風トランスシリーズ（？）です。
 シンセ＋和風楽器という感じです。
 楽しんで聞いて頂ければーと。
 脈々と受け継がれる日本の伝統。
 そんな感じの何かをイメージしながら縦ノリで楽しんで頂ければーと思います。 
 
 
 TWMとMP3で、随分音色が違うので聞き比べてみると楽しいかもしれません。
 
*/



曲名{"☆紅 -Kurenai- ☆"}
作者{"SakuraModki"}
ResetGS
拍子4,4
テンポ(144)
調#()
Function L1(int){Result=(!1 * int)}	//数小節分の長さを返す
Function R1(int){[(int)r*1]}		//数小節分の休符
Function X(int){Sub{[(int)r-1]?}}	//数小節戻ってから再生(デバッグ用)

Str HerfCut={ Sub{EP=0 R1(8) EP=127 } }

Key=2

#TrackInit={r1r1}

Int Cnt=0;[16 Cnt++ TR=Cnt V=127]

//=============================================================================================
Str Hachi1={
r-2
EP.T(53,127,!4.127,50,!8)
p.T(32,64,!8)
e^g^
p.T(53,64,!4)
EP.T(53,127,!2.)
a^^^ ^^`e^
`d^^`c^^b^
b^^b24`c24b24	g^e^
EP.T(127,60,!2,60,127,!4)
a^^^ e^g^

a^^^	^^`c^
b^^`c ^^`d^
p.T(0,64,!4)
EP.T(30,127,!2)
`e^^^ ^^^^
^^^r e^g^

a^^^ ^^`e^
`d^^`c^^b^
b^^b24`c24b24	g^e^
a^^^ e^g^

EP.T(30,127,!4)
d^^^	^^`c^
b^^g	^^e^
a^^^	^^^^
^^rr	rrrr
}

Str Hachi2={
r-2 e.f+48f48f+48gr16g+48g48g+48

arra		rr`er
`drr`c	rrbr
grre		rrdr
erre 		rrgr

arra		rr`cr
brr`c rr`dr
`e^^^ ^^^^
^^^r d+24e24d+24eg^

a^^^ ^^`e^
`d^^`c^^b^
b^^b24`c24b24	g^e^
a^^^ e^g^

d^^^	^^`c^
b^^g	^^e^
a^^^	^^^^
^^rr	rrrr
}


TR=1 q100 @78 l8 o5 CHO=110 REV=40 v120 #TrackInit M.W(0,0,!8,0,40,!4.)
/* 1 */	Hachi1
/* 2 */	Hachi2
/* 3 */	Hachi1
/* 4 */	R1(16)

/* 5 */	Hachi1
/* 6 */	R1(16)
/* 7 */	Hachi1
r1
/* 8 */	Hachi1

TR=6 q100 @76 l8 o6 CHO=110 REV=40 v60 #TrackInit M.W(0,0,!8,0,40,!4.)
/* 1 */	Hachi1
/* 2 */	Hachi2
/* 3 */	Hachi1
/* 4 */	R1(16)

/* 5 */	Hachi1
/* 6 */	R1(16)
/* 7 */	Hachi1
r1
/* 8 */	Hachi1

//=============================================================================================
Str PAD={
[4
 ""f0"f0f0a0`e1
 ""g0"g0g0b0`d1
:""e0"e0g0`d0`g1
 ""a0"a0e0`d1
]
""a0"a0a0`d0`g1
""a0"a0a0`d0`e1
}

TR=2 q100 @51 l1 v80 #TrackInit
/* 1 */	PAD 
/* 2 */	PAD
/* 3 */	PAD
/* 4 */	PAD

/* 5 */	PAD
/* 6 */	PAD
/* 7 */	PAD
r1
/* 8 */	PAD

//=============================================================================================
/*
アッアッア！っていうヴォーカル
参考資料『Ordea』:void
*/

#Spliter={[EP=127 #?1  r*16EP=0r*.] EP=127 #?1  r*16EP=0r*16EP=127}
Str Vocal={
[4
v_.N(0,0,0,-30)
  #Spliter({"f0f0a0`e})
  #Spliter({"g0g0b0`d})
: #Spliter({"e0g0`d0`g})
v_.N(0,0,-30)
  #Spliter({"a0e0`d})
]
 #Spliter({"a0a0`d0`g})
 #Spliter({"a0a0`d0`e})
}


TR=3 q100 @53 o4 REV=40 CHO=60 l8 #TrackInit
/* 1 */	R1(16)
/* 2 */	Vocal
/* 3 */	R1(16)
/* 4 */	HerfCut;Vocal

/* 5 */	v-20;PAD;v+20
/* 6 */	R1(16)
/* 7 */	Vocal
r1
/* 8 */	v-20;PAD;v+20


//=============================================================================================
#Spliter_2={[ #?1 [v-30 #?2 v+30]] #?1 v-30 #?2 v+30 }

Str Violin_1={
[4
  #Spliter_2({"f0f0a0`e},{"f})
  #Spliter_2({"g0g0b0`d},{"g})
: #Spliter_2({"e0g0`d0`g},{"e})
  #Spliter_2({"a0e0`d},{"a})
]
#Spliter_2({"a0a0`d0`g},{"a})
#Spliter_2({"a0a0`d0`e},{"a})
}

TR=4 q30 @41 o5 l8 #TrackInit P=0
/* 1 */	R1(16)
/* 2 */	Violin_1
/* 3 */	R1(16)
/* 4 */	Violin_1

/* 5 */	R1(16)
/* 6 */	R1(16)
/* 7 */	Violin_1
r1


//=============================================================================================
Str Koto1 = "P=127"+Violin_1;
Str Koto2 = {
	Sub{ r-2 P=64 }
	Sub{ r-2 e^g^
		a^^^ ^^`e^
		`d^^`c^^b^
		b^^g	^^e^
		a^^^ e^g^
		
		a^^^	^^`c^
		b^^`c	 ^^`d^
		v-80 [16`e16 v+5]
		^^^r 	e^g^	
		
		a^^^ ^^`e^
		`d^^`c^^b^
		b^^b24`c24b24	g^e^
		a^^^ e^g^
		
		d^^^	^^`c^
		b^^g	^^e^
		""a0a1
	}
v-30
[4
 ""f0"f0f0a0`e1
 ""g0"g0g0b0`d1
:""e0"e0g0`d0`g1
 ""a0"a0e0`d1
]
v+30
 ega`c ga`c`d
 `e16`d16`c16a16	`d16`c16a16g16
 a16b16`c16`d16	`e16`g16`a16`b16

}

TR=5 q30 @108 o5 l8  P=127 v90 REV=60 #TrackInit
/* 1 */	Koto2
/* 2 */	Koto1
/* 3 */	R1(16)
/* 4 */	Koto1

/* 5 */	HerfCut;Koto2
/* 6 */	R1(16)
/* 7 */	Koto1
r1
/* 8 */	Koto2



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


//=============================================================================================
Str Hichiriki1={
[4
 ""a0"a0c0e1
 ""g0"g0"b-0d1
 ""g0"g0"b-0d1
 ""a0"a0c0e1
]
}

Str Hichiriki2={
[4
 ""a0"a0c0e1
 ""g0"g0"b-0d1
 r1
 r1
]
}

TR=7 q100 @111 o6 l8 v70 P=64 BR(4) EP.W(30,127,!4)p.W(40,64,!4) #TrackInit 
/* 1 */	R1(16)
/* 2 */	Hichiriki1
/* 3 */	R1(16)
/* 4 */	Hichiriki2

/* 5 */	R1(16)
/* 6 */	Hichiriki1
/* 7 */	Hichiriki1
r1
/* 8 */	R1(16)


//=============================================================================================
Str Synth1={
q100
Sub{>
[
	crrc rrcr	dcrd rdre
	drrd rrdr	gfre rcrc
	grrg rrgr	gbr	`crbre
:	grrb rr`cr	`d`er`c rbrg
]
	geg^ eb^e 	`f^e`e^e`c^
[
	crrc rrcr	dcrd rdre
	drrd rrdr	gfre rcrc
:	grrg rrgr	gbr	`crbre
	grrb rr`cr	`d`er`c rbrg
]
	erra rrar	a`cr`c rbre
	geg^ eb^e 	`f^e`e^e`c^

<}

q50
[4
r"f"fr	"f"fr"f	rr"fr	"fr"fr
r"g"gr	"g"gr"g	rr"gr	"gr"gr
:r"e"er	"e"er"e	rr"er	"er"er
r"a"ar	"a"ar"a	rr"ar	"ar"ar
]
[r"a"ar	"a"ar"a	rr"ar	"ar"ar]
}

Str Synth2={
q80
Sub{>
[
 argr  egca	  cerc    grar
 arcg  cerg	  c`er`e `dr`c^
 argr  egca	  cerc    grar
`cr`ca rrgr	  edre    ra^g+64g64f64e64

 argr  egca	  cerc    grar
 arcg  cerg	  c`er`e `dr`c^
:argr  egca	  cerc    grar
 acgr	 erga	 `e^c`d   ^c`c^
]
 erag	 arer	  `c^rb   ^rg^
 ega`c ga`c`d `f0`d^r`e0`c^r`c0a^
<}

q50
[4
r"f"fr	"f"fr"f	rr"fr	"fr"fr
r"g"gr	"g"gr"g	rr"gr	"gr"gr
:r"e"er	"e"er"e	rr"er	"er"er
r"a"ar	"a"ar"a	rr"ar	"ar"ar
]
[r"a"ar	"a"ar"a	rr"ar	"ar"ar]

}

TR=8 q100 @82,110,0 o4 l16 v90 p=68 P=0 #TrackInit 
/* 1 */	R1(16)
/* 2 */	EP.T(0,0,L1(4),0,127,L1(4)) Synth1
/* 3 */	Synth1
/* 4 */	Synth2

/* 5 */	EP.T(0,0,L1(4),0,127,L1(4)) Synth2
/* 6 */	Synth2
/* 7 */	Synth2

TR=13 q100 @82,110,0 o4 l16 v90 P=127 p=60 r96 #TrackInit 
/* 1 */	R1(16)
/* 2 */	EP.T(0,0,L1(4),0,127,L1(4)) Synth1
/* 3 */	Synth1
/* 4 */	Synth2

/* 5 */	EP.T(0,0,L1(4),0,127,L1(4)) Synth2
/* 6 */	Synth2
/* 7 */	Synth2









//=============================================================================================
Str PU = {p.T(64,43,!32,43,64,!32)}

Str Shamisen1={
[
PU;argr  egca 	PU;cerc    grar
PU;arcg  cerg	PU;c`er`e PU;`dr`c^
PU;argr  egca	PU;cerc   PU;grar
PU;`cr`ca rrgr	PU; edre    rPU;a^g+64g64f64e64

PU;argr  egca	PU;cerc    grar
PU;arcg  cerg	PU;c`er`e `dr`c^
PU:argr  egca	PU;cerc    grar
PU;acgr  erga	PU;e^c`d   ^c`c^
]
PU;erag	 arer	  PU;`c^rPU;b   ^rPU;g^
   ega`c ga`c`d PU;`f0`d^rPU;`e0`c^rPU;`c0a^
}

TR=9 q100 @107 o5 l16 v100 P=64 CHO=127 #TrackInit BR(6)
/* 1 */	R1(16)
/* 2 */	R1(16)
/* 3 */	R1(16)
/* 4 */	Shamisen1

/* 5 */	Shamisen1
/* 6 */	Shamisen1
/* 7 */	Shamisen1

//=============================================================================================
Str Bass1={
[4
 f"f"ff	"f"ff"f	f"f"f"f	f"ff"f
 g"g"gg	"g"gg"g	g"g"g"g	g"gg"g
:e"e"ee	"e"ee"e	e"e"e"e	e"ee"e
 a"a"aa	"a"aa"a	a"a"a"a	a"aa"a
]
 a"a"aa	"a"aa"a	a"a"a"a	a"aa"a
 a"a"aa	"a"aa"a	a"a"a"a	a"aa"a

}

TR=16 q70 @88 o3 l16 v120 P=64 #TrackInit 
/* 1 */	R1(16)
/* 2 */	EP.T(0,127,L1(4)) Bass1
/* 3 */	Bass1
/* 4 */	Bass1

/* 5 */	EP.T(0,0,L1(4),0,127,L1(4)) Bass1
/* 6 */	Bass1
/* 7 */	Bass1



//=============================================================================================
Str MainDrum={
	Sub{>>>[4 v90  ra+ ]<<<}
		 [4 v127 c4  ]
}

UseKeyShift=off 調-()
TR=10 o3 l8 q40 @27,90 #TrackInit CHO=100
/* 1 */
 R1(16)
/* 2 */
     Sub{v127 `c+}
     R1(8)
 v40 [48  c0d v+3]
     [24 c0d16 v+3] [EP=127 c0d0`c+16 EP=0 r ] EP=127 c0d0`c+16EP=0r16EP=127
/* 3 */
     [16 MainDrum]
/* 4 */
     [16 MainDrum]
     
/* 5 */
     R1(12)
 v40 [16  c0d v+3]
     [24 c0d16 v+3] [EP=127 c0d0`c+16 EP=0 r ] EP=127 c0d0`c+16EP=0r16EP=127

/* 6 */
     [16 MainDrum]

/* 7 */
     [16 MainDrum]

     
TR=11 o5 l8 q40 CHO=120 @117 v110
c1c4c4r2

/* 1 */ 
	v-30 "c1 v+30
	[5 r1]
	[4c1c4c4r2]
	c1 r-8[c16]c2c2r-8[c16]

/* 2 */
	R1(8) Sub{r-8[c16]c2}
	R1(8)
/* 3 */
	R1(8) Sub{r-4. v127 [3 a16]r16`c8}
	R1(8) Sub{r-4. v127 [3 a16]r16`c8}

/* 4 */
	R1(4) Sub{r-4. v127 [3 a16]r16`c8}
	R1(4) Sub{r-4. v127 [3 a16]r16`c8}
	R1(4) Sub{r-4. v127 [3 a16]r16`c8}
	R1(4) Sub{r-4. v127 [3 a16]r16`c8}

/* 5 */ 
	[4 c1c4c4r2]
	c1c1	 Sub{r-8 v127 [ e16]}
	[4 c2] Sub{r-8 v127 [ e16]}
	[ [ c2] Sub{r-8 v127 [ e16]} ]
	[6 c4 Sub{r-8 v127 [3 e16]}]
	c0e8. c0e8. c0e8

/* 6 */ 
	R1(8) Sub{r-4. v127 [3 a16]r16`c8}
	R1(8) Sub{r-4. v127 [3 a16]r16`c8}
	
/* 7 */ 
	R1(8) Sub{r-4. v127 [3 a16]r16`c8}
	R1(8) Sub{r-4. v127 [3 a16]r16`c8}
c1
/* 8 */ 
	R1(8) Sub{c2}
	R1(6)
	
	c4^16
	c4^32
	c4^32
	c4
	
	c4-16
	c4-16
	c4-16.
	c4-8
	c4-8-32
	c4-8.
	c4-8.
	c1-8
	c16c16
	c1
	
//=============================================================================================
TR=12 o3 REV=127 CHO=120 @=19 v127 V=127 BR(36)
	Sub{p.T(70,0,!1.)""c0"c1.}
#TrackInit

/* 1 */ 
	Sub{p.T(70,0,!1.)""c0"c1.}
	R1(16)

/* 2 */ 
	Sub{p.T(70,0,!1.)""c0"c1.}
	R1(8)
	Sub{p.T(70,0,!1.)""c0"c1.}
	R1(8)
	Sub{[r-1]p.T(70,0,!1.)""c0"c1.}

/* 3 */ 
	Sub{p.T(70,0,!1.)""c0"c1.}
	R1(16)

/* 4 */ 
	R1(16)


/* 5 */ 
	Sub{p.T(70,0,!1.)""c0"c1.}
	R1(16)

/* 6 */ 
	Sub{p.T(70,0,!1.)""c0"c1.}
	R1(16)
/* 7 */ 
	R1(16)

Sub{p.T(70,0,!1.)""c0"c1.}
r1

/* 8 */ 
	R1(16)