//------------------------------------------------------------------------------
//
//		Hello Sofmap world - PiTTaN-ReMiX - / つーさ
//
//	対象音源: MU2000 EX
//	浪費時間: 16時間ぐらいorz
//
//  曲について。
//	知らないです。店舗がないので。
//	地元にはヤマダ電機しかないですよ。
//	作ってる間は完璧に忘れてたけど。
//	この曲のユロビEDって前にも作ったかもしれない。
//	……どうだったかな。ちなみに歌詞が好きなのです。
//	言葉はいらないほほえみ合えば　たちまちすてきな友だちさ。
//	心と心を響かせ合って　愛を歌おうよ
//	…………。
//	ぴったん たんた もじぴったん♪
//	りんらん らんら もじぴったん♪
//	もじぴったんは歌詞が超キュートでとても好きです。あい。
//	２番のAメロのとこの音には惚れまくってます。
//	ぴっぴっぴっぴっぴっぴっぴっぴーんぴっぴっぴっぴっぽっぽっぽっぽぽぴーん(謎
//
//  データ制作について。  
//	ドラムだけ作ってるうちに力尽きて、「残りは適当でいいや」
//	と思ったのに、エフェクタをいじりだしたらきりがなくなりだし
//	結局、バリエーションに AMBIENCE 使ったら
//	インサーションを4本ともDelayL,Rでなにこれ状態；；
//	バリエーションエフェクト、システムに２本欲しいなぁと思いました、なんか。
//	よって、AMBIENCEもインサーションもついてないS-YXG550とかは、
//	VAR系は全滅でバランスがひどいです。
//	そんな人はVSCで聴きましょう。SXGよかマシです。……XG向けデータなのにorz
//
//	XGなSysExをつかって、一応 GS/XGを切り分けます。
//	GS音源向けに普通のCCを送って、その後でXGのSysExを送ると、です。
//	で。その下の、MU100 Nativeと MU Basic間は頑張ってみたもののどうしょもなくて、
//	DanceKitが無い機種はドラムがお察しorz　GS向けはTR-909(PC#31)でございます。
//
//	自分の好きなこと「音楽」と「プログラミング」が一緒に楽しめるサクラはおもしろい。
//	歌詞追い歌詞表示スクリとか。誰かは作ってそうだけど。
//	でも、音楽を作るときは音楽を作りたいなぁ。
//
//	いろいろ聴いてるうちに挫折してくるょ。
//	まぁ、自分が適当だからしょーがないのだけど。

Int IsXGBasic = off; // XGでMU100未満のしとはonにしてください。

//------------------------------------------------------------------------------
//_初期設定

TrackName     = {"Hello Sofmap world - PiTTaN-ReMiX - / つーさ [MU2000/VSC:p] "}

Int tmp       = 162; //てんぽ
Int Transpose = -2; // すぴんこんとろーら +1=C#

TimeBase      = 480;
TimeSignature = 4,4;

//------------------------------------------------------------------------------

Include(xg.h);
Include(MU1000.h);

//_リズムマクロの定義
$s{'n(Sticks) n(Snare2)',};

$b{n(Kick1),}
$c{n(Cabasa),}
$m{n(HandClap)}

$t{n(Tambourine),}
$h{n(ClosedHiHat),}
$o{n(OpenHiHat),}

#drH={Rythm {
	(v.onCycle(120,51,41,36,45)) l16 {[4tttt]}
	v77 l8 {hrhrhrhr}
	v83 l8 {rorororo}
	l1r
}}
#drA={Rythm {
	v57 l8 {rcrcrcrc}
	v104 l4 {bbbb}
	v86 l4 {rsrs}
	l1r
}}

#drAA={Rythm {
	l8 v65 {(n49) rrr rrr v76(n55) v68(n52)}
	v57 l8 {rcrcrrrr}
	v104 l4 {bbbb}
	v86 l16{rrrr srrs sssr srsr}
	l1r
}}

