/** TOP - Base template : ver2.80 **/
/*￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
                       ■   p e n a n c e   ■

【 作曲・著作権 】H.YAMANOI
【対  象  音  源】Roland SC-8850
【使  用  音  源】Roland SC-8850
【再  生  確  認】TMIDI Player version 3.8.5 (release)
【 サクラのVer. 】2.375
【注  意  事  項】商用・非商用にかかわらず転載・再配布不可
【 連   絡   先 】blog : http://ykun.exblog.jp/
【 そ   の   他 】MP3（ショートver）
                    http://simiz.org/~y-kun/music/hy_m3pen7bs.mp3
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

ダウンロードしていただきありがとうございました。

◆Electro-Styleについて
M3 2011秋で頒布されるさくらもどきさん主宰のコンピレーションアルバム
『Electro-Style』に、小生も２曲参加させて頂きました。
この曲はアルバムのTr.1に収録されるボカロ曲です。

サークル           : さくら置き場（1階D18a）
Electo-Style       : http://bit.ly/obrPm8
クロスフェードデモ : http://www.nicovideo.jp/watch/sm15946728


◆曲のこと
HappyHardcoreだけど、歌詞が全然Happyじゃないところがポイントです。
半ば歌詞先行で作ったからか、Ａメロは２拍目からなのに
サビは３拍前からだったり、超詰め込みになってしまいました。
多分、人間には歌えません（笑


◆歌詞
小鳥のさえずりを聞いて 目覚めた
明けの空 浮かぶ月 見上げる事もなく
まとわりつく喧騒と砂礫を 貫いて
稜線の彼方まで

ひとつ目の誓いを交わした あの日から 
色無き回廊を迷い
ふたつ目の約束は 果たせぬままで
みっつ目の祈りを捧ぐ 神は滅びたけれども
よっつ目の願いは僕が届けるよ この手で


散りばめた星々が 揺らめく
真四角に 切り取った 夜天を塗りつぶす
響かぬ声 渇いた嗤い 目を伏せて
積み上がる孤絶と無我 凍える楼閣

いつつ目の悲しみは 深い闇に墜ち 
連鎖から煮詰められた
むっつ目の嘆きを綴るグリモワール
ななつ目の怒りで引き裂いた欠片は散って
やっつ目の諦観を呼ぶけれど 逃げずに


ここのつの指を折って 背負う悔いを数えた
その時 とおの影を溶かし また朝が来る


◆更新履歴
2011/09/24　Ver1.00　完成
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿*/

/** HEADER **/
//_Synth Type
Int	SynthType	=	4	; // 音源のタイプ -1〜8まで 初期値:8
Int	UsePF		=	1	; // XG音源でPLG150-PFを使用する
Int	UseDX		=	1	; // XG音源でPLG150-DXを使用する

//_System Setting
Include			(stdmsg.h);
System.MeasureShift	(8);
System.TimeBase		(96);
System.vAdd			(10);
System.qAdd			(10);
Str Tmp_title	=	{"M3 2011秋 : penance"};
Str Tmp_ver		=	{"1.00"};
Str Tmp_Copyright	=	{"09/24/2011  H.YAMANOI"}
Int PortNum		=	2;

//_SynthType Definition
If(SynthType == 8){
	Switch(SoundType){
		Case(1){	SynthType = 1;	}
		Case(2){	SynthType = 5;	}
		Default{	SynthType = 0;	}
	}
}
If((SynthType > 8) || (SynthType < -1)){
	SynthType = 0;
}

//_Function
//_  Common
// 調号メタイベント
//	sf ＝ n:＃の数 -n:♭の数	mi ＝ 0:メジャー 1:マイナー
Function MetaKey(Int sf, Int mi){
	DirectSMF($FF,$59,$02,sf,mi);
}
// sinθの10,000倍を返す
Function SIN(Int Val){
	Int Tmp_Val = Val;
	Int Out = 0;
	If(Tmp_Val < 0){
		Tmp_Val = (Tmp_Val * -1) % 360;
		Tmp_Val = 360 - Tmp_Val;
	}
	If(Tmp_Val >= 360){
		Tmp_Val = Tmp_Val % 360;
	}
	If((Tmp_Val > 180) && (Tmp_Val <= 360)){
		Tmp_Val = 360 - Tmp_Val;
	}
	If((Tmp_Val > 90) && (Tmp_Val <= 180)){
		Tmp_Val = 180 - Tmp_Val;
	}
	Switch(Tmp_Val){
		Case( 0){ Out =     0; }	Case( 1){ Out =   175; }	Case( 2){ Out =   349; }
		Case( 3){ Out =   523; }	Case( 4){ Out =   698; }	Case( 5){ Out =   872; }
		Case( 6){ Out =  1045; }	Case( 7){ Out =  1219; }	Case( 8){ Out =  1392; }
		Case( 9){ Out =  1564; }	Case(10){ Out =  1736; }	Case(11){ Out =  1908; }
		Case(12){ Out =  2079; }	Case(13){ Out =  2250; }	Case(14){ Out =  2419; }
		Case(15){ Out =  2588; }	Case(16){ Out =  2756; }	Case(17){ Out =  2924; }
		Case(18){ Out =  3090; }	Case(19){ Out =  3256; }	Case(20){ Out =  3420; }
		Case(21){ Out =  3584; }	Case(22){ Out =  3746; }	Case(23){ Out =  3907; }
		Case(24){ Out =  4067; }	Case(25){ Out =  4226; }	Case(26){ Out =  4384; }
		Case(27){ Out =  4540; }	Case(28){ Out =  4695; }	Case(29){ Out =  4848; }
		Case(30){ Out =  5000; }	Case(31){ Out =  5150; }	Case(32){ Out =  5299; }
		Case(33){ Out =  5446; }	Case(34){ Out =  5592; }	Case(35){ Out =  5736; }
		Case(36){ Out =  5878; }	Case(37){ Out =  6018; }	Case(38){ Out =  6157; }
		Case(39){ Out =  6293; }	Case(40){ Out =  6428; }	Case(41){ Out =  6561; }
		Case(42){ Out =  6691; }	Case(43){ Out =  6820; }	Case(44){ Out =  6947; }
		Case(45){ Out =  7071; }	Case(46){ Out =  7193; }	Case(47){ Out =  7314; }
		Case(48){ Out =  7431; }	Case(49){ Out =  7547; }	Case(50){ Out =  7660; }
		Case(51){ Out =  7771; }	Case(52){ Out =  7880; }	Case(53){ Out =  7986; }
		Case(54){ Out =  8090; }	Case(55){ Out =  8192; }	Case(56){ Out =  8290; }
		Case(57){ Out =  8387; }	Case(58){ Out =  8480; }	Case(59){ Out =  8572; }
		Case(60){ Out =  8660; }	Case(61){ Out =  8746; }	Case(62){ Out =  8829; }
		Case(63){ Out =  8910; }	Case(64){ Out =  8988; }	Case(65){ Out =  9063; }
		Case(66){ Out =  9135; }	Case(67){ Out =  9205; }	Case(68){ Out =  9272; }
		Case(69){ Out =  9336; }	Case(70){ Out =  9397; }	Case(71){ Out =  9455; }
		Case(72){ Out =  9511; }	Case(73){ Out =  9563; }	Case(74){ Out =  9613; }
		Case(75){ Out =  9659; }	Case(76){ Out =  9703; }	Case(77){ Out =  9744; }
		Case(78){ Out =  9781; }	Case(79){ Out =  9816; }	Case(80){ Out =  9848; }
		Case(81){ Out =  9877; }	Case(82){ Out =  9903; }	Case(83){ Out =  9925; }
		Case(84){ Out =  9945; }	Case(85){ Out =  9962; }	Case(86){ Out =  9976; }
		Case(87){ Out =  9986; }	Case(88){ Out =  9994; }	Case(89){ Out =  9998; }
		Case(90){ Out = 10000; }
	}
	If(Val > 180 && Val < 360){
		Out = Out * -1;
	}
	Result = Out;
}
// cosθの10,000倍を返す
Function COS(Int Val){
	Int Out = 0;
	Out = SIN(Val + 90);
	Result = Out;
}
// Length => Tick
Function LEN2TICK(Str Length) {
	Int Len;
	If(ASC(MID(Length,0,2)) == ASC("!")){
		Len = StrToLen(Replace(Length,{!},{},off));
	}Else{
		Len = Length;
	}
	Result = Len;
}

//_  for GM
// Instrument SetUp
Function IsuGM(Array Data) {
	// BankMSB, BankLSB, PC#, Vol, Pan, Exp, Rev, Cho, Dly/Var
	l%1 y0(Data(0));r* y32(Data(1));r* @(Data(2));r* y7(Data(3));r* y10(Data(4));r*
	y11(Data(5));r* y91(Data(6));r* y93(Data(7));r* y94(Data(8));r*
	// PitchBendSensitivity
	y100(0);r* y101(0);r* y6(Data(9));r*
}
// PitchBend Sensitivity Null
Function Null() {
	l%1 y101(127); r* y100(127); r*
}
// Mono Mode
Function Mono() {
	l%1 y126(0); r*
}
// Poly Mode
Function Poly() {
	l%1 y127(0); r*
}
// Master Volume
Function MasterVolume(Int Value) {
	SysEx = $F0,$7F,$7F,$04,$01,$00,(Value),$F7;
}
// Polyphonic Key Pressure
Function PKP(Str Note, Int Val){
	Int No = NoteNo(Note);
	DirectSMF(($A0 + Channel - 1),No,Val);
}

//_  for GS
// System Exclusive
Function GS_EXCLUSIVE(Array Data) {
	SysEx = $F0,$41,$10,$42,$12,{(Data)},$F7;
}
// Instrument SetUp
Function IsuGS(Array Data) {
	// BankMSB, BankLSB, PC#, Vol, Pan, Exp, Rev, Cho, Dly
	l%1 y0(Data(0));r* y32(Data(1));r* @(Data(2));r* y7(Data(3));r* y10(Data(4));r*
	y11(Data(5));r* y91(Data(6));r* y93(Data(7));r* y94(Data(8));r*
	// Vibrato  Rate , Depth , Delay
	y99(1);r* y98(8);r* y6(Data(9));r* y99(1);r* y98(9);r* y6(Data(10));r* y99(1);r* y98(10);r* y6(Data(11));r*
	// Filter  LPF , Res
	y99(1);r* y98(32);r* y6(Data(12));r* y99(1);r* y98(33);r* y6(Data(13));r*
	// Envelope  Attack , Decay , Release
	y99(1);r* y98(99);r* y6(Data(14));r* y99(1);r* y98(100);r* y6(Data(15));r* y99(1);r* y98(102);r* y6(Data(16));r*
	// PitchBendSensitivity
	y100(0);r* y101(0);r* y6(Data(17));r*
}
// System EQ
Function EQ(Array Data){
	// LowFreq, LowGain, HiFreq, HiGain
	l%2	GS_EXCLUSIVE($40,$02,$00,(Data(0)     ));	// EQ Low Freq
	r*	GS_EXCLUSIVE($40,$02,$01,(Data(1) + 64));	// EQ Low Gain
	r*	GS_EXCLUSIVE($40,$02,$02,(Data(2)     ));	// EQ Hi Freq
	r*	GS_EXCLUSIVE($40,$02,$03,(Data(3) + 64));	// EQ Hi Gain
}
// Setup User Drum
Function USER_DRUM(Array Data) {
	l%2	// UserDrumNo[1,2], NoteNo, SorceMAP, SorcePC#, SorceNote, Level, Pan
	GS_EXCLUSIVE($20 + (Data(0)),$0A,(Data(1)),(Data(2)    )); r*	// SOURCE DRUM SET# (MAP)
	GS_EXCLUSIVE($20 + (Data(0)),$0B,(Data(1)),(Data(3) - 1)); r*	// SOURCE DRUM SET# (PC#)
	GS_EXCLUSIVE($20 + (Data(0)),$0C,(Data(1)),(Data(4)    )); r*	// SOURCE DRUM SET NUMBER
	GS_EXCLUSIVE($20 + (Data(0)),$02,(Data(1)),(Data(5)    )); r*	// LEVEL
	GS_EXCLUSIVE($20 + (Data(0)),$04,(Data(1)),(Data(6)    )); r*	// PAN
}
// Drum Instrument Assian Group
Function DAG(Int Map, Int No, Int Gp){
	Map--;
	GS_EXCLUSIVE($41,(Map * 16 + 3),(No),(Gp));
}
// Drum Instrument Rx Note Off
Function DRN(Int No){
	GS_EXCLUSIVE($41,$07,(No),$01);
}

//_  for XG
// System Exclusive [XG Common]
Function XG_EXCLUSIVE(Array Data) {
	SysEx	= $F0,$43,$10,$4C,(Data),$F7;
}
// System Exclusive [PLG150-DX]
Function DX_EXCLUSIVE(Array Data) {
	SysEx	= $F0,$43,$10,$62,(Data),$F7;
}
// System Exclusive [PLG150-PF]
Function PF_EXCLUSIVE(Array Data) {
	SysEx	= $F0,$43,$10,$67,(Data),$F7;
}
// Instrument SetUp
Function IsuXG(Array Data) {
	// BankMSB, BankLSB, PC#, Vol, Pan, Exp, Rev, Cho, Var
	l%1 y0(Data(0));r* y32(Data(1));r* @(Data(2));r* y7(Data(3));r* y10(Data(4));r*
	y11(Data(5));r* y91(Data(6));r* y93(Data(7));r* y94(Data(8));r*
	// Vibrato  Rate , Depth , Delay
	y99(1);r* y98(8);r* y6(Data(9));r* y99(1);r* y98(9);r* y6(Data(10));r* y99(1);r* y98(10);r* y6(Data(11));r*
	// Filter  LPF , Resonance , HPF
	y99(1);r* y98(32);r* y6(Data(12));r* y99(1);r* y98(33);r* y6(Data(13));r* y99(1);r* y98(36);r* y6(Data(14));r*
	// Envelope  Attack , Decay , Release
	y99(1);r* y98(99);r* y6(Data(15));r* y99(1);r* y98(100);r* y6(Data(16));r* y99(1);r* y98(102);r* y6(Data(17));r*
	// PitchBendSensitivity
	y100(0);r* y101(0);r* y6(Data(18));r*
	// EQ  Low Frequency , Low Gain , Treble Frequency , Treble Gain
	y99(1);r* y98(52);r* y6(Data(19));r* y99(1);r* y98(48);r* y6(Data(20));r*
	y99(1);r* y98(53);r* y6(Data(21));r* y99(1);r* y98(49);r* y6(Data(22));r*
}
// Drum Instrument  Pitch Fine
Function Dpf(Int Note,Int Value) {
	l%1 y99(25); r* y98(Note); r* y6(Value); r*
}
// Drum Instrument  Fillter  LPF , Resonance , HPF
Function Dfl(Array Data) {
	l%1 y99(20);r* y98(Data(0));r* y6(Data(1));r* y99(21);r* y98(Data(0));r* y6(Data(2));r* y99(36);r* y98(Data(0));r* y6(Data(3));r*
}
// Drum Instrument  Envelope  Attack , Decay
Function Deg(Array Data) {
	l%1 y99(22);r* y98(Data(0));r* y6(Data(1));r* y99(23);r* y98(Data(0));r* y6(Data(2));r*
}
// Drum Instrument  EQ  Low Frequency , Low Gain , Treble Frequency , Treble Gain
Function Deq(Array Data) {
	l%1 y99(52);r* y98(Data(0));r* y6(Data(1));r* y99(48);r* y98(Data(0));r* y6(Data(2));r*
	y99(53);r* y98(Data(0));r* y6(Data(3));r* y99(49);r* y98(Data(0));r* y6(Data(4));r*
}
// Delay Time => Data
Function XGDT(Int Tm){
	Array Out;
	If(Tm > 16383){
		Tm = 16383;
	}
	If(Tm < 0){
		Tm = 0;
	}
	Out(0) = Tm / 128;
	Out(1) = Tm % 128;
	Result = Out;
}

