/*

グリーン・スリーブス

対象音源：GM互換/GS互換/XG互換のいずれか。

音源聴き比べ目的のために少し書き換え。

飽きたら音色差し替えるなりしてやってください。

*/

//システムへの指令

SoundType=0;   //0=GM,1=GS,2=XG。使ってる音源のタイプに合わせる。

System.TimeBase=48
System.OctaveRangeShift=1
System.vMax=15 //古いMMLのスタイルにしてやれと思った。
System.qMax=8  //同上

//初期設定周り

TimeSignature=6,8

//GMであれば
If(SoundType==0){
	TR(0)
	Time(1:1:0) ResetGM
	Time(1:5:0) TrackSync

	//仮打ち段階ではこんな感じだった
	TR(1) CH(1)  @7 V(100) P(64) REV(0) y126(1) q5 v12 o4
	TR(2) CH(2)  @8 V(90)  P(64) REV(0) y126(1) q5 v10 o4
	TR(3) CH(3)  @8 V(90)  P(64) REV(0) y126(1) q5 v10 o4
	TR(4) CH(4)  @7 V(100) P(64) REV(0) y126(1) q6 v12 o4
}

//GSであれば
If(SoundType==1){
	TR(0)
	Time(1:1:0) ResetGS
	Time(1:5:0) TrackSync

	//以前投稿した時に近いもの
	TR(1) CH(1)  @82,1 V(100) P(64) REV(0) y126(1) q5 v12 o4 //ノコギリ波
	TR(2) CH(2)  @81,1 V(90)  P(64) REV(0) y126(1) q5 v10 o4 //矩形波
	TR(3) CH(3)  @81,1 V(90)  P(64) REV(0) y126(1) q5 v10 o4 //矩形波
	TR(4) CH(4)  @81,8 V(100) P(64) REV(0) y126(1) q6 v12 o4 //正弦波
}

//XGであれば
If(SoundType==2){
	TR(0)
	Time(1:1:0) ResetXG
	Time(1:5:0) TrackSync

	//GSでやってるのに似たことをXG側でもやってみる
	TR(1) CH(1)  @82,0,6  V(100) P(64) REV(0) y126(1) q5 v12 o4 //ノコギリ波
	TR(2) CH(2)  @81,0,6  V(90)  P(64) REV(0) y126(1) q5 v10 o4 //矩形波
	TR(3) CH(3)  @81,0,6  V(90)  P(64) REV(0) y126(1) q5 v10 o4 //矩形波
	TR(4) CH(4)  @81,0,66 V(100) P(64) REV(0) y126(1) q6 v12 o4 //正弦波
}

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

//演奏用

TR(0)
Time(1:6:0) Tempo=108 TrackSync 

[2

//GM以外であれば。
If(SoundType!=0){
	//エクスプレッションで強制的に減衰を掛ける。
	TR(1) EP.Frequency(3) EP.W(127,32,36)
	TR(2) EP.Frequency(3) EP.W(127,32,36)
	TR(3) EP.Frequency(3) EP.W(127,32,36)
	TR(4) EP.Frequency(3) EP.W(127,32,36)
}

TR(1) o5 l8 d  f4ga.b-16a g4ec.d16e f4dd.c+16d e4c+<a4>
TR(2) o4 l4 r8 aa8 ff8 eg8gg8 fa8g>d8 c+<a8a
TR(3) o4 l4 r8 d.c. c.c. d.dg8 e8a8e.
TR(4) o3 l4 r8 d.f. c.e. d.b-. a.a

TR(1) d  f4ga.b-16a g4ec.d16e f.e16dc+.<b16>c+ d4.d4.
TR(2) r8 aa8 ff8 eg8gg8 f8.g16a8a. a.a.
TR(3) r8 d.c. c.c. df8e8.d16e8 f.f.
TR(4) r8 d.f. c.e. d8.l16efgl8a8^8a d>d<al4d.

TR(1) >c4.c.<b-16a g4ec.d16e f4dd.c+16d e4c+<a4.
TR(2) l8 a.g16ff.g16a e.f16gg4g f.g16aa4>d c+4<aa4.
TR(3) c.c. c.c. d.dg8 e8a8e2 
TR(4) l8 f.g16aa.g16f c.d16ee.d16c d.e16ff.e16d a4.l16q8agab-agq6

TR(1) >>c4.c.<b-16a g4ec.d16e f.e16d c+.<b16>c+ d4.d4
TR(2) a.g16ff.g16a e.f16gg4g f.g16aa4. a4.a4
TR(3) c.c. c.c. df8e8.d16e8 f.f
TR(4) l8 f.g16aa.g16f c.d16ee.d16c d.e16f16g16a8^8a d>d<a d4

Key(-5)

]