MetaText  ={"                                                  '2分 11秒'"} 
TrackName ={"Flower Angel -SlowTempo Remix- 歌詞リニューアル"}
Copyright ={"作詞作曲: 柚姫瑞佳  編曲: 庚申works"}

 Int Lyric_select = 0 // [0,1] / 歌詞の切り替えスイッチです。[1]で初回アップ時の歌詞へもどります。



 
/*	概要 

	メロディの順番を一部、入れ換えています、
	原曲のキーはDですが、キーをC#へ変更しています。

	オリジナル曲
	http://oto.chu.jp/mmlbbs6/post.php-mml_id=1189

	いろいろ変更しすぎるあまり、原曲の雰囲気がなくなってしまったかもしれません、、


	できればこの続きを考えたかったのですが、手詰まり感が出てきたので、
	一応ひと区切りとしてアップします。

	許可を頂きました柚姫瑞佳様には、感謝しています、
	これで無事、アレンジ曲として、日の目を見ることができました。


	TW-Music2, XP& MSGS でのみ確認、
	上モノが薄いので、MSGSだといまひとつだと思います。

	構造化エディタに対応しています。
	[ 構造化エディタでの注意、MSのセキュリティパッチの影響で、
	MDI版だとXPではエラーが出ています、SDI版であれば通るようです。]

*/

 
/*	アレンジの説明 

	当初、原曲のメロディと伴奏を解析しました。
	移調するとEM7を除き、白鍵だけで演奏できることがわかり、
	ダイアトニックを使うのが容易になるため、アレンジの可能性が開けました。

	メロディはメジャースケールと解析したのですが、伴奏には一部、マイナーダイアトニック理論を使用しております。


Intro.
	| G7  | FM7   | Em7 | Dm7
	| VII | VI    | V   | IV

	| G7  | Bm7b5 | Em7 | FM7
	| VII | II    | V   | VI

	ピコピコ風アレンジは、メロはそのままで伴奏側のコードを、マイナーダイアトニックへ変更しています。

	この手のチップチューンは、M (モジュレーション)の使い方がポイントのようで、
	-= Night Flyer =- For GM Level1 / Mizinco様のコナミＬＦＯを参考にしています。

PartA
	| CM9/B  | G9/B   | Am9    | FM9/A
	| [T]    | [D]    | [T]    | [SD]

 	| CM9/B	 | G9/B   |EM9/Ab  | Fm9/A
	| [T]    | [D]	  |        | [SD]

	| CM9/B  | G9/B   | Am9    | FM9/A

	| CM9/B  | G9/B   | Em9/G  | FM9/A

	ブラスはディレイ音がオクターブで上がっていく、スライドディレイをかけています。

PartB
	| C/E    | G/B    | Am/C   | F/A

 	| C/E    | G/B    | EM7/Ab | F/A

	パーカッションのグループ感が、意外と難しい、
	3拍子や6連のドラムロールなど駆使しています。

PartC
	| CM      | G7            | Am     | FM

	| CM      | AmM7 omit5 G7 | EM     | FM

	ストリングスも実は一か所だけ、Am7 -> AmM7とハーモニックマイナーへ変更しています。
	こうすると哀愁を帯びるんですね、
	実はEM7という非ダイアトニックコードに対して、g# という共通音を利用した苦肉の策というのは内緒です。

*/

 
/*	理論補足 

	http://wp.me/p4c0zJ-4

	マイナーダイアトニックとマイナー旋律についての補足を、書き記しました。
	よかったら、こちらのサイトを見てやって下さい、、

*/

 
/*	履歴 

	'13 8 15	元ファイルの分析開始
	    8 19	PartA,PartB 仮完成

	    11 8	続きを始める
	    11 15	基本バックトラック完成
	    11 16	r96,r-96でメロにプレスを加える

	    11 25	マイナーダイアトニックでのイントロを構想
	    12 16	PartC 低音部のStringsを分割
	    12 19	チップチューン風イントロの仮完成
	    12 20	Part Bをパーカッションへ変更

	    12 21	[r192]でブラスのタイミング調整
			ベース音列の[",`]オクターブを修正
			パーカスを実際でも叩けるように修正
	    12 22	コメントを書き込む
	    12 25	アップロード

*/

 
Int EFX=on		//エフェクトスイッチ 
Int ECHO;
Array VOL;		//v100の数値をエコーへ送る


 
Function DLY2(Str TT,Int Vel){ // ChordSlideUpDelay 
 Int VV=Vel;
 TT=	"
	Sub{> r48v" +(VV/2 )+TT+ " <}
	Sub{>>r24v" +(VV/4 )+TT+ "<<}
	          v" + VV   +TT;
 Result= TT;
} //func
	
