SoundType=0;SoundType=0;//----------------------------------------------------------------------------------------------------------------------

INT Type = 1;//1ならTWM2用、そのほかならSD-80用設定

TrackName =  {"楽園はずっと変わらずそこに"}
Copyright =  {"球場のピアニスト"} 
MetaText  =  {""} 


/*----------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------*/
System.MeasureShift(1);    //音源初期化用に発音を１小節遅らせる
IF(Type =1){ResetGS;TrackSync;}ELSE{SysEx$=f0,41,10,00,48,12,0,0,0,0,0,0,f7; Time(1:1:0); }//音源初期化
//----------------------------------------------------------------------------------------------------------------------
TimeSignature =  4,4      //4/4
Tempo = 140                //テンポ
KeyFlag+() 　　　 　//調の設定 # = +,♭= -
Key(-4)

IF(Type=1){
CuePoint={"TwmParam(64,120,2);"} //TW-MUSIC2を使うとき専用、キューポイントを指定して音色をつくるのじゃ
}ELSE{
//ここからSD-80の設定
//7bit を、4bit ずつ分ける
Function HIGH(I){ Result = (I / 16) & $F }
Function LOW(I){ Result = (I & $F) }

//REVERB TYPE
Int RT_OFF = 0;
Int RT_REVERB = 1;
Int RT_SRV_ROOM = 2;
Int RT_SRV_HALL = 3;
Int RT_SRV_PLATE = 4;
Int RT_GM2_REVERB = 5;
Function SD80ReverbType(V){
SysEx=$F0,$41,(DeviceNumber),0,$48,$12,{$10,00,$04,00,(V)},$F7;
}

Function SD80ReverbTime(V){//0~127
SysEx$=F0,41,10,00,48,12,{10,00,04,07,08,00,(HIGH(V)),(LOW(V))},F7;
}

SD80ReverbType(RT_SRV_PLATE);　//SD-80専用、ここの値を変えてリバーブのタイプを変更できる
//ここまでSD-80の設定
}



//CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;
//CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;
//CH(13) SysEx$ = f0,41,10,42,12,{40,1c,15,02},f7;

Str DT={Time(2:1:0)}

Include(delay.h)

TimeKey((82:1:0),,1);

//----------------------------------------------------------------------------------------------------------------------
TR(1) @(74) EP(127) v(80) REV(30) CHO(127) o7 q99 l8
//----------------------------------------------------------------------------------------------------------------------
Str AT1={Time(5:1:0)}
Str AT2={Time(30:1:0)}
Str AT3={Time(82:1:0)}

Str AM1={M.W(0,40,!1^1)}

#1A={rr"gr "bcrd "a^^^ ^^^^ ^^^^ ^^^^ rrrr "g"ar"b cdre garb `c^^^ ^^^^ ^^^^ b`cb^ a^^b rrg^ ^arr gae^}
#1B={g^^e rce^ ^g^r rrrr rrrr rrrr rreg rger g^^e rce^ ^g+^r rrrr rrrr rr"g"b cdeg ab`c`d }
#1C={`e^^^ ^^^^ ^^^^ ^^^^}
#1D={g^^e greg regr egre g^^e d^^^ ^^dg eerd c^^e crec recr cega b^^`c b^^^ ^^^^ b`c`d`e}
#1E={> d^^^ ege^ egrg eged c^^^ c+^^^ d^^^ ^^^^  c^^"g rrrr rrrr rrrr c^^"g rreg a^^^ ^^^^}
#1F={< 'e"a'^'g"b'^ 'ac'^^^ 'gc''ac'r'bd' ^^^^ 'ad'^'bd'^ > 'c"e'^'d"f'^ 'ec''c"g'r'"a"c' ^^^^ < 'e"a'^'g"b'^}
#1G={'ac'^^^ 'be''`cf'r'`dg' ^^'`cf'^ 'bd'^'ac' 'b"b' ^^^^ ^^^^ ^^^^ 'e"a'^'g"b'^}
#1H={'ac'^^^ 'gc''ac'r'bd' ^^^^ 'ad'^'bd'^ > 'c"e'^'d"f'^ 'ec''ge'r'ac' ^^^^ ^^'ac+'^ }
#1I={'ad'^^^ 'gc'^'e"g''g"b ' ^^^^ ^^'ad'^ 'ac'^^^ 'ge'^'e"g''d"f' ^^^^ < 'ac'^'bd'^}
#1J={'`cc'^^^ ^^^^ ^^^^ ^^^^}
#1K={'`cc'^^^ ^^^^ ^^^^ ^^ > 'ac'^}
#1x={AT1 AM1 #1A#1B#1C AT2 #1D#1E [12r] #1F#1G #1H#1I#1J AT3 [12r] #1F#1G #1H#1I#1K#1I#1J}
#TR1={DT #1x}
//----------------------------------------------------------------------------------------------------------------------
TR(2) @(51) EP(127) v(60) REV(50) CHO(127) P(36) o5 q99 l1
TR(3) @(51) EP(127) v(60) REV(50) CHO(127) P(96)o5 q99 l1
//----------------------------------------------------------------------------------------------------------------------
Str BT1={Time(22:1:0)}
Str BT2={Time(82:1:0)}

