//_------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.37)
//_------------------------------------------------------------------------------
MetaText      = {" Water Forest = Trance "};
                                         //↑:タイトル
Copyright     = {" ＭＭ GM/GSで作成 Ver.4.1 "};              //著作権表示
//_一応、曲の説明？----------------------------------------------------------------------------------
//下のナンバーを変えると曲のタイプが変わります
// 1 ＝ 従来のGM規格で制作
// 2 ＝ GS規格で制作（試験運転用テンプレート）
Str NO = 2



/*…オリジナル(以後:自) 作曲　投稿 No.20 … 暫定完了 

                                             [ Water Forest ]                                         

  ※ 説明欄が長くなりました…すみません(汗; 
     ...ですので読むのが面倒だなぁ…と思う方は説明欄を飛ばして下さい（汗；

　初めての御方は「初めまして、宜しくお願い致します」 m(_ _)m 

  皆様、こんにちは、お久しぶりです、[ ＭＭ(えむえむ) ] です。
  そして、ダウンロードして頂き誠に有り難うございます m(_ _)m 



　今回は…そろそろ新境地を開こう!!と言う事で初めてのGS規格で製作してみました。
  曲調はかなり短めで、音ゲー等の挿入曲っぽい感じで仕上げてみました。
  後は、ドラムを複数で演奏・コード３のインクルの使い方・各種の設定等等…です。



・ １ はいつも通りのGMでTWM2で作曲
・ ２ は今回初めてGSの試作テンプレをアップ



  …という風になっております。
  
  しかし、相変わらずGSの使い方がいまいちピンっと来ていないのか？地味に理解している様でしていない感じ
のテンプレです（汗;


  一応、演奏する分には問題は無いみたいなのですが、一つ問題点が解決されていない所が有るみたいでして…


　途中演奏すると…


  TR10のドラムは正常に番号をふった通りの音源になるのですが、TR11はナゼかスタンダートに戻ってしまう…
と言う現象が起きます…（自分のPCでの現象なのですが<汗;）


　一先ず、原因が特定出来るまでは最初から演奏でこのGS用のテンプレでやってみようかと思います。


  まだまだ処理の仕方といい、音色の付け方といい、拙い部分は有り、展開や終わり方がざっくりとした感じに
なってしまいましたが、楽しく聴いて頂けたら作り手としては本当に嬉しい限りです

　それでは、お粗末ながらも長文の御説明を最後まで御付き合いして頂き、誠に有難う御座います m(_ _ )m

　　　これで、失礼致します!! (´・ω・`)ﾉｼ



《 更新記録 》
    ・2012/ 7/ 6  … Ver.4.1  一先ず全体の流れが出来上がり、しょーと版
    				      ( 通常版 … [ 2:00～3:30 ] を目安に作っております )
                              細かい修正もしたけど…どうでしょうか？ (汗; 

《 その他 》
  	・使用音源等 … 「ＴＷＭ２ ( 推奨 ) 」・ ヘッドホン ( Sony社の[ MDR-XD200 ) で制作
				出来れば、イヤホンやヘッドホンで聴いて頂けると嬉しいです
				Vista使用者は「音割れや無音」にご注意下さい　m(_ _)m 

  	・ [ REMIX ]等する際は、
	   コメ欄に「○○に使用しますよ」等と一言声を掛けて頂けたら有り難いです m(_ _)m 

  */