Function CHD(Str TS,Str TT){ 
 TT.s({x},TS)
 If(ECHO==1){ TT= DLY2(TT,VOL(TR)) }
 TT;
} //func
  
Function DLY(Str TT,Int Vel){ // UnisonTapDelay 
 Int VV=Vel;
 TT=	"
//	  Sub{<r24 v"+(VV/3) +TT+ ">}
	  Sub{ r16 v"+(VV/3) +TT+ " }
//	  Sub{<r12 v"+(VV/6) +TT+ ">}
	  Sub{ r8  v"+(VV/6) +TT+ " }
//	  Sub{>    v" +VV    +TT+ "<}
	           v" +VV    +TT;
 Result= TT;
} //func
	
Function MLD(Str TT,Int NN){ 
   If(ECHO==1){ TT= DLY(TT,VOL(TR)) }
 TT;
} //func
  
Function HMY(Str TT,Int Vel){ // BassUnisonDelay 
 Int VV=Vel;
 TT=	"
	  Sub{<r32v" +(VV/6)+TT+ ">}
	  Sub{<   v" +(VV/3)+TT+ ">}
	          v" + VV   +TT;
 Result= TT;
} //func
	
Function BAS(Str TT,Int NN){ 
 If(ECHO==1){ TT= HMY(TT,VOL(TR)) }
 TT; //Print(TT)
} //func
  
Function GATE(Str TT,Int Vel){ // :.:な感じでGateDelay 
 Int VV=Vel;
 TT=	"Sub{r16 v" +(VV/3)+TT+ "}
	 Sub{r8  v" +(VV/6)+TT+ "}
	         v" + VV   +TT;
 Result= TT;
} //func
	
Function BD(Str TT,Int NN){ 
 TT.s({x},{t0 n(35),})		// n35,36
 If(ECHO==1){ TT= GATE(TT,121) }
 TT;
} //func

Function SN(Str TT,Int NN){
 TT.s({x},{t2 n(40),})	// n38,40 Snare
 TT.s({X},{t2 n(37),})	// Rim

 TT.s({l},{t2 n(41),})	// n41,43 LowTom
 TT.s({m},{t2 n(45),})	// n45,47 MidTom
 TT.s({h},{t2 n(48),})	// n48,50 HighTom

 If(ECHO==1){ TT= GATE(TT,127) }
 TT;
} //func

Function HH(Str TT,Int NN){
 TT.s({X},{t-1 n(42),})	//closeHH
 TT.s({x},{t0  n(44),})	//PedalHH
 TT.s({z},{t-2 n(46),})	//openHH
 If(ECHO==1){ TT= GATE(TT,111) }
 TT;
} //func

Function TM(Str TT,Int NN){
 TT.s({x},{t4 n(54),})	//タンバリン o4 f# n43 n54
 If(ECHO==1){ TT= GATE(TT,114) }
 TT;
} //func

Function PC(Str TT,Int NN){
 TT.s({x},{t2 n(66),})
 If(ECHO==1){ TT= GATE(TT,126) }
 TT;
} //func
  
Function Kirakira(){ 

 Str MM={ "c"f c"g `cf c`f "cf  c"g `cf `c`f c`f "cg } // fがR 5度積み
 Panpot.Frequency=6 //段階パン

 EP.T(111,11,!1+2+8+16 ) //音量変化
 Int I=0;
 [
  o(10-I*2) I++;
  Panpot.T(15,112,!8+10, 112,15,!8+10 ) //oct.Chg
  Sub{r12 MM; } Sub{r8 MM; } MM; //Dly
 ]
}
 
Include(gs.h) 
	ResetGS()r4
	CH=10  GS_RHYTHM(1)r8
	CH=11  GS_RHYTHM(1)r8

	SysEx$ = F0,41,10,42,12,{40,00,00,00,04,09,0D},F7;r48	//MASTER TUNE 444Hz auto chksum

TimeBase=120 Tempo=88

Time=(!1) TrackSync

 For(Int i=1; i<=16; i++){
  If(i!=10&i!=11){ TR=i TrackKey=-1 } // Key: C#
 } //
 
 // Intro. - - - - - - - - - - - - - - - - - - - - 

	// チップチューン風、ぴこぴこ

	 
