System.Include(stdmsg.h)
System.MeasureShift(1);
ResetGM();
TrackSync;
TrackName={"ギターとベースの伴奏"}
Copyright={"森と泉"}
MetaText={"自由にコードを書いて演奏させてみよう。"}
System.TimeBase=48
Str Am={[8 'ace']};		Str Aaug={[8 'ac+f']};
Str Axm={[8 'a+c+f']};		Str Axaug={[8 'a+df+']};
Str Bm={[8 'bdf+']};		Str Baug={[8 'bd+g']};
Str Cm={[8 'cd+g']};		Str Caug={[8 'ceg+']};
Str Cxm={[8 'c+eg+']};		Str Cxaug={[8 'c+fa']};
Str Dm={[8 'dfa']};		Str Daug={[8 'df+a+']};
Str Dxm={[8 'd+f+a+']};		Str Dxaug={[8 'd+gb']};
Str Em={[8 'egb']};		Str Eaug={[8 'eg+c']};
Str Fm={[8 'fg+c']};		Str Faug={[8 'fac+']};
Str Fxm={[8 'f+ac+']};		Str Fxaug={[8 'f+a+d']};
Str Gm={[8 'ga+d']};		Str Gaug={[8 'gbd+']};
Str Gxm={[8 'g+bd+']};		Str Gxaug={[8 'g+ce']};
Str A={[8 'ac+e']};		Str Adim={[8 'acd+f+']};
Str Ax={[8 'a+df']};		Str Axdim={[8 'a+c+eg']};
Str B={[8 'bd+f+']};		Str Bdim={[8 'bdfg+']};
Str C={[8 'ceg']};		Str Cdim={[8 'cd+f+a']};
Str Cx={[8 'c+fg+']};		Str Cxdim={[8 'c+ega+']};
Str D={[8 'df+a']};		Str Ddim={[8 'dfg+b']};
Str Dx={[8 'd+ga+']};		Str Dxdim={[8 'd+f+ac']};
Str E={[8 'eg+b']};		Str Edim={[8 'ega+c+']};
Str F={[8 'fac']};		Str Fdim={[8 'fg+bd']};
Str Fx={[8 'f+a+c+']};		Str Fxdim={[8 'f+acd+']};
Str G={[8 'gbd']};		Str Gdim={[8 'ga+c+e']};
Str Gx={[8 'g+cd+']};		Str Gxdim={[8 'g+bdf']};
Str A7={[8 'ac+eg']};		Str Asus4={[8 'ade']};
Str Ax7={[8 'a+dfg+']};		Str Axsus4={[8 'a+d+f']};
Str B7={[8 'bd+f+a']};		Str Bsus4={[8 'bef+']};
Str C7={[8 'cega+']};		Str Csus4={[8 'cfg']};
Str Cx7={[8 'c+fg+b']};		Str Cxsus4={[8 'c+f+g+']};
Str D7={[8 'df+ac']};		Str Dsus4={[8 'dga']};
Str Dx7={[8 'd+ga+c+']};	Str Dxsus4={[8 'd+g+a+']};
Str E7={[8 'eg+bd']};		Str Esus4={[8 'eab']};
Str F7={[8 'facd+']};		Str Fsus4={[8 'fa+c']};
Str Fx7={[8 'f+a+c+e']};	Str Fxsus4={[8 'f+bc+']};
Str G7={[8 'gbdf']};		Str Gsus4={[8 'gcd']};
Str Gx7={[8 'g+cd+f+']};	Str Gxsus4={[8 'g+c+d+']};
Str Am7={[8 'aceg']};		Str A7sus4={[8 'adeg']};
Str Axm7={[8 'a+c+fg+']};	Str Ax7sus4={[8 'a+d+fg+']};
Str Bm7={[8 'bdf+a']};		Str B7sus4={[8 'bef+a']};
Str Cm7={[8 'cd+ga+']};		Str C7sus4={[8 'cfga+']};
Str Cxm7={[8 'c+eg+b']};	Str Cx7sus4={[8 'c+f+g+b']};
Str Dm7={[8 'dfac']};		Str D7sus4={[8 'dgac']};
Str Dxm7={[8 'd+f+a+c+']};	Str Dx7sus4={[8 'd+g+a+c+']};
Str Em7={[8 'egbd']};		Str E7sus4={[8 'eabd']};
Str Fm7={[8 'fg+cd+']};		Str F7sus4={[8 'fa+cd+']};
Str Fxm7={[8 'f+ac+e']};	Str Fx7sus4={[8 'f+bc+e']};
Str Gm7={[8 'ga+df']};		Str G7sus4={[8 'gcdf']};
Str Gxm7={[8 'g+bd+f+']};	Str Gx7sus4={[8 'g+c+d+f+']};
Str A6={[8 'ac+ef+']};		Str Am75={[8 'acd+g']};
Str Ax6={[8 'a+dfg']};		Str Axm75={[8 'a+c+eg+']};
Str B6={[8 'bd+f+g+']};		Str Bm75={[8 'bdfa']};
Str C6={[8 'cega']};		Str Cm75={[8 'cd+f+a+']};
Str Cx6={[8 'c+fg+a+']};	Str Cxm75={[8 'c+egb']};
Str D6={[8 'df+ab']};		Str Dm75={[8 'dfg+c']};
Str Dx6={[8 'd+ga+c']};		Str Dxm75={[8 'd+f+ac+']};
Str E6={[8 'eg+bc+']};		Str Em75={[8 'ega+d']};
Str F6={[8 'facd']};		Str Fm75={[8 'fg+bd+']};
Str Fx6={[8 'f+a+c+d+']};	Str Fxm75={[8 'f+ace']};
Str G6={[8 'gbde']};		Str Gm75={[8 'ga+c+f']};
Str Gx6={[8 'g+cd+f']};		Str Gxm75={[8 'g+bdf+']};

//　1小節2コード
Str AmA7={[4 'ace'][4 'ac+eg']}; 
Str CE7={[4 'ceg'][4 'eg+bd']};


Tempo=110
Key(0)
TR=1 CH=1 音色(NylonGuitar) V(100) P(64) q100 o5 l8
v.N(80,80,80,80,60,60,60,60,80,80,80,80,80,80,80,80,60,60,60,60,80,80,80,80,80,80,80,80,80,80,80,80)
//ギターを8ビートストロークで演奏します。
//DシャープとEフラット等、内容が同じものは(Str)を節約するため、コード名にフラットは使わず
//シャープのみにしています。
//エラーになるためコード名のシャープには(+や#)ではなく(x)を、(Am7-5)等は(Am75)にしています。
//1小節2コードの場合は、例にならってあらかじめ(Str)を定義して下さい。

[2 Am   Dm E7 Am
   AmA7 Dm G7 CE7
   Am   Dm G7 CE7
   Am   Dm E7 Am ]



//ベースを演奏します。
TR=2 CH=2 音色(AcousticBass) V(100) P(27) q100 o3 l1 v100
//コード名上一桁を小文字にして書いて下さい。(Am)なら(a)
//コード名にシャープの(x)があれば(+)に変えて付けて下さい。(Axm)なら(a+)
//1小節2コードの部分は(c2e2)等のようにして下さい。

[2 a    d e a 
   a2a2 d g c2e2
   a    d g c2e2 
   a    d e a   ]