IF(NO==1){
//_ = 初期設定 = ----------------------------------------------------------------------------
Time(0:1:0);
	TimeSignature = 4,4;                     //拍子記号の設定 
	System.MeasureShift = 1;                 //初期設定の位置を小節数分ずらす(弄らないこと) 
	System.TimeBase = 96;                    //四分音符分解機能を設定 
	ResetGM; r1
	ResetGS; r1                              //音源初期化命令 
	TrackSync; r1                            //全てのトラックを同期化 
	KeyFlag=(0,0,0,0,0,0,0);                 // 記号設定 
 /*定義ファイルの読込欄*/
	Include(unison.h); 
	Include(delay.h);  
	Include(bend.h);   
	Include(stdmsg.h); 
	Include(fadeio.h); 
	Include(chord3.h) 
//_簡単命令文--------------------------------------------------------------------

	Function BT(UD1,UD2,L){ p%.T(UD1,UD2,L,0,0,1); } // ベントを簡単に纏めておく(時間指定) 
	Function BNW(UD1,UD2,L){ p%.WR(UD1,UD2,L,0,0,1); } // ベントを簡単に纏めておく(ノート毎) 
	Function TC(TC1,TC2,VT){ TempoChange(TC1,TC2,VT); } //ﾃﾝﾎﾟﾁｪﾝｼﾞ(今のﾘｽﾞﾑ,変えたいﾘｽﾞﾑ,掛かる時間) 
	Function VC(Vh1,Vt1,Vh2,Vt2){ M.WR(0,Vh1,Vt1,Vh1,Vh2,Vt2); } //ﾋﾞﾌﾞﾗｰﾄの掛かり具合(Vhは大きさ,Vｔは掛かる時間) 
	Function BP(X,Y){ BR(X); p%(Y); } /* ピッチを戻す */ 
	Function Po(Int Po,po){ If(Po==on){y64(po);}  Else{y64(0);} } /* ﾍﾟﾀﾞﾙを押す放す */
	Function RC(Int R,C){ REV(R);CHO(C); } /* リバーブとコーラスを纏めておく */ 
	Function Vm(Int V,O,L,m){ v(V);o(O);l(L);M(m); } 
			   /* 左から [ Vel; Oct;  l ; Mod の順で短縮 [←: v～M ] */
	Function TK(T){ TrackKey = (T) } // トラックキー 
	Function EV(E,v){ EP(E);V(v); } // EPとVを簡略化のつもりです(w 初期設定は[ 100,100 ]

//_ﾘｽﾞﾑｽﾍﾟｰｽ------------------------------------------------------------------------------
/*リズムの定義*/

  $S{n82,}/*ｼｪｲｶｰ*/        $h{n39,}/*ﾊﾝﾄﾞｸﾗｯﾌﾟ*/ 
  $O{n46,}/*ﾊｲﾊｯﾄ(ｵｰﾌﾟﾝ)*/ $p{n44,}/*ﾍﾟﾀﾞﾙﾊｲﾊｯﾄ*/   $H{n42,}/*ﾊｲﾊｯﾄ(ｸﾛｰｽﾞ)*/
  $k{n36,}/*ﾊﾞｽﾄﾞﾗ1*/      $K{n35,}/*ﾊﾞｽﾄﾞﾗ2*/
  $s{n38,}/*ｽﾈｱ1*/         $w{n40,}/*ｽﾈｱ2*/
  $M{n43,}/*ﾛｰﾀﾑ1*/        $m{n41,}/*ﾛｰﾀﾑ2*/
  $J{n47,}/*ﾐﾄﾞﾙﾀﾑ1*/      $j{n45,}/*ﾐﾄﾞﾙﾀﾑ2*/
  $U{n50,}/*ﾊｲﾀﾑ1*/        $u{n48,}/*ﾊｲﾀﾑ2*/
  
  $B{n56,}/*ｶｳﾍﾞﾙ*/        $G{n53,}/*ﾗｲﾄﾞﾍﾞﾙ*/
  $F{n51,}/*ﾗｲﾄﾞｼﾝﾊﾞﾙ1*/   $R{n59,}/*ﾗｲﾄﾞｼﾝﾊﾞﾙ2*/
  
  $C{n49,}/*ｸﾗｯｼｭｼﾝﾊﾞﾙ1*/  $c{n57,}/*ｸﾗｯｼｭｼﾝﾊﾞﾙ2*/
  $D{n52,}/*ﾁｬｲﾅ       */  $d{n55,}/*ｽﾌﾟﾗｯｼｭ   */

TR(10); Time(0:1:8); CH(10); @(27,90,0); RC(12,80);EV(125,125); Time(1:1:0);
TR(20); Time(0:1:8); CH(10); BR(48); BT(0,512,!8); Time(1:1:0);
TR(21); Time(0:1:8); CH(10); Time(1:1:0);
TR(22); Time(0:1:8); CH(11); @(119,0,0); Vm(100,4,16,0); RC(0,0);EV(100,100);

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

Rythm{(TR(10); //トラックとチャンネルをリズムモード（10）に設定
       #S1 = { v.onNote(80,55,85,55); }
	 )
	 
//_ｼｪｲｶｰ
    {{ 
 (Time(1:1:0)); v(50); l16;[8 rSSr SSrS rSSr SSrS  rSSr SSrS rSSr SSrS ]
 (Time(18:1:0));[8 rSSr SSrS rSSr SSrS  rSSr SSrS rSSr SSrS ]
	
	}
//_ﾊﾝﾄﾞ
 (Time(1:1:0)); v(100); l16; [8 [4 r4h4 ] ] r4h4 h8.h8.h8
 (Time(18:1:0)); [8 [3 r4h4 ] r4h8h8 ] r4h4 h8.h8.h8
 
	
	}
//_ｵｰﾌﾟﾝ&ｸﾛｰｽﾞﾊｲﾊｯﾄ+α
 (Time(1:1:0)); v(100); l16; #S1;
 	#S1;[5 ppHp ppHp ppHp ppHp | ppHp ppHp pHHp HpHp ]v110[ Hrc0d0OrrD0C0Orr ]
	#S1; ppHp ppHp v82 OOpO pOOO  #S1; ppOp ppOp v82 OOpO pOOO #S1; [ ppOp ppOp ppOp ppOp | ppOp ppOp pHOp OpOp ]
 (Time(18:1:0)); #S1; [[ HrOr HrOr HrOr HrOr : HrOr HrOr HrOr HrOr ]  HrOr HrOr OOrO rOOO ]
	v100[8 O8v-4][8Ov+5][8O32v+1][12O48v+2] v110 [ Hrc0d0OrrD0C0Orr ] 
	#S1; ppHp ppHp v82 OOpO pOOO  #S1; ppOp ppOp v82 OOpO pOOO #S1; [ ppOp ppOp ppOp ppOp | ppOp ppOp pHOp OpOp ]
	
　　　//Track10のライン
      (TR(20);) 
//_Cowbell=ｶｳﾍﾞﾙ
    {{
 (Time(1:1:0)); v(80); l16; 
 	[[15G4]G8G8][7G4]G8G8 [ v80;F0Rr v120;GrrGrr] [[v90 G8 v75 F0R8]v84;GGGG8GG8][[7 v90 G8 v75 F0R8 ] v100 G8G8]
 (Time(18:1:0));[[15 v90 G8 v75 F0R8 ] v100 G8G8][7 v90 G8 v75 F0R8 ] v100 G8G8
 	[ v80;F0Rr v120;GrrGrr] [[v90 G8 v75 F0R8]v84;GGGG8GG8][[7 v90 G8 v75 F0R8 ] v100 G8G8]

	}
 (Time(1:1:0)); v(120); l16; 
 (Time(12:1:0)); D0C0c1  (Time(18:1:0)); D0C0c1	 (Time(29:1:0)); D0C0c1
	}//Track20まで
	(TR(21);) 
//_ｷｯｸ(ﾊﾞｽﾄﾞﾗ)+ﾀﾑ系
    {{
 (Time(1:1:0)); v(125); l16;
	[15 k4 ] k8k8  [7 k4 ] k8k8 [6 k4 ] [k8] [4k]  [6 k4 ] [k8] [4k] 
	[k8k8.k8.][ k4 ] [k8] [4k] [3 k4 ] k8k8 [7 k4 ] k8k8 [4 k4 ] [k8 [6k64] r24 ] [[6k64]r12] [9k96] 
 (Time(18:1:0));v(125);
 	[15 k4 ] k8k8  [7 k4 ] k8k8 [6 k4 ] [k8] [4k]  [6 k4 ] [k8] [4k] 
	[k8k8.k8.][ k4 ] [k8] [4k] [3 k4 ] k8k8 [7 k4 ] k8k8 [4 k4 ] [k8 [6k64] r24 ] [[6k64]r12] [9k96] 

	}
//_ｽﾈｱ(ｺﾞｰｽﾄ)
 (Time(1:1:0)); v(55); l16;

	}//Track21まで
	}//Rythmまで
TR(22); CH(11); //ﾊﾞｽﾄﾞﾗ（Elec-Dr）
  Time(1:1:0);


//_ﾄﾗｯｸｽﾍﾟｰｽ = 基本設定 = -------------------------------------------------------------------------------------------------

 TR(01);  CH(01);  Time(0:2:16); Tempo(90); @(051,  0,0); RC(60,20); Vm(98,6,1,48); q(098); P(096); EV(100,100); // 
 TR(02);  CH(02);  Time(0:2:16);            @(082, 90,1); RC(60,20); Vm(98,6,1,48); q(098); P(032); EV(100,100); // 
 TR(03);  CH(03);  Time(0:2:16);            @(045, 00,0); RC(100,40); Vm(78,7,1,48); q(098); P(064); EV(100,100); // 
 TR(04);  CH(04);  Time(0:2:16);            @(040, 16,0); RC(20,120); Vm(108,4, 8,0); q(075); P(064); EV(110,110); // 
 TR(05);  CH(05);  Time(0:2:16);            @(039,  0,0); RC(80,120); Vm(120,3, 8,0); q(075); P(064); EV(120,120); //
 TR(06);  CH(06);  Time(0:2:16);            @( 89,000,0); RC(40,0); Vm(100,7,8,0); q(050); P(064); EV(100,100); // 
 TR(07);  CH(07);  Time(0:2:16);            @( 81,  1,0); RC(40,0); Vm(108,7,8,0); q(050); P(064); EV(100,100); // 
 TR(08);  CH(08);  Time(0:2:16);            @(003, 08,0); RC(60,20); Vm(104,6,1,0); q(098); P(064); EV(100,120); // 
 TR(09);  CH(09);  Time(0:2:16);            @(082,110,0); RC(88,48); Vm(88,6,1,0); q(098); P(064); EV(100,100); // 
 TR(12);  CH(12);  Time(0:2:16);            @(013, 00,0); RC(20,88); Vm(96,6,8,0); q(50); P(064); EV(100,120); // 
 
 TR(13);  CH(13);  Time(0:2:16);            @(001,0,0); RC(0,0); Vm(0,0,0,0); q(098); P(064); EV(100,100); // 
 TR(14);  CH(14);  Time(0:2:16);            @(001,0,0); RC(0,0); Vm(0,0,0,0); q(098); P(064); EV(100,100); // 
 TR(15);  CH(15);  Time(0:2:16);            @(001,0,0); RC(0,0); Vm(0,0,0,0); q(098); P(064); EV(100,100); // 
 TR(16);  CH(16);  Time(0:2:16);            @(001,0,0); RC(0,0); Vm(0,0,0,0); q(098); P(064); EV(100,100); // 
 
//_ﾄﾗｯｸｽﾍﾟｰｽ2 = 各種設定 = ------------------------------------------------------------------------------------------------
TR(1); CH(1); Int TKX = 0 // ﾒｲﾝﾊﾟｰﾄ1… 
   Time(1:1:0); Tempo(155); TK=TKX 
	Str CHO1 = { #KEY_C; 
	  Tm1(!1,1); Dm4(!1,3);
	  Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2);

      #KEY_B;
	  Tm1(!1,2); SD1(!1,2); 
        Tm1(!1,1); SD2(!1,1); 
	  T3(!1,1);  T2(!2,1); T2(!2,1);
	  V.WR(0,120,!8,110,60,!4.); SDM5(!2,2);SDM6(!2,2);

	#KEY_A; V.T=45,100,!2
	  T4(!1,1); SDM5(!2,1);SDM6(!2,1);	
	#KEY_Fp;
	  T4(!1,4); SDM5(!2,4);SDM6(!2,4);	
	#KEY_Cp;
  	  T2(!1,3); T1(!1,3);^2 }
	
	Str CHO1h = { #KEY_C; 
	  Tm1(!1,1); Dm4(!1,3);
	  Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2);

      #KEY_B;
	  Tm1(!1,2); SD1(!1,2); 
        Tm1(!1,1); SD2(!1,1); 
	  T3(!1,1);  T2(!2,1); T2(!2,1);
	  V.WR(45,120,!8,120,60,!4.); SDM5(!2,2);SDM6(!2,2);

	#KEY_A; V.WR(45,90,!4);
	  T4(!1,1); SDM5(!2,1);SDM6(!2,1);	
	#KEY_Fp;
	  T4(!1,4); SDM5(!2,4);SDM6(!2,4);	
	#KEY_Cp;
  	  T2(!1,3); T1(!1,3);^2 }

	Str CHO2 = { #KEY_C; 
	  Tm1(!1,1); Dm4(!1,3);
	  Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2);

      #KEY_B;
	  Tm1(!1,2); SD1(!1,2); 
        Tm1(!1,1); SD2(!1,1); 
	  T3(!1,1);  T2(!2,1); T2(!2,1);
	  V.WR(120,60,!2); SDM5(!2,2);SDM6(!2,2);

	#KEY_A; V=120
	  T4(!1,1); SDM5(!2,1);SDM6(!2,1);	
	#KEY_Fp;
	  T4(!1,4); SDM5(!2,4);SDM6(!2,4);	
	#KEY_Cp;
  	  T2(!1,3); T1(!1,3);^2 }
	  
	  
   Time(1:1:0); EP.WR(45,105,!1,105,30,!1);CHO1  
   Time(18:1:0); CHO1 

   	