#TR1  ={ TR=1  @81,1 Key=0 o4 VOL(TR)=121 v(VOL(TR)) q100 REV=21	} 
#TR2  ={ TR=2  @6,16 Key=0 o4 VOL(TR)=124 v(VOL(TR)) q98  P=40 REV=44	}
#TR3  ={ TR=3  @81,8 Key=0 o4 VOL(TR)=117 v(VOL(TR)) q100 P=88 REV=33	}
#TR5  ={ TR=5  @88,0 Key=0 o4 VOL(TR)=88 v(VOL(TR)) q100 REV=33	}
#TR9  ={ TR=9  @81,1 Key=0 l30 VOL(TR)=111 v(VOL(TR)) q91 REV=44 }
#TR10 ={ TR=10 @26   Key=-1 l8 o3 v.Random=10 REV=66 }
 
 // 倍テンポのボッサリズム 
#TR10 @9 l16  Key=0 p%.W(0,-4600,!32)
[7
[8 f#,,88 f#,,111] [16 r-]
c#rc#r rc#rr c#rrc#rrc#r [16 r-]
crrccrrc crrccrcc
]

[8 f#,,88 f#,,111] [16 r-]
c#rc#r c#24c#24c#24rr c#rc#c#rrc#r [16 r-]
ccrccrrc crrccrrc

// ArgOrder(lqvto) : v100 c4,,+27 c4,,-80 -> v127 c4 v20 c4
 
 // 最後と最初のメロ 
#TR1 l8 o7 Key=2 M.W(0,66,!4) EP.T(0,127,(!1*2))

 If(Lyric_select == 1){
	Lyric={"花は 咲き乱れ 大地を 美しく彩る"}
 }Else{
	Lyric={"小さな命は 大地を美しく彩る"}
 }
	ed^^e^c^ r-96 gg^fd^^^ r96 e"b^"b^cd"b r-96 f c^c^^^ g


 If(Lyric_select == 1){
	Lyric={"Flower angel キラキララ 輝いて 飛び交う"}
 }Else{
	Lyric={"Flower angel キラキラと 輝いた 雪化粧"}
 }
	gc r96 "bc^^^ c
	r-96 c "b^ r96 "b^^^ "b
	r-96 l16<a>cede4  r96 <a>ceag^eg
	a^^rrr r-96 g r r96 a^^^ | ^^^^ ^^


 
 // マイナーダイアトニック 
#TR2 l4 o5 Key=2 v123 EP.T(0,127,(!1*2))

['"g"bd':rr] // VII
['"f"ac':rr] // VI
['"e"g"b':rr] // V
['"d"f"a':rr] // IV

['"g"bd':rr] // VII
['"bdf':rr] // II
['"e"g"b':rr] // V
['"f"ac':^r] // VI


//	|'a`c`e'  '"bdf' | 'ceg'    'dfa'    | 'egb'  'fa`c'   |'gb`d'
//	| Am7     Bm7b5  |  CM7      Dm7     |  Em7    FM7     | G7	Key:A
//	  Tm	  SDm	     Tm      SDm        Dm     SDm       SDm
 
 // 前半分散コード、後半ボッサベースの組合せ 
#TR3 o5 Key=(2+12) M.onNoteSine(0,11,66,!4,1) EP.T(0,127,(!1*2))

	l16 "g`gd`dg`g^^  <<v-20 l8 `d^^ g>> v+20
	l16 ""f"f"aa"ffrr <<v-20 l8 `c^^ f>> v+20
	l16 "e`eb`be`e^^  <<v-20 l8 b^^ e>> v+20
	l16 "aa"dd^^rr    <<v-20 l8 a^^ d>> v+20

	l16 "ggd`dg`g^^   <<v-20 l8 `d^^ g>> v+20
	l16 ""f"f"aa"ffrr <<v-20 l8 `f^^ b>> v+20
	l16 "eeb`be`e^^   <<v-20 l8 b^^ e>> v+20
	l16 "aa"dd^^rr    <<v-20 l8 `c^^ f>> v+20

	Lyric={"ブレイク"}
	l16 [c^^ g g^^ c]
	BR=24 Slur(0,-(!24)) l32 cdef defgab`c^^^8 &"c16[r:rrc32]rc32

Int CapTime=Time;

 
 // ぴょんぴょん 
#TR5 @88,0 q166 M.W(33,11,!4) EP.W(111,99,!4) p%.W(8191,0,!8) p%.Frequency=3 Slur(0,-(!64)) BR=24
l4 o5 q100
Time=Time+(!1*7)
r2 f8,300``a8,200`c8,100
 
 // きらきら 
#TR9	[4 r1] r2 r64  Key=-8 Kirakira();



  
 // Main - - - - - - - - - - - - - - - - - - - - 



	 
#TR1o ={ TR=1 Key=0 l8 VOL(TR)=126 v(VOL(TR)) v.Random=10  q88  q.Random=66 } 
#TR1  =#TR1o+ { @109,0 o7 }
#TR1A =#TR1o+ { @99,1  o6 }
#TR1B =#TR1o+ { @17,16 o7 }

#TR3  ={ TR=3 @63,0  o5 Key=2 l4  VOL(TR)=116 v(VOL(TR)) v.Random=8  q44  q.Random=20 }
#TR3A ={ TR=3 @115,0 o6 Key=2 l4  VOL(TR)=121 v(VOL(TR)) v.Random=10 q66  q.Random=42 t.Random=2 }
#TR3B ={ TR=3 @108,0 o4 Key=2 l16 VOL(TR)=109 v(VOL(TR)) v.Random=6  q48  q.Random=20 }

#TR4  ={ TR=4 @88,0  o3 Key=0 l16 VOL(TR)= 98 v(VOL(TR)) v.Random=4  q111 q.Random=10 }
#TR5  ={ TR=5 @88,0  o6 Key=2 l16 VOL(TR)=111 v(VOL(TR)) v.Random=6  q99  q.Random=10 M=3 }
#TR6  ={ TR=6 @50,0  o4 Key=2 l1  VOL(TR)= 87 v(VOL(TR)) v.Random=10 q88  q.Random=40 }
#TR7  ={ TR=7 @49,0  o4 Key=2 l4  VOL(TR)=126 v(VOL(TR)) v.Random=10 q139 q.Random=40 }

#TR10 ={ TR=10 @26 Key=0 l16 v.Random=20 }
#TR11 ={ TR=11 @26 Key=0 l16 v.Random=10 }

#TR34o={ @82,0 Key=0 v(VOL(TR)) q100 }
#TR13 ={ TR=13 o4 VOL(TR)=105 }+ #TR34o
#TR14 ={ TR=14 o5 VOL(TR)=105 }+ #TR34o
#TR13A={ TR=13 o4 VOL(TR)=126 }+ #TR34o
#TR14A={ TR=14 o4 VOL(TR)=126 }+ #TR34o

#TR16 ={ TR=16 v0 }

If(EFX==1){
 #TR1e ={ CHO=11 M.W(0,66,!4) p%.Frequency=4 p%.onNoteSine(0,-100,300,!2,1) BR=1 ECHO=on }
 #TR1  =#TR1+  { REV=16 }+ #TR1e
 #TR1A =#TR1A+ { REV=11 }+ #TR1e
 #TR1B =#TR1B+ { REV=16 }+ #TR1e

 #TR3  =#TR3+  { P=85 REV=77 p%.Frequency=4 p%.onNoteSine(0,-200,100,!4,1) M=0 BR=2 ECHO=on }
 #TR3A =#TR3A+ { P=40 REV=8  p%.Frequency=4 p%.onNoteSine(0,-100,500,!2,1) M.onNoteSine(0,11,33,!4,1) ECHO=on }
 #TR3B =#TR3B+ { REV=44	ECHO=off }

 #TR4  =#TR4+  { P=44 REV=11 p%.Frequency=4 p%.onNoteSine(0,600,-400,!2,1) ECHO=on }

 #TR67e ={ REV=66 CHO=11 M=11 p%.Frequency=4 p%.onNoteSine(0,-100,300,!2,1) BR=2 }
 #TR6  =#TR6+  { P=31 }+ #TR67e
 #TR7  =#TR7+  { P=97 }+ #TR67e

 #TR10 =#TR10+ { REV=66 p%.W(0,-4600,!32) ECHO=on }
 #TR11 =#TR11+ { REV=21 p%.W(-2300,-6900,!32) ECHO=on }

 #TR34e={ REV=20 p%.Frequency=3 p%.W(0,8191,!1^4, 8191,-4095,!24) ECHO=off } //o7
 #TR13 =#TR13+ { BR=48 }+ #TR34e
 #TR14 =#TR14+ { BR=36 }+ #TR34e

 #TR34ae={ REV=20 p%.Frequency=3 Slur(0,-(!12)) BR=48 ECHO=off }
 #TR13A=#TR13A+ #TR34ae
 #TR14A=#TR14A+ #TR34ae
}
 
  #BD={ xrxr        rr      rr  rrrr rrrx | rrxr        rxrr : xrrr        rrrr } 
  #HH={ rxr[2 x,32] [3 x,24]xx  xxrz xz^r | xxr[2 x,32] xrz^ : rxx[2 x,32] xxxx }
  #SN={ [8 r]                   [8 r]     | [8 r]            : [8 r]            }
  #PC={ [8 r]                   [8 r]     | [8 r]            : [8 r]            }
  #TM={ [8 r]                   [8 r]     | [8 r]            : [8 r]            }
 
#EC_SET1={ 

#Drum={
  Sub{ BD( "[ "+#BD+" ] xrrr        rrrr ") }
  Sub{ HH( "[ "+#HH+" ] rxx[2 x,32] rrz^ ") }
  Sub{ SN( "[ "+#SN+" ] rrrr        xxrr" ) }
  Sub{ PC( "[ "+#PC+" ] rrrr        xrrr" ) }
       TM( "[ "+#TM+" ] [8 r]           " )
} //#

#TR10 #Drum
#TR11 #Drum

TR=1 r-96^192 #TR1
	MLD({	ad r96 c+d^^^ d })
	MLD({	r-96 d c+^ r96 c+^^^ c+ })
	MLD({	r-96 l16<b>df+ef+4  r96 <b>df+ba^f+a })
	MLD({	"b^^rrr r-96 a r r96 b^^^})

TR=4 r192 #TR4
	BAS({	Key=-10 c"g r `ce r "gb  ra rd `gg c"c })
	BAS({	Key=-3 `c^^ "c`ce "gb-  ra rd c`c g"g })
	BAS({	Key=-1  c^^r `cf "gf  r`e- rb- g`g c"c })
	BAS({	Key=-5 `cb ge  r`a  r`f r`d  `cg"c c^"g })

} //#
 
