/*
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

                            Thanks for Download!
■作品情報
　作品名　：「戦場カメラマン～序章～」
　作曲者　：ひまんちゅ

■動作環境
　推奨音源：Roland SC-88

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
*/
//◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆

//　　　　　　　　　☆★☆★お好みセッティングコーナー★☆★☆

// {}の中の数値をちょいと変えると…。

Int k={-1};//変調機能。{ }の中の数字を変えると変調します。


//Int LP={};//ループ設定。入力した回数だけループします。

Int ALL_Volume={127};//全体のボリュームです。
//{127}が最高になっています。爆音なんで、音量を落としたい時にどうぞ。
//◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
TrackName   = {"Windmill"}
Copyright   = {"Himanchu(C)2004-2011"}
MetaText　　= {"素材として使えれば使ってください。"}
//◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
//_基本設定
TimeBase      = 96
Time(1:1:0)Tempo=(170);
TimeSignature =4,4

//Change Key (変調機能)(　ら,　し,　ど,　れ,　み,　ふぁ,　そ）kは変数
TimeKeyFlag((  1:1:0),,(　 k,　 k, 　k,　 k, 　k,　 k, 　k));//Key 


System.MeasureShift(1) 
TrackSync;
//◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
//_なんちゃってオーケストラな設定。
 ResetGS();
Include(gs.h);
GSReverbMacro(3)
//弦楽器
TR=(001);CH=( 1);P(105);@049;V(ALL_Volume);REV(070);CHO(30)//Strings1(bass)
TR=(002);CH=( 2);P(034);@049;V(ALL_Volume);REV(070);CHO(30)//Strings2(soprano)
TR=(003);CH=( 3);P(048);@041;V(ALL_Volume);REV(070);CHO(30)//Violin
TR=(004);CH=( 4);P(078);@042;V(ALL_Volume);REV(070);CHO(30)//Viola
TR=(005);CH=( 5);P(094);@043;V(ALL_Volume);REV(070);CHO(30)//Cello
TR=(006);CH=( 6);P(123);@044;V(ALL_Volume);REV(070);CHO(30)//Contrabass
TR=(007);CH=( 7);P( 34);@047;V(ALL_Volume);REV(070);CHO(30)//Orchestral Harp
//吹奏楽器
TR=(008);CH=( 8);P(104);@061;V(ALL_Volume);REV(070);CHO(30)//French Horn
TR=(009);CH=( 9);P( 46);@069;V(ALL_Volume);REV(070);CHO(30)//Oboe
TR=(011);CH=(11);P( 10);@072;V(ALL_Volume);REV(070);CHO(30)//Clarinet
TR=(012);CH=(12);P(108);@057;V(ALL_Volume);REV(070);CHO(30)//Trumpet
TR=(013);CH=(13);P( 64);@058;V(ALL_Volume);REV(070);CHO(30)//Trombone
TR=(014);CH=(14);P( 64);@059;V(ALL_Volume);REV(070);CHO(30)//Tuba
TR=(015);CH=(15);P(104);@120;V(ALL_Volume);REV(070);CHO(30)//Reverse Cymbal
//打楽器
TR=(010);CH=(10);P(064);V(ALL_Volume);REV(070)//Drums
TR=(016);CH=(16);P(064);@048;V(ALL_Volume);REV(070)//Timpani

//楽器の設定
$c{v110 n49,}	//Cymbal
$m{v80 n80,}	//Mute Triangle
$o{v90 n81,}	//Open Triangle
$w{v70 n85,}	//Castanets
$n{v60,n75,}	//Claves
$X{v95 n83,}	//JingleBell Big
$x{v50 n83,}	//JingleBell Small
//◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
//_めんどいから、楽をしましょ♪
Str ET3={EP.W(50,100,!4,100,120,!4,120,127,!4,127,127,!4,127,120,!4,120,100,!8,100,40,!8)} //1+2
Str ET2={EP.W(50,120,!8,120,127,!8,120,90,!8)} //短い音符用。1/8でEP127にあがります
Str ET1={EP.W(50,100,!4.,100,120,!2,120,127,!2,127,127,!4,127,120,!8,120,100,!8,100,40,!4)}//1+1
Str ET4={EP.W(50,100,!4,100,120,!4,120,127,!8,127,127,!4.,127,120,!8,120,100,!16,100,40,!16)}//1+4
Str ET5={EP.W(50,100,!2,100,120,!4.,120,127,!2,127,127,!4,127,120,!4,120,100,!8,100,39,!8)}//
Str ET6={EP.W(50,100,!8.,100,120,!4,120,127,!8,127,127,!8,127,120,!8,120,100,!8,100,40,!8)}//1
Str Modu={M.W(0,0,!4,0,35,!4)}
//◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆

//------------------------------------------------------------------------------
//_Strings1(bass)
TR=(001)
v110 q98 l8 o3
//第一節
Time(1:2:0)
Modu
ET1	o2'gb>e'2^4 EP(100)
	[o2'a>ce'8rr'ec<a'rr'a>ce'r]	[o2'gb>e'8rr'e<gb'rr'gb>e'r]
	[o2'fa>d'8rr'd<af'rr'af>d'r]	[o2'gb>de'rr'e<bg'rr'gb>de'r]
Time(10:1:0)
v65
ET5	o3'fa>c<'^^^^^^^^^^^^^ ET3 'fa>c<'^
ET5 	'gb>d<'^^^^^^^^^^^^^ ET3 'gb>d<'^
  	'fa>c<'^^^^^^^ 'f+ab>d+<'^^^^^^^
ET1 	'ab>e<'^^^^^^^^^^^^^^^
ET6 	'g+>eg+<'^^^^^^^
//第二節



//------------------------------------------------------------------------------
//_Strings1(so)
TR=(002)
v110 q98 l8 o5
//第一節
Time(1:2:0)
ET1	o5'gb>e'2^4
EP(100)	[o5'a>ce'8rr'ec<a'rr'a>ce'r]	o4'gb>e'8rr'e<gb'rr'gb>e'r  o5'gb>e'8rr'e<gb'rr'gb>e'r
		[o5'fa>d'8rr'd<af'rr'af>d'r]	[o5'gb>de'rr'e<bg'rr'gb>de'r]
Time(10:1:0)
v80 o5
ET5 	'cfa'^^^^^^^^^^^^^ ET3	'cfa'^	
ET5 	'dgb'^^^^^^^^^^^^^ ET3 	'dgb'^
ET5 	'cfa'^^^^^^^ '<b>d+f+a'^^^^^^^
ET1 	'<b>dea'^^^^^^^^^^^^^^^
ET6 	'<b>deb'^^^^^^^
//第二節




//------------------------------------------------------------------------------
//_Violin
TR=(003)
v110 q98 l8 o5
//第一節
Time(1:1:0)
Modu
EP(110)
r4 g^a^b^>
ET1	c^^^^^^^^^^^^^^ ET2 <b16>c16< ET1 b^^^^^^ ET2 a16g16 ET3 g^^ ET2 g16f16 ET3 e^ g^ 
ET4 	d^^^^^^^ r^ ET3 e^ f^^e16f16 ET1 g^^^^^^^ ET3 e^^^ g^^^
Time(10:1:0)
v80 q98 l8 o5
ET5 'cf'^^^^^^^|^^^^^^^^|	ET5 '<b>g'^^^^^^^|^^^^^^^^|	ET5 'cf'^^^^^^^|'<b>f+'^^^^^^^|
ET1 '<a>e'^^^^^^^|^^^^^^^^|	ET6 '<b>e'^^^^^^^|
//第二節



//------------------------------------------------------------------------------
//_Viola
TR=(004)
v110 q98 l8 o4
Modu

Time(1:1:0)
EP(110)	r4 e^f^g^	 ET1 a^^^ ET2 g^f16g16 ET1 e^^ ET2 f16g16 ET1 a^^^ ET2 b16a16 
ET1 	g^^^^^^ ET2 f ET1 e^^^^^^^ 
ET1	d^^^ ET2 c16d16 ET1 e^^ ET2 d16e16 ET1 f^^ >c^< b^ 
g^^^^^^ ET2 a16g16  ET1 e^^^g^^^
Time(10:1:0)
v70 q98 l8 o4
ET5	'afc'^^^^^^^|^^^^^^^^|	ET5	'dgb'^^^^^^^|^^^^^^^^|
ET5	'afc'^^^^^^^|'bf+d+'^^^^^^^|	ET1	'bea'^^^^^^^|^^^^^^^^|
ET6	'beg+'^^^^^^|