//------------------------------------------------------------------------------
TR(2) ;CH(2); // ﾒｲﾝﾊﾟｰﾄ1(ｱｼｽﾄ) 
   Time(1:1:0); TK=TKX  EP.WR(45,105,!1,105,30,!1); CHO1
   Time(18:1:0); CHO1 

//------------------------------------------------------------------------------
TR(3); CH(3); // ﾒｲﾝﾊﾟｰﾄ2… 
   Time(1:1:0); TK=TKX  EP.WR(105,30,!1,30,105,!1); CHO1
   Time(18:1:0);  CHO1
   

//------------------------------------------------------------------------------
TR(4); CH(4); // ﾒｲﾝﾊﾟｰﾄ2(ｱｼｽﾄ) 
   Time(1:1:0); TK=TKX 
	Sub{ o4 [rc^c][r"g^"g] rc^crf^f rc^cr"g^"g [[r"b^"b][re^e]] [4r"b^"b]
	        <rg^gra^a[rg-^g-]rf^frg^g [rd+^d+ ] rd^d re^e > [4rc+^c+]} 
   Time(18:1:0);o4 
	[rc^c][r"g^"g] rc^crf^f rc^cr"g^"g [[r"b^"b][re^e]] [4r"b^"b]
	<rg^gra^a[rg-^g-]rf^frg^g [rd+^d+ ] rd^d re^e > [4rc+^c+]
	// c"gcgc"g "be"be "b"b "g"a"g#"f"g"d#"d"e"g#"g#