//PartA = = = = = = = = = = 

	// 走るペースとホーンで勢いよく


	 
#TR16 Time=CapTime+(!2^192); Lyric={"ブレイク"} TrackSync r1^4 // - - - - - 

TR=5 r-8 EP=0 #TR5 r8 Key=2 o6 EP.onNoteSine(0,0,127,(!1^1^2),1)

'ce""b`d'1^4 // 9thで緊張感を付加

 
#TR16 
 If(Lyric_select == 1){
	Lyric={"Flower angel キラキララ 輝いて 飛び交う"}
 }Else{
	Lyric={"Flower angel キラキラと 輝いた 雪化粧"}
 }
 TrackSync [4 r1] // - - - - -

#EC_SET1;

TR=3 r-96 #TR3
	CHD({	'ce""b`d'}  ,{ xrrr })	//CM9/B[T]	//'df#ac#'^^'df#a'	// DM
	CHD({	'"g""bfa'}  ,{ xrrx })	//G9/B[D]	//'ac#eg'^^'ac#e'	// AM/C#
r192	CHD({	'""acgb'}   ,{ xrrr })	//Am9[T]	//'bdf#a'^^'bdf#'	// Bm
//     	CHD({	'"f""e-g`d'},{ xrrr })	//F9(13)/Eb[SD]	//'gbdf#'^^'gbd'	// GM/B
r-192	CHD({	'"f""aeg' },{ xrrr })	//FM9/A[SD]	//'gbdf#'^^'gbd'	// GM/B

 
#TR16 
 If(Lyric_select == 1){
 	Lyric={"春は もうすぐそこ 小鳥がさえずる"}
 }Else{
	Lyric={"春は まだ遠くて 凍てつく 冬の中"}
 }
 TrackSync [4 r1] // - - - - -