#drAB={Rythm {
	v82 l8 {(n55) r (n55) r (n55) (n55) (n55) r v90(n49)}
	v104 l16{ brrr brrb brbr brrr}
	v86 l16{ srrr srrs srsr l64 v72 s (v.onTime(48,72,30*15)) [15s] }
	l1r
}}

#drB={Rythm {
	v57 l8 {rcrcrcrc}
	v104 l4 {bbbb}
	v86 l4 {rsrs}
	l1r
}}

#drC={Rythm{
	v74 { [2 l16 rrrr mrrr rrrr mrrr | rrrr mrrr r (v-) m (v+)rr mrrr ] }
	}}


#ChC={'g`c`e'} #ChD={'a`d`f'} #ChE={'b`e`g'}
#ChF={'a`c`f'} #ChG={'b`d`g'} #ChA={'`c`e`a'}
#LdC={`ceg`c} #LdD={`dfa`d} #LdE={`degb}
#LdF={`cfa`c} #LdG={`dgb`d} #LdA={`ea`c`e}
#LdC={ceg`c} #LdD={dfa`d} #LdE={degb}
#LdF={cfa`c} #LdG={dgb`d} #LdA={ea`c`e}


Str Amelo1 = { みそ`どみ ふらそふ みそ>どみ れ<しそん}
Str Amelo2 = { みそ`どみ ふらそふ そ`どし>れ どーーん<}
Str Amelo4 = { [3r1] そ`どし>れ どーーん<}