//------------------------------------------------------------------------------
TR(5); CH(5); // ｼﾝｾ系やSFX等 
   Time(1:1:0); TK=TKX  EP.WR(30,125,!8.);
	[c^cr]["g^"gr] c^cr f^fr c^cr"g^"gr [["b^"br][e^er]] [4"b^"br]
	<g^gra^ar[g-^g-r]f^frg^gr [d+^d+r ]d^d re^er > [4c+^c+r]
   Time(18:1:0);
	[c^cr]["g^"gr] c^cr f^fr c^cr"g^"gr [["b^"br][e^er]] [4"b^"br]
	<g^gra^ar[g-^g-r]f^frg^gr [d+^d+r ]d^d re^er > [4c+^c+r]

//------------------------------------------------------------------------------
TR(6); CH(6); // ｼﾝｾ系やSFX等のﾊﾞｯｸｱｼｽﾄ 
   Time(1:1:0); TK=TKX 
   P.N(64,96,32,104,24,74,56,44,84); 
   MidiDelayS( 
   	[4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]
	)
   Time(18:1:0);MidiDelayS(   
      [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]
	)
	
	
	

//------------------------------------------------------------------------------
TR(7); CH(7); // ｼﾝｾﾍﾞｰｽ系の下部ﾊﾟｰﾄ? 
   Time(1:1:0); TK=TKX 
   P.N(64,32,96,24,104,56,74,84,44);  
   MidiDelayS(   
      [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]
	)
   Time(18:1:0);MidiDelayS(   
      [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]
	)
	

