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

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

TrackName =  {"Shapelessly"}
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(-3)

IF(Type=1){
CuePoint={"TwmParam(64,120,2);"}
}ELSE{

//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);
}



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(1:1:0)}

//----------------------------------------------------------------------------------------------------------------------
IF(Type=1){
TR(1) @(82) EP(127) v(110) V(120) REV(100) CHO(90) o6 q99 l8
}ELSE{
TR(1) @(34,81) EP(127) v(110) V(120) REV(100) CHO(90) o6 q99 l8
}
//----------------------------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------------------------------------
/* Time */
Str AT1={Time(17:1:0)}

#1A={[4 [5 r] `e`cg rrrr rrrr ]}
#1B={[`e`cg`e `c`ega `cbag fedc `e`cg`e `c`ega ``c`b`a`g `f`e`d`c ]}
#1x={AT1 #1A v+10 #1A #1B [#1A]}
#TR1={DT #1x}
//----------------------------------------------------------------------------------------------------------------------
IF(Type=1){
TR(2) @(41) EP(127) v(127) V(127) REV(100) CHO(120) o6 q99 l4
}ELSE{
TR(2) @(3,81) EP(127) v(127) V(127) REV(100) CHO(120) o6 q99 l4
}
//----------------------------------------------------------------------------------------------------------------------
/* Time */
Str BT1={Time(49:1:0)}

/* EP.W */
Str BEPW1={EP.W(100,127,!2)}

/* TempoChange */
Str TPC1={TempoChange(140,150,!1}

#2A={BEPW1 e^^^ f^^^ g^^^ ^^^^ e^^^ f^^^ e^^^ d^^^}
#2B={}
#2x={BT1 #2A TPC1 [#2A]}
#TR2={DT #2x}


//----------------------------------------------------------------------------------------------------------------------
IF(Type=1){
TR(4) @(39) EP(127) v(100) V(120) REV(10) CHO(30) o3 q99 l16
TR(5) @(40) EP(127) v(100) V(120) REV(100) CHO(30) o3 q99 l16
}ELSE{
TR(4) @(39,99,4) EP(127) v(100) V(120) REV(10) CHO(30) o3 q99 l16
TR(5) @(40,99,4) EP(127) v(100) V(120) REV(100) CHO(30) o3 q99 l16
}
//----------------------------------------------------------------------------------------------------------------------
#4A={[ [ drrr drrd rrrr rrrr rrrr : rr"g"g "br"br crcr ] rr"g"g "br"br "ar"ar ]}
#4x={[3#4A] v+20 [6 #4A]}
#TR4={DT #4x}

#5x={[128 r] [#4A] v+20 [6 #4A]}
#TR5={DT #5x}

//----------------------------------------------------------------------------------------------------------------------
IF(Type=1){
TR(6) @(51) EP(127) v(100) V(120) REV(100) CHO(30) P(96) o5 q99 l4
TR(7) @(51) EP(127) v(100) V(120) REV(100) CHO(30) P(64) o5 q99 l4
TR(8) @(51) EP(127) v(100) V(120) REV(100) CHO(30) P(32) o4 q99 l4
}ELSE{
TR(6) @(51,99,1) EP(127) v(80) V(120) REV(100) CHO(30) P(96) o5 q99 l4
TR(7) @(51,99,1) EP(127) v(80) V(120) REV(100) CHO(30) P(64) o5 q99 l4
TR(8) @(51,99,1) EP(127) v(80) V(120) REV(100) CHO(30) P(32) o4 q99 l4
}
//----------------------------------------------------------------------------------------------------------------------
/* Time */

Str ET1={Time(25:1:0)}
Str ET2={Time(41:1:0)}

#6A={g^^^ f^^^ g^^^ ^^^^ g^^^ f^^^ e^^^ d^^^}
#6x={ET1 #6A ET2 [4#6A] }
#TR6={DT #6x}

#7A={e^^^ d^^^ e^^^ ^^^^ c^^^ d^^^ c^^^ "a^^^}
#7x={ET1 #7A ET2 [4#7A] }
#TR7={DT #7x}

#8A={g^^^ a^^^ b^^^ ^^^^ e^^^ f^^^ e^^^ f^^^}
#8x={ET1 #8A ET2 [4#8A] }
#TR8={DT #8x}
//----------------------------------------------------------------------------------------------------------------------
IF(Type=1){
TR(9) @(128) EP(127) v(120) V(120) REV(100) CHO(30) o3 q99 l4
}ELSE{
TR(9) @(128) EP(127) v(120) V(120) REV(100) CHO(30) o3 q99 l4
}
//----------------------------------------------------------------------------------------------------------------------
/* Time */
Str FT1={Time(73:1:0)}

#9A={'cdefgab'^^^ }
#9x={FT1 #9A}
#TR9={DT #9x}

//----------------------------------------------------------------------------------------------------------------------
IF(Type=1){
TR(10) @(25,90,1) EP(127) v(100) V(120) REV(100) CHO(100) l16
TR(20) CH(10) v(90) l16
TR(21) CH(10) v(90) l16
TR(22) CH(10) v(60) l16
TR(23) CH(10) v(70) l16

TR(11) @(27,90) EP(127) v(100) V(120) REV(100) CHO(100) l16
TR(31) CH(11) v(0) l32
}ELSE{
TR(10) @(25,104) EP(127) v(100) V(120) REV(100) CHO(100) l16
TR(20) CH(10) v(90) l16
TR(21) CH(10) v(90) l16
TR(22) CH(10) v(60) l16
TR(23) CH(10) v(70) l16

TR(11) @(25,105) EP(127) v(100) V(120) REV(100) CHO(100) l16
TR(31) CH(11) v(0) l32
}
//----------------------------------------------------------------------------------------------------------------------
/* Time */
Str DT1={Time(65:1:0)}

$a{n42} $b{n44} $c{n46} $k{n55}

#10A={[ arl32[4b] l16 cr] krrr rrrr rrrr rrrr rrbb }
#10x={[128 r] [32 #10A]}
#TR10={Rhythm{DT #10x}}

$d{n35} $e{n36}
#20A={ddre drre rrrr rrrr rrrr drrr ddre drdr }
#20x={[256 r] [28 #20A]}
#TR20={Rhythm{DT #20x}}

$f{n38} $g{n40}
#21A={[grl32ffl16f rr] grrr grgg ggrg grgr grgr }
#21x={[384 r] [24 #21A ]}
#TR21={Rhythm{DT #21x}}

$h{n29} $i{n30} 
#22A={[ihih rrih ihrl32ii l16ihih ]}
#22x={[128 r] [28 #22A]}
#TR22={Rhythm{DT #22x}}

$j{n34}
#23A={[rrrr jrrr l32jjl64jjjjl16jr : rrrr ] rrjr}
#23x={[128 r] [28 #23A]}
#TR23={Rhythm{DT #23x}}

#11A={[32 errr]}
#11x={[384 r] [6 #11A]}
#TR11={Rhythm{DT #11x}}

IF(Type=1){
#31A={[128 ff v+1]}
}ELSE{
#31A={[128 gg v+1]}
}
#31x={DT1 #31A}
#TR31={Rhythm{DT #31x}}


//----------------------------------------------------------------------------------------------------------------------
TR(1) |#TR1|

TR(2) |#TR2|

TR(4) |#TR4| TR(5) |#TR5|

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

TR(9) |#TR9|

UseKeyShift(off)

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

TR(11) |#TR11| TR(31) |#TR31|