Str Bmelo1 = { らー`どーしーーら そーしーらーーん }
Str Bmelo2 = { ふーらーそーふそ ーーーーーーんん}
Str Bmelo4 = { ららーーし>どっれ ーーーーーー<んん}
Str Bmelo1s = { ふーらーそーーふ みー`れー`どーんー }
Str Bmelo4a = { ららーーし>どっれ ーーーーーーーれ#^1<}
Str Bmelo4b = { ふふーーそらっし ーーーーーーー>ど^1<}

Str MeloA1 = { Amelo1; Amelo2; }
Str MeloB1 = { Bmelo1; Bmelo2; }
Str MeloB2 = { Bmelo1; Bmelo4; }
Str MeloBp = { Sub{Bmelo1s; Bmelo4b} Bmelo1; Bmelo4a; }

Str MariA1 = { >みっんん どっん<そ ら>どんど っんん<ら }
Str MariA2 = { そっ>どっ どっそっ みっっれ っっんん< }
Str MariA4 = { そっ>どっ ふみれど んんんん んんんん< }
Str Mario1 = { MariA1; MariA2; }
Str Mario2 = { MariA1; MariA4; }

Str MojiA1 = { >ふっみっ  んんんん んんんみ ふみれみ れーどみ んんんん んんんん んんんん<}
Str MojiA2 = { >ふっみっ  んんんん んんんみ ふみれど れーどど んんんん んんんん んどれみ<}
Str MojiB1 = { >ふーどー< しーっし `そーし>ど ーんんふ   っふみれ ど<しらら そそ>そっ どっっっ< }
Str MojiBp = { >ふーどー< しー>みふ そー<し>ど ーんんみ   ふーみー れーど どーー<しー >どーれれ#^1< }
Str MojiC1 = { >どっ<そっ> んどっど <し>どれっ どんんん< }

Str ChrdI1 = { [2#ChC] [2#ChF] [2#ChG] [2#ChF] [2#ChC] [2#ChF] [2#ChG] [2#ChF] }
Str ChrdI2 = { [2#ChC] [2#ChF] [2#ChG] [2#ChF] [2#ChC] [2#ChF] [2#ChG] [2#ChG] }
Str ChrdA1 = { [2#ChC] [2#ChF] [2#ChC] [2#ChG] [2#ChC] [2#ChF] [2#ChG] [2#ChC] }
Str ChrdB1 = { [2#ChF] [2#ChG] [2#ChE] [2#ChA] [2#ChD] [2#ChG] [2#ChE] [2#ChA] }
Str ChrdB2 = { [2#ChF] [2#ChG] [2#ChE] [2#ChA] [2#ChD] [2#ChD] [2#ChG] [2#ChG] }
Str ChrdBc = { [8#ChG] }

Str BassI1 = { [2c`c][2f`f][2g`g][2f`f][2c`c][2f`f][2g`g][2f`f] }
Str BassI2 = { [2c`c][2f`f][2g`g][2f`f][2c`c][2f`f][2g`g][2g`g] }
Str BassA1 = { [2c`c][2f`f][2c`c][2g`g][2c`c][2f`f][2g`g][2c`c] }
Str BassB1 = { [2f`f][2g`g][2e`e][2a`a][2d`d][2g`g][2e`e][2a`a] }
Str BassB2 = { [2f`f][2g`g][1e`eg+`g+][2a`a][2d`d][2d`d][2g`g][2g`g] }
Str BassBc = { [4g`g] g`g f`f e`e d`d}

Str LeadI1 = { [2#LdC] [2#LdF] [2#LdG] [2#LdF]  [2#LdC] [2#LdF] [2#LdG] [2#LdF] }
Str LeadI2 = { [2#LdC] [2#LdF] [2#LdG] [2#LdF]  [2#LdC] [2#LdF] [2#LdG] [2#LdG] }
Str LeadA1 = { [2#LdC] [2#LdF] [2#LdC] [2#LdG]  [2#LdC] [2#LdF] [2#LdG] [2#LdC] }
Str LeadB1 = { [2#LdF] [2#LdG] [2#LdE] [2#LdA]  [2#LdD] [2#LdG] [2#LdE] [2#LdA] }
Str LeadB2 = { [2#LdF] [2#LdG] [2#LdE] [2#LdA]  [2#LdD] [2#LdD] [2#LdG] [2#LdG] }
Str LeadBc = { [8#LdG] }

Str SPadI1 = { #ChC #ChF #ChG #ChF #ChC #ChF #ChG #ChF }
Str SPadI2 = { #ChC #ChF #ChG #ChF #ChC #ChF #ChG #ChG }
Str SPadA1 = { #ChC #ChF #ChC #ChG #ChC #ChF #ChG #ChC }
Str SPadB1 = { #ChF #ChG #ChE #ChA #ChD #ChG #ChE #ChA }
Str SPadB2 = { #ChF #ChG #ChE #ChA #ChD #ChD #ChG #ChG }
Str SPadBc = { #ChG }

Str DrumHH = { #drH; #drH; #drH; #drH; }
Str DrumAA = { #drA; #drA; #drA; #drAA;}
Str DrumAB = { #drA; #drA; #drA; #drAB;}
Str DrumBA = { #drC; #drB; #drB; #drB; #drAA;}
Str DrumBB = { #drC; #drB; #drB; #drB; #drAB;}
Str DrumBc = { #drA; #drAB; }
Str DrumI0 = { Rythm{{v 100 n(49)}} #drAB; }

// ↓sysEx によるプログラムチェンジ＠XG とりあえずPiano@GSを免れる。
Function XGPGC(_pgc,_pgm,_pgl){
	SysEx =$F0, $43,$10,$4C, $08,(Channel-1),$01, (_pgm) ,$F7; r%5
	SysEx =$F0, $43,$10,$4C, $08,(Channel-1),$02, (_pgl) ,$F7; r%5
	SysEx =$F0, $43,$10,$4C, $08,(Channel-1),$03, (_pgc-1),$F7; r%5
}
Function XGVAR(_pgc){SysEx =$F0, $43,$10,$4C, $14,(Channel-1),$03, (_pgc-1),$F7;}
Function TrackParam(_vol,_exp,_pan, _pgc,_pgm,_pgl,_gsc,_gsm, _rev,_cho,_var,_del) {
	If(_gsc==0){_gsc=_pgc};
	V(_vol) r%5 EP(_exp) r%5 P(_pan) r%5 @(_gsc,_gsm) r%5 
	XGPGC(_pgc,_pgm,_pgl) 
	REV(_rev) r%5 CHO(_cho) r%5 VAR(_del) XGVAR(_var) r%5
//	SysEx =$F0, $43,$10,$4C, $08,(Channel-1),$32, $00, $F7;
}


Function INSERTION_EFFECT_PARAM(_ins,_num,_msb,_lsb){
	Int _addr= _num+1;If(_num>10){_addr=21+_num}
	SysEx=$F0, $43,$10,$4C, $03,(_ins-1),_addr, _msb, $F7 r%5
	SysEx=$F0, $43,$10,$4C, $03,(_ins-1),($2E+(_num*2)), _msb, _lsb, $F7 r%5
}

Function DeleyLR(_ins,_ch,_dw){
	INSERTION_EFFECT_TYPE(_ins,$06,$00);
	INSERTION_EFFECT_PART_NUMBER(_ins,_ch-1)
	INSERTION_EFFECT_PARAM(_ins, 1,$07,$1E); // LchDelay  = 92.5ms
	INSERTION_EFFECT_PARAM(_ins, 2,$0E,$3C); // RchDelay  = 185.2ms
	INSERTION_EFFECT_PARAM(_ins, 3,$15,$5A); // FeedBack1 = 277.8ms
	INSERTION_EFFECT_PARAM(_ins, 4,$1C,$78); // FeedBack2 = 370.4ms
	INSERTION_EFFECT_PARAM(_ins,10,$00,$40-_dw); // Dry/Wet = D10>W
}

//------------------------------------------------------------------------------
//_演奏情報
Tempo(120);

Time(1:1:0);
ResetGM(); ResetGS(); ResetXG(); // リセット

// エフェクタ。

Time(1:2:0)
	XGReverbType($03,$01);r%5 // Rev = Stage2
	XGReverbReturnLevel(48);

Time(1:2:120)
	XGChorusType($41,$00); // Cho = Chorus1

Time(1:2:240)
	XGEffectConnection(XGEffectSYS);r%5
	XGVariationType($58,$00); // Var = AMBIENCE

Time(1:2:360)
	SysEx$ =F0, 43,10,4C, 08,08,07, 02, F7;r%5// TR 9 = DrumS1
	SysEx$ =F0, 41,10,42,12,{40,1A,15,02},F7;// TR 11 = Rythm @GS

Time(1:3:000) DeleyLR(1, 7,16); // Lead
Time(1:4:000) DeleyLR(2, 4,24); // Chrd
Time(2:1:000) DeleyLR(3, 8,32); // まりお
Time(2:2:000) DeleyLR(4,12,32); // Melo2

// 互換性問題回避 phase2

Str _EXP1_ = {
//	互換性問題回避 phase1 GS / MU100Native の自動振分をしてみる。XGどうしようorz..

	// SysEx$ =F0, 43,10,4C, 08,08,0B, 7F, F7;// TR( 9) Vol=127
	// SysEx$ =F0, 43,10,4C, 08,09,0B, 00, F7;// TR(10) Vol=0
	// 2part はもったいない。

	r%20; NRPN(26,Sticks,0,0);	// DrumLevel(Sticks,  0); @ GS
	r%20; SysEx$ = F0, 43,10,4C, 30,1F,02, 6C, F7;	// DrumLevel(Sticks,108); @XG
	r%20; SysEx$ = F0, 43,10,4C, 30,28,02, 00, F7;	// DrumLevel(Snare2,  0); @XG
	
	If(IsXGBasic){r%20; XGPGC(26); r%20; NRPN(26,Sticks,0,0);}
	
	r%20; DrumEGDecayRate(Kick1,72)
	r%20; DrumReverbSendLevel(Kick1,20);
	r%20; DrumReverbSendLevel(Sticks,80);


}

// ミキサー設定         ( vol,exp,pan, pgc,pgm,pgl,gsc,gsm, rev,cho,var,del)
#MX01={       TrackParam(  92,127, 40,  82,  0, 26, 82, 16,  80, 80, 20, 30); o5 l8 v104 q94} // Melo
#MX02={r%60	  TrackParam( 104,127, 88,   1,  0,  0,   ,   ,  70, 40, 32, 40); o6 l8 v104} // SubMelo
#MX03={r%120  TrackParam(  86,127, 64,  89,  0,  0,   ,   ,  80,  0, 20,  0); o5 l8} // SubMelo (NewAgePad)
#MX04={r%180  TrackParam( 116,127, 64,   1,  0,127,   ,   ,  50, 10, 20, 16); o4 l4 q30 t240} // chord
#MX05={r%240  TrackParam( 116,127, 64,  36,  0,  0,   ,   ,  70, 20, 20,  0); o2 l8 q45} // bass
#MX06={r%300  TrackParam(  98,127, 64,  90,  0,  0,   ,   ,  90,  0, 10,  0); o4 l2 q100} // pad
#MX07={r%360  TrackParam(  96,127, 64,  81,  0,  6, 81,  1,  50,  0, 50, 52); o6 l16 q70} // Lead 
#MX08={r%420  TrackParam( 108,127, 96,  75,  0,  0,   ,   ,  80, 40, 60, 60); o6 l8 v110} /* まりお他
#MX09={r%540  TrackParam(   0,127, 64,  28,127,  0,   ,   ,  60, 20, 30,  0); XGDrumParam} // XG Drums */
#MX10={r%600  TrackParam( 127,127, 64,  28,127,  0, 31,120,  60, 20, 30,  0); _EXP1_;} // Etc Drums
#MX11={r%660  TrackParam( 120,127, 64,  26,127,  0, 31,120,  60, 20, 40,  0); } // HiHat
#MX12={r%720  TrackParam(  96,127, 64,  82,  0, 87,   ,   ,  60, 60, 30, 20); o5 l8 q92} // SawtoothLead
#MX13={r%780  TrackParam( 100,127, 64,  90,  0,  0,   ,   ,  90,120, 00, 80); o5 l8} // WarmPad

Str _CKey_ = {r-%30; CoarseTune(64+Transpose); }
Str _CKey2 = {r-%30; CoarseTune(64+Transpose+1); }
Str ______ = {}

Time(2:3:0) TrackSync;
//mix Time  , Melo ,Sub   ,Sub   ,Chord ,Bass  ,Pad   ,Lead  ,まりお,XGDrm ,Drums ,HiHat ,Melo2 ,Sub2  
Play({[1r2]},#MX01 ,#MX02 ,#MX03 ,#MX04 ,#MX05 ,#MX06 ,#MX07 ,#MX08 ,______,#MX10 ,#MX11 ,#MX12 ,#MX13 );Tempo(tmp)
Play({[1r1]},_CKey_,_CKey_,_CKey_,_CKey_,_CKey_,_CKey_,_CKey_,_CKey_,______,DrumI0,______,_CKey_,_CKey_);

Play({[4r1]},______,______,______,ChrdI1,BassI1,SPadI1,LeadI1,______,______,DrumAA,DrumHH,______,______); // 1-Intro
Play({[4r1]},______,______,______,ChrdI2,BassI2,SPadI2,LeadI2,______,______,DrumAB,DrumHH,______,______);
                                                                                                       
Play({[4r1]},MeloA1,MeloA1,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,______,______,DrumAA,DrumHH,______,______); // 1-Melo
Play({[4r1]},MeloA1,MeloA1,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,______,______,DrumAB,DrumHH,______,______);
Play({[4r1]},MeloB1,MeloB1,MeloB1,ChrdB1,BassB1,SPadB1,LeadB1,______,______,DrumAA,DrumHH,______,______);
Play({[4r1]},MeloB2,MeloB2,MeloB2,ChrdB2,BassB2,SPadB2,LeadB2,______,______,DrumAB,DrumHH,______,______);
Play({[4r1]},MeloA1,MeloA1,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,MariA1,______,DrumAA,DrumHH,______,______);
Play({[4r1]},MeloA1,MeloA1,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,MariA1,______,DrumAB,DrumHH,______,______);
                                                                                                       
Play({[4r1]},______,______,______,ChrdI1,BassI1,SPadI1,LeadI1,______,______,DrumAA,DrumHH,______,______); // 2-Intro
Play({[4r1]},______,______,______,ChrdI2,BassI2,SPadI2,LeadI2,______,______,DrumAB,DrumHH,______,______);
                                                                                                       
Play({[4r1]},______,______,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,______,______,DrumBA,DrumHH,MeloA1,MeloA1); // 2-Melo
Play({[4r1]},______,______,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,______,______,DrumBB,DrumHH,MeloA1,MeloA1);
Play({[4r1]},______,______,MeloB1,ChrdB1,BassB1,SPadB1,LeadB1,______,______,DrumBA,DrumHH,MeloB1,MeloB1);
Play({[4r1]},______,______,MeloB2,ChrdB2,BassB2,SPadB2,LeadB2,______,______,DrumBB,DrumHH,MeloB2,MeloB2);
Play({[4r1]},______,______,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,______,______,DrumBA,DrumHH,MeloA1,MeloA1);
Play({[4r1]},______,______,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,Mario2,______,DrumBB,DrumHH,MeloA1,MeloA1);
                                                                                                       
Play({[4r1]},MeloA1,MeloA1,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,MojiA1,______,DrumBA,DrumHH,______,______); // 3-Melo + Moji
Play({[4r1]},______,______,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,MojiA2,______,DrumBB,DrumHH,______,______);
Play({[4r1]}, V(80),______,MeloB1,______,______,SPadB1,LeadB1,MojiB1,______,DrumBA,DrumHH,MeloB1,MeloB1);
Play({[4r1]},MeloBp,MeloBp,MeloBp,______,BassB2,SPadB2,LeadB2,MojiBp,______,DrumBA,DrumHH,MeloBp,MeloBp);
                                                                                                       
Play({[0r1]},______,______,______,_CKey2,_CKey2,_CKey2,_CKey2,______,______,______,______,______,______); // My店長
Play({[2r1]},______,______,______,______,BassBc,SPadBc,LeadBc,______,______,DrumBc, #drH ,______,______);
Play({[0r1]},_CKey2,_CKey2,_CKey2,______,______,______,______,_CKey2,______,______,______,_CKey2,_CKey2); // My店長forメロ
                                                                                                       
Play({[4r1]},MeloA1,MeloA1,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,MojiC1,______,DrumBA,DrumHH,MeloA1,MeloA1); 
Play({[4r1]},MeloA1,MeloA1,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,MojiC1,______,DrumBB,DrumHH,MeloA1,MeloA1);
Play({[4r1]},MeloA1,MeloA1,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,Mario1,______,DrumBA,DrumHH,MeloA1,MeloA1);// 3-Mario
Play({[4r1]},MeloA1,MeloA1,MeloA1,ChrdA1,BassA1,SPadA1,LeadA1,Mario2,______,DrumBB,DrumHH,MeloA1,MeloA1);
                                                                                                       
Play({[4r1]},Amelo4,Amelo4,MeloA1,ChrdI1,BassI1,SPadI1,LeadI1,______,______,DrumAA,DrumHH,Amelo4,Amelo4); // Ending.
Play({[4r1]},Amelo4,Amelo4,MeloA1,ChrdI1,BassI1,SPadI1,LeadI1,______,______,DrumAA,DrumHH,Amelo4,Amelo4);
Play({[4r1]},Amelo4,Amelo4,MeloA1,ChrdI1,BassI1,SPadI1,LeadI1,MojiC1,______,DrumBA,DrumHH,Amelo4,Amelo4);
Play({[0r1]},______,______,______,______,______,______,______,Amelo4,______,______,______,______,______);
Play({[4r1]},Amelo4,Amelo4,MeloA1,ChrdI1,BassI1,SPadI1,LeadI1,MojiC1,______,DrumBB,DrumHH,Amelo4,Amelo4);
Play({[0r1]},______,______,______,______,______,______,______,Amelo4,______,______,______,______,______);
Play({[1r4]},______,______,______,______,______,______,______,______,______,______,______,______,______); // Finish

TrackSync // ふぃにっしゅ。
TR( 4) v80 t0'g`c`e'1^2. //Chord ちゃーん♪
TR( 5) v80 'c`c'1^2. //Bass ぶーん♪
TR(10) v94 'n52 n57 n46'  // Drums ぱしーん♪


//------------------------------------------------------------------------------
//_歌詞とか。

// 歌詞追い機能付きLyric関数。
Function KaraokLyric(Str L0, _brinkSw) {
	Sub{ r-16
		Str _LIBUF = Replace(L0,".",{"",""}, 1);
		_LIBUF = {"Array LyricLINEBuf = (""}+_LIBUF+{"");"};
		_LIBUF;
		Str LyricBuf={""};r-16;Lyric="";r16;
		Int _size = SizeOf(LyricLINEBuf);
		For(Int I=0; I<_size; I++){
			LyricBuf = LyricBuf + LyricLINEBuf(I);
			Lyric = LyricBuf; r;
		}
		If(_brinkSw)
		{
			Lyric(LyricBuf); rr
			Lyric("");rr
			Lyric(LyricBuf); rr
			Lyric("");rr
			Lyric(LyricBuf); rr
		}
	}
}

	Time(1:1:000) Lyric="";
	Time(4:1:000) l16
	KaraokLyric({"H.e.l.l.o. .S.o.f.m.a.p. .w.o.r.l.d. . .-. .P.i.T.T.a.N.-.R.e.M.i.X. .-."},on)[4r1]
	KaraokLyric({"   M.I.D.I. .D.a.t.a. .B.y. .つ..ー..さ.."},on);[3r1]

	l8
	KaraokLyric({"( Lyric )"})[1r2.] KaraokLyric({""})[1r4]
	KaraokLyric({"行.こ.う.よ　.ま.ぶ.し.い.光...の.世.界"});[2r1]
	KaraokLyric({"ハ.ー.ト.の.ス.イ.ッ.チ.ON..に.し.て"});[2r1]
	KaraokLyric({"ご.ら.ん.よ　.誰..か.が.君..を.待.っ.て.る"});[2r1]
	KaraokLyric({"お.ん.な.じ.か.た.ち.の.夢..抱.い.て"});[2r1]
	KaraokLyric({"あ..し..た...が.好..き..な....人....だ..け.が"});[4r1]
	KaraokLyric({"地..球.....を.回....す"});[2r1]
	KaraokLyric({"HE.LLO, ...SOF..MAP .WORLD"});[2r1]
	KaraokLyric({"言葉...は.い.ら.な.い."});[1r1]
	KaraokLyric({"ほ.ほ.え.み.あ.え.ば"});[1r1]
	KaraokLyric({"た.ち.ま.ち.す.て.き.な.友..だ.ち.さ"});[2r1]
	KaraokLyric({"心...と.心...を.ひ.び.か.せ.合.っ.て"});[2r1]
	KaraokLyric({"愛..を.歌..お.う.よ."});[1r1]
	KaraokLyric({"WE .LOVE .SOF.MAP .WORLD..."});[1r1]

	l16 
	KaraokLyric({""});[4r1]
	KaraokLyric({"H.e.l.l.o. .S.o.f.m.a.p. .w.o.r.l.d. . .-. .P.i.T.T.a.N.-.R.e.M.i.X. .-."},on)[4r1]
	l8

	KaraokLyric({"時.間..の.流..れ.を.さ.あ.追.い.抜.い.て."});[2r1]
	KaraokLyric({"迎..え.に.行.こ.う.よ　.幸...せ.を."});[2r1]
	KaraokLyric({"誰..に.も.見.え.な.い　.新...し.い.道.."});[2r1]
	KaraokLyric({"一..足..お.先..に.走..る.ん.だ"});[2r1]
	KaraokLyric({"熱....い...視.線....の....人....だ..け.が"});[4r1]
	KaraokLyric({"地..球.....を.回....す"});[2r1]
	KaraokLyric({"HE.LLO, ...SOF..MAP .WORLD"});[2r1]
	KaraokLyric({"コ.バ.ル.ト.色..し.た　.大..き.な.空..は."});[2r1]
	KaraokLyric({"未.来..を.写..せ.る.ス.ク.リ.ー.ン"});[2r1]
	KaraokLyric({"心...と.心...の.絵.の.具.を.ま.ぜ.て."});[2r1]
	KaraokLyric({"愛..を.描..こ.う.よ"});[1r1]
	KaraokLyric({"WE .LOVE .SOF.MAP .WORLD..."});[1r1]

	KaraokLyric({"お.い.で.よ.不.思.議.が.呼.ん.で.る.世.界"});[2r1]
	KaraokLyric({"ハ.ー.ト.の.ス.ピ.ー.ド.FULL..に.し.て."});[2r1]
	KaraokLyric({"君..な.ら.で.き.る.さ.大..人.に.な.っ.た"});[2r1]
	KaraokLyric({"時.代..に.で.き.な.い　.冒..険..が"});[2r1]
	KaraokLyric({"自..由.....の.似..合..う....人....だ..け.が"});[4r1]
	KaraokLyric({"地..球.....を.回....す"});[2r1]
	KaraokLyric({"HE.LLO, ...SOF..MAP .WORLD"});[3r1]
	KaraokLyric({""});[1r1]
	KaraokLyric({"言葉...は.い.ら.な.い."});[1r1]
	KaraokLyric({"ほ.ほ.え.み.あ.え.ば"});[1r1]
	KaraokLyric({"た.ち.ま.ち.す.て.き.な.友..だ.ち.さ"});[2r1]
	KaraokLyric({"心...と.心...を.ひ.び.か.せ.合.っ.て"});[2r1]
	KaraokLyric({"愛..を.歌..お.う.よ."});[1r1]
	KaraokLyric({"WE .LOVE .SOF.MAP .WORLD"});[1r1]

	KaraokLyric({"コ.バ.ル.ト.色..し.た　.大..き.な.空..は."});[2r1]
	KaraokLyric({"未.来..を.写..せ.る.ス.ク.リ.ー.ン"});[2r1]
	KaraokLyric({"心...と.心...の.絵.の.具.を.ま.ぜ.て."});[2r1]
	KaraokLyric({"愛..を.描..こ.う.よ"});[1r1]
	KaraokLyric({"WE .LOVE .SOF.MAP .WORLD..."});[2r1]
	KaraokLyric({""});[2r1]

	KaraokLyric({"WE .LOVE .SOF.MAP .WORLD..."});[2r1]
	KaraokLyric({""});[2r1]

	KaraokLyric({"WE .LOVE .SOF.MAP .WORLD..."});[2r1]
	KaraokLyric({""});[2r1]

	KaraokLyric({"WE .LOVE .SOF.MAP .WORLD..."});[2r1]
	KaraokLyric({""});[2r1]

	KaraokLyric({"WE .LOVE .SOF.MAP .WORLD..."});[2r1]
	KaraokLyric({""});[2r1]

	KaraokLyric({"WE .LOVE .SOF.MAP .WORLD ^^/..."});[2r1]