//------------------------------------------------------------------------------
TR(8); CH(8); TK=TKX  // ｼﾝｾﾍﾞｰｽ系の下部ﾊﾟｰﾄ? 
   Time(1:1:0); CHO2 
   Time(18:1:0); CHO2 
   	

//------------------------------------------------------------------------------
TR(9); CH(9); // ｼﾝｾﾍﾞｰｽ系の下部ﾊﾟｰﾄ? 
   Time(1:1:0);BR=12 p%=128 TK=TKX EP.WR=60,100,!4,100,60,!2. V.WR(45,90,!4); P.WR=64,127,!16,127,0,!8,0,64,!16
   	CHO1h 
   Time(18:1:0);  CHO1h 

//------------------------------------------------------------------------------
TR(12); CH(12); // ｼﾝｾﾍﾞｰｽ系の下部ﾊﾟｰﾄ? 
   Time(1:1:0); TK=TKX EP.WR=100,0,!8. 
      [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]
   Time(18:1:0); TK=TKX EP.WR=100,0,!8. 
      [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]
	

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

//------------------------------------------------------------------------------
TR(13); CH(13); // SE等 
   Time(1:1:0);  TK=TKX 
   	
	

//------------------------------------------------------------------------------
TR(14); CH(14); // SE等 
   Time(1:1:0); 
   	
	

//------------------------------------------------------------------------------
TR(15); CH(15); // SE等 
   Time(1:1:0); 
   	
	