Str BM1={M.W(0,40,!1^1)}

#2A={c^d^c^d^}
#2B={c2d2e2f2}
#2C={'cg''da''eb''da''cg''da''eb''db'}
#2D={'cg'^}
#2E={'cg''da''eb''db'}
#2x={BT1 [#2A] #2A #2B[#2C]#2D BT2 #2B[#2C]#2D#2E#2D}
#TR2={DT #2x}

#3A={g^a^g^a^}
#3B={g2a2b2`c2}
#3C={'eg''f+a''gb''g-a''eg''f+a''gb''g-b'}
#3D={'eg'^}
#3E={'eb'^}
#3F={'eg''f+a''gb''g-b'}
#3x={BT1 [#3A] #3A #3B v+15 [#3C]#3D BT2 #3B[#3C]#3E#3F#3D}
#TR3={DT #3x}
//----------------------------------------------------------------------------------------------------------------------
TR(4) @(51) EP(127) v(40) REV(20) CHO(127) P(36) o4 q99 l1
//----------------------------------------------------------------------------------------------------------------------
Str CT1={Time(21:3:0)}
Str CT2={Time(82:1:0)}

#4A={b2}
#4B={c^d^c^d^}
#4C={cdedcded}
#4D={'c"c'^}
#4E={cded}
#4x={CT1 #4A [#4B] #4B [r] v+30 [#4C] #4D CT2 [r] [#4C] #4D#4E#4D}
#TR4={DT #4x}
//----------------------------------------------------------------------------------------------------------------------
TR(5) @(33) EP(127) v(100) REV(20) CHO(127) P(36) o3 q99 l8
//----------------------------------------------------------------------------------------------------------------------
Str DT1={Time(22:1:0)}
Str DT2={Time(82:1:0)}

#5A={c"g^"g crrr rr"gg c"g^"g d"a^"a arrr rr"aa d"a^a }
#5B={cgcc dadd ebee f`cff}
#5C={[cere gerc df+rf+ af+rd egrg bgre : dg-rg- ag-rd] eg-rg- bg-re}
#5D={[cerg bgrc]}
#5x={DT1 [#5A] [#5A] [#5A] TempoChange(140,130,!4) TempoChange(130,150,!2) #5B [#5C] 
     DT2  TempoChange(140,130,!4) TempoChange(130,150,!2) #5B [#5C] #5D}
#TR5={DT #5x}
//----------------------------------------------------------------------------------------------------------------------
TR(6) @(115) EP(127) v(80) REV(20) CHO(127) o6 q99 l8
//----------------------------------------------------------------------------------------------------------------------
Str ET1={Time(6:1:0)}
Str ET2={Time(42:1:0)}
Str ET3={Time(66:1:0)}
Str ET4={Time(100:1:0)}

Str EPN1={P.N(96,0,127,32)}

#6A={c^^c g^^^ ^^gc cg^g c^cc gg^c rrcc ggrc d^^d a^^^ ^^ad da^a d^dd aa^d rrdd aard }
#6B={rrrr rrcg bbrg ercr }
#6C={crrc grrc rrcr grrr}
#6D={crrc grrr drrd arrr erre brrr drrd arrr}
#6x={ET1 EPN1 MidiDelay({[#6A]}) ET2 #6B ET3 [#6A] ET4 v(80) #6C #6D#6C}
#TR6={DT #6x}
//----------------------------------------------------------------------------------------------------------------------
TR(7) @(51) EP(127) v(110) V(120) REV(20) CHO(127) P(0) o7 q99 l1
TR(8) @(51) EP(127) v(110) V(120) REV(20) CHO(127) P(127) o7 q99 l1
//----------------------------------------------------------------------------------------------------------------------
Str FT1={Time(47:1:0)}
Str FT2={Time(83:1:0)}

Str FEPT1={EP.T(30,60,!2;60,120,!2)}

#7A={v (110) FEPT1 'cg'}
#7B={v(85)  cdedcded}
#7C={c^}
#7D={cded}
#7x={FT1 #7A < [#7B] #7C FT2 > #7A < [#7B] #7C#7D#7C}
#TR7={DT #7x}

#8A={v(110) FEPT1 'eb'}
#8B={v(85)  gaba gabb}
#8C={g^}
#8D={gabb}
#8x={FT1 #8A < [#8B] #8C FT2 > #8A < [#8B] #8C#8D#8C}
#TR8={DT #8x}
//----------------------------------------------------------------------------------------------------------------------
TR(9) @(25) EP(127) v(100) V(110) REV(20) CHO(127) o5 q99 l8
//----------------------------------------------------------------------------------------------------------------------
Str GT1={Time(66:1:0)}
Str GT2={Time(108:1:0)}

