//------------------------------------------------------------------------------
//
    TrackName={"Seaside Resort R8Mix / つーさ #74"}
    Copyright={"つーさ"}
//
//	対象音源: XG音源もしくは GM2音源
//	浪費時間: 3時間ぐらい
//
//	おしゃれな曲を書きたいな。
//	とか思っておもむろにセブンスコードを羅列。
//	そこにメロディをとってつける、と。これ。
//
//	HPもそろそろ衣替えてせっかくだからBGMにする。
//
//	浪費時間の半分は曲名で迷子になっただけだったり。
//
//------------------------------------------------------------------------------


Str RC01 = { 'fa`c`e' r^^ 'fa`c`e' ^^^^r 'fa`c`e' rr^ 'fa`c`e' ^^r 'fa`c`e' r 'fa`c`e' ^^^r^ 'fa`c`e' ^^^^r}
Str RC02 = { 'fa-`c`e' r^^ 'fa-`c`e' ^^^^r 'fa-`c`e' rr^ 'fa-`c`e' ^^r 'fa-`c`e' r 'fa-`c`e' ^^^r^ 'fa-`c`e' ^^^^r}
Str RC03 = { 'egb`d' r^^ 'egb`d' ^^^^r 'egb`d' rr^ 'egb`d' ^^r 'egb`d' r 'egb`d' ^^^r^ 'egb`d' ^^^^r }
Str RC04 = { 'egb`d' r^^ 'egb`d' ^^^^r 'egb`d' rr^ 'ega`c+' ^^r 'ega`c+' r 'ega`c+' ^^^^^ ^ ^^^^r }
Str RC05 = RC01
Str RC06 = RC02
Str RC07 = RC03
Str RC08 = RC04

Str RC11 = { 'fa`c`e' r^^ 'fa`c`e' ^^^^r 'fa`c`e' rr^ 'fa`c`e' ^^r 'fa`c`e' r 'fa`c`e' ^^^r^ 'fa`c`e' ^^^^r}
Str RC12 = {  'egb`d' r^^ 'egb`d' ^^^^r 'egb`d' rr^ 'egb`d' ^^r 'egb`d' r 'egb`d' ^^^r^ 'ega`c+' ^^^^r}
Str RC13 = RC11
Str RC14 = {  'egb`d' r^^ 'egb`d' ^^^^r 'egb`d' rr^ 'ega`c+' ^^r 'ega`c+' r 'ega`c+' ^^^r^ 'ega`c+' ^^^^r}
Str RC15 = RC11
Str RC16 = RC12
Str RC17 = RC13
Str RC18 = {  'egb`d' r^^ 'egb`d' ^^^^r 'egb`d' rr^ 'egb`e' ^^r 'egb`e' r 'egb`e' ^^^r^ 'egb`e' ^^^^r}

Str RB01 = {fr^^f^^^^rfrr^f^^rfrf^^^r^f^^^^r}
Str RB02 = {fr^^f^^^^rfrr^f^^rfrf^^^r^f^^^^r}
Str RB03 = {er^^e^^^^rerr^e^^rere^^^r^e^^^^r}
Str RB04 = {ar^^a^^^^rarr^a^^rara^^^r^a^^^^r}
Str RB05 = RB01
Str RB06 = RB02
Str RB07 = RB03
Str RB08 = RB04

Str RB11 = {dr^^d^^^^rdrr^g^^rgrg^^^r^g^^^^r}
Str RB12 = {er^^e^^^^rerr^a^^rara^^^r^a^^^^r}
Str RB13 = {dr^^d^^^^rdrr^g^^rgrg^^^r^g^^^^r}
Str RB14 = {>cr^^c^^^^rcrr^<a^^rara^^^r^a^^^^r}
Str RB15 = RB11
Str RB16 = RB12
Str RB17 = RB13
Str RB18 = {>cr^^c^^^^rcrr^c^^rcrc^^^r^c^^^^r<}