//------------------------------------------------------------------------------
TR(16); CH(16); // SE等 
   Time(1:1:0); 
   	
	

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



}
IF(NO==2){
//_------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.37)
//_------------------------------------------------------------------------------
MetaText      = {" Water Forest ( Test-Type for GS ) = Trance "};
                                         //↑:タイトル
Copyright     = {" ＭＭ GSで作成中 Ver.4.1 "};              //著作権表示
//_一応、曲の説明？---------------------------------------------------------------------------
/*
  */
//_ = 初期設定 = ----------------------------------------------------------------------------
TimeSignature = 4,4;                     //拍子記号の設定 
System.MeasureShift = 1;                 //初期設定の位置を小節数分ずらす(弄らないこと) 
System.TimeBase = 128;                   //四分音符分解機能を設定
Tempo(90);
//いんくるーどぅ☆
Include(unison.h);  Include(delay.h);   Include(bend.h);   
Include(stdmsg.h);  Include(fadeio.h);  Include(chord3.h) 
Include(groove.h);  Include(gs.h);    
//リ…リセッシュしましょ♪
System.MeasureShift(1);ResetGS;
//ドラムを増やして上げましょ♪
CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;//トラック11
//CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;//トラック12
//CH(13) SysEx$ = f0,41,10,42,12,{40,1c,15,02},f7;//トラック13
//CH(14) SysEx$ = f0,41,10,42,12,{40,1d,15,02},f7;//トラック14
//簡素ふぁんくしょん♪
Function BT(UD1,UD2,L){ p%.T(UD1,UD2,L,0,0,1); } // ベントを簡単に纏めておく(時間指定) 
Function BNW(UD1,UD2,L){ p%.WR(UD1,UD2,L,0,0,1); } // ベントを簡単に纏めておく(ノート毎) 
Function TC(TC1,TC2,VT){ TempoChange(TC1,TC2,VT); } //ﾃﾝﾎﾟﾁｪﾝｼﾞ(今のﾘｽﾞﾑ,変えたいﾘｽﾞﾑ,掛かる時間) 
Function VC(Vh1,Vt1,Vh2,Vt2){ M.WR(0,Vh1,Vt1,Vh1,Vh2,Vt2); } //ﾋﾞﾌﾞﾗｰﾄの掛かり具合(Vhは大きさ,Vｔは掛かる時間) 
Function BP(X,Y){ BR(X); p%(Y); } /* ピッチを戻す */ 
Function Po(Int Po,po){ If(Po==on){y64(po);}  Else{y64(0);} } /* ﾍﾟﾀﾞﾙを押す放す */
Function RC(Int R,C){ REV(R);CHO(C); } /* リバーブとコーラスを纏めておく */ 
Function Vm(Int V,O,L,m){ v(V);o(O);l(L);M(m); } 
			   /* 左から [ Vel; Oct;  l ; Mod の順で短縮 [←: v～M ] */
Function EV(E,v){ EP(E);V(v); } // EPとVを簡略化のつもりです(w 初期設定は[ 100,100 ]
Function TK(T){ TrackKey = (T) } // トラックキー 
Str KF = { KeyFlag+()} // トラックキー 
TrackSync;r1//全てのトラックを同期化 
//------------------------------------------------------------------------------

//------------------------------------------------------------------------------
TR(1);CH(1);KF TK(0) @(051,  0,0);
RC(60,20); Vm(98,6,1,48); q(098); P(096); EV(100,100); // 
Time(1:1:0) Tempo(155);
	Str CHO1 = { #KEY_C; 
	  Tm1(!1,1); Dm4(!1,3);
	  Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2);

      #KEY_B;
	  Tm1(!1,2); SD1(!1,2); 
        Tm1(!1,1); SD2(!1,1); 
	  T3(!1,1);  T2(!2,1); T2(!2,1);
	  V.WR(0,120,!8,110,60,!4.); SDM5(!2,2);SDM6(!2,2);

	#KEY_A; V.T=45,100,!2
	  T4(!1,1); SDM5(!2,1);SDM6(!2,1);	
	#KEY_Fp;
	  T4(!1,4); SDM5(!2,4);SDM6(!2,4);	
	#KEY_Cp;
  	  T2(!1,3); T1(!1,3);^2 }
	
	Str CHO1h = { #KEY_C; 
	  Tm1(!1,1); Dm4(!1,3);
	  Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2);

      #KEY_B;
	  Tm1(!1,2); SD1(!1,2); 
        Tm1(!1,1); SD2(!1,1); 
	  T3(!1,1);  T2(!2,1); T2(!2,1);
	  V.WR(45,120,!8,120,60,!4.); SDM5(!2,2);SDM6(!2,2);

	#KEY_A; V.WR(45,90,!4);
	  T4(!1,1); SDM5(!2,1);SDM6(!2,1);	
	#KEY_Fp;
	  T4(!1,4); SDM5(!2,4);SDM6(!2,4);	
	#KEY_Cp;
  	  T2(!1,3); T1(!1,3);^2 }

	Str CHO2 = { #KEY_C; 
	  Tm1(!1,1); Dm4(!1,3);
	  Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2);

      #KEY_B;
	  Tm1(!1,2); SD1(!1,2); 
        Tm1(!1,1); SD2(!1,1); 
	  T3(!1,1);  T2(!2,1); T2(!2,1);
	  V.WR(120,60,!2); SDM5(!2,2);SDM6(!2,2);

	#KEY_A; V=120
	  T4(!1,1); SDM5(!2,1);SDM6(!2,1);	
	#KEY_Fp;
	  T4(!1,4); SDM5(!2,4);SDM6(!2,4);	
	#KEY_Cp;
  	  T2(!1,3); T1(!1,3);^2 }
	  

Time(1:1:0); EP.WR(45,105,!1,105,30,!1);CHO1  
Time(18:1:0); CHO1 

//------------------------------------------------------------------------------
TR(2);CH(2);KF TK(0) @(082, 90,1); 
RC(60,20); Vm(98,6,1,48); q(098); P(032); EV(100,100); // 
Time(1:1:0); EP.WR(45,105,!1,105,30,!1);CHO1  
Time(18:1:0); CHO1 

//------------------------------------------------------------------------------
TR(3);CH(3);KF TK(0);@(045, 00,0); 
RC(100,40); Vm(78,7,1,48); q(098); P(064); EV(100,100);
Time(1:1:0);  EP.WR(105,30,!1,30,105,!1); CHO1
Time(18:1:0);  CHO1

//------------------------------------------------------------------------------
TR(4);CH(4);KF TK(0);@(003, 16,0); 
RC(60,20); Vm(104,6,1,0); q(098); P(064); EV(100,120);
Time(1:1:0); CHO2 
Time(18:1:0); CHO2 

//------------------------------------------------------------------------------
TR(5);CH(5);KF TK(0);@(082,110,0); 
RC(88,48); Vm(88,6,1,0); q(098); P(064); EV(100,100); // 
Time(1:1:0);BR=12 p%=128 TK=TKX EP.WR=60,100,!4,100,60,!2. V.WR(45,90,!4); P.WR=64,127,!16,127,0,!8,0,64,!16
   	         CHO1h 
