/*

グリーン・スリーブス（MML混在化のテスト）

対象音源：GM/GS/XG/FMP7のいずれか

ちょっと思いついた事があったので、
サクラ用のMMLとFMP7用のMMLを、一つのファイルにまとめてみるテストです。
（あくまでテスト目的）

このMMLは、サクラとFMC7（FMP7用のコンパイラ）の両者で、
コンパイルできる事を確認してあります。

*/

//サクラへの指令

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 

//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


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

/*
;ここから下はFMP7用の記述

'{
Title=グリーン・スリーブス
DataCreator=HiroChan
Composer=作者不詳
Comment=FMP7のテスト
ClockCount=192
PartFM4=A0-C9,G0-I9
PartSSG=D0-F9
}


;FM音色定義
;注：FMPのTL指定は0で最大、127で最小。

;ハープシコード
'@ F 0
;  AR,DR,SR,RR,SL, TL,KS,ML,DT
'@ 31,12, 4,10, 1, 32, 0,12, 0 ;OP1
'@ 31, 2, 4, 6,15, 57, 3,15, 1 ;OP2
'@ 31,12, 4, 6, 0, 30, 0, 1, 0 ;OP3
'@ 31, 5, 7, 7, 2,  0, 2, 3, 4 ;OP4
'@  2, 7
;  AL,FB

;演奏用記述

'A0B0C0G0 T108

'A0 o5 l8 @0 v80 q5 d8 f4ga.b-16a g4ec.d16e f4dd.c+16d e4c+<a4>
'B0 o4 l4 @0 v70 q5 r8 aa8 ff8 eg8gg8 fa8g>d8 c+<a8a
'C0 o4 l4 @0 v70 q5 r8 d.c. c.c. d.dg8 e8a8e.
'G0 o3 l4 @0 v80 q6 r8 d.f. c.e. d.b-. a.a

'A0 d  f4ga.b-16a g4ec.d16e f.e16dc+.<b16>c+ d4.d4.
'B0 r8 aa8 ff8 eg8gg8 f8.g16a8a. a.a.
'C0 r8 d.c. c.c. df8e8.d16e8 f.f.
'G0 r8 d.f. c.e. d8.l16efgl8a8^a8a d>d<al4d.

'A0 >c4.c.<b-16a g4ec.d16e f4dd.c+16d e4c+<a4.
'B0 l8 a.g16ff.g16a e.f16gg4g f.g16aa4>d c+4<aa4.
'C0 c.c. c.c. d.dg8 e8a8e2 
'G0 l8 f.g16aa.g16f c.d16ee.d16c d.e16ff.e16d a4.l16q8agab-agq6

'A0 >>c4.c.<b-16a g4ec.d16e f.e16d c+.<b16>c+ d4.d4
'B0 a.g16ff.g16a e.f16gg4g f.g16aa4. a4.a4
'C0 c.c. c.c. df8e8.d16e8 f.f
'G0 l8 f.g16aa.g16f c.d16ee.d16c d.e16f16g16a8^a8a d>d<a d4

*/