#Drum={
  Sub{ BD( "[ "+#BD+" ] xrrr       rrrr ") }
  Sub{ HH( "[ "+#HH+" ] xx[2 x,32] rrzr ") }
  Sub{ SN( "[ "+#SN+" ] rrrr       xxrx ") }
  Sub{ PC( "[ "+#PC+" ] xrrr       xrrr ") }
       TM( "[ "+#TM+" ] [8 r]           ")
}
#TR10	#Drum
#TR11	#Drum

TR=1 r-96^192 #TR1
	MLD({	f+a^b ^> r96 c+<ba })
	MLD({	ba^ r-96 a ^^^ r96 a })
	MLD({	r96 c+ef+e ^^ r-96"b-c+ })
	MLD({	f+e^ f+ ^ f#16 dr16r })

TR=3 r-96 #TR3
 	CHD({	'ce""b`d' }   ,{ xrrx })	//CM9/B		//'df#ac#'^^'df#a'	// DM
	CHD({	'"g""bfa' }   ,{ xrrr })	//G9/B[D]	//'ac#eg'^^'ac#e'	// AM/C#
	CHD({	'"e""a-e-g-' },{ xrrr })	//EM9/Ab[TM]	//'f#b-c#f'^^'f#b-c#'	// F#M/C#
r192	CHD({	'"f""a-eg' }  ,{ xrrx })	//Fm9/A[SD]	//'gbdf#'^^'gbd'	// GM/B
r-192

TR=4 r192 #TR4
 	BAS({	Key=-10 g`e`b``c `b`e`gc  ra rd `gg c"c })
	BAS({	Key=-3 c^ ^^ `ce "gb-  ra rd c`g c"g })
	BAS({	Key=-6 c^ ^^ `cd "ga  r`e r`b g`c g"c })
	BAS({	Key=-5 `cg be  "g`a "d`e f`g  c"g c g c`g })
 
#TR16 
 If(Lyric_select == 1){
	Lyric={"わたしも いつかは キラキララ 輝いて ゆけるかな"}
 }Else{
	Lyric={"わたしは いつしか 花を咲かせることが できるかな"}
 }
 TrackSync [4 r1] // - - - - -

#EC_SET1;

TR=3 r-96 #TR3
	CHD({	'ce""b`d'} ,{ xrrr })	//CM9/B[T]	//'df#ac#'^^'df#a'	// DM
	CHD({	'"g""bfa'} ,{ xrrx })	//G9/B[D]	//'ac#eg'^^'ac#e'	// AM/C#
	CHD({	'""acgb'}  ,{ xrrx })	//Am9[T]	//'bdf#a'^^'bdf#'	// Bm
	CHD({	'"f""aeg' },{ xrrr })	//FM9/A[SD]	//'gbdf#'^^'gbd'	// GM/B

 
#TR16 
 If(Lyric_select == 1){
	Lyric={"もっと 強くなりたい Flower angel"}
 }Else{
	Lyric={"もっと強くなりたい Flower angel"}
 }
 TrackSync [4 r1] // - - - - -

#Drum={
  Sub{ BD( "[ "+#BD+" ] ") }
  Sub{ HH( "[ "+#HH+" ] ") }
  Sub{ SN( "[ "+#SN+" ] rrr[2 x,32] rrrx " ) }
  Sub{ PC( "[ "+#PC+" ] xrrr        xxrx " ) }
       TM( "[ "+#TM+" ] rrrr        xx^^ " )
}
#TR10	#Drum
#TR11	#Drum

TR=1 r-96^192 #TR1
	MLD({	f+a^ r96 b ^>c+<ba })
	MLD({	ba^ a ^^^a })
	MLD({	c+ef+e ^^ "b- c+ })
	MLD({	f+ e^f+ ^  r-96 f#16 r96 dr16r })

TR=3 r-96 #TR3
	CHD({	'ce""b`d' }  ,{ xrrx })		//CM9/B		//'df#ac#'^^'df#a'	// DM
	CHD({	'"g""bfa' }  ,{ xrrr })		//G9/B[D]	//'ac#eg'^^'ac#e'	// AM/C#
	CHD({	'"e""ge-g-' },{ xrrr })		//Em9/G[TM]	//'f#b-c#f'^^'f#b-c#'	// F#M/C#
	CHD({	'"f""aeg' }  ,{ xrrx })		//FM9/A[SD]	//'gbdf#'^^'gbd'	// GM/B

TR=4 r192 #TR4
 	BAS({	Key=-10 g`e`b``c `b`e`gc  ra rd `gg c"c })
	BAS({	Key=-3 c^ ^^ `ce "gb-  ra rd c`g c"g })
	BAS({	Key=-6 c^ ^^ `cd "ga  r`e r`b g`c g"c })
	BAS({	Key=-5 `cg be  "g`a "d`e f`g  c"g c g c`g })

#TR13	Time=Time+ (!1^1^2^4) c1^4^24^32 //休符でないのはEP.Wの空どうさ封じのため
#TR14	Time=Time+ (!1^1^2^4) c1^4^24^32
  
 //PartB = = = = = = = = = = 

	// REVは抑え目、民族色を

	 
#TR16 
 If(Lyric_select == 1){
	Lyric={"母なる 太陽 Sun light as energy"}
 }Else{
	Lyric={"母なる 太陽 Sun light as energy"}
 }
 TrackSync [4 r1] // - - - - -


TR=1 r-192 #TR1
	MLD({	r96 f+^16g16r16 r-96 a16^ ^^^^ })
	MLD({	r96 <a16r16b16r16> r-96 c+^ ^^^^ })
#TR1A
	MLD({	l8 d^^^ ^^  l16 c+dc+<b> }) // call&Res.
	MLD({	l8d^^c+ r96 <b^^^> })

TR=3 r192 #TR3A
	CHD({	'c"eg' } ,{[4 r8 x8 ]})		//C/E[T]	//'df#ac#'^^'df#a'	// DM/C#
	CHD({	'"g""bd'},{[4 r8 x8 ]})		//G/B[D]	//'ac#eg'^^'ac#e'	// AM/C#
	CHD({	'"a""ce'},{[4 r8 x8 ]})		//Am/C[T]	//'bdf#a'^^'bdf#'	// Bm/D
	CHD({	'"f""ac'},{[4 r8 x8 ]})		//F/A		//'gbdf#'^^'gbd'	// GM/B

#TR4 	BAS({	Key=-10  })
	BAS({	Key=-3   })
	BAS({	Key=-1   })
	BAS({	Key=-5   })

TR=9 r-192 r-2 EP=127 Key=5 @117,0 o6 q44 l16 v91 REV=10 P=88

>fcrc <fcr[c32]
[
 [
   ["fcrr frr:"f]c"
  :["f"crr fr"f:r][`f32]
 ]
 c"c r"ff r :`f"f [6"c48]r [`f24 f24"f24] `f
]

[6"c48]r [3`f24f24"f24] `f32`c32
 
#TR16 
 If(Lyric_select == 1){
	Lyric={"そんな健気な道端に咲く花のように"}
 }Else{
	Lyric={"誰も 知らない 道端に咲く花のように"}
 }
 TrackSync [4 r1] // - - - - -


TR=1 r-192 #TR1
	MLD({	r96 <f+^16g16r16 r-96 a16^ ^^^^> })
	MLD({	r-96 <a16e16b16r16> r48 c+^ ^^^^ })
#TR1A
	MLD({	l16 fd#^f ^ c#f+g+ })
	MLD({	l8 bag r96 f# r r-96 agf+ })

TR=3 r192 #TR3A
 	CHD({	'c"eg'}    ,{[4 r8 x8 ]})	//C/E		//'df#ac#'^^'df#a'		// DM/C#
	CHD({	'"g""bd'}  ,{[4 r8 x8 ]})	//G/B[D]	//'ac#eg'^^'ac#e'		// AM/C#
	CHD({	'"e""a-"b'},{[4 r8 x8 ]})	//EM7/Ab[TM]	//'f#b-c#f'^^'f#b-c#'		// F#M
	CHD({	'"f""ac'}  ,{[4 r8 x8 ]})	//F/A[SD]	//'gbdf#'^^'gbd'		// GM/B

#TR4 	BAS({	Key=-10 r1 })
	BAS({	Key=-3 r1 })
	BAS({	Key=-6 r1 })
	BAS({	Key=-5 r1 })

  
 //PartC = = = = = = = = = = 

	// ストリングスで和楽器を華やかに

	 
#TR16	Lyric={"ブレイク"} TrackSync r1 // - - - - - 
#TR1B	MLD({ <  l8 agrr f+rgr  > })

TR=3 r-48 #TR3B
	Key=2 l16  g4 r4 ardr r4	//DM - CM

TR=13 r-1^1^8 r64 #TR13A EP=0 EP.T(0,127,!8) l12  ""g1^4^16^6^&``g&`g&""g
TR=14 r-1^1^8 r64 #TR14A EP=0 EP.T(0,127,!8) l12 """g1^4^16^6^& `g& g&""g
 
#TR16 
 If(Lyric_select == 1){
	Lyric={"いつかは散りゆくさだめと知りつつ懸命に生きゆく"}
 }Else{
	Lyric={"いつかは散りゆくさだめと知りつつ懸命に生きゆく"}
 }
 TrackSync [4 r1] // - - - - -

#TR1B	MLD({ < r96agf+g r-96agf+g r96> dc+<b>c+ r-96dc+<b>c+  < r-96f+^^^ f+^^  ab^^ r96a r96b^^^ > })

TR=3 r-48 #TR3B
	Key=2  r2 frrr r4		//DM - CM
	Key=-3 egar [3 r4]		//A7 - G7
	Key=-1 b-^g^ [3 r4]		//Bm - Am
	Key=-5 c^gr `c^rr r4 g^^r	//GM - FM


#TR6
r1 //		EP.Sine(0,66,127,!2^4^8,1)	Key=2  'cg>eg>eb<<'1	//DM - CM
r1 // r-96	EP.Sine(0,66,127,!2^4^8,1)	Key=-3 'cg>eg>eb-<<'1	//A7 - G7
r96	EP.Sine(0,66,127,!2,1)		Key=-1 'cg>e-g>e-b-<<'2r2	//Bm - Am
	EP.Sine(0,33,127,!2^4^8,1)	Key=-5 'cg>eg>eb<<'1		//GM - FM

TR=7 r-32 #TR7
r1
r1  r-96
r96	EP.W(33,99,!8)	Key=-1 rr `cb-
	EP.T(11,99,!4)	Key=-5  `c2 r2
 
#TR16 
 If(Lyric_select == 1){
	Lyric={"花は 咲き乱れ 大地を 美しく彩る"}
 }Else{
	Lyric={"小さな命は 大地を美しく彩る"}
 }
 TrackSync [5 r1] // - - - - -


#TR1B	Sub{ [2 r1] r2 REV.T(16,111,!1) }
	Sub{ [4 r1] r2 REV=16 }
	MLD({ f+e^^f+^d^ r-96 aa^ge^^^ r96 f+c+^c+^dec+ r-96 g d^d^^^ `d })

TR=3 r-48 #TR3B
Sub{ rrr BR=2 p%.T(0,-4096,!16,-4096,0,!32) }
	Key=2 `cbg^ ^2 r4				//DM
p%.onNoteSine(0,-100,500,!2,1)
	Key=-1 `fr`e-32r32r rrrr			//BmM7
	Key=-3 `g^^^ ^^`dr				//A7
Sub{ rrr BR=1 p%.T(0,-4096,!32,-4096,0,!16) }
	Key=-6 `e^`g^ [r4] rr`c^			//F#M
p%.onNoteSine(0,-100,500,!2,1)
	Key=-5 `er`g v30 [8 v-10`g48 v+20 `g48][3`g32] ^^rr r4	//GM

#TR6
	EP.Sine(0,66,127,!2,1)	Key=2  'cg>eg>eb<<'2r2		//DM - CM

 r-96	EP.Sine(0,66,127,!2,1)	Key=-1 'cg>e-g>e-b<<'2		//BmM7 omit5 - AmM7 'aceg#'
 r96	EP.Sine(0,66,127,!2,1)	Key=-3 'cg>eg>eb-<<'2		//A7 - G7 'gbdf'

	EP.Sine(0,33,127,!2^4^8,1)	Key=-6 'cg>eg>eb<<'1	//F#M - EM 'eg#be-'
	EP.Sine(0,33,127,!2^4^8,1)	Key=-5 'cg>eg>eb<<'1	//GM - FM

TR=7 r-32 #TR7
	EP.W(33,99,!8)	Key=2 `c^ge
r-96	EP.Sine(0,11,99,!2,1)	Key=-1 g^^c
r96	EP.W(11,99,!4) Key=-1 g^^^  			// 1小節分伸ばし、遅らせて追いかけにする
	EP.W(33,99,!8)	Key=2 f^ EP.W(33,99,!8) ed

	| EP.Sine(0,33,99,!1^8,1) Key=-5 g1
  
 //PartD = = = = = = = = = = 
	 
#TR16	Lyric={"ブレイク"} TrackSync r1 r2 // - - - - - 

TR=5 r-8 EP=0 #TR5 r8 Key=2 o5 EP.onNoteSine(0,0,127,(!1*2),1)

'ce"b``d'1 //9th再登場、こちらのほうが緊張感があるかも、、