Time(18:1:0);  CHO1h 

//------------------------------------------------------------------------------
TR(6);CH(6);KF TK(0);@(040, 16,0);
RC(20,120); Vm(108,4, 8,0); q(075); P(064); EV(110,115);
Time(1:1:0); 
	Sub{ o4 [rc^c][r"g^"g] rc^crf^f rc^cr"g^"g [[r"b^"b][re^e]] [4r"b^"b]
	        <rg^gra^a[rg-^g-]rf^frg^g [rd+^d+ ] rd^d re^e > [4rc+^c+]} 
Time(18:1:0);o4 
	[rc^c][r"g^"g] rc^crf^f rc^cr"g^"g [[r"b^"b][re^e]] [4r"b^"b]
	<rg^gra^a[rg-^g-]rf^frg^g [rd+^d+ ] rd^d re^e > [4rc+^c+] 

//------------------------------------------------------------------------------
TR(7);CH(7);KF TK(0);@(039,  0,0); 
RC(80,120); Vm(120,3, 8,0); q(075); P(064); EV(120,120); //
Time(1:1:0); EP.WR(30,125,!8.); 
	[c^cr]["g^"gr] c^cr f^fr c^cr"g^"gr [["b^"br][e^er]] [4"b^"br]
	<g^gra^ar[g-^g-r]f^frg^gr [d+^d+r ]d^d re^er > [4c+^c+r]
Time(18:1:0);
	[c^cr]["g^"gr] c^cr f^fr c^cr"g^"gr [["b^"br][e^er]] [4"b^"br]
	<g^gra^ar[g-^g-r]f^frg^gr [d+^d+r ]d^d re^er > [4c+^c+r]
//------------------------------------------------------------------------------
TR(8);CH(8);KF TK(0);@( 89,000,0); 
RC(40,0); Vm(100,7,8,0); q(050); P(064); EV(100,100); //  
Time(1:1:0); P.N(64,96,32,104,24,74,56,44,84); 
MidiDelayS( 
   	[4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]
	)

Time(18:1:0);
MidiDelayS(   
      [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]
	)
//------------------------------------------------------------------------------
TR(9);CH(9);KF TK(0);@( 81,  1,0); 
RC(40,0); Vm(108,7,8,0); q(050); P(064); EV(100,100); // 
Time(1:1:0); P.N(64,32,96,24,104,56,74,84,44); 
MidiDelayS(   
      [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]
	)
Time(18:1:0);MidiDelayS(   
      [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]
	)

//------------------------------------------------------------------------------
TR(13);CH(13);KF TK(0);@(013, 00,0); 
RC(20,88); Vm(96,6,8,0); q(50); P(064); EV(100,120); // 
Time(1:1:0); EP.WR=100,0,!8. 
      [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]