//------------------------------------------------------------------------------
//_Cello
TR=(005)
v110 q98 l8 o3
Modu
Time(1:1:0)
EP(110) 	r4 e^f^g^ 	ET1 a^^^ 	ET2 g^f16g16 	ET1 e^^^^^^^	 ET2 f16g16 
ET2 	e^^g^g16a16b^^^g^f^e^
ET2 	f^g16f16e16f16	 ET1 d^^^^^^^  	ET2 e^f^
ET1	e^^^^^^	 ET2 f16e16 ET1 d^^ 	ET2 c16d16 ET1 e^^^
Time(10:1:0)
v65 q98 l8 o4
ET5 	'a<a>'^^^^^^^|^^^^^^^^|
ET5 	'b<b>'^^^^^^^|^^^^^^^^|
ET5 	'a<a>'^^^^^^^|'b<b>'^^^^^^^|
ET1 	'a<a>'^^^^^^^|^^^^^^ ET5 'b<b>'^|
ET6 	'g+<g+>'^^^^^^^|

//------------------------------------------------------------------------------
//_Contrabass
TR=(006)
v110 q98 l8 o3
Time(1:1:0)
Modu
EP(110)	r4 g^g^b^ 
ET1	'a<a>'^^^^^^^^^^^^^^ ET2 'a<a>'
ET1 	'g<g>'^^^^^^^ '<e>e'^^^^^^^
ET1 	'd<d>'^^^^^^^^^^^^^ ET2 'f<f>'^
ET1	'e<e>'^^^^^^^^^^^^^^^
Time(10:1:0)
v70 q98 l8 o2
ET5 	'f>f<'^^^^^^^|^^^^^^^^|
ET5 	'g>g<'^^^^^^^|^^^^^^^^|
ET5 	'f>f<'^^^^^^^|'f+>f+<'^^^^^^^|
ET1 	'ea>e<'^^^^^^^|^^^^^^ ET5 'd>d<'^|
ET6 	'eb>e<'^^^^^^^|


//------------------------------------------------------------------------------
//_Orchestral Harp
TR=(007)
v90 q200 l16 o4 v.Random(30)
Time(2:1:0)
o4 	a>cea>cea>cec<aec<aec o4 a>cea>cea>cec<aec<ae,98c,98
o4 	gb>egb>egb>ege<bge<bg o4 gb>egb>egb>ege<bge<b,98g,98
o4 	fa>dfa>dfa>dfd<afd<fa o4 da>dfa>dfa>dfd<afd<a,98f,98
o4 	gb>egb>dgb>ded<bgd<be o4 gb>egb>dgb>ded<bgd<b,98e,98 

//第二節
Time(18:4:0)
v90 q98 l16 o5 v.Random(20)
@26



//------------------------------------------------------------------------------
//_French Horn
TR=(008)
v110 q98 l8 o5
Time(11:1:0)
EP(110)
	|f^^f16g16a^^g16a16|ET6 g^^^^^^^|g^^^b^^^|a^^^^^^^|a^^^^^^ EP(100) b16a16
	|ET1 a^^^^^^^|^^^^^^^ EP(100) g+16a16|ET6 g+^^^^^^^|


//------------------------------------------------------------------------------
//_Oboe
TR=(009)
v110 q98 l8 o5
Time(10:1:0)
ET2	|r^^^^^^^|^^^^^agf|ET4 e^^ EP(100)
	f16e16 ET4 d^^^ ET2 |c^^^d^^^|ET1 c^^^^^^ EP(100) <a16b16 b^f+^ Div{b,,118>d+,,122b,,127}2