//_  for GS/XG
// Drum Instrument  Pitch Coarse
Function Dpt(Int Note, Int Value) {
	l%1 y99(24); r* y98(Note); r* y6(Value); r*
}
// Drum Instrument  Pitch Coarse
Function Dpt2(Int Note, Int Value) {
	r*-%3 y99(24); r*%1 y98(Note); r*%1 y6(Value); r*%1
}
// Drum Instrument  Level
Function Dlv(Int Note, Int Value) {
	l%1 y99(26); r* y98(Note); r* y6(Value); r*
}
// Drum Instrument  Pitch Coarse
Function Dlv2(Int Note, Int Value) {
	r*-%3 y99(26); r*%1 y98(Note); r*%1 y6(Value); r*%1
}
// Drum Instrument  Pan
Function Dpn(Int Note, Int Value) {
	l%1 y99(28); r* y98(Note); r* y6(Value); r*
}
// Drum Instrument  Pitch Coarse
Function Dpn2(Int Note, Int Value) {
	r*-%3 y99(28); r*%1 y98(Note); r*%1 y6(Value); r*%1
}
// Drum Instrument  Reverb Send Level
Function Drs(Int Note, Int Value) {
	l%1 y99(29); r* y98(Note); r* y6(Value); r*
}
// Drum Instrument  Pitch Coarse
Function Drs2(Int Note, Int Value) {
	r*-%3 y99(29); r*%1 y98(Note); r*%1 y6(Value); r*%1
}
// Drum Instrument  Chorus Send Level
Function Dcs(Int Note, Int Value) {
	l%1 y99(30); r* y98(Note); r* y6(Value); r*
}
// Drum Instrument  Pitch Coarse
Function Dcs2(Int Note, Int Value) {
	r*-%3 y99(30); r*%1 y98(Note); r*%1 y6(Value); r*%1
}
// Drum Instrument  Delay/Variation Send Level
Function Dds(Int Note, Int Value) {
	l%1 y99(31); r* y98(Note); r* y6(Value); r*
}
// Drum Instrument  Pitch Coarse
Function Dds2(Int Note, Int Value) {
	r*-%3 y99(31); r*%1 y98(Note); r*%1 y6(Value); r*%1
}
// Insertion Effect Output Level
Function FXOutputLevel(Array Data) {
	// GS:Gain  XG:FX No, Gain
	If(SynthType <= 7 && SynthType >= 6){
		XG_EXCLUSIVE($03,($00 + (Data(0))),$05,(Data(1)));
	}Else{If(SynthType <= 4 && SynthType >= 3){
		GS_EXCLUSIVE($40,$03,$16,(Data(0)));
	}}
}
// Polyphonic Key Pressure => Bend Up
Function PAf_Pitch(Int Rng){
	Int Chn = Channel;
	If(SynthType <= 7 && SynthType >= 6){
		XG_EXCLUSIVE($08,(MML(Port)*16+Chn-1),$53,($40+Rng));
	}Else{If(SynthType <= 4 && SynthType >= 3){
		If(Chn == 10){
			Chn = 0;
		}
		If(Chn > 10 && Chn <= 16){
			Chn--;
		}
		GS_EXCLUSIVE($40,($20 + Chn),$30,($40 + Rng));
	}}
}
// Rx MIDI Ch
Function Rx_CH(Int Val){
	Int Chn = Channel;
	If(SynthType <= 7 && SynthType >= 6){
		XG_EXCLUSIVE($08,(MML(Port) * 16 + Chn - 1),$04,(Val - 1));
	}Else{If(SynthType <= 4 && SynthType >= 3){
		If(Chn == 10){
			Chn = 0;
		}
		If(Chn > 10 && Chn <= 16){
			Chn--;
		}
		GS_EXCLUSIVE($40,($10 + Chn),$02,(Val - 1));
	}}
}
// Fine Tune
Function FINE(Int Data1, Int Data2){
	Int Chn = Channel;
	If(SynthType <= 7 && SynthType >= 6){
		XG_EXCLUSIVE($08,(MML(Port) * 16 + Chn - 1),$09,(Data1),(Data2));
	}Else{If(SynthType <= 4 && SynthType >= 3){
		If(Chn == 10){
			Chn = 0;
		}
		If(Chn > 10 && Chn <= 16){
			Chn--;
		}
		GS_EXCLUSIVE($40,($10 + Chn),$2A,(Data1),(Data2));
	}}
}

//_  Effect
// Bending
Function Ben(Int Gain, Int Len){
	If((Len <= 0) || (Gain < -8192) || (Gain > 8191)){
		Print("Function Ben : illegal argument.");
		End;
	}
	Sub{	p%.onTime=(Gain),0,(Len);	}
}
// Vibrato
Function Vib(Int Gain, Int Len){
	If((Len <= 0) || (Gain <= 0) || (Gain > 127)){
		Print("Function Vib : illegal argument.");
		End;
	}
	Sub{	y1.onTime=1,(Gain),(Len);r*%(Len)y1(0);	}
}
// Hand Vibrato
//   深さ, Vib1回の長さ(step), 全体の長さ
Function HVib(Int Gain,Int Rate, Int Len) {
	Int Loop;
	Str Tmp_MML;
	Int Tmp_i;
	Loop = Len / Rate;
	If((Len <= 0) || (Gain < -8192) || (Gain > 8191) || (Gain == 0) || (Loop <= 0)){
		Print("Function HVib : illegal argument.");
		End;
	}

	Tmp_MML = "p%.T=";
	If(Gain > 0){
		Tmp_MML = Tmp_MML + "1";
	}Else{If(Gain < 0){
		Tmp_MML = Tmp_MML + "-1";
	}}
	Tmp_MML = Tmp_MML + "," + Gain + "," + (Rate / 2) + ",";
	If(Gain > 0){
		Tmp_MML = Tmp_MML + (Gain - 1);
	}Else{If(Gain < 0){
		Tmp_MML = Tmp_MML + (Gain + 1);
	}}
	Tmp_MML = Tmp_MML + ",0," + (Rate / 2) + "; r%" + Rate;

	For(Tmp_i=0; Tmp_i < Loop; Tmp_i++){
		Tmp_MML;
	}
	Tmp_MML = "r%-" + (Rate*Loop);
	Tmp_MML;
}
// Mute
Function Mt(Int Len)	{
	If(Len <= 0){
		Print("Function Mt : illegal argument.");
		End;
	}
	Sub{	r%8 y11.onTime=126,64,(Len - 8); r%(Len - 8) y11=127;	}
}
// Unison (Unison.hより抜粋)
Function Unison(Str S, Int Value){
	Sub{ Key(Value); S; Key(0); } S;
}
// 3D Auto Pan (R社のパクリ)
//   周期の長さ, 半径(0〜63), 中心パン, 初期位相, 回転方向(1,-1:正,負), 回転回数, 書込頻度
Function TDAuto(Array Opt){
	Int Len = Opt(0);		// 周期（Step）
	Int Radii = Opt(1);	// 半径
	Int Center = Opt(2);	// 中心パン
	Int IPhase = Opt(3);	// 初期位相
	Int Direction = Opt(4);	// 回転方向
	Int Loop = Opt(5);	// 回転回数
	Int Freq = Opt(6);	// 書込頻度
	Int Num = 1;		// 1周期の書込回数
	Int DPhase = 0;		// 位相の変化量
	Int IPan = 64;		// 初期パン
	Str Tmp_MML = "";
	Int Tmp_Phase = 0;
	Int Tmp_Pan = 64;
	Int Tmp_i = 0;
	Int Tmp_j = 0;

	If(Radii < 1){
		Radii = 63;
	}
	If(Center < 1){
		Center = 64;
	}
	If(Center+Radii > 127){
		Radii = 127 - Center;
	}
	If(Center-Radii < 1){
		Radii = Center - 1;
	}
	If((Direction != 1) && (Direction != -1)){
		Direction = 1;
	}
	If(Loop < 1){
		Loop = 1;
	}
	If(Freq < 1){
		Freq = 96;
	}
	Num = Len / Freq;
	If(Num == 0){
		Num = 1;
	}
	DPhase = 36000 / Num;

	For(Tmp_j = 0; Tmp_j < Loop; Tmp_j++){
		For(Tmp_i = 0; Tmp_i < Num; Tmp_i++){
			Tmp_Phase = (IPhase + (DPhase * Tmp_i / 100)) % 360;
			Tmp_Pan = Center + ((Radii * COS(Tmp_Phase) / 10000) * Direction);
			If(Tmp_i == 0){
				IPan = Tmp_Pan;
			}
			Tmp_MML = "y10(" + Tmp_Pan + "); r%" + Freq + " ";
			Tmp_MML;
		}
	}
	Tmp_MML = "y10(" + IPan + "); r%-" + (Len * Loop);
	Tmp_MML;
}
// Auto Wah
//   初期カットオフ, ワウの深さ, 1周期の長さ, 全体の長さ
Function AutoWah(Int ICut, Int Dpt, Int Rate, Int Len){
	If(SynthType <= 0){
		Exit;
	}
	Int Loop;
	Str Tmp_MML;

	Loop = Len / Rate;

	If((SynthType == 1) || (SynthType == 2)){
		Tmp_MML = "FilterCutoff";
	}Else{
		Tmp_MML = "y74";
	}
	Tmp_MML = Tmp_MML + "(" + ICut + "); [" + Loop + " r%6 ";
	If((SynthType == 1) || (SynthType == 2)){
		Tmp_MML = Tmp_MML + "y6";
	}Else{
		Tmp_MML = Tmp_MML + "y74";
	}
	Tmp_MML = Tmp_MML + ".T=" + (ICut - 1) + "," + (ICut - Dpt) + "," + ((Rate / 2) - 8) + "; r%" + (Rate / 2);
	If((SynthType == 1) || (SynthType == 2)){
		Tmp_MML = Tmp_MML + " y6";
	}Else{
		Tmp_MML = Tmp_MML + " y74";
	}
	Tmp_MML = Tmp_MML + ".T=" + ((ICut - Dpt) + 1) + "," + ICut + "," + ((Rate / 2) - 8) + "; r%" + ((Rate / 2) - 6) + "]";
	Tmp_MML;
}
// Fade Out
Function FadeOut(Int Opt_Len){
	Int Len = MML(l);
	Int Tmp_i;

	Len = Len * Opt_Len;
	S{	r%(Len) MasterVolume(0);	}
	Len = Len / 127;
	For(Tmp_i=126; Tmp_i>0; Tmp_i--){
		MasterVolume(Tmp_i);
		r%(Len);
	}
}

//_Meta Event
TR( 0) Port(0) CH( 1) Time(-7:1: 0)
	Tmp_title = {"[ "} + Tmp_title + {" ] for "};
	Tmp_ver = "ver" + Tmp_ver + {" by H.YAMANOI"};
	Switch(SynthType){
		Case( 7){	TrackName = Tmp_title + {"MU1000 "} + Tmp_ver;	}
		Case( 6){	TrackName = Tmp_title + {"MU100 "} + Tmp_ver;	}
		Case( 5){	TrackName = Tmp_title + {"MU80 "} + Tmp_ver;	}
		Case( 4){	TrackName = Tmp_title + {"SC-8850 "} + Tmp_ver;	}
		Case( 3){	TrackName = Tmp_title + {"SC-88pro "} + Tmp_ver;	}
		Case( 2){	TrackName = Tmp_title + {"SC-88 "} + Tmp_ver;	}
		Case( 1){	TrackName = Tmp_title + {"SC-55 "} + Tmp_ver;	}
		Case(-1){	TrackName = Tmp_title + {"TW-MUSIC2 "} + Tmp_ver;	}
		Default{	TrackName = Tmp_title + {"GM "} + Tmp_ver;	}
	}
	Copyright = Tmp_Copyright;
	TimeSignature = 4, 4;
	MetaKey(4, 1);	//	n:＃の数 -n:♭の数	0:メジャー 1:マイナー

//_Track Definition
	TR( 1) Port(0) CH( 1) Time(-7:1: 0) TrackName = {"Bass 1"}
	TR( 2) Port(0) CH( 2) Time(-7:1: 0) TrackName = {"Bass 2"}
	TR( 3) Port(0) CH( 3) Time(-7:1: 0) TrackName = {"Synth 1L"}
	TR( 4) Port(0) CH( 4) Time(-7:1: 0) TrackName = {"Synth 1R"}
	TR( 5) Port(0) CH( 5) Time(-7:1: 0) TrackName = {"Synth 2 L1"}
	TR( 6) Port(0) CH( 6) Time(-7:1: 0) TrackName = {"Synth 2 L2"}
	TR( 7) Port(0) CH( 7) Time(-7:1: 0) TrackName = {"Synth 3 L1"}
	TR( 8) Port(0) CH( 8) Time(-7:1: 0) TrackName = {"Synth 3 L2"}
	TR( 9) Port(0) CH( 9) Time(-7:1: 0) TrackName = {"Synth 4"}
	TR(10) Port(0) CH(10) Time(-7:1: 0) TrackName = {"Rhythm 1"}
	TR(11) Port(0) CH(11) Time(-7:1: 0) TrackName = {"Rhythm 2"}
	TR(12) Port(0) CH(12) Time(-7:1: 0) TrackName = {"909 SD"}
	TR(13) Port(0) CH(13) Time(-7:1: 0) TrackName = {"Synth 5 L1"}
	TR(14) Port(0) CH(14) Time(-7:1: 0) TrackName = {"Synth 5 L2"}
	TR(15) Port(0) CH(15) Time(-7:1: 0) TrackName = {"Pad 1 L1"}
	TR(16) Port(0) CH(16) Time(-7:1: 0) TrackName = {"Pad 1 L2"}
	TR(33) Port(0) CH( 1) Time(-7:1: 0) TrackName = {"Sys-Ex Port A"}
If(PortNum == 2){
	TR(17) Port(1) CH( 1) Time(-7:1: 0) TrackName = {"Piano 1"}
	TR(18) Port(1) CH( 2) Time(-7:1: 0) TrackName = {"Piano 2"}
	TR(19) Port(1) CH( 3) Time(-7:1: 0) TrackName = {"Vocal 1"}
	TR(20) Port(1) CH( 4) Time(-7:1: 0) TrackName = {"Vocal 2"}
	TR(21) Port(1) CH( 5) Time(-7:1: 0) TrackName = {""}
	TR(22) Port(1) CH( 6) Time(-7:1: 0) TrackName = {""}
	TR(23) Port(1) CH( 7) Time(-7:1: 0) TrackName = {""}
	TR(24) Port(1) CH( 8) Time(-7:1: 0) TrackName = {""}
	TR(25) Port(1) CH( 9) Time(-7:1: 0) TrackName = {""}
	TR(26) Port(1) CH(10) Time(-7:1: 0) TrackName = {"Rhythm 3"}
	TR(27) Port(1) CH(11) Time(-7:1: 0) TrackName = {"Rhythm 4"}
	TR(28) Port(1) CH(12) Time(-7:1: 0) TrackName = {""}
	TR(29) Port(1) CH(13) Time(-7:1: 0) TrackName = {""}
	TR(30) Port(1) CH(14) Time(-7:1: 0) TrackName = {"SFX 3"}
	TR(31) Port(1) CH(15) Time(-7:1: 0) TrackName = {"SFX 2"}
	TR(32) Port(1) CH(16) Time(-7:1: 0) TrackName = {"SFX 1"}
	TR(34) Port(1) CH( 1) Time(-7:1: 0) TrackName = {"Sys-Ex Port B"}
}