Time(18:1:0); TK=TKX EP.WR=100,0,!8. 
      [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc 
	["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] 
	["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e
	"g8.d8.f#8 "f#8."a8.c#8	
	"e"f#"a"f#"e"f#c#"a  [c"a]["b"g]  
	"a#c#d#c# "a#d#f#d#  [f#d][ec#]
	[c#f#g#`c#] [c#fg#`c#]

//------------------------------------------------------------------------------
TR(14);CH(14);KF TK(0);@(003, 8,0); 
RC(100,40); Vm(96,6,8,0); q(50); P(064); EV(100,120); // 
P.N(64,32,96,24,104,56,74,84,44);  
Time(11:1:0);EP.T(60,98,!4)v120l16;MidiDelayS("gdf#b `f#`dgf#) EP.T(100,40,!1) MidiDelayS("f#"ac#e`e`c#af#) "e1

Time(28:1:0);EP.T(60,98,!4)v120l16;MidiDelayS("gdf#b `f#`dgf#) EP.T(100,40,!1) MidiDelayS("f#"ac#e`e`c#af#) "e1

//------------------------------------------------------------------------------
TR(10);CH(10); KF TK(0) @12,7,0
RC(12,100);Vm(100,3,16,0); q30; P=60;EV(108,112); // 	
Time(1:1:0) p%=8000 
Sub{v108; l16;
	[7c4][c8][6c4][4c8]  [7 c4 ] c8c8 [6 c4 ] [c8] [4c]  [6 c4 ] [c8] [4c] 
	[c8c8.c8.][[ c4 ] [c8] [4c]] [7 c4 ] c8c8 [4 c4 ] [c8 v-18[9"b96]v+18 r24 ] [[6"b64]r12] [9"b96]  }
	Sub{v110 [5r4d4r4d4r4d4r4d4][r8d8.d8.][v88[r8d8]v102[d8][4dv+2]][6r4d4]r4d4 d8.d8.d8}
	Sub{v.N=80,62,73,62 [5 [[4rg+a+g+]]]v76[ a+r`c#0`e0`grr`c#0`e0`grr ]v96 Sub{`a0`e1}
	    v.N=80,62,73,62 [3 [[4rg+a+g+]]]}
	v80;
 	[[15`f4]`f8`f8][7`f4]`f8`f8 [ v80;`d+0`br v120;`frr`frr]
	 [[v90 `f8 v75 `d+0`b8]v84;`f`f`f`f8`f`f8][[7 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8]
 Time(18:1:0);v96 Sub{`a0`e1}
 Time(18:1:0);
 Sub{v108; l16;
	[7c4][c8][6c4][4c8]  [7 c4 ] c8c8 [6 c4 ] [c8] [4c]  [6 c4 ] [c8] [4c] 
	[c8c8.c8.][[ c4 ] [c8] [4c]] [7 c4 ] c8c8 [4 c4 ] [c8 v-18[9c96]v+18 r24 ] [[6c64]r12] [9c96]  }
	Sub{v110 [5r4d4r4d4r4d4r4d4][r8d8.d8.][v88[r8d8]v102[d8][4dv+2]][6r4d4]r4d4 d8.d8.d8}
	Sub{v.N=80,62,73,62 [5 [[4rg+a+g+]]]v76[ a+r`c#0`e0`grr`c#0`e0`grr ]v96 Sub{`a0`e1}
	    v.N=80,62,73,62 [3 [[4rg+a+g+]]]}
 	[[15 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8][7 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8
 	[ v80;`d+0`br v120;`frr`frr] [[v90 `f8 v75 `d+0`b8]v84;`f`f`f`f8`f`f8][[7 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8]
	

//------------------------------------------------------------------------------
TR(11);CH(11);KF TK(0) @27,90,0
RC(16,120);Vm(100,3,16,0); q30; P=68;EV(108,112); // 
Time(1:1:0); p%=8000
Sub{v125; l16;
	[7c4][c8][6c4][4c8]  [7 c4 ] c8c8 [6 c4 ] [c8] [4c]  [6 c4 ] [c8] [4c] 
	[c8c8.c8.][[ c4 ] [c8] [4c] ] [7 c4 ] c8c8 [4 c4 ] [c8 v-18[9c96]v+18 r24 ] [[6c64]r12] [9c96] }
	Sub{v.N=80,60,90,60 [5[[4f#f#a#r]]]v100[ a+r`c#0`e0`grr`c#0`e0`grr ]v125 Sub{`a0`e1}
		[v.N=80,60,90,60 [f#f#g#f#] v82 a#a#g#a# g#a#a#a# ] 
		 v.N=80,60,90,60 [ g+g+a+g+ g+g+a+g+ g+g+a+g+ g+g+a+g+ | g+g+a+g+ g+g+a+g+ g+f#a+g+ a+g+a+g+ ] }
	Sub{v100 [5r4d+4r4d+4r4d+4r4d+4][r8d+8.d+8.][v88[r8d+8]v102[d+8][4d+v+2]][6r4d+4]r4d+4 d+8.d+8.d+8 }
	v80;
 	[[15`f4]`f8`f8][7`f4]`f8`f8 [ v80;`d+0`br v120;`frr`frr] 
	[[v90 `f8 v75 `d+0`b8]v84;`f`f`f`f8`f`f8][[7 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8]
Time(18:1:0);v125 Sub{`a0`e1}
Time(18:1:0);
Sub{v125; l16;
	[7c4][c8][6c4][4c8]  [7 c4 ] c8c8 [6 c4 ] [c8] [4c]  [6 c4 ] [c8] [4c] 
	[c8c8.c8.][[ c4 ] [c8] [4c] ] [7 c4 ] c8c8 [4 c4 ] [c8 v-18[9c96]v+18 r24 ] [[6c64]r12] [9c96] }
	Sub{v.N=80,60,90,60 [5[[4f#f#a#r]]]v100[ a+r`c#0`e0`grr`c#0`e0`grr ]v125 Sub{`a0`e1}
		[v.N=80,60,90,60 [f#f#g#f#] v82 a#a#g#a# g#a#a#a# ] 
		 v.N=80,60,90,60 [ g+g+a+g+ g+g+a+g+ g+g+a+g+ g+g+a+g+ | g+g+a+g+ g+g+a+g+ g+f#a+g+ a+g+a+g+ ] }
	Sub{v100 [5r4d+4r4d+4r4d+4r4d+4][r8d+8.d+8.][v88[r8d+8]v102[d+8][4d+v+2]][6r4d+4]r4d+4 d+8.d+8.d+8 }
	v80;
 	[[15`f4]`f8`f8][7`f4]`f8`f8 [ v80;`d+0`br v120;`frr`frr] 
	[[v90 `f8 v75 `d+0`b8]v84;`f`f`f`f8`f`f8][[7 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8]
	

//------------------------------------------------------------------------------
}