ET1	|a^^^^^^^|^^^^^^,,115 EP(100)g+16a16|ET6 b^^^^^^^|
//------------------------------------------------------------------------------
//_Clarinet
TR=(011)
Time(10:1:0)
v127 q98 l8 o5 
EP(100)	r^'cf'^'fa'^'a>c'^< 'gb'^^'dg'^^^^
EP(100)	r^'dg'^'bg'^'b>d'^  'c<a'^^'>dg'^^^^
EP(110)	r^'<cf'^'af'^'a>c'^<'gb'^'a>c'^'d<b'^'b>e'^
ET5 	'e<ba'^^^^^^^|^^^^ ET6 '>ec'^^^< ET6 'g+b>e'^^^^^^^


//------------------------------------------------------------------------------
//_Trumpet
TR=(012)
v127 q98 l8 o6
Time(2:1:0)
Modu
	r4a^g^f16e16d ET2 <a^^^>e^a^
ET1 	g^^^^^^ EP(100) g16f16 ET1 e^^^^^^^
ET1 	f^^^^^^^ r^ EP(120) g^  a^^^
ET1 	e^^^^^^^^^^^^^^^

Time(19:1:0)



//------------------------------------------------------------------------------
//_Trombone
TR=(013)
v110 q98 l8 o4
Time(2:1:0)
	e,,120rrcrrerrcrrercr
	[e,,120rr<b>rrer]
	[d,,120rr<a>rrdr]
	e,,120rr<b>rrerd,,120rrgrrdr
Time(10:1:0)
v95 l8 o4
ET4	'cf'^^^^^^^^^ ET2 f^e^c^|ET6 'e<b'^^^g^^^ b^


//------------------------------------------------------------------------------
//_Tuba
TR=(014)
v110 q98 l8 o3
Time(2:1:0)
	a,,120rrerrarrerrarer
	g,,120rrerrgrerrgrrer
	a,,120rrfrrarf,,120rrarrfr
	b,,120rrgrrbrg,,120rrdrrer
Time(10:1:0)
v95 l8 o3
ET4	'fa'^^^^^^^^^ ET2 c^d^f^ ET6 'eg'^^^^^^^ r^

//------------------------------------------------------------------------------
//_Reverse Cymbal
TR=(015)
v100 q98 l8 o3
Time(1:1:0)
	g1

//------------------------------------------------------------------------------
//_Timpani
TR=(016)


If(k<-1){
	Time(1:1:0)
	v127 q98 l8 o3
	'ge'4 v70[24 l32 g]
	l8
	v80 ['ec',,110rrarrer]
	[e,,105   rrgrrer]
	['df',,110rrarrfr]
	e,,105rrgrrdr g,,100rrerr[4 v110 g16]
	Time(10:1:0)
	f1,,127,,3r1^1 r2^4.[f16,,80,,3]
	f1,,120,,3 r1
	o3 l8
	P.N(107,20,107,20,107,20,107,20,107,20,107,20,107,20)
	v110 e4e4 v80 eeee|eeee v100 e4e4 |v110 e4e4 v80 eeee|
	Time(19:1:0)
	P(64)
	|' eg+'1,,127|
	

	
	
	
	}
Else{
	Time(1:1:0)
	v127 q98 l8 o2
	'b>e<'4  v70[24  l32 b]
	l8
	v80 ['a>c<',,110rr>c<rrar]
	[g,,105   rrbrrgr]
	['fa',,112rrarrar]
	g,,105rr>e<rrgr b,,100rrgrr[4 v110 b16]
	
	Time(10:1:0)
	c1,,127,,3 r1^1 r2^4.[c16,,80,,3]
	c1,,120,,3 r1
	o2 l8
	P.N(107,20,107,20,107,20,107,20,107,20,107,20,107,20)
	v110 b4b4 v80 bbbb|bbbb v100 b4b4 |v110 b4b4 v80 bbbb|
	Time(19:1:0)
	P(64)
	|'o2 b>e<'1,,127|
	
};

//------------------------------------------------------------------------------
//_打楽器（ティンパニ除く）
TR=(010)
v100 q98 l8 o3
Time(2:1:0)
Rythm{[4 c1 r1: r1^1 ] c1 r1^1 c1





}