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

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

TrackName =  {"何気ない一日"}
Copyright =  {"ちゃ〜い"} 
MetaText  =  {"BGMの素材として適当に"} 


/*----------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------*/
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 = 120                //テンポ
KeyFlag+() 　　　 　//調の設定 # = +,♭= -
Key(0)

IF(Type=1){
CuePoint={"TwmParam(64,120,2);"} //TW-MUSIC2を使うとき専用、キューポイントを指定して音色をつくるのじゃ
}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);　//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(1:1:0)}

//----------------------------------------------------------------------------------------------------------------------
IF(Type=1){
TR(1) @(1) EP(100) v(100) REV(10) CHO(30) o5 q99 l8
}ELSE{
TR(1) @(19,80) EP(100) v(100) REV(10) CHO(30) o5 q99 l8
}
//----------------------------------------------------------------------------------------------------------------------
#1A={"gr'ceg'r "gr'"bdf'r "gr'ceg'r "gr'"bdf'r}
#1B={"gr'ceg'r "gr'"bdf'r "gr'ceg'r '"bdf'^^^ }
#1C={"c"c"c"c '"acf''"acf'rr "c"c"c"c '"g"bd''"g"bd'rr "c"c"c"c '"acf''"acf'rr "c"c"c"c 'g"bd''g"bd'rr }
#1D={"gr'ceg'r "gr'"bdf'r 'ceg'r'"bdf'r 'ce"g'^^^ }
#1x={#1A [4 #1A] [3 #1A]#1B [2 #1C]  [4 #1A]#1D}
#TR1={DT #1x}
//----------------------------------------------------------------------------------------------------------------------
IF(Type=1){
TR(4) @(13) EP(127) v(120) REV(10) CHO(30) o6 q99 l8
}ELSE{
TR(4) @(13,97) EP(127) v(120) REV(10) CHO(30) o6 q99 l8
}
//----------------------------------------------------------------------------------------------------------------------
#4A={g^^^ ^fef ec^^ ^cde fefg bagf eg^^ ^^^^ g^^^ ^fef bagf edc"g edef e^c^ d^^^ "g^^^ }
#4B={g^^^ ^fef ec^^ ^cde fefg bagf eg^^ ^^^^ g^^^ ^fef bagf edc"g edef edc"g c^^^ ^^^^ }
#4C={cdef efe^ efga g^^^ bagf edc^ cdef e^^^ cdef gfg^ gab`c b^^^ `c^b`c bagf e^^^ d^^^ }
#4x={[16r] #4A #4B #4C [16r] #4B}
#TR4={DT #4x}
//----------------------------------------------------------------------------------------------------------------------
TR(10) @(1) EP(100) v(100) REV(100) CHO(30) q99 l8
//----------------------------------------------------------------------------------------------------------------------

#D1={}
#Dx={#D1}
#TR10={Rhythm{#Dx}}
//----------------------------------------------------------------------------------------------------------------------
TR(1) |#TR1|

TR(4) |#TR4|

UseKeyShift(off)

TR(10) |#TR10|