Str GPT1={P.T(0,127,!4)}

#9A={g^^^gaga rgag gab`c b^aa rgag egrg ^edc dege rreg erre egra bbr`c b^^^ rega b`c`d`e}
#9B={`g`e`g`e `g^ge geg^ gaba bbr`c `cr`d`d r`e`er `g^`a^ `a`g`e`g `e`d`e`d `cbag eerc "a^^^ "aceg b`d`e`g `a`g`g`b}
#9C={``c^^^ ^^^^ ^^^^ ^^^^}
#9D={v50 l16 GPT1 q2999 [ceg`c > v+6] P(64)}
#9x={GT1 #9A#9B#9C GT2 #9D}
#TR9={DT #9x}
//----------------------------------------------------------------------------------------------------------------------
TR(11) @(97) EP(127) v(15) V(115) REV(70) CHO(127) o8 q99 l16
//----------------------------------------------------------------------------------------------------------------------
Str HT1={Time(82:1:0)}

Str HPN1={P.N(127,0,8,120,16,112,24,104,32,96,40,86,48,72,56,64)}

#11A={rrrr rrrr rrrr rrcg v+15 [4`cgec v+25] }
#11x={HT1 MidiDelay({#11A})}
#TR11={DT #11x}
//----------------------------------------------------------------------------------------------------------------------
TR(12) @(51) EP(127) v(55) V(90) REV(70) CHO(127) P(56) o7 q99 l4
TR(13) @(51) EP(127) v(55) V(90) REV(70) CHO(127) P(72) o7 q99 l4
//----------------------------------------------------------------------------------------------------------------------
Str IT1={Time(83:1:0)}


#12A={g-^^^}
#12B={g^^^ a^^^ b^^^ `c^`e^ `d^^^ ^^`e^ `g^`f^ `e^`d^}
#12C={> c^de g^a^ e^ga l8 a^^^ ^^^^ ^^^^ ^^a^ a^^^ g^eg ^^^^ ^^a^ a^^^ g^ec-}
#12D={c^^^ ^^^^ ^^^^ ^^^^}
#12x={IT1 #12A#12B#12C#12D}
#TR12={DT #12x}
#TR13={DT #12x}
//----------------------------------------------------------------------------------------------------------------------
TR(10) @(1) EP(127) v(100) REV(40) CHO(110) q10 l8
TR(20) CH(10) v(100) q10 l8
TR(21) CH(10) v(90) q10 l8
TR(22) CH(10) v(80) q10 l8
//----------------------------------------------------------------------------------------------------------------------
Str TD1={Time(46:1:0)}
Str TD2={Time(48:1:0)}
Str TD3={Time(64:1:0)}
Str TD4={Time(82:1:0)}

$a{n60} $b{n61}

#D1={[brrb arrb rrbr arrr]}
#D2={[bbrb arrb rbrb arbb]}
#D3={brrb arrb rrbr arrr}
#Dx={#D1 [#D1] [#D1] [#D2] [#D2] [#D2] TD2 [4#D2] #D3 [4#D2] #D3 [4#D2] #D3 #D2 #D3}
#TR10={DT Rhythm{#Dx}}

$c{n50} $d{n48} $e{n47} $f{n45} $g{n43} $h{n41}

#DA1={rrrr rrhh ccrd erfg}
#DA2={rrrr rrrr rrhh cerg}
#DAx={TD1 #DA1 TD3 #DA2 TD4}
#TR20={DT Rhythm{#DAx}}

$i{n36} $j{n35} $k{n38}
#DB1={irrj 'ik'rrr irjr 'ik'rrr}
#DB2={irrj 'ik'rrj irrj 'ik'jr'ik'}
#DBx={TD2 [8 #DB1] #DB2 [8 #DB1] #DB2 [8 #DB1] #DB2 [#DB1] #DB2}
#TR21={DT Rhythm{#DBx}}

$m{n46} $s{n44} $t{n42}
#DC1={[3 srts mrst] srts mrsm}
#DC2={srts mrst mrst mmst}
#DCx={TD2 [4 #DC1] #DC2 [4 #DC1] #DC2 [4 #DC1] #DC2 #DC1 #DC2}
#TR22={DT Rhythm{#DCx}}
//----------------------------------------------------------------------------------------------------------------------
TR(1) |#TR1|

TR(2) |#TR2| TR(3) |#TR3|

TR(4) |#TR4|

TR(5) |#TR5|

TR(6) |#TR6|

TR(7) |#TR7| TR(8) |#TR8|

TR(9) |#TR9|

TR(11) |#TR11|

TR(12) |#TR12| TR(13) |#TR13|

UseKeyShift(off)//キーを変えるとドラムの指定までずれるのでこれで防ぐ

TR(10) |#TR10| TR(20) |#TR20| TR(21) |#TR21| TR(22) |#TR22|