//_Tempo
	Time( -7:1: 0) Tempo = 480 ;
	Time(  0:1: 0) Tempo = 140 ;

//_Universal Exclusive
TR(33) Time( -7:1: 0)	SysEx$ = F0,7E,7F,09,01,F7;	// GM System On
	 Time( -6:4: 0)	MasterVolume(127);

//_System Exclusive
//_  TWM2 System SetUp
If(SynthType == -1){
TR(33) Time( -7:3: 0)	GS_EXCLUSIVE($40,$00,$7F,$00);	// GS Reset
	 Time( -6:4:48)	GS_EXCLUSIVE($40,$10,$15,$01);	// Use for Rhythm Part 1 [CH A10]
	 Time( -6:4:50)	GS_EXCLUSIVE($40,$1A,$15,$02);	// Use for Rhythm Part 2 [CH A11]
}
//_  XG System SetUp
	If(SynthType <= 7 && SynthType >= 5){
TR(33) Time( -7:3: 0)	XG_EXCLUSIVE($00,$00,$7E,$00);	// XG System On
	If(SynthType == 5){
	 Time( -6:3: 0)	SysEx$ = F0,43,10,49,00,00,12,00,F7;	// Select MU Basic MAP
	}Else{
	 Time( -6:3: 0)	SysEx$ = F0,43,10,49,00,00,12,01,F7;	// Select MU100 Native MAP
	}
	 Time( -6:4:48)	XG_EXCLUSIVE($08,$00,$07,$02);	// Part Mode Drum1 [A10]
	 	l%2	r*	XG_EXCLUSIVE($08,$0A,$07,$03);	// Part Mode Drum2 [A11]
	If(SynthType >= 6 && PortNum == 2){
	 Time( -6:4:52)	XG_EXCLUSIVE($08,$10,$07,$04);	// Part Mode Drum3 [B10]
	 	l%2	r*	XG_EXCLUSIVE($08,$1A,$07,$05);	// Part Mode Drum4 [B11]
	}
	If(UsePF == 1){
//_  XG  PLG-150PF SetUp
		//	r*	XG_EXCLUSIVE($70,$04,$00,$00);	// PLG150-PF Part Assign
		//	r*	PF_EXCLUSIVE($60,$00,$00,$43);	// Bass Freq
		//	r*	PF_EXCLUSIVE($60,$00,$01,$3F);	// Bass Gain
		//	r*	PF_EXCLUSIVE($60,$00,$02,$3B);	// Treble Freq
		//	r*	PF_EXCLUSIVE($60,$00,$03,$44);	// Treble Gain
		//	r*	PF_EXCLUSIVE($60,$00,$04,$01);	// PF Mode
		//	r*	PF_EXCLUSIVE($60,$00,$05,$01);	// SusCurve
		//	r*	PF_EXCLUSIVE($60,$00,$06,$42);	// EL1 Level
		//	r*	PF_EXCLUSIVE($60,$00,$07,$41);	// EL2 Level
	}
	If(UseDX == 1){
//_  XG  PLG-150DX SetUp
		//	r*	XG_EXCLUSIVE($70,$02,$00,$0D);	// PLG150-DX Part Assign
		//	r*	DX_EXCLUSIVE($60,$0D,$0B, 75);	// Carrier1
		//	r*	DX_EXCLUSIVE($60,$0D,$0C, 64);	// Carrier2
		//	r*	DX_EXCLUSIVE($60,$0D,$0D, 92);	// Carrier3
		//	r*	DX_EXCLUSIVE($60,$0D,$0E, 64);	// Carrier4
		//	r*	DX_EXCLUSIVE($60,$0D,$0F,126);	// Carrier5
		//	r*	DX_EXCLUSIVE($60,$0D,$10, 64);	// Carrier6
		//	r*	DX_EXCLUSIVE($60,$0D,$13, 64);	// Modulator1
		//	r*	DX_EXCLUSIVE($60,$0D,$14, 69);	// Modulator2
		//	r*	DX_EXCLUSIVE($60,$0D,$15, 64);	// Modulator3
		//	r*	DX_EXCLUSIVE($60,$0D,$16, 56);	// Modulator4
		//	r*	DX_EXCLUSIVE($60,$0D,$17, 64);	// Modulator5
		//	r*	DX_EXCLUSIVE($60,$0D,$18, 51);	// Modulator6
		//	r*	DX_EXCLUSIVE($60,$0D,$1B, 65);	// FeedBack
	}
//_  XG  Reverb
TR(33) Time( -5:1: 0)	XG_EXCLUSIVE(  2,  1,  0,  1,  1);	// Reverb Type [HALL 2]
	//	l%2	r*	XG_EXCLUSIVE(  2,  1,  2,$0E);	// Reverb Time     0- 69(18)    0.3〜30.0s            T#4
	//		r*	XG_EXCLUSIVE(  2,  1,  3,$0A);	// Diffusion       0- 10(10)    0〜10
	//		r*	XG_EXCLUSIVE(  2,  1,  4,$1B);	// Initial Delay   0- 63(8)     0.1〜99.3ms           T#5
	//		r*	XG_EXCLUSIVE(  2,  1,  5,$14);	// HPF Cutoff      0- 52(13)    Thru〜8.0kHz          T#3
	//		r*	XG_EXCLUSIVE(  2,  1,  6,$34);	// LPF Cutoff     34- 60(49)    1.0k〜Thru            T#3
	//		r*	XG_EXCLUSIVE(  2,  1, 16,$0E);	// Rev Delay       0- 63(0)     0.1〜99.3ms           T#5
	//		r*	XG_EXCLUSIVE(  2,  1, 17,$04);	// Density         0-  4(4)     0〜4
	//		r*	XG_EXCLUSIVE(  2,  1, 18,$40);	// Er/Rev Balance  1-127(50)    E63>R〜E=R〜E<R63
	//		r*	XG_EXCLUSIVE(  2,  1, 19,$06);	// High Damp       1- 10(8)     0.1〜1.0
	//		r*	XG_EXCLUSIVE(  2,  1, 20,$40);	// Feedback Level  1-127(64)    -63〜+63
	//		r*	XG_EXCLUSIVE(  2,  1, 12,$40);	// Reverb Return                0-127(64)
	//		r*	XG_EXCLUSIVE(  2,  1, 13,$40);	// Reverb Pan                   1-127(64)
//_  XG  Chorus
TR(33) Time( -5:1:48)	XG_EXCLUSIVE(  2,  1, 32, 65, 2);	// Chorus Type [CHORUS 3]
	//	l%2	r*	XG_EXCLUSIVE(  2,  1, 34,$0E);	// LFO Frequency      0-127(12)   0.00Hz〜39.7Hz      T#1
	//		r*	XG_EXCLUSIVE(  2,  1, 35,$19);	// LFO Depth          0-127(32)   0〜127
	//		r*	XG_EXCLUSIVE(  2,  1, 36,$45);	// Feedback Level     1-127(64)   -63〜+63
	//		r*	XG_EXCLUSIVE(  2,  1, 37,$00);	// Delay Offset       0-127(0)    0.0〜50             T#2
	//		r*	XG_EXCLUSIVE(  2,  1, 39,$1F);	// EQ Low Frequency   4- 40(28)   32Hz〜2.0kHz        T#3
	//		r*	XG_EXCLUSIVE(  2,  1, 40,$42);	// EQ Low Gain       52- 76(64)   -12〜+12dB
	//		r*	XG_EXCLUSIVE(  2,  1, 41,$30);	// EQ High Frequency 28- 58(46)   500Hz〜16.0kHz      T#3
	//		r*	XG_EXCLUSIVE(  2,  1, 42,$41);	// EQ High Gain      52- 76(64)   -12〜+12dB
	//		r*	XG_EXCLUSIVE(  2,  1, 52,$01);	// Input Mode         0-  1(0)    mono/stereo
	//		r*	XG_EXCLUSIVE(  2,  1, 45,$40);	// Chorus Pan                   1-127(64)
	//		r*	XG_EXCLUSIVE(  2,  1, 46,$00);	// Send Cho. to Rev.            0-127(0)
//_  XG  Variation
TR(33) Time( -5:2: 0)	XG_EXCLUSIVE($02,$01,$5A,$01);	// Variation Connect [System]
		l%2	r*	XG_EXCLUSIVE($02,$01,$40,$05,$00);	// Variation Type [DELAY L,C,R]

			r*	XG_EXCLUSIVE(  2,  1, 87, 64);	// Variation Pan                1-127(64)
			r*	XG_EXCLUSIVE(  2,  1, 88,  0);	// Send Variation to Reverb     0-127(0)
			r*	XG_EXCLUSIVE(  2,  1, 89,  0);	// Send Variation to Chorus     0-127(0)
//_  XG  5-BAND EQUALIZER
	If(SynthType >= 6){
TR(33) Time( -5:2:48)	XG_EXCLUSIVE(  2, 64,  0,  0);	// EQ Type 0:FLAT 1:JAZZ 2:POPS 3:ROCK 4:CLASSIC
	//	l%2	r*	XG_EXCLUSIVE(  2, 64,  1, 65);	// EQ Gain1      52-76  (-12-+12dB)
	//		r*	XG_EXCLUSIVE(  2, 64,  5, 59);	// EQ Gain2      52-76  (-12-+12dB)
	//		r*	XG_EXCLUSIVE(  2, 64,  9, 64);	// EQ Gain3      52-76  (-12-+12dB)
	//		r*	XG_EXCLUSIVE(  2, 64, 13, 58);	// EQ Gain4      52-76  (-12-+12dB)
	//		r*	XG_EXCLUSIVE(  2, 64, 17, 62);	// EQ Gain5      52-76  (-12-+12dB)
	//		r*	XG_EXCLUSIVE(  2, 64,  2, 15);	// EQ Frequency1  4-40  (32-2000Hz)
	//		r*	XG_EXCLUSIVE(  2, 64,  6, 24);	// EQ Frequency2 14-54  (100-10kHz)
	//		r*	XG_EXCLUSIVE(  2, 64, 10, 32);	// EQ Frequency3 14-54  (100-10kHz)
	//		r*	XG_EXCLUSIVE(  2, 64, 14, 44);	// EQ Frequency4 14-54  (100-10kHz)
	//		r*	XG_EXCLUSIVE(  2, 64, 18, 51);	// EQ Frequency5 28-58  (500-16kHz)
	//		r*	XG_EXCLUSIVE(  2, 64,  3,  8);	// EQ Q1          1-120 (0.1-12.0)
	//		r*	XG_EXCLUSIVE(  2, 64,  7, 12);	// EQ Q2          1-120 (0.1-12.0)
	//		r*	XG_EXCLUSIVE(  2, 64, 11, 10);	// EQ Q3          1-120 (0.1-12.0)
	//		r*	XG_EXCLUSIVE(  2, 64, 15, 14);	// EQ Q4          1-120 (0.1-12.0)
	//		r*	XG_EXCLUSIVE(  2, 64, 19, 12);	// EQ Q5          1-120 (0.1-12.0)
	//		r*	XG_EXCLUSIVE(  2 ,64,  4,  0);	// EQ Shape1      0-1   (0:Shelving 1:Peaking)
	//		r*	XG_EXCLUSIVE(  2, 64, 20,  0);	// EQ Shape5      0-1   (0:Shelving 1:Peaking)
//_  XG  Insertion1
TR(33) Time( -5:3: 0)	XG_EXCLUSIVE($03,$00,$00,$40,$00);	// Insertion1 Type [THRU]
		l%2	r*	XG_EXCLUSIVE($03,$00,$0C,127);	// Insertion1 Part [0-63:Part 64-126:A/D 127:OFF]
//_  XG  Insertion2
TR(33) Time( -5:3:48)	XG_EXCLUSIVE($03,$01,$00,$40,$00);	// Insertion2 Type [THRU]
		l%2	r*	XG_EXCLUSIVE($03,$01,$0C,127);	// Insertion2 Part [0-63:Part 64-126:A/D 127:OFF]
	If(SynthType == 7){
//_  XG  Insertion3
TR(33) Time( -5:4: 0)	XG_EXCLUSIVE($03,$02,$00,$40,$00);	// Insertion3 Type [THRU]
		l%2	r*	XG_EXCLUSIVE($03,$02,$0C,127);	// Insertion3 Part [0-63:Part 64-126:A/D 127:OFF]
//_  XG  Insertion4
TR(33) Time( -5:4:48)	XG_EXCLUSIVE($03,$03,$00,$40,$00);	// Insertion4 Type [THRU]
		l%2	r*	XG_EXCLUSIVE($03,$03,$0C,127);	// Insertion4 Part [0-63:Part 64-126:A/D 127:OFF]

}}}Else{If(SynthType <= 4 && SynthType >= 1){
//_  GS System SetUP
TR(33) Time( -7:3: 0)	GS_EXCLUSIVE($40,$00,$7F,$00);	// GS Reset
	 Time( -6:4:48)	GS_EXCLUSIVE($40,$10,$15,$01);	// Use for Rhythm Part 1 [CH A10]
	 Time( -6:4:50)	GS_EXCLUSIVE($40,$1A,$15,$02);	// Use for Rhythm Part 1 [CH A11]
	If((SynthType >= 2 || SynthType <= 4) && PortNum == 2){
TR(34) Time( -6:4:52)	GS_EXCLUSIVE($40,$10,$15,$01);	// Use for Rhythm Part 1 [CH B10]
	 Time( -6:4:50)	GS_EXCLUSIVE($40,$1A,$15,$02);	// Use for Rhythm Part 2 [CH B11]
	}
//_  GS  Reverb
TR(33) Time( -5:1: 0)	GS_EXCLUSIVE($40,$01,$30,$04);	// Reverb Macro [Hall 2]
 	//	l%2	r*	GS_EXCLUSIVE($40,$01,$31,  4);	// Reverb Character
	//		r*	GS_EXCLUSIVE($40,$01,$32,  0);	// Reverb Pre-LPF
	//		r*	GS_EXCLUSIVE($40,$01,$33, 64);	// Reverb Level
	//		r*	GS_EXCLUSIVE($40,$01,$34, 64);	// Reverb Time
	//		r*	GS_EXCLUSIVE($40,$01,$35,  0);	// Reverb Delay Feedback
	//		r*	GS_EXCLUSIVE($40,$01,$37,  0);	// Reverb Pre Delay Time
//_  GS  Chorus
TR(33) Time( -5:1:48)	GS_EXCLUSIVE($40,$01,$38,$02);	// Chorus Macro [Chorus 3]
	//	l%2	r*	GS_EXCLUSIVE($40,$01,$39,  3);	// Chorus Pre-LPF
	//		r*	GS_EXCLUSIVE($40,$01,$3A, 64);	// Chorus Level
	//		r*	GS_EXCLUSIVE($40,$01,$3B,  8);	// Chorus Feedback
	//		r*	GS_EXCLUSIVE($40,$01,$3C, 80);	// Chorus Delay
	//		r*	GS_EXCLUSIVE($40,$01,$3D,  3);	// Chorus Rate
	//		r*	GS_EXCLUSIVE($40,$01,$3E, 19);	// Chorus Depth
	//		r*	GS_EXCLUSIVE($40,$01,$3F,  0);	// Chorus Send Level to Reverb
	//		r*	GS_EXCLUSIVE($40,$01,$40,  0);	// Chorus Send Level to Delay
	If(SynthType >= 2){
//_  GS  Delay
TR(33) Time( -5:2: 0)	GS_EXCLUSIVE($40,$01,$50,$04);	// Delay Macro [Pan Delay 1]
	//	l%2	r*	GS_EXCLUSIVE($40,$01,$51,  0);	// Delay Pre-LPF
	//		r*	GS_EXCLUSIVE($40,$01,$52,110);	// Delay Time Center
	//		r*	GS_EXCLUSIVE($40,$01,$53, 12);	// Delay Time Ratio Left
	//		r*	GS_EXCLUSIVE($40,$01,$54, 24);	// Delay Time Ratio Right
	//		r*	GS_EXCLUSIVE($40,$01,$55,  0);	// Delay Level Center
	//		r*	GS_EXCLUSIVE($40,$01,$56,127);	// Delay Level Left
	//		r*	GS_EXCLUSIVE($40,$01,$57, 64);	// Delay Level Right
	//		r*	GS_EXCLUSIVE($40,$01,$58, 48);	// Delay Level
	//		r*	GS_EXCLUSIVE($40,$01,$59, 80);	// Delay Feedback
	//		r*	GS_EXCLUSIVE($40,$01,$5A,  0);	// Delay Send Level to Reverbt
	If(SynthType >= 3){
//_  GS  SC-88pro~8850
//_  GS  EQ
TR(33) Time( -5:2:48)	EQ(  0,  3,  1,  6);
//_  GS  EFX
TR(33) Time( -5:3: 0)	GS_EXCLUSIVE($40,$03,$00,$00,$00);	// EFX Type [Thru]
	//	l%2	r*	GS_EXCLUSIVE($40,$41,$22,  0);	// EFX On []
	//		r*	GS_EXCLUSIVE($40,$03,$03,  0);	//   
	//		r*	GS_EXCLUSIVE($40,$03,$04,  0);	//   
	//		r*	GS_EXCLUSIVE($40,$03,$05,  0);	//   
	//		r*	GS_EXCLUSIVE($40,$03,$06,  0);	//   
	//		r*	GS_EXCLUSIVE($40,$03,$07,  0);	//   
	//		r*	GS_EXCLUSIVE($40,$03,$08,  0);	//   
	//		r*	GS_EXCLUSIVE($40,$03,$09,  0);	//   
	//		r*	GS_EXCLUSIVE($40,$03,$0A,  0);	//   
	//		r*	GS_EXCLUSIVE($40,$03,$0B,  0);	//   
	//		r*	GS_EXCLUSIVE($40,$03,$14,  0);	//   
	//		r*	GS_EXCLUSIVE($40,$03,$15,  0);	//   
	//		r*	GS_EXCLUSIVE($40,$03,$16, 64);	// EFX Level
	//		r*	GS_EXCLUSIVE($40,$03,$17,  0);	// EFX Send Level to Reverb
	//		r*	GS_EXCLUSIVE($40,$03,$18,  0);	// EFX Send Level to Chorus
	//		r*	GS_EXCLUSIVE($40,$03,$19,  0);	// EFX Send Level to Delay
	//		r*	GS_EXCLUSIVE($40,$03,$1B,  0);	// EFX Control Sorce 1
	//		r*	GS_EXCLUSIVE($40,$03,$1C,127);	// EFX Control Depth 1
	//		r*	GS_EXCLUSIVE($40,$03,$1D,  0);	// EFX Control Sorce 2
	//		r*	GS_EXCLUSIVE($40,$03,$1E,127);	// EFX Control Depth 2
	//		r*	GS_EXCLUSIVE($40,$03,$1F,  1);	// EFX Send EQ Switch
}}}}
Switch(SynthType){
//_Instulment Setup
	Case(7){
//_  XG MU1000/2000
//					     BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,LPF,Res,HPF,Atc,Dec,Rel,BR,LwF,LwG,TrF,TrG
	TR( 1) Time( -4:1: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 2) Time( -4:1:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 3) Time( -4:2: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 4) Time( -4:2:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 5) Time( -4:3: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 6) Time( -4:3:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 7) Time( -4:4: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 8) Time( -4:4:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 9) Time( -3:1: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(10) Time( -3:1:48) IsuXG(127,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(11) Time( -3:2: 0) IsuXG(127,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(12) Time( -3:2:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(13) Time( -3:3: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(14) Time( -3:3:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(15) Time( -3:4: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(16) Time( -3:4:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
If(PortNum == 2){
	TR(17) Time( -2:1: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(18) Time( -2:1:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(19) Time( -2:2: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(20) Time( -2:2:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(21) Time( -2:3: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(22) Time( -2:3:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(23) Time( -2:4: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(24) Time( -2:4:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(25) Time( -1:1: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(26) Time( -1:1:48) IsuXG(127,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(27) Time( -1:2: 0) IsuXG(127,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(28) Time( -1:2:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(29) Time( -1:3: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(30) Time( -1:3:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(31) Time( -1:4: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(32) Time( -1:4:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
}	}Case(6){
//_  XG MU100/128
//					     BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,LPF,Res,HPF,Atc,Dec,Rel,BR,LwF,LwG,TrF,TrG
	TR( 1) Time( -4:1: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 2) Time( -4:1:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 3) Time( -4:2: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 4) Time( -4:2:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 5) Time( -4:3: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 6) Time( -4:3:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 7) Time( -4:4: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 8) Time( -4:4:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR( 9) Time( -3:1: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(10) Time( -3:1:48) IsuXG(127,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(11) Time( -3:2: 0) IsuXG(127,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(12) Time( -3:2:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(13) Time( -3:3: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(14) Time( -3:3:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(15) Time( -3:4: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(16) Time( -3:4:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
If(PortNum == 2){
	TR(17) Time( -2:1: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(18) Time( -2:1:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(19) Time( -2:2: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(20) Time( -2:2:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(21) Time( -2:3: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(22) Time( -2:3:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(23) Time( -2:4: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(24) Time( -2:4:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(25) Time( -1:1: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(26) Time( -1:1:48) IsuXG(127,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(27) Time( -1:2: 0) IsuXG(127,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(28) Time( -1:2:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(29) Time( -1:3: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(30) Time( -1:3:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(31) Time( -1:4: 0) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
	TR(32) Time( -1:4:48) IsuXG(  0,  0,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null;	// 
}	}Case(5){
	}Case(4){
//_  GS SC-8850
//					     BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,Cut,Res,Atc,Dec,Rel,BR
	TR( 1) Time( -4:1: 0) IsuGS( 18,  4, 40,100, 64,127,  0,  0,  0, 64, 64, 64, 54, 69, 64, 64, 64,12);Null;Mono();	// 
	TR( 2) Time( -4:1:48) IsuGS( 20,  4, 40,127, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;Mono();	// 
	TR( 3) Time( -4:2: 0) IsuGS(  8,  4, 91,110,  1,127, 20, 50,  0, 64, 64, 64, 74, 74, 64, 84, 24,12);Null;Mono();	// 
	TR( 4) Time( -4:2:48) IsuGS(  8,  4, 91,110,127,127, 20, 50,  0, 64, 64, 64, 74, 74, 64, 84, 24,12);Null;Mono();	// 
	TR( 5) Time( -4:3: 0) IsuGS( 10,  4, 52,100, 48,127, 30, 20, 30, 64, 64, 64,127, 84,  0, 48,  0,12);Null;	// 
	TR( 6) Time( -4:3:48) IsuGS( 10,  4, 52,100, 80,127, 30, 20, 30, 44, 74, 44,127, 84,  0, 48,  0,12);Null;FINE($54,$3D);Rx_CH( 5);	// 
	TR( 7) Time( -4:4: 0) IsuGS(  7,  4, 81, 90, 16,127, 10, 40, 40, 64, 64, 64,127, 64, 32, 44, 32,24);Null;y65(127);y5(20);	// 
	TR( 8) Time( -4:4:48) IsuGS(  7,  4, 81, 90,112,127, 10, 40, 40, 44, 74, 44,127, 64, 32, 44, 32,24);Null;y65(127);y5(20);FINE($54,$3D);Rx_CH( 7);	// 
	TR( 9) Time( -3:1: 0) IsuGS( 31,  4, 81,100, 64,127,  0,  0,  0, 64, 64, 64,104, 84, 64, 64, 64,12);Null;y65(127);y5(20);	// 
	TR(10) Time( -3:1:48) IsuGS(  0,  4, 14,120, 64,127, 40,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;	// 
						    Dpt( 36, 60);
				  Dpn( 39, 64); Dpt( 39, 68);
		              Dpn( 49,112);               Drs( 49, 40); Dcs( 49,  0); Dds( 49,  0);
		              Dpn( 57, 16);               Drs( 57, 40); Dcs( 57,  0); Dds( 57,  0);
		              Dpn( 51, 32);               Drs( 51, 40); Dcs( 51,  0); Dds( 51,  0);
	TR(11) Time( -3:2: 0) IsuGS(  0,  4, 27,100, 64,127,127,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;	// 
	TR(12) Time( -3:2:48) IsuGS( 19,  4,118,127, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;	// 
	TR(13) Time( -3:3: 0) IsuGS(  7,  4, 52, 90, 16,127, 10, 40, 40, 64, 64, 64,127, 64, 32, 44, 32,24);Null;	// 
	TR(14) Time( -3:3:48) IsuGS(  7,  4, 52, 90,112,127, 10, 40, 40, 44, 74, 44,127, 64, 32, 44, 32,24);Null;FINE($54,$3D);Rx_CH(13);	// 
	TR(15) Time( -3:4: 0) IsuGS(  4,  4, 51, 80, 32,127, 80, 30,  0, 64, 64, 64, 79, 74, 54, 79, 59,12);Null;	// 
	TR(16) Time( -3:4:48) IsuGS(  4,  4, 51, 80, 96,127, 80, 30,  0, 44, 74, 44, 79, 74, 54, 79, 59,12);Null;FINE($54,$3D);Rx_CH(15);	// 
If(PortNum == 2){
	TR(17) Time( -2:1: 0) IsuGS(  0,  4,  2,120, 64,127,100, 10, 20, 64, 64, 64, 94, 74, 64, 64, 64,12);Null;	// 
	TR(18) Time( -2:1:48) IsuGS(  0,  4,  2,127, 84,127, 60,  0,  0, 64, 64, 64,127, 99, 64, 64, 64,12);Null;	// 
	TR(19) Time( -2:2: 0) IsuGS(  2,  4, 83,100, 64,127, 50, 40, 30, 69, 84, 79,124, 79, 44, 84, 54,12);Null;Mono();	// 
	TR(20) Time( -2:2:48) IsuGS(  2,  4, 83, 90, 64,127, 50, 40, 20, 69, 84, 79,124, 79, 44, 84, 54,12);Null;Mono();	// 
	TR(21) Time( -2:3: 0) IsuGS(  2,  4, 51,120, 32,127, 30, 20, 40, 64, 64, 64,127, 81,  0, 64,  0,12);Null;	// 
	TR(22) Time( -2:3:48) IsuGS(  2,  4, 51,120, 96,127, 30, 20, 40, 44, 74, 44,127, 81,  0, 64,  0,12);Null;FINE($54,$3D);Rx_CH(21);	// 
	TR(23) Time( -2:4: 0) IsuGS(  0,  4,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;	// 
	TR(24) Time( -2:4:48) IsuGS(  0,  4,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;	// 
	TR(25) Time( -1:1: 0) IsuGS(  0,  4,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;	// 
	TR(26) Time( -1:1:48) IsuGS(  0,  4, 60,100, 64,127, 50,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;	// 
				Dpn( 52, 64); Dpt( 52, 60);
	TR(27) Time( -1:2: 0) IsuGS(  0,  4, 58,127, 64,127, 50,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;	// 
				Dpn( 84,  1);
				Dpn( 85,127);
	TR(28) Time( -1:2:48) IsuGS(  0,  4,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;	// 
	TR(29) Time( -1:3: 0) IsuGS(  0,  4,  1,100, 64,127,  0,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;	// 
	TR(30) Time( -1:3:48) IsuGS(  5,  4,128,100, 64,127,127,  0,  0, 64, 64, 64, 44, 64, 64, 64, 64,12);Null;	// 
	TR(31) Time( -1:4: 0) IsuGS( 17,  3,123,127, 64,127,127,  0,  0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;	// 
	TR(32) Time( -1:4:48) IsuGS(  6,  4,123,127, 64,127,127,  0, 50, 64, 64, 64, 64, 64, 64, 84, 64,12);Null;	// 
}}}

//_Rhythm Macro
Switch(SynthType){
	Case(7){
	}Case(6){
	}Case(5){
	}Case(4){
	}Case(3){
	}Case(2){
	}Case(1){
	}Default{
	}
}
	$k{ n36,} $K{ n35,} $T{ n39,} $s{n107,} $S{n108,} $I{ n70,} $t{ n70,}
	$h{ n42,} $i{ n44,} $H{ n46,} $C{ n49,} $c{ n57,} $D{ n51,}
	$b{ n52,}
	$z{ n84,} $Z{ n85,}
	
//---------------------------------------------------------------------------------------------
/** BODY **/
//_Track 10 [Rhtyhm 1]
//_  Kick
#r1bd10={	l16 q99	Rhythm{	(v127	S){	K1	}}	r1	}
#r1bd11={	l16 q99	Rhythm{	(v127	S){	[2k4K4]	}}	r1	}
#r1bd12={	l16 q99	Rhythm{	(v127	S){	k4 K4 k4 K(v--)k(v+)k8(v+)	}}	r1	}
#r1bd13={	l16 q99	Rhythm{	(v127	S){	k4 K4 k8.(v--)k(v++) K8(v-)k8(v+)	}}	r1	}
#r1bd14={	l16 q99	Rhythm{	(v127	S){	K2K2	}}	r1	}
#r1bd15={	l16 q99	Rhythm{	(v127	S){	K2k4K4	}}	r1	}
#r1bd1f1={	l16 q99	Rhythm{	(v127	S){	Krrr (v-)kr(v+)Kr (v-)k(v+)rrr Krrr	(v-)kr(v+)Kr (v-)k(v+)rrr Krr(v--)k(v++) K(v--)[4k32(v+4)]k	}}	r1	}

//_  Snare1
#r1sd11={	l16 q99	Rhythm{	(v120	S){	[2r4s4]	}}	r1	}
#r1sd12={	l16 q99	Rhythm{	(v120	S){	r4s4r4s8s8	}}	r1	}

//_  Snare2
#r1sd2s1={	l16 q99	Rhythm{	(v120	S){	r4 S4 rS8. r4	S4.S4.S4	}}	r1^1	}
#r1sd2s2={	l16 q99	Rhythm{	(v120	S){	r4 S4 rS8. r4	S4	}}	r1^1	}

//_  Clap
#r1hc11={	l16 q99	Rhythm{	(v110	S){	[2r4T4]	}}	r1	}
#r1hc12={	l16 q99	Rhythm{	(v110	S){	r4T4r4(v--)T(v+)T(v+)T8	}}	r1	}

//_  HiHat
#r3hh11={	l16 q99	Rhythm{	(v127	S){	[4(v-15)h(v-15)h(v+30)Hr]	}}	r1	}
#r3hh12={	l16 q99	Rhythm{	(v127	S){	[2(v-15)h(v-15)h(v+30)Hr] (v-15)h(v-15)h32(v+8)h32(v+7)H(v-15)h(v+30) (v-15)h(v-15)h(v+30)Hr	}}	r1	}
#r3hh13={	l16 q99	Rhythm{	(v127	S){	[2(v-15)h(v-15)h(v+30)Hr]	}}	r1	}
#r3hh14={	l16 q99	Rhythm{	(v127	S){	  (v-15)h(v-15)h(v+30)Hr	}}	r1	}
#r3hh15={	l16 q99	Rhythm{	(v127	S){
	(v-20)hr(v+20)H(v-40)h(v+40) (v-20)h(v-20)h(v+40)h(v-40)h(v+40) (v-20)h(v-20)h(v+40)h(v-40)h(v+40) (v-20)hr(v+20)H(v-40)h(v+40)	}}	r1	}
#r3hh16={	l16 q99	Rhythm{	(v127	S){
	(v-20)hr(v+20)H(v-40)h(v+40) (v-20)h(v-20)h(v+40)h(v-40)h(v+40) (v-20)hr(v+20)H(v-40)h(v+40) (v-20)h(v-20)h(v+60)Hr(v-20)	}}	r1	}
#r3hh17={	l16 q99	Rhythm{	(v127	S){
	(v-20)hr(v+20)H(v-40)h(v+40) (v-20)h(v-20)h(v+40)h(v-40)h(v+40)	}}	r1	}

//_  Shaker
#r1sh11={	l16 q99	Rhythm{	(v100	S){	[4I(v---)I(v++)I(v-)I(v++)]	}}	r1	}
#r1sh12={	l16 q99	Rhythm{	(v100	S){	[3I(v---)I(v++)I(v-)I(v++)]	}}	r1	}
#r1sh13={	l16 q99	Rhythm{	(v100	S){	[2I(v---)I(v++)I(v-)I(v++)]	}}	r1	}
#r1sh14={	l16 q99	Rhythm{	(v100	S){	  I(v---)I(v++)I(v-)I(v++)	}}	r1	}

//_Track 11 [Rhtyhm 2]
//_Track 12 [909 SD]
#sd91={	o5 v127 l16 q99	v.Repeat(off);
	rc+rc+ rrc+c+ c+f+b>e c+<af+d+
}
//	rc+rc+ rrc+c+ <a>c+eg+ f+d+<bg+>
#sd92={	o5 v127 l16 q99	v.Repeat(off);
	v.T=16,127,!1^1;[2[16c+]] v127
}
#sd93={	o5 v127 l16 q99	v.Repeat(off);
	[4c+v-5c+32v-5c+32v-10c+rrrv+20][2c+v-5c+32v-5c+32rrv+10]
}
#sd94={	o5 v127 l16 q99	v.Repeat(off);
	v.T=48,127,!1;[8c+r] v127
}
#sd95={	o5 v127 l16 q99	v.Repeat(off);
	[2c+v-5c+32v-5c+32v-10c+rrrv+20]c+v-5c+32v-5c+32rrv+10	c+
}

//_Track 26 [Rhtyhm 3]
//_Track 27 [Rhtyhm 4]

//_Track  1 [Bass 1]
#bs11={	l8 v127 q75	[4 #?1>#?1<]	}
#bs12={	l8 v127 q75	[3 #?1>#?1<]    #?2>#?2<	}
#bs13={	l8 v127 q75	[2 #?1>#?1<] [2 #?2>#?2<]	}
#bs14={	l8 v127 q75	[2 #?1>#?1<]    #?2>#?2<     #?3>#?3<	}
#bs15={	l8 v127 q75	   #?1>#?1<     #?2>#?2<     #?3>#?3<     #?4>#?4<	}

#bs17={	l8 v127 q75	[4 #?1l16>#?1#?1<l8]	}
#bs18={	l8 v127 q75	[3 #?1l16>#?1#?1<l8]    #?2l16>#?2#?2<l8	}
#bs19={	l8 v127 q75	[2 #?1l16>#?1#?1<l8] [2 #?2l16>#?2#?2<l8]	}
#bs1a={	l8 v127 q75	[2 #?1l16>#?1#?1<l8]    #?2l16>#?2#?2<l8    #?3l16>#?3#?3<l8	}
#bs1b={	l8 v127 q75	   #?1l16>#?1#?1<l8     #?2l16>#?2#?2<l8    #?3l16>#?3#?3<l8    #?4l16>#?4#?4<l8	}

#bs1d={	l8 v127 q75	[2 l16#?1r>l8#?1<l16#?1>l8#?1l16#?1<]	l8	}
#bs1e={	l8 v127 q75	   l16#?1r>l8#?1<l16#?1>l8#?1l16#?1< l16#?1r>l8#?1<l16#?2>l8#?2l16#?2<	l8	}
#bs1f={	l8 v127 q75	   l16#?1r>l8#?1<l16#?1>l8#?1l16#?1< l16#?2r>l8#?2<l16#?2>l8#?2l16#?2<	l8	}
#bs1g={	l8 v127 q75	   l16#?1r>l8#?1<l16#?1>l8#?1l16#?1< l16#?2r>l8#?2<l16#?3>l8#?3l16#?3<	l8	}
#bs1h={	l8 v127 q75	   l16#?1r>l8#?1<l16#?2>l8#?2l16#?2< l16#?3r>l8#?3<l16#?4>l8#?4l16#?4<	l8	}

//_Track  2 [Bass 2]
#bs21={	l8 v127 q75	[4 r>#?1<]	}
#bs22={	l8 v127 q75	[3 r>#?1<]    r>#?2<	}
#bs23={	l8 v127 q75	[2 r>#?1<] [2 r>#?2<]	}
#bs24={	l8 v127 q75	[2 r>#?1<]    r>#?2<     r>#?3<	}
#bs25={	l8 v127 q75	   r>#?1<     r>#?2<     r>#?3<     r>#?4<	}

#bs27={	l16 v127 q75	[4 #?1>#?1#?1#?1<]	}
#bs28={	l16 v127 q75	[3 #?1>#?1#?1#?1<]    #?2>#?2#?2#?2<	}
#bs29={	l16 v127 q75	[2 #?1>#?1#?1#?1<] [2 #?2>#?2#?2#?2<]	}
#bs2a={	l16 v127 q75	[2 #?1>#?1#?1#?1<]    #?2>#?2#?2#?2<     #?3>#?3#?3#?3<	}
#bs2b={	l16 v127 q75	   #?1>#?1#?1#?1<     #?2>#?2#?2#?2<     #?3>#?3#?3#?3<     #?4>#?4#?4#?4<	}

#bs2d={	l8 v127 q75	[2 l8r>#?1<l16r>l8#?1l16#?1<]	l8	}
#bs2e={	l8 v127 q75	   l8r>#?1<l16r>l8#?1l16#?1< l8r>#?1<l16r>l8#?2l16#?2<	l8	}
#bs2f={	l8 v127 q75	   l8r>#?1<l16r>l8#?1l16#?1< l8r>#?2<l16r>l8#?2l16#?2<	l8	}
#bs2g={	l8 v127 q75	   l8r>#?1<l16r>l8#?1l16#?1< l8r>#?2<l16r>l8#?3l16#?3<	l8	}
#bs2h={	l8 v127 q75	   l8r>#?1<l16r>l8#?2l16#?2< l8r>#?3<l16r>l8#?4l16#?4<	l8	}

//_Track  3 [Synth 1L]
#s1p1={	l8 v127 q75	[4 r>#?1<]	}
#s1p2={	l8 v127 q75	[3 r>#?1<]    r>#?2<	}
#s1p3={	l8 v127 q75	[2 r>#?1<] [2 r>#?2<]	}
#s1p4={	l8 v127 q75	[2 r>#?1<]    r>#?2<    r>#?3<	}
#s1p5={	l8 v127 q75	   r>#?1<     r>#?2<    r>#?3<    r>#?4<	}

//_Track  4 [Synth 1R]

//_Track  5 [Synth 2 L1]
//_Track  6 [Synth 2 L2]
//_Track  7 [Synth 3 L1]
//_Track  8 [Synth 3 L2]
//_Track  9 [Synth 4]

//_Track 13 [Synth 5 L1]
//_Track 14 [Synth 5 L2]
//_Track 15 [Pad 1 L1]
//_Track 16 [Pad 1 L2]
//_Track 17 [Piano 1]
//_Track 18 [Poano 2]
//_Track 19 [Vocal 1]
//_Track 20 [Vocal 2]
//_Track 21 []
//_Track 22 []
//_Track 23 []
//_Track 24 []
//_Track 25 []
//_Track 28 []
//_Track 29 []
//_Track 30 [SFX 3]
#se31={	o2 v127 q99 l1
	c+
}

//_Track 31 [SFX 2]
#se21={	o6 v127 q99 l1^1
	y74.T=64,48,!1^1;y11.T=127,0,!1^1;a
}

//_Track 32 [SFX 1]
#se11={	o6 v127 q99 l1
	y74.T=0,127,!1^1;	a1^1
}
#se12={	o5 v127 q99 l1
	y74.T=0,127,!1^2.;	a1^2.
}
#se13={	o5 v127 q99 l1
	S{y74(0); r2 y74.T=0,127,!2; r2 y74(0);}	a1
}
#se14={	o5 v127 q99 l1
	S{y74.T=0,127,!1; r1 y74(0);}	a1
}

//---------------------------------------------------------------------------------------------
//_イントロ１
Function Intro1(Int num){

	// Pad 1
	Str pd12={"	o4 v100 l1 q98
		S{	c+1	^1		<b1	^2.>c+4		<a1		^4.b8^2	^1>	c+1		^2.	}
		S{	e1	^2.d+4	^1	^1			c+1		^1		d+1	^1		e2.	}
		S{	g+1	^1		g+1	^1			e2.f+4	^2.g+4	^1	^1		^2.	}
	"}
//		'c+eg+'1^2.'c+d+g+'4	'<b>d+g+'1^2.'c+d+g+'4
//		'<a>c+e'4.'<b>d+g+'4.'c+f+a'4	'<a>c+e'4.'<b>c+f+'4.'c+eg+'4	'd+g+b'1	'c+d+g+'1
//		'c+eg+'2.

	// Piano 1
	Str pf11={"	S{	l8
				r-4	r%8y64(127);r%-8r4r%-8y64(0);r%8
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r4
				r%8y64(127);r%-8r1r%-8y64(0);r%8
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8
				r1
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r4
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8
			}S{	o4 v100 l8 q98
				r-4	v--ev+f+v+
				'g+>c+e<'v--<g+v+>c+v+'g+b>d+<'4v-'<b>d+''b>d+f+<'4v+
				'eg+>c+e<'4.v-25d+v+g+v+5>c+v+5g+>v+5c+<<
				'd+g+b'v--<g+v+b>v+'f+b>d+<'4v-'<b>d+'v+rr
				'd+g+b>d+<'2^8rr4
				'ea>c+<'v--<av+>c+v+'g+b>d+<'4v-'<b>d+''a>c+f+<'4v+
				v--<'eg+'v-15av+5>c+v+5'f+a'v+5bv+5>c+v+5'eg+'4<v+
				v-->'d+f+'v-<av-ev+++'>d+<b'v-av-f+rrv+++
				v->av-f+v-d+v+ev-c+v-<g+v++'g+>c+<'rv+
			}	o6 v100 l8 q98
				r-4	v--c+v+d+v+
				'eg+>c+<'4v--'<g+>c+'v+'<b>d+'4v-'<g+b>'v++'eg+b'4
				'c+eg+'4.v-25'<g+b>'v+25r2
				'd+g+b'4v--'<g+b>'v+'d+f+'4v-'<f+b>'v+'<<a>c+f+>c+f+''<a>d+f+a>c+<'v+
				'<b>d+g+'2^8rv--'<<d+g+>c+g+>c+'4v++
				'<a>c+e'4v--'<ea>'v+'<b>d+'4v-'<g+b>'v++'<a>c+f+'4
				'<a>c+e'4v--'<ea>'v+'<b>c+f+'4v-'<f+b>'v++'c+eg+'4
				'd+f+a'4v--'<a>c+'v+'f+ab'4v-'d+f+'v+'<c+eg+>c+f+''d+g+b'v+
				>'d+t2f+t0'v-<bv-f+v+'c+t2et0'4v-d+<v-f+rv+++
	"}
	Str pf12={"	S{	l8
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r4
				r%8y64(127);r%-8r2.r%-8y64(0);r%8 r%8y64(127);r%-8r4r%-8y64(0);r%8
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8
				r%8y64(127);r%-8r2.r%-8y64(0);r%8 r%8y64(127);r%-8r4r%-8y64(0);r%8
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r4
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8
				[2 r%8y64(127);r%-8r2r%-8y64(0);r%8]
				r%8y64(127);r%-8r1r%-8y64(0);r%8
			}S{	o4 v100 l8 q98
				r-4	v--ev+f+v+
				'g+>c+e<'v--<g+v+>c+v+'g+b>d+<'4v-'<b>d+''b>d+f+<'4v+
				'eg+>c+e<'2^8rv-'d+g+>c+<'4v+
				'd+g+b'v--<g+v+b>v+'f+b>d+<'4v-'<b>d+'v+rr
				'd+g+b>d+<'2^8rv--'d+g+>c+<'4v++
				'ea>c+<'v--<av+>c+v+'g+b>d+<'4v-'<b>d+''a>c+f+<'4v+
				v--<'eg+'v-15av+5>c+v+5'f+a'v+5bv+5>c+v+5'eg+'4<v+
				'f+b>d+<'4v--'>d+f+a<'v+r'g+b>d+<'v+r4.
				'f+g+>c+<'1
				'g+>c+e<'2.
			}	o6 v100 l8 q98
				r-4	v--c+v+d+v+
				'eg+>c+<'4v--'<g+>c+'v+'<b>d+'4v-'<g+b>'v++'eg+b'4
				'c+eg+'4.t4>e16t2f+16t0'c+t3et0'8.<v-'g+t3>c+<t0'8.v-'d+t3g+t0'v++
				'd+g+b'4v--'<g+b>'v+'d+f+'4v-'<f+b>'v+'<<a>c+f+>c+f+''<a>d+f+a>c+<'v+
				'<b>d+g+'4t8>d+<t6b>t4g+<t2bv-t0'g+t1>c+<t0'v+'f+t1>d+<t0'
				'<a>c+e'4v--'<ea>'v+'<b>d+'4v-'<g+b>'v++'<a>c+f+'4
				'<a>c+e'4v--'<ea>'v+'<b>c+f+'4v-'<f+b>'v++'c+eg+'4
				'd+g+b'4v--d+v+'d+f+b'v+Div{g+v-d+v-<b}4v+Div{f+v-d+<v-g+}4>>v+++
				'c+d+g+b'2.Div{v---<d+v+g+v+>c+v+}4
				'eg+b>c+<'2.
	"}

	// Rhythm 1
	Str dr12 = {"	l16 q99
		S{	[3	#r1bd10	r1]	#r1bd14	#r1bd10	#r1bd10	}
		Rhythm{
			(v110	q%384	S){	c1	r1	r1	r2.c4		r1	r1	r1	r1	}
			(v110	q%384	S){	C1	r1	r1	r1		C1	r1	r1	r1	}
		}
	"}

	// Rhythm 3
	Str dr32 = {"	l16 q99
		Rhythm{
			(v120	S){	r-4	[3	b1	r1]	b1	b1		b1	}
		}
	"}

	// Rhythm 4
	Str dr42 = {"	l16 q99
		Rhythm{
			(v120	S){	[8r1]	r2.z1	}
			(v120	S){	[8r1]	r2.Z1	}
		}
	"}

	// SFX 3
	Str se32={	l1	#se31	}

	// SFX 2
	Str se22={	l1	[8r]	r2.#se21	}

	// SFX 1
	Str se12={	l1	[7r]	S{r1^2.y11(0)r1^1y11(127)}	#se12	}
	
	//_Track List
	If(num == 1){
		//	Tr	   1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32
		S{	Play(;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;pf11;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;);}	l1[8r*]
		S{	Play(;    ;    ;    ;    ;    ;    ;    ;    ;    ;dr12;    ;    ;    ;    ;pd12;    ;pf12;    ;    ;    ;    ;    ;    ;    ;    ;dr32;dr42;    ;    ;se32;    ;se12;);}	l1[9r*]
	}
}
//---------------------------------------------------------------------------------------------
//_共通(イントロ２・サビ・間奏)
#Common1={

	// Bass 1
	Str bs11 = {"	o2
		[2	#bs11({a})]		[2	#bs11({b})]
		[2	#bs11({>c<})]		#bs11({>c+<})	#bs12({>c+<},{g+})
	"}
	Str bs12 = {"	o2
		[2	#bs11({a})]		[2	#bs11({b})]
		[2	#bs11({>c+<})]	
	"}

	// Bass 2
	Str bs21 = {"	o2
		[2	#bs21({a})]		[2	#bs21({b})]
		[2	#bs21({>c<})]		#bs21({>c+<})	#bs22({>c+<},{g+})
	"}
	Str bs22 = {"	o2
		[2	#bs21({a})]		[2	#bs21({b})]
		[2	#bs21({>c+<})]	
	"}

	// Synth 1
	#sn11 = {
		[2	#s1p1({a})]		[2	#s1p1({b})]
		[2	#s1p1({>c<})]		#s1p1({>c+<})	#s1p2({>c+<},{g+})
	}
	#sn12 = {
		[2	#s1p1({a})]		[2	#s1p1({b})]
		[2	#s1p1({>c+<})]	
	}
	
	Str s1l1 = {"	o4	#sn11	"}
	Str s1l2 = {"	o4	#sn12	"}

	Str s1r1 = {"	o3	#sn11	"}
	Str s1r2 = {"	o3	#sn12	"}

	// Synth 5
	Str sn51 = {"	o6 v127 l16 q80
		TDAuto(!1^1,63,64,300,-1,4,8);
		y74.T=48,127,!1^1,127,48,!1^1,48,127,!1^1,127,48,!1^1;
		[2	c+<a>ra >c+<re>c+< ra<a>e c+r>c+<a]
		[2	d+<b>rb >d+<rf+>d+< rb<b>f+ d+r>d+<b]
		[2	d+cr>c d+r<f+>d+ rc<c+f+ d+r>d+c<]
			ec+r>c+ er<a>f+ rc+<<b>f+ d+r>ec+<
			ec+rb >d+r<g+>d+ rc+<c+a f+ra>d+<
	"}
	Str sn52 = {"	o6 v127 l16 q80
		TDAuto(!1^1,63,64,300,-1,4,8);
		y74.T=48,127,!1^1,127,48,!1^1,48,127,!1^1,127,48,!1^1;
		[2	c+<a>ra >c+<re>c+< ra<a>e c+r>c+<a]
		[2	d+<b>rb >d+<rf+>d+< rb<b>f+ d+r>d+<b]
		[2	ec+r>c+ er<g+>e rc+<c+g+ er>ec+<]
			f+c+r>c+ f+r<g+>d+ r<b<b>g+ er>ec+<
			ec+r>d+ f+r<f+>d+ rc+<c+f+ d+rg+b
	"}

	// Synth 6
	Str sn61 = {"	o6 v127 l8 q99
		y74.T=127,48,!1^1^1^1,48,127,!1^1^1^1;
		r'<a>c+e'rr'<f+a>c+'rr'<a>c+e'	r'<a>c+e'rr'<f+a>c+'r'<a>c+e'r
		r'<b>d+f+'rr'<g+b>d+'rr'<b>d+f+'	r'<b>d+f+'rr'<g+b>d+'r'<b>d+f+'r
		r'cd+f+'rr'<a>ce'rr'cd+f+'		r'cd+f+'rr'<a>ce'r'cd+f+'r
		'c+eg+'rr'c+f+a'rr'c+eg+'r		r'<b>d+f+'rr'<a>c+e'r'<a>d+f+'r
	"}
	Str sn62 = {"	o6 v127 l8 q99
		y74.T=127,48,!1^1^1^1,48,127,!1^1^1^1;
		r'<a>c+e'rr'<f+a>c+'rr'<a>c+e'	r'<a>c+e'rr'<f+a>c+'r'<a>c+e'r
		r'<b>d+f+'rr'<g+b>d+'rr'<b>d+f+'	r'<b>d+f+'rr'<g+b>d+'r'<b>d+f+'r
		r'c+eg+'rr'<a>c+e'rr'c+eg+'		r'c+eg+'rr'd+f+a'r'd+g+b'r
		'f+a>c+<'rr'g+b>d+<'rr'ea>c+<'r	r'd+f+a'rr'f+a>c+<'r'g+b>d+<'r
	"}

	// Pad 1
	Str pd11={"	o5 v100 l1 q98
		'<a>c+e'1^1	'<b>d+f+'1^1
		'cd+f+'1^1	'c+eg+'4.'c+f+a'4.'c+eg+'4.'<b>d+f+'4.'<a>c+e'4'<a>d+f+'4
	"}
	Str pd12={"	o5 v100 l1 q98
		'<a>c+e'1^1	'<b>d+f+'1^1
		'c+eg+'1^1	'c+f+a'4.'d+g+b'4.'c+ea'4.'d+f+a'4.'c+f+a'4'd+g+b'4
	"}

	// Piano 2
	Str pf21={"	S{	l8
				[3	r%8y64(127);r%-8r1^8r%-8y64(0);r%8
					r%8y64(127);r%-8r1-8r%-8y64(0);r%8]
				[4 r%8y64(127);r%-8r4.r%-8y64(0);r%8] r%8y64(127);r%-8r2r%-8y64(0);r%8
			}S{	o4 v100 l8 q98
			}	o6 v110 l8 q98
				'<c+a>'c+'ea'<a> ea'<a>c+'a		r'ea'c+a 'c+e'a>c+<a
				'<d+b>'d+'f+b'<b> f+b'<b>d+'b		r'f+b'd+b 'd+f+'b>d+<b
				'<f+>c'd+'f+>c<'c f+>c<'d+f+'c	r'f+>c<'d+c 'd+f+'c>d+<c
				c+e'g+>c+<'c+f+'a>c+<'c+e'g+>c+<'<b>d+'f+b'<a>c+'d+f+'a
	"}
	Str pf22={"	S{	l8
				[3	r%8y64(127);r%-8r1^8r%-8y64(0);r%8
					r%8y64(127);r%-8r1-8r%-8y64(0);r%8]
				[4 r%8y64(127);r%-8r4.r%-8y64(0);r%8] r%8y64(127);r%-8r2r%-8y64(0);r%8
			}S{	o4 v100 l8 q98
			}	o6 v110 l8 q98
				'<c+a>'c+'ea'<a> ea'<a>c+'a		r'ea'c+a 'c+e'a>c+<a
				'<d+b>'d+'f+b'<b> f+b'<b>d+'b		r'f+b'd+b 'd+f+'b>d+<b
				'<g+>c+'e'g+>c+<'c+ g+>c+<'c+e'c+	r'g+>c+<'ec+ 'eg+'c+>e<c+
				c+f+'a>c+<'d+g+'b>d+<'c+e'a>c+<'d+f+'a>d+<'c+f+'g+b'>d+<
	"}

	// Rhythm 1
	Str dr1c1 = {"	l16 q99
		S{	[2	[3	#r1bd11]	:	#r1bd12]	#r1bd13	}
		S{	[7	#r1hc11]	#r1hc12	}
		S{	[8	#r1sh11]	}
		Rhythm{
			(v110	q%384	S){	c1	r1	r1	r1		r1	r1	r1	r1	}
			(v110	q%384	S){	C1	r1	r1	r1		C1	r1	r1	r1	}
			(v120	q%384	S){	r1	r1	r1	r1		r1	r1	D4.D4.D4.D4.D4D4	}
		}
	"}
	Str dr1c2 = {"	l16 q99
		S{	[2	[2	#r1bd11]	:	#r1bd11	#r1bd12]	#r1bd1f1	}
		S{	[8	#r1hc11]	}
		S{	[7	#r1sh11]	#r1sh13	}
		Rhythm{
			(v110	q%384	S){	r1	r1	r1	r1		c1	r1	c4.r4.c4.r4.c4c4	}
			(v110	q%384	S){	C1	r1	r1	r1		r1	r1	C4.C4.r4.C4.C4r4	}
		}
	"}

	// 909 SD
	Str sd91 = {"	l1
		[6r]	#sd94	#sd91
	"}
	Str sd92 = {"	l1
		[4r]	#sd92	#sd93
	"}

	// SFX 3
	Str se31={	l1	#se31	}

	// SFX 2
	Str se21={	l1	#se21	}

	// SFX 1
	Str se12={	l1	[7r]	#se14	}
}

//---------------------------------------------------------------------------------------------
//_イントロ２
Function Intro2(Int num){

	// 共通部呼び出し
	#Common1;

	// Synth 2
	Str sn21 = {"	o5 v127 l8 q80
		'<a>c+e'8.'<f+a>c+'8.'<a>c+e''<a>c+e'4'<f+a>c+''<a>c+e'
		'<a>c+e'8.'<f+a>c+'8.'<a>c+e''<f+a>c+'4'<a>c+e'8.r16
		'<b>d+f+'8.'<g+b>d+'8.'<b>d+f+''<b>d+f+'4'<g+b>d+''<b>d+f+'
		'<b>d+f+'8.'<g+b>d+'8.'<b>d+f+''<g+b>d+'4'<b>d+f+'8.r16
		'cd+f+'8.'<a>ce'8.'cd+f+''cd+f+'4'<a>ce''cd+f+'
		'cd+f+'8.'<a>ce'8.'cd+f+''<a>ce'4'cd+f+'8.r16
		'c+eg+'4'<a>c+e''c+f+a'4'<b>d+f+''c+eg+'4
		'<a>c+e''<b>d+f+'4'<g+b>d+''<a>c+e'4'<a>d+f+'8.r16
	"}
	Str sn22 = {"	o5 v127 l8 q80
		'<a>c+e'8.'<f+a>c+'8.'<a>c+e''<a>c+e'4'<f+a>c+''<a>c+e'
		'<a>c+e'8.'<f+a>c+'8.'<a>c+e''<f+a>c+'4'<a>c+e'8.r16
		'<b>d+f+'8.'<g+b>d+'8.'<b>d+f+''<b>d+f+'4'<g+b>d+''<b>d+f+'
		'<b>d+f+'8.'<g+b>d+'8.'<b>d+f+''<g+b>d+'4'<b>d+f+'8.r16
		'c+eg+'8.'<a>c+e'8.'c+eg+''c+eg+'4'<a>c+e''c+eg+'
		'c+eg+'8.'<a>c+e'8.'c+eg+''d+f+a'4'd+g+b'8.r16
		'f+a>c+<'4'd+f+a''g+b>d+<'4'eg+b''ea>c+<'4
		'<a>c+e''d+f+a'4'<b>d+f+''f+a>c+<'4'g+b>d+<'4
	"}

	// Rhythm 1
	Str dr11 = dr1c1 + {"	l16 q99
		S{	[2	[3	#r3hh11]	#r3hh12]	}
	"}
	Str dr12 = dr1c2 + {"	l16 q99
		S{	[2	[3	#r3hh11]	:	#r3hh12]	#r3hh13	}
	"}
	Str dr17 = {"	l16 q99
		S{	#r1bd10	}
		Rhythm{
			(v110	q%384	S){	[13c4(v-8)]	}
			(v110	q%384	S){	[13C4(v-8)]	}
		}
	"}

	// SFX 1
	Str se16={	l1	[6r]	#se11	}

	//_Track List
	//	Tr	   1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32
	S{	Play(;bs11;bs21;s1l1;s1r1;sn21;    ;    ;    ;    ;dr11;    ;sd91;sn51;    ;pd11;    ;    ;pf21;    ;    ;sn61;    ;    ;    ;    ;    ;    ;    ;    ;    ;se21;    ;);}	l1[8r*]
	If(num == 1){
		//	Tr	   1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32
		S{	Play(;bs12;bs22;s1l2;s1r2;sn22;    ;    ;    ;    ;dr12;    ;sd92;sn52;    ;pd12;    ;    ;pf22;    ;    ;sn62;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;);}	l1[8r*]
	}
	If(num == 3){
		//	Tr	   1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32
		S{	Play(;bs12;bs22;s1l2;s1r2;sn22;    ;    ;    ;    ;dr12;    ;sd92;sn52;    ;pd12;    ;    ;pf22;    ;    ;sn62;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;se16;);}	l1[8r*]
		S{	Play(;    ;    ;    ;    ;    ;    ;    ;    ;    ;dr17;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;se31;se21;    ;);}	l1[4r*]
	}
}

//---------------------------------------------------------------------------------------------
//_イントロ３
Function Intro3(Int num){

	// Bass 1
	Str bs11={"	o2
		[4	#bs17({g+})]
	"}

	// Bass 2
	Str bs21={"	o2
		[4	#bs27({g+})]
	"}

	// Synth 3
	Str sn31 = {"	o6 v127 l16 q75
		TDAuto(!1^1,63,64,300,-1,2,8);
		y74.T=48,127,!1^1,127,48,!1^1;
		[2	g+rd+g+^r>d+r< g+rd+g+^r>c+r<	g+rd+g+^rbr g+rd+g+^r>c+r<]
	"}

	// Pad 1
	Str pd11={"	o5 v100 l1 q98
		'<g+>c+d+'1^1^1^1
	"}

	// Rhythm 1
	Str dr11 = {"	l16 q99
		S{	[4	#r1bd11]	}
		S{	[2	#r1sd2s1]	}
		S{	[2	#r3hh15	#r3hh16]	}
		S{	[4	#r1sh11]	}
		Rhythm{
			(v110	q%384	S){	c1	r1	r1	r2c4r4	}
			(v110	q%384	S){	C1	r1	r1	r2r4C4	}
		}
	"}

	// SFX 2
	Str se21={	l1	r1^1	#se21	}

	//_Track List
	If(num == 1){
		//	Tr	   1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32
		S{	Play(;bs11;bs21;    ;    ;    ;    ;sn31;    ;    ;dr11;    ;    ;    ;    ;pd11;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;se21;    ;);}	l1[4r*]
	}
}

//---------------------------------------------------------------------------------------------
//_Aメロ
Function AMero1(Int num){

	// Bass 1
	Str bs11={"	o2
		[2	#bs17({g+})]	[2	#bs17({f+})]
		#bs17({g+})	#bs19({g+},{a})	l8 b>b bc+ >c+c+<< b>b	b<a> aa< g+r f+r
	"}
	Str bs12={"	o2
		[2	#bs17({g+})]	[2	#bs17({f+})]
		#bs17({g+})	#bs19({g+},{a})	l8 b>b bc+ >c+c+<< b>b<	a
	"}
	Str bs13={"	o2
		[2	#bs17({g+})]	[2	#bs17({f+})]
	"}

	// Bass 2
	Str bs21={"	o2
		[2	#bs27({g+})]	[2	#bs27({f+})]
		#bs27({g+})	#bs29({g+},{a})	l16 b>bbb brc+>c+ c+c+c+r<< b>bbb	br<a>a aaar< g+>g+<rr f+>f+<rr
	"}
	Str bs22={"	o2
		[2	#bs27({g+})]	[2	#bs27({f+})]
		#bs27({g+})	#bs29({g+},{a})	l16 b>bbb brc+>c+ c+c+c+r<< b>bbb<	a8
	"}
	Str bs23={"	o2
		[2	#bs27({g+})]	[2	#bs27({f+})]
	"}

	// Synth 4
	Str sn41 = {"	o5 v127 l16 q75
		TDAuto(!1^1,63,64,0,-1,4,8);
		y74.T=48,127,!1^1,127,48,!1^1,48,127,!1^1,127,48,!1^1;
		g+rd+g+ rbf+r g+f+rd+ <b>rd+r	g+rd+g+ rbf+r bf+rd+ g+r<b>r
		f+rc+f+ raer f+erc+ <a>rc+r	f+rc+f+ raer aerc+ f+r<a>r
		g+rd+g+ rbf+r g+f+rd+ <b>rd+r	g+rd+g+ rbf+r >c+<g+re arc+r
		bd+rf+ ra>c+<e rg+rb bd+rf+	raac+ rerg+ g+d+rr f+c+rr
	"}
	Str sn42 = {"	o5 v127 l16 q75
		TDAuto(!1^1,63,64,0,-1,4,8);
		y74.T=48,127,!1^1,127,48,!1^1,48,127,!1^1,127,48,!1^1;
		g+rd+g+ rbf+r g+f+rd+ <b>rd+r	g+rd+g+ rbf+r bf+rd+ g+r<b>r
		f+rc+f+ raer f+erc+ <a>rc+r	f+rc+f+ raer aerc+ f+r<a>r
		g+rd+g+ rbf+r g+f+rd+ <b>rd+r	g+rd+g+ rbf+r >c+<g+re arc+r
		bd+rf+ ra>c+<e rg+rb bd+f+c+	<a
	"}
	Str sn43 = {"	o5 v127 l16 q75
		TDAuto(!1^1,63,64,0,-1,4,8);
		y74.T=48,127,!1^1,127,48,!1^1,48,87,!1,87,0,!1^1^1;
		g+rd+g+ rbf+r g+f+rd+ <b>rd+r	g+rd+g+ rbf+r bf+rd+ g+r<b>r
		f+rc+f+ raer f+erc+ <a>rc+r	f+rc+f+ raer aerc+ f+r<a>r
		g+rd+g+ rbf+r g+f+rd+ <b>rd+r	g+rd+g+ rbf+r >c+<g+re arc+r
		bd+rf+ ra>c+<e rg+rb bd+rf+	raac+ rerg+ g+d+rr f+c+rr
	"}

	// Pad 1
	Str pd11={"	o5 v100 l1 q98
		'<g+b>d+'1^1	'<f+a>c+'1^1
		'<g+b>d+'1^2'<a>c+e'2	'<b>d+f+'4.'c+eg+'4.'<b>d+f+'4.'<a>c+e'4.'<g+b>d+'4'<f+a>c+'4
	"}
	Str pd12={"	o5 v100 l1 q98
		'<g+b>d+'1^1	'<f+a>c+'1^1
		'<g+b>d+'1^2'<a>c+e'2	'<b>d+f+'4.'c+eg+'4.'<b>d+f+'4
	"}
//	'<a>c+e'4
	Str pd13={"	o5 v100 l1 q98
		'<g+b>d+'1^1	'<f+a>c+'1^1
		'<g+b>d+'1^2'<a>c+e'2	'<b>d+f+'4.'c+eg+'4.'<b>d+f+'4.'<a>c+e'4.
	"}

	// Lyric
	Str lyr1={	l8	r-8
		r4
		Lyric = {"小鳥のさえずりを聞いて 目覚めた"}
		r2.	[2r1]	r2.
		Lyric = {"明けの空 浮かぶ月 見上げる事もなく"}
	}
	Str lyr2={	l8	r-8
		r4
		Lyric = {"まとわりつく喧騒と砂礫を 貫いて"}
		r2.	[3r1]	r2
		Lyric = {"稜線の彼方まで"}
	}
	Str lyr3={	l8	r-8
		r4
		Lyric = {"散りばめた星々が 揺らめく"}
		r2.	[2r1]	r2.
		Lyric = {"真四角に 切り取った 夜天を塗りつぶす"}
	}
	Str lyr4={	l8	r-8
		r4
		Lyric = {"響かぬ声 渇いた嗤い 目を伏せて"}
		r2.	[2r1]	r2.
		Lyric = {"積み上がる孤絶と無我 凍える楼閣"}
	}

	// Vocal
	Str vo11 = {"	o5 v110 l8 q97
		r4g+,90g+,90g+f+g+b
		g+g+g+f+4,99f+,80g+4,90
		r4g+4,75f+b4,65g+8
		^2^8rg+b
		>c+<f+4,90f+r4g+b
		>c+<f+4,90f+rg+g+b
		>c+4.,90d+4.,90c+4
		^8,90<b4.,90g+4,85f+4,85
	"}
	Str vo12 = {"	o5 v110 l8 q95
		r4g+,90g+,90g+f+g+b
		g+4g+,80f+4f+,80g+4,90
		r4g+4,75f+b4,65g+8
		^2^8rg+b
		>c+<f+4,90f+r4g+b
		>c+<f+4,90f+r4g+4
		>c+4.,90d+4.,90c+4
		<b
	"}
	Str vo13 = {"	o5 v110 l8 q97
		r4g+,90g+,90g+f+g+b
		g+4g+,80f+4f+,80g+4,90
		r4g+4,75f+b4,65g+8
		^2^8rg+b
		>c+<f+4,90f+r4g+b
		>c+<f+4,90f+rg+g+b
		>c+4.,90d+4.,90c+4
		^8,90<b4.,90g+4,85f+4,85
	"}
	Str vo14 = {"	o5 v110 l8 q95
		r4g+,90g+,90g+f+g+b
		g+g+g+f+4ef+g+
		r4g+g+f+b4,65g+8
		^2^8rg+b
		>c+<f+4,90f+rg+g+b
		>c+4<f+f+,50f+f+g+b
		>c+4.,90d+4.,90c+4
		<b
	"}

	// Piano 1
	Str pf13={"	S{	l8
				r-4	r%8y64(127);r%-8r4r%-8y64(0);r%8
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r4
				r%8y64(127);r%-8r1r%-8y64(0);r%8
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8
				r1
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r4
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8
				[2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8
			}S{	o4 v100 l8 q98
				r-4	v--ev+f+v+
				'g+>c+e<'v--<g+v+>c+v+'g+b>d+<'4v-'<b>d+''b>d+f+<'4v+
				'eg+>c+e<'4.v-25d+v+g+v+5>c+v+5g+>v+5c+<<
				'd+g+b'v--<g+v+b>v+'f+b>d+<'4v-'<b>d+'v+rr
				'd+g+b>d+<'2^8rr4
				'ea>c+<'v--<av+>c+v+'g+b>d+<'4v-'<b>d+''a>c+f+<'4v+
				v--<'eg+'v-15av+5>c+v+5'f+a'v+5bv+5>c+v+5'eg+'4<v+
				v-->'d+f+'v-<av-ev+++'>d+<b'v-av-f+rrv+++
				'g+>c+e<'
			}	o6 v100 l8 q98
				r-4	v--c+v+d+v+
				'eg+>c+<'4v--'<g+>c+'v+'<b>d+'4v-'<g+b>'v++'eg+b'4
				'c+eg+'4.v-25'<g+b>'v+25r2
				'd+g+b'4v--'<g+b>'v+'d+f+'4v-'<f+b>'v+'<<a>c+f+>c+f+''<a>d+f+a>c+<'v+
				'<b>d+g+'2^8rv--'<<d+g+>c+g+>c+'4v++
				'<a>c+e'4v--'<ea>'v+'<b>d+'4v-'<g+b>'v++'<a>c+f+'4
				'<a>c+e'4v--'<ea>'v+'<b>c+f+'4v-'<f+b>'v++'c+eg+'4
				'd+f+a'4v--'<a>c+'v+'f+ab'4v-'d+f+'v+'<c+eg+>c+f+''d+g+b'v+
				'<b>eg+>c+<'
	"}

	// Rhythm 1
	Str dr11 = {"	l16 q99
		S{	[5	#r1bd11]	#r1bd12	[2	#r1bd11]	}
		S{	[3	#r1sd11]	#r1sd12		[2	#r1sd11]	}
		S{	[6r1]	#r1sd2s1	}
		S{	[4	#r3hh15	:	#r3hh16]	#r3hh17	}
		S{	[7	#r1sh11]	#r1sh13	}
		Rhythm{
			(v110	q%384	S){	c1	r1	r1	r2.c4		r1	r1	c4.c4.r4.c4.r4r4		}
			(v110	q%384	S){	C1	r1	r1	r2.r4		C1	r1	C4.r4.C4.r4.r4r4	}
			(v120	q%384	S){	r1	r1	r1	r1		r1	r1	r4.r4.r4.r4.D4D4	}
		}
	"}
	#r1bd1s1={	l16 q99	Rhythm{	(v127	S){	Krrr (v-)k(v+)rKr rr(v-)k(v+)r k(v--)k(v+)k(v-)k(v++)	K1	}}	r1	}
	Str dr12 = {"	l16 q99
		S{	[5	#r1bd11]	#r1bd13	#r1bd1s1	}
		S{	[3	#r1sd11]	#r1sd12		[2	#r1sd11]	}
		S{	[6r1]	#r1sd2s2	}
		S{	[4	#r3hh15	:	#r3hh16]	}
		S{	[7	#r1sh11]	}
		Rhythm{
			(v110	q%384	S){	c1	r1	r1	r2.c4		r1	r1	c4.c4.r4	c1	}
			(v110	q%384	S){	C1	r1	r1	r2.r4		C1	r1	C4.r4.C4	C1	}
		}
	"}
	#r1bd1s2={	l16 q99	Rhythm{	(v127	S){	Krrr (v-)k(v+)rKr rr(v-)k(v+)r Krrr	(v-)k(v+)rKr rr(v-)k(v+)r K4K4	}}	r1	}
	Str dr13 = {"	l16 q99
		S{	[5	#r1bd11]	#r1bd12	#r1bd1s2	}
		S{	[3	#r1sd11]	#r1sd12		[2	#r1sd11]	}
		S{	[2	#r3hh15	#r3hh16]	}
		S{	[6	#r1sh11]	}
		Rhythm{
			(v110	q%384	S){	c1	r1	r1	r2.c4		r1	r1	c4.c4.r4.c4.r4r4		}
			(v110	q%384	S){	C1	r1	r1	r2.r4		C1	r1	C4.r4.C4.r4.r4r4	}
		}
	"}
	Str dr14 = {"	l16 q99
		Rhythm{
			(v110	q%384	S){	c1	}
			(v110	q%384	S){	C1	}
		}
	"}

	// 909 SD
	Str sd91 = {"	l1
		[6r]	#sd93
	"}
	Str sd92 = {"	l1
		[6r]	#sd95
	"}

	// SFX 1
	Str se12={	l1	[7r]	#se14	}

	//_Track List
	If(num == 1){
		//	Tr	       1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32
		S{	Play(lyr1;bs11;bs21;    ;    ;    ;    ;    ;    ;sn41;dr11;    ;sd91;    ;    ;pd11;    ;    ;    ;vo11;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;);}	l1[8r*]
		S{	Play(lyr2;bs12;bs22;    ;    ;    ;    ;    ;    ;sn42;dr12;    ;sd92;    ;    ;pd12;    ;    ;    ;vo12;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;se12;);}	l1[8r*]
	}
	If(num == 2){
		//	Tr	       1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32
		S{	Play(lyr3;bs13;bs23;    ;    ;    ;    ;    ;    ;sn43;dr13;    ;    ;    ;    ;pd13;    ;    ;    ;vo13;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;);}	l1[8r*]
		S{	Play(lyr4;    ;    ;    ;    ;    ;    ;    ;    ;    ;dr14;    ;    ;    ;    ;    ;    ;pf13;    ;vo14;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;se12;);}	l1[8r*]
	}
}

//---------------------------------------------------------------------------------------------
//_サビ
Function Sabi1(Int num){

	// 共通部呼び出し
	#Common1;

	// Lyric
	Str lyr1={	l8	r-8
		r-2.
		Lyric = {"ひとつ目の誓いを交わした あの日から"}
		r2.	[2r1]
		Lyric = {"色無き回廊を迷い"}
		[2r1]
		Lyric = {"ふたつ目の約束は 果たせぬままで"}
	}
	Str lyr2={	l8	r-8
		Lyric = {"みっつ目の祈りを捧ぐ 神は滅びたけれども"}
		[4r1]
		Lyric = {"よっつ目の願いは僕が届けるよ この手で"}
	}
	Str lyr3={	l8	r-8
		r-2.
		Lyric = {"いつつ目の悲しみは 深い闇に墜ち"}
		r2.	[2r1]
		Lyric = {"連鎖から煮詰められた"}
		[2r1]
		Lyric = {"むっつ目の嘆きを綴るグリモワール"}
	}
	Str lyr4={	l8	r-8
		Lyric = {"ななつ目の怒りで引き裂いた欠片は散って"}
		[4r1]
		Lyric = {"やっつ目の諦観を呼ぶけれど 逃げずに"}
	}

	// Vocal 1
	Str vo11 = {"	o6 v110 l8 q95
		r-2.	f+,90f+ed+c+d+
		c+8.<a8.>c+,90c+8.<a8.>c+,90
		c+8.r16<aa>c+8.<a8.>c+16.r32
		d+8.<b8.>d+,90d+8.r16<b>d+
		d+8.<b8.>d+,90<b4,90>d+8.r16
		d+8.c8.d+,90d+8.r16cd+
		d+8.c8.d+,90c4,90d+8.r16
		e4.,90f+4.,90e4
		^8,90d+4.,90c+4,90d+8.r16
	"}
	Str vo12 = {"	o6 v110 l8 q97
		c+8.<a8.>c+,90c+8.r16<a>c+
		c+8.<a8.>c+,90<a4>c+8.r16
		d+8.<b8.>d+,90d+8.r16<b>d+
		d+8.<b8.>d+,90<b4>d+8.r16
		e8.c+8.e,90e8.r16c+e
		e8.c+8.e,90f+4g+8.r16
		a4.,90b4.,90a4,90
		f+4rg+a4b4
		>c+1^1
	"}
	Str vo13 = {"	o6 v110 l8 q95
		r-2.	f+,90f+ed+c+d+
		c+8.<a8.>c+,90c+8.r16<a>c+
		c+8.<a8.>c+,90<a4>c+8.r16
		d+8.<b8.>d+,90d+8.r16<b>d+
		d+8.<b8.>d+,90<b4,90>d+8.r16
		d+8.c8.d+,90d+8.r16cd+
		d+8.c8.d+,90d+8.c8.d+16.r32
		e4.,90f+4.,90e4
		^8,90d+4.,90c+4,90d+8.r16
	"}
	Str vo14 = {"	o6 v110 l8 q97
		c+8.<a8.>c+,90c+8.r16<a>c+
		c+8.<a8.>c+,90<a4>c+8.r16
		d+8.<b8.>d+,90d+8.r16<b>d+
		d+8.<b8.>d+,90d+4r4
		e8.c+8.e,90e8.r16c+e
		e8.c+8.e,90f+4g+8.r16
		a4.,90b4.,90a4,90
		f+4rg+a4b4
		>c+1^1
	"}

	// Vocal 2
	Str vo21 = {"	o5 v100 l8 q95
		r-8	b
		a8.f+8.a,90a8.f+8.a,90
		a8.r16f+f+a8.f+8.a16.r32
		b8.g+8.b,90b8.r16g+b
		b8.g+8.b,90g+4,90b8.r16
		b8.a8.b,90b8.r16ab
		b8.a8.b,90a4,90b8.r16
		>c+4.,90d+4.,90c+4
		^8,90<b4.,90a4,90b8.r16
	"}
	Str vo22 = {"	o5 v100 l8 q97
		a8.f+8.a,90a8.r16f+a
		a8.f+8.a,90f+4a8.r16
		b8.g+8.b,90b8.r16g+b
		b8.g+8.b,90g+4b8.r16
		>c+8.<a8.>c+,90c+8.r16<a>c+
		c+8.<a8.>c+,90d+4e8.r16
		f+4.,90g+4.,90f+4,90
		d+4ref+4g+4
		a1^1
	"}
	Str vo23 = {"	o5 v100 l8 q95
		r-8	b
		a8.f+8.a,90a8.r16f+a
		a8.f+8.a,90f+4a8.r16
		b8.g+8.b,90b8.r16g+b
		b8.g+8.b,90g+4,90b8.r16
		b8.a8.b,90b8.r16ab
		b8.a8.b,90b8.a8.b16.r32
		>c+4.,90d+4.,90c+4
		^8,90<b4.,90a4,90b8.r16
	"}
	Str vo24 = {"	o5 v100 l8 q97
		a8.f+8.a,90a8.r16f+a
		a8.f+8.a,90f+4a8.r16
		b8.g+8.b,90b8.r16g+b
		b8.g+8.b,90b4r4
		>c+8.<a8.>c+,90c+8.r16<a>c+
		c+8.<a8.>c+,90d+4e8.r16
		f+4.,90g+4.,90f+4,90
		d+4ref+4g+4
		a1^1
	"}

	// Rhythm 1
	Str dr11 = dr1c1 + {"	l16 q99
		S{	[4	#r3hh15	#r3hh16]	}
	"}
	Str dr12 = dr1c2 + {"	l16 q99
		S{	[4	#r3hh15	:	#r3hh16]	#r3hh17	}
	"}

	//_Track List
	If(num == 1){
		//	Tr	       1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32
		S{	Play(lyr1;bs11;bs21;s1l1;s1r1;    ;    ;    ;    ;    ;dr11;    ;sd91;sn51;    ;pd11;    ;    ;pf21;vo11;vo21;sn61;    ;    ;    ;    ;    ;    ;    ;    ;    ;se21;    ;);}	l1[8r*]
		S{	Play(lyr2;bs12;bs22;s1l2;s1r2;    ;    ;    ;    ;    ;dr12;    ;sd92;sn52;    ;pd12;    ;    ;pf22;vo12;vo22;sn62;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;se12;);}	l1[8r*]
	}
	If(num == 2){
		//	Tr	       1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32
		S{	Play(lyr3;bs11;bs21;s1l1;s1r1;    ;    ;    ;    ;    ;dr11;    ;sd91;sn51;    ;pd11;    ;    ;pf21;vo13;vo23;sn61;    ;    ;    ;    ;    ;    ;    ;    ;    ;se21;    ;);}	l1[8r*]
		S{	Play(lyr4;bs12;bs22;s1l2;s1r2;    ;    ;    ;    ;    ;dr12;    ;sd92;sn52;    ;pd12;    ;    ;pf22;vo14;vo24;sn62;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;se12;);}	l1[8r*]
	}
}

//---------------------------------------------------------------------------------------------
//_間奏１
Function Kanso1(Int num){

	// 共通部呼び出し
	#Common1;

	// Bass 1
	Str bs14 = {"	o2
		[2	#bs17({a})]		[2	#bs17({b})]
		[4	#bs17({>c+<})]
		>c+8
	"}

	// Bass 2
	Str bs24 = {"	o2
		[2	#bs27({a})]		[2	#bs27({b})]
		[4	#bs27({>c+<})]
		>c+
	"}

	// Synth 2
	Str sn21 = {"	o5 v127 l8 q75
		v--g+v++>g+,99>d+<<v--g+v++ >>d+,99c+<<v--g+v++>>c+<<	v--g+v++>b,99a<v--g+v++ >g+,99f+<v--g+v++>d+<
		v--g+v++>g+,99>d+<<v--g+v++ >>d+,99c+<<v--g+v++>>c+<<	v--g+v++>>c+,99<b<v--g+v++ >g+,99f+<v--g+v++>d+<
		v--g+v++>g+,99>d+<<v--g+v++ >>d+,99c<<v--g+v++>>c<<	v--g+v++>b,99a<v--g+v++ >g+,99f+<v--g+v++>d+<
		v--g+v++>g+,99>d+<<v--g+v++ >>d+,99c+<<v--g+v++>>c+<<	v--g+v++>c+,99e<v--g+v++ >g+,99b<v--g+v++>>c+<<
	"}
	Str sn22 = {"	o5 v127 l8 q75
		v--g+v++>g+,99>d+<<v--g+v++ >>d+,99c+<<v--g+v++>>c+<<	v--g+v++>b,99a<v--g+v++ >g+,99f+<v--g+v++>d+<
		v--g+v++>g+,99>d+<<v--g+v++ >>d+,99c+<<v--g+v++>>c+<<	v--g+v++>>c+,99<b<v--g+v++ >g+,99f+<v--g+v++>d+<
		y74.T=127,0,!1^1^1^1;
		v--g+v++>g+,99>d+<<v--g+v++ >>d+,99c+<<v--g+v++>>c+<<	v--g+v++>b,99a<v--g+v++ >g+,99f+<v--g+v++>d+<
		v--g+v++>g+,99>d+<<v--g+v++ >>d+,99c+<<v--g+v++>>c+<<	v--g+v++>>c+,99<b<v--g+v++ >g+,99f+<v--g+v++>d+,99
		c+
		r1y74(127);
	"}

	// Pad 1
	Str pd14={"	o5 v100 l1 q98
		'<a>c+e'1^1	'<b>d+f+'1^1
		'c+eg+'1^1	'c+f+g+'1^1
	"}

	// Piano 2
	Str pf24={"	S{	l8
				[3	r%8y64(127);r%-8r1^8r%-8y64(0);r%8
					r%8y64(127);r%-8r1-8r%-8y64(0);r%8]
					r%8y64(127);r%-8r1r%-8y64(0);r%8
					r%8y64(127);r%-8r1^8r%-8y64(0);r%8
			}S{	o4 v100 l8 q98
			}	o6 v110 l8 q98	v.Repeat(off);
				'<c+a>'c+'ea'<a> ea'<a>c+'a		r'ea'c+a 'c+e'a>c+<a
				'<d+b>'d+'f+b'<b> f+b'<b>d+'b		r'f+b'd+b 'd+f+'b>d+<b
				'<g+>c+'e'g+>c+<'c+ g+>c+<'c+e'c+	r'g+>c+<'ec+ 'eg+'c+>e<c+
				'<g+>c+'f+'g+>c+<'c+ g+>c+<'c+f+'c+	
				l16<
				S{	v.T=80,110,!1;<<<<g+>c+f+g+> c+f+g+>c+ f+g+>c+f+ g+>c+f+g+<	}
					v.T=80,110,!1;<<<f+g+>c+f+ g+>c+f+g+> c+f+g+>c+ f+g+>c+f+<<
					v110'>c+g+>c+eg+<<'8
	"}
//				v.T=80,110,!1;<<c+eg+b> c+ef+b> c+f+g+b> c+eg+b	v110>c+8
//				v.T=80,110,!1;<<<'c+g+''eb''g+>c+<''b>e<'> 'c+f+''eb''f+>c+<''b>f+<'> 'c+g+''f+b''g+>c+<''b>e<'> 'c+g+''eb''g+>c+<''b>f+<'	v110>'c+eg+'8

	// Rhythm 1
	Str dr13 = {"	l16 q99
		S{	[3	#r1bd10	r1]	#r1bd14	#r1bd15	}
		Rhythm{
			(v110	q%384	S){	c1	r1	c1	r1		r1	r1	c2r2	c2c4r4	}
			(v110	q%384	S){	C1	r1	r1	r1		C1	r1	r2C2	C2r4C4	}
		}
	"}
	#r1bd1s1={	l16 q99	Rhythm{	(v127	S){	Krkr Krkr Kkkk Kkkk 	}}	r1	}
	Str dr14 = {"	l16 q99
		S{	[5	#r1bd11]	#r1bd13	#r1bd11	#r1bd1s1		#r1bd10	}
		S{	[2	[3	#r1sd11]	#r1sd12]	}
		S{	[2	[3	#r3hh11]	#r3hh12]	}
		S{	[7	#r1sh11]	}
		Rhythm{
			(v110	q%384	S){	c1	r1	r1	r2.c4		r1	r1	c2r2	c2c4r4		c1	}
			(v110	q%384	S){	C1	r1	r1	r2.r4		C1	r1	r2C2	C2r4C4		C1	}
		}
	"}

	// Rhythm 3
	Str dr33 = {"	l16 q99
		Rhythm{
			(v120	S){	r-4	[3	b1	r1]	b1	b1	}
		}
	"}

	// 909 SD
	Str sd94 = {"	o5 v127 l16 q99	v.Repeat(off);
		[4r1]
		v.T=1,127,!1^1^1;[3[16c+]]	v127[8c+]g+>d+a>e<bf+c+<g+	c+
	"}

	//_Track List
	If(num == 1){
		//	Tr	   1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32
		S{	Play(;    ;    ;    ;    ;sn21;    ;    ;    ;    ;dr13;    ;sd91;    ;    ;    ;    ;    ;pf21;    ;    ;    ;    ;    ;    ;    ;dr33;    ;    ;    ;se31;    ;se12;);}	l1[8r*]
		S{	Play(;bs14;bs24;    ;    ;sn22;    ;    ;    ;    ;dr14;    ;sd94;    ;    ;pd14;    ;    ;pf24;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;se21;    ;);}	l1[9r*]
	}
}

//---------------------------------------------------------------------------------------------
//_アウトロ１
Function Outro1(Int num){

	// Piano 1
	Str pf11={"	S{	l8
				[3	[4 r%8y64(127);r%-8r4r%-8y64(0);r%8]]
				r2.r%8y64(127);r%-8r4^1^1^1r%-8y64(0);r%8
			}S{	o4 v100 l8 q98
				'g+t2>c+t4e<t0'4'g+t2bt4>d+<t0'4'et2g+t4>c+<t0'4'd+t2g+t4bt0'4
				'c+t2f+t4g+t0'4'd+t2f+t4at0'4'd+t2g+t4bt0'4v-'<b>d+f+a'8.r16v+
				'f+t2bt4>d+<t0'4'f+t2at4>c+<t0'4'd+t2f+t4bt0'4'c+t2f+t4at0'4
				'ea>c+<'4'et2g+t4bt0'4'f+t2bt4>c+<t0'4v-'c+f+g+'v+<v-c+
				v-g+v-5>c+v-5f+v-5bv+5>c+v+5f+v+5g+v+5b
				v+5>c+
			}	o6 v100 l8 q98
				r-4	v--c+v+d+v+
				Div{v--ev+c+v+<g+>}4Div{v--d+v+<bv+g+>}4Div{v--c+v+<av+f+}4Div{v--bv+g+v+d+>}4
				Div{v--c+v+<g+v+d+}4Div{v--c+v+ev+f+}4Div{v--g+v+>c+v+d+}4v-<d+8.r16>v+
				Div{v--d+<v+bv+g+>}4Div{v--c+v+<av+f+}4Div{v--bv+g+v+d+}4Div{v--c+v+f+v+a}4
				>ec+<g+4b4v-'t2c+t4f+t6g+t8>c+<t0'v+r
				r1
				v-35<g+v+>c+v+5g+v+5>c+v+5f+v-5bv-5>c+v-5f+
				v-g+32b32>c+
	"}

	// Vocal
	Str vo11 = {"	o6 v110 l8 q97
		r-4	c+d+
		Div{ec+<g+>}4Div{d+<bg+>}4Div{c+<af+}4Div{bg+d+>}4
		Div{c+<g+d+}4Div{c+ef+}4a+16b16>c+16d+16<d+8.r16>
		Div{d+<bg+>}4Div{c+<af+}4Div{bg+d+}4c+f+>
		ec+<g+4b4>c+4
		^1
	"}

	// Lyric
	Str lyr1={	l8	r-16
		r-4
		Lyric = {"ここのつの指を折って 背負う悔いを数えた"}
		r1	r2^%16
		Lyric = {"その時 とおの影を溶かし また朝が来る"}
	}

	//_Track List
	If(num == 1){
		//	Tr	       1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32
		S{	Play(lyr1;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;pf11;    ;vo11;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;    ;);}	l1[6r*]
	}
}

//---------------------------------------------------------------------------------------------
Time(  0:1:0)
Tempo = 128;
Time(  1:1:0)
Intro1(1);
r-4 Tempo = 176; r4
Intro2(1);
Intro3(1);
AMero1(1);
Sabi1(1);
Intro2(1);
Intro3(1);
AMero1(2);
Kanso1(1);
Sabi1(2);
Intro2(3);
S{	l4
	r-4 Tempo = 80; r4
	Tempo = 96; r1
	Tempo = 88; r4 Tempo = 80; r4 Tempo = 64; r4 Tempo = 56; r4
	Tempo = 96; r2 Tempo = 88; r4 Tempo = 80; r4
	Tempo = 72; r4 Tempo = 64; r4 Tempo = 56; r4 Tempo = 64; r4
	Tempo = 80; r4 Tempo = 88; r2 Tempo = 80; r4
	Tempo = 72; r2 Tempo = 64; r4 Tempo = 56; r8 Tempo = 40; r8
	Tempo = 64; r4
}
Outro1(1);
l1 v0 c+