Str RM11 = { r^e^^g^^ e^^d^^e^ }
Str RM12 = { r^d^^e^^ g^^e^^^^ }
Str RM13 = { r^a^^^^^ a^g^e^ge }
Str RM14 = { ^^^^^^^^ ^^^^^^^^ }
Str RM15 = RM11
Str RM16 = { r^d^^e^^ g^^b^^`cb }
Str RM17 = { a^^`e^^ag a^^`e^^^^}
Str RM18 = {>d^^g^^e^ ^^^^^^^^<}

Str RM21 = { e^^d^^g^ ^e^^d^c^ }
Str RM22 = { "b^c^d^c^"b^^^e^^^ }
Str RM23 = { <a^^^^^^^ a^b^>c^de }
Str RM24 = { ^^^^^^^^ r^^^^^^^ }
Str RM25 = RM21
Str RM26 = RM22
Str RM27 = {<a^^^^^^^> e^d^c^d^ }
Str RM28 = {"b^^^^^^c^ ^^^^^^^}


//_リズムマクロの定義
$b{n36,} $s{n38,} $h{n42,} $m{n46,} $c{n49,} $_{r}
Str CYM = {""}
Str HHT = {" v.onCycle(!16,  80, 72, 76, 68) t.onCycle(!16,0,8) "}
Str Bas = {" v.onCycle(!16,  86, 78, 82, 74) t.onCycle(!16,0,8) "}
Str Snr = {" v.onCycle(!16,  76, 68, 72, 68) t.onCycle(!16,0,8) "}

Str DR00={Rythm{
		(Snr) { ________________ ____________s_s_ }
		(Bas) { ________________ ________b__b____ }  [2_1] }}
Str DR01={Rythm{
		(CYM) { c }
		(HHT) { hhhhhhhhhhhhhhhh hhhhhhhhhhhhhhm_ }
		(Snr) { ____s_______s___ ____s_______s___ }
		(Bas) { b______b__b____b b______b__b___b_ }  [2_1] }}
Str DR02={Rythm{
		(HHT) { hhhhhhhhhhhhhhhh hhhhhhhhhhm_hhm_ }
		(Snr) { ____s_______s___ ____s_______s__s }
		(Bas) { b______b__b____b b______b__b_____ }  [2_1] }}
Str DR03={Rythm{
		(HHT) { hhhhhhhhhhhhhhhh hhhhhhhhhhhhhhm_ }
		(Snr) { ____s_______s___ ____s_______s___ }
		(Bas) { b______b__b____b b______b__b___b_ }  [2_1] }}
Str DR04={Rythm{
		(HHT) { hhhhhhhhhhhhhhhh hhhhhhhhhhm_hhm_ }
		(Snr) { ____s_______s___ ____s_______s_ss }
		(Bas) { b______b__b____b b______b__b_____ }  [2_1] }}
// mix
Str ____ = {""}
Str Out = { y11.onTime(127,0,96*4*8) }

Function TrackParam(_vol,_pan, _pgc,_pgl,_pgm,_xgl,_xgm, _rev,_cho, _lpf,_har, _rls) {
 r%3 @_pgc,_pgm,_pgl r%1 y11,127 r%1
 V(_vol) r%1 P(64+_pan)r%1   REV(_rev)r%1 CHO(_cho)r%1
 y74,(64+_lpf)r%1 y71,(64+_har)r%1 y72,(64+_rls)r%1
 Int _ch = Channel-1
 SysEx = $F0, $43,$10,$4C, $08,_ch,$01, _xgm ,$F7 r%1
 SysEx = $F0, $43,$10,$4C, $08,_ch,$02, _xgl ,$F7 r%1
 SysEx = $F0, $43,$10,$4C, $08,_ch,$03, _pgc-1 ,$F7 r%1
}

//    TrackParam(_vol,    pan, pgc,pgl,pgm,xgl,xgm, rev,cho, lpf,har, rls) 
#MX1={TrackParam( 108- 20,+10,   6,  3,121, 34,  0,  40, 20, -18,+24, +23) l16 o4 }
#MX2={TrackParam( 106- 20,-10,   6,  3,121, 34,  0,  40, 20, -24,+20, +23) l16 o3}
#MX3={TrackParam( 108- 20,+24,   9,  0,121,  0,  0,  50, 10,   0,  0, +20) l 8 o7 v92 t-1}
#MX4={TrackParam( 110- 20,-24,  12,  0,121,  0,  0,  60, 20, -10,  0, +20) l 8 o6 v94 t-1}
#MXA={TrackParam( 107- 20,  0,  26,  0,120,  0,127,  60,  0,   0,  0,   0) l16 NRPN(24,38,61)   }

Tempo 137; l16
TimeSignature = 2,4
SysEx$ = F0,7E,7F,09,01,F7 r8
SysEx$ = F0,43,10,4C, 00,00,7E, 00 ,F7 r8
SysEx$ = F0,43,10,4C, 02,01,00, 03,00 ,F7 r8

Play({[1r8]}, #MX1,#MX2,#MX3,#MX4,____,____,____,____,____,#MXA )

TimeSignature = 4,4

Play({[2r1]}, RC01,RB01,____,____,____,____,____,____,____,DR01 )
Play({[2r1]}, RC02,RB02,____,____,____,____,____,____,____,DR02 )
Play({[2r1]}, RC03,RB03,____,____,____,____,____,____,____,DR03 )
Play({[2r1]}, RC04,RB04,____,____,____,____,____,____,____,DR04 )
Play({[2r1]}, RC05,RB05,____,____,____,____,____,____,____,DR01 )
Play({[2r1]}, RC06,RB06,____,____,____,____,____,____,____,DR02 )
Play({[2r1]}, RC07,RB07,____,____,____,____,____,____,____,DR03 )
Play({[2r1]}, RC08,RB08,____,____,____,____,____,____,____,DR04 )

Play({[2r1]}, RC11,RB11,____,____,____,____,____,____,____,DR01 )
Play({[2r1]}, RC12,RB12,____,____,____,____,____,____,____,DR02 )
Play({[2r1]}, RC13,RB13,____,____,____,____,____,____,____,DR03 )
Play({[2r1]}, RC14,RB14,____,____,____,____,____,____,____,DR04 )
Play({[2r1]}, RC15,RB15,____,____,____,____,____,____,____,DR01 )
Play({[2r1]}, RC16,RB16,____,____,____,____,____,____,____,DR02 )
Play({[2r1]}, RC17,RB17,____,____,____,____,____,____,____,DR03 )
Play({[2r1]}, RC18,RB18,____,____,____,____,____,____,____,DR04 )

Play({[2r1]}, RC01,RB01,RM11,____,____,____,____,____,____,DR01 )
Play({[2r1]}, RC02,RB02,RM12,____,____,____,____,____,____,DR02 )
Play({[2r1]}, RC03,RB03,RM13,____,____,____,____,____,____,DR03 )
Play({[2r1]}, RC04,RB04,RM14,____,____,____,____,____,____,DR04 )
Play({[2r1]}, RC05,RB05,RM15,____,____,____,____,____,____,DR01 )
Play({[2r1]}, RC06,RB06,RM16,____,____,____,____,____,____,DR02 )
Play({[2r1]}, RC07,RB07,RM17,____,____,____,____,____,____,DR03 )
Play({[2r1]}, RC08,RB08,RM18,____,____,____,____,____,____,DR04 )

Play({[2r1]}, RC11,RB11,RM11,RM21,____,____,____,____,____,DR01 )
Play({[2r1]}, RC12,RB12,RM12,RM22,____,____,____,____,____,DR02 )
Play({[2r1]}, RC13,RB13,RM13,RM23,____,____,____,____,____,DR03 )
Play({[2r1]}, RC14,RB14,RM14,RM24,____,____,____,____,____,DR04 )
Play({[2r1]}, RC15,RB15,RM15,RM25,____,____,____,____,____,DR01 )
Play({[2r1]}, RC12,RB16,RM16,RM26,____,____,____,____,____,DR02 )
Play({[2r1]}, RC17,RB17,RM17,RM27,____,____,____,____,____,DR03 )
Play({[2r1]}, RC18,RB18,RM18,RM28,____,____,____,____,____,DR04 )

Play({[2r1]}, RC01,RB01,RM11,____,____,____,____,____,____,____ )
Play({[2r1]}, RC02,RB02,RM12,____,____,____,____,____,____,____ )
Play({[2r1]}, RC03,RB03,RM13,____,____,____,____,____,____,____ )
Play({[2r1]}, RC04,RB04,RM14,____,____,____,____,____,____,____ )
Play({[2r1]}, RC05,RB05,RM15,____,____,____,____,____,____,____ )
Play({[2r1]}, RC06,RB06,RM16,____,____,____,____,____,____,____ )
Play({[2r1]}, RC07,RB07,RM17,____,____,____,____,____,____,____ )
Play({[2r1]}, RC08,RB08,RM18,____,____,____,____,____,____,DR00 )

Play({[2r1]}, RC11,RB11,RM11,RM21,____,____,____,____,____,DR01 )
Play({[2r1]}, RC12,RB12,RM12,RM22,____,____,____,____,____,DR02 )
Play({[2r1]}, RC13,RB13,RM13,RM23,____,____,____,____,____,DR03 )
Play({[2r1]}, RC14,RB14,RM14,RM24,____,____,____,____,____,DR04 )
Play({[2r1]}, RC15,RB15,RM15,RM25,____,____,____,____,____,DR01 )
Play({[2r1]}, RC12,RB16,RM16,RM26,____,____,____,____,____,DR02 )
Play({[2r1]}, RC17,RB17,RM17,RM27,____,____,____,____,____,DR03 )
Play({[2r1]}, RC18,RB18,RM18,RM28,____,____,____,____,____,DR04 )

Play({[2r1]}, RC01,RB01,____,____,____,____,____,____,____,DR01 )
Play({[2r1]}, RC02,RB02,____,____,____,____,____,____,____,DR02 )
Play({[2r1]}, RC03,RB03,____,____,____,____,____,____,____,DR03 )
Play({[2r1]}, RC04,RB04,____,____,____,____,____,____,____,DR04 )
Play({[0r1]},  Out, Out,____,____,____,____,____,____,____, Out )
Play({[2r1]}, RC05,RB05,____,____,____,____,____,____,____,DR01 )
Play({[2r1]}, RC06,RB06,____,____,____,____,____,____,____,DR02 )
Play({[2r1]}, RC07,RB07,____,____,____,____,____,____,____,DR03 )
Play({[2r1]}, RC08,RB08,____,____,____,____,____,____,____,DR04 )