//_------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.37)
//_------------------------------------------------------------------------------
TrackName     = {" Charon… ( The Pathetic of DeepSea ) = Psychedelic-Trance "};
                                         //↑:タイトル
Copyright     = {" ＭＭ "};              //著作権表示
MetaText      = {" GMで作成中 Ver.2.1 "}         //説明・コメントなど
//_一応、曲の説明？------------------------------------------------------------------------------
/* …オリジナル(以後:自) 作曲　投稿 ? 7 … 暫定完了 

                      [ Charon… ( The Pathetic of DeepSea ) = Psychedelic-Trance ]              
 ※ 注意 ※
  初めに言っておきます…説明欄が長くなりました、ですので読むのが面倒だなぁ…と思う人は説明欄を飛ば
しても構いませんし、削除しても構いません。

　初めての御方は「初めまして、宜しくお願い致します」 m(_ _)m 

  皆様、ご無沙汰しておりました、[ ＭＭ(えむえむ) ]と言う者です。
  そして、ダウンロードして頂き誠に有り難うございます m(_ _)m 

　名前は、[ カロン (Charon)]、冥王星[ Pluto ]の衛星名でも有ります。そこから、名前を採りました。
…と言う訳で、この曲は[ Remote of Pluto ]の兄弟？姉妹？曲でも有ったりします（笑 
※ [ Remote of Pluto ] はpart５にて投稿しております

　サブは、[ The Pathetic of DeepSea ( 深海の悲愴歌 ) ]
…と、言う様な感じで、前作の[ Pluto ]の[ 静寂さ ] や [ 暗く寂しい ] 等の形に対して、 [ Charon ] では
[ 冷徹さ ] 等を意識して作ってみましたがどうでしょうか？ らしく聴こえますか？
   <(;^д^) < 表現するのって本当に難しい... 

　今回は、短い曲調ですが… [ Psychedelic-Trance ] と言うジャンルに挑戦してみました♪
  …しかし、これはトランスで良いのでしょうか？GMでトランスらしく何処までサイケデリックな雰囲気を出せ
るのか頑張ってみましたが…うぅ〜ん、自分の技量ではこれが限界の様です...  ..'(ﾉд`)'.. ﾄﾎﾎ〜 

　出来れば、Full-Long,verで作りたかったのですが…中々繋ぎが悪く、この辺りで丁度区切りもよく終えられ
たので、一先ずは [ Short-edit ] と言う形でそしてジャンルが適切なのかと言う確認も兼ねて、今回投函して
みました。

　まだまだ処理の仕方といい、音色の付け方といい、拙い部分は有り、展開や終わり方がざっくりとした感じに
なってしまいましたが、楽しく聴いて頂けたら作り手としては本当に嬉しい限りです
　それでは、お粗末ながらも長文の御説明を最後まで御付き合いして頂き、誠に有難う御座いました m(_ _ )m

　　　それでは、失礼致します!! (´・ω・`)ﾉｼ

《更新記録》
    ・10/05/16 …Ver.2.1 一先ず全体の流れが出来上がり、通常版にしては若干短めです…
    				 ( 通常版…[ 2:00〜3:00 ]を目安に作っています )
                         一応、MIDIにも保存♪細かい修正もしたけど…どうだろうか？

 《 その他 》
  	・使用音源等 … 「ＭＳＧＳ(パソコン内蔵音源)」・ イヤホンで制作
				出来れば、イヤホンやヘッドホンで聴いて頂けると嬉しいです
				Vista使用者は「音割れや無音」にご注意して下さい　m(_ _)m
				( 自分も[ Vista使用者 ]ですので気を配って何とかならない様
				  に心掛けていますが、多分大丈夫だと思われます、それでも
				  自信は有りません…    　　　　　　　　　m(_ _;)m ｽﾐﾏｾﾝ… )

  	・ [ REMIX ]等する際は、
	   コメ欄に「○○に使用しますよ」等と一言声を掛けて頂けたら有り難いです m(_ _)m

  */
//_ = 初期設定 = --------------------------------------------------------------------------------
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); 
//_簡単命令文--------------------------------------------------------------------

	Function BT(UD,UD2,Len){
 	 PitchBend.onTime(UD,UD2,Len,0,0,1); } // ベントを簡単に纏めておく(時間指定)
	 
	Function BNW(UD,UD2,Len){
 	 PitchBend.onNoteWave(UD,UD2,Len,0,0,1); } // ベントを簡単に纏めておく(ノート毎)

	Function TC(TC1,TC2,VT){
	 TempoChange(TC1,TC2,VT); } //ﾃﾝﾎﾟﾁｪﾝｼﾞ(今のﾘｽﾞﾑ,変えたいﾘｽﾞﾑ,掛かる時間)

	Function VC(Vh1,Vt1,Vh2,Vt2){
	 M.onNoteWave(0,Vh1,Vt1,Vh1,Vh2,Vt2); } //ﾋﾞﾌﾞﾗｰﾄの掛かり具合(Vhは大きさ,Vｔは掛かる時間)

	Function EPC(Ep1,Ep2,Et1){
	 EP.onTime(Ep1,Ep2,Et1); }
	 /*複合IF関数が上手くいかなかったので(CDの方)、個別に書きました
	   <(;^^)関数は難しいやw。
	   こちらはｸﾚｯｼｪﾝﾄﾞの役割を担う命令文*/

	Function CD(Int a ,Ep1,Ep2,Et1,Ep3,Et2,Es){
	/*aはIfの判断,複合有か無か
	  Epは音の大きさ,Etは掛かる時間*/
	 IF ( a = 1 )
	     { EP.onNoteWave(Ep1,Ep2,Et1); }
	   Else
	     { EP.onNoteWave(Ep1,Ep2,Et1, Ep2,Ep2,Es, Ep2,Ep3,Et2 ); } }
	     　　　　　　　　　　　//EPで所謂、擬似的な音の掛け具合を作る(一定型)

      Function PC(Int a ,Pp1,Pp2,Pt1,Pp3,Pt2,Ps1){
	/*aはIfの判断,複合有か無か
	  PpはPの向き,Ptは移動時間,Psは停滞時間*/
	 IF ( a = 1 )
	     { P.onTime(Pp1,Pp2,Pt1); }
	   Else
	     { P.onTime( Pp1,Pp2,Pt1, Pp2,Pp2,Ps1, Pp2,Pp3,Pt2 ); } }
	              /* ↑開始場所   ↑停滞時間   ↑終了場所 のPの移動を簡単纏めておく
			      一回きりなのでﾙｰﾌﾟ関係を用いて継続的に鳴らす事が必要有…
				<(;^^)ううん、中々上手く関数が作れないなぁ...*/
				
	Function Po(Int Po,po){ If(Po==on){y64(po);} 
	                              Else{y64(0);} } /* ﾍﾟﾀﾞﾙを押す放す */



//_ﾘｽﾞﾑｽﾍﾟｰｽ------------------------------------------------------------------------------
/*リズムの定義*/

  $S{n82,}/*ｼｪｲｶｰ*/        $h{n39,}/*ﾊﾝﾄﾞｸﾗｯﾌﾟ*/ 
  $O{n46,}/*ﾊｲﾊｯﾄ(ｵｰﾌﾟﾝ)*/ $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,}/*ｶｳﾍﾞﾙ*/        $R{n59,}/*ﾗｲﾄﾞｼﾝﾊﾞﾙ2*/
  $p{n44,}/*ﾍﾟﾀﾞﾙﾊｲﾊｯﾄ*/   
  $C{n49,}/*ｸﾗｯｼｭｼﾝﾊﾞﾙ1*/  $c{n57,}/*ｸﾗｯｼｭｼﾝﾊﾞﾙ2*/
  $A{n55,}/*ｽﾌﾟﾗｯｼｭ*/      

TR(10); Time(0:1:8); CH(10); @(25); Time(1:1:0);
TR(20); Time(0:1:8); CH(10); BT(0,-$1000,!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); v(80); o(4); l(16);

//------------------------------------------------------------------------------

Rythm{(TR(10);//トラックとチャンネルをリズムモード（10）に設定

  #S1 = { v.onNote(70,50,75,45); } #S2 = { v.onNote(50,35,55,35); } #S3 = { v.onNote(25,15,20,15); }
  #S4 = { v.onNote(40,25,37,22); } 
	 	 
	 )

//_ｼｪｲｶｰ
    {{ 
 (Time(1:1:0)); v(25); l16;
 	#S3; [16 [4 SrSr SrSS ] ]
 (Time(41:1:0)); #S2; [[4 SrSr SrSS ] ]
 (Time(49:1:0)); [[ #S4; [ SrSr : SrSS ] v(50); S4
 	 		  #S2; [ SrSr : SrSS ] : v(40); S4 ] SrSS ]
 (Time(65:1:0)); #S2; [4 [4 SrSr SrSS ] ]

	}
//_ﾊﾝﾄﾞ
 (Time(1:1:0)); v(50); l16;
 (Time(29:1:0)); [8 r4 : h8r8 v+5] v(100); h^hr | v(90); [8 r4 : h8r8 ]  h^hr 
 (Time(37:1:0)); v(90); [[8 r4 : h8r8 ]  h^hr ]
 (Time(49:1:0)); v(90); [[8 r4 : h8r8 ]  h^hr ]
 (Time(57:1:0)); v(90); [4[8 r4 : h8r8 ]  h^hr ]

	}
//_ｼﾝﾊﾞﾙ
 (Time(1:1:0)); v(20); l16;
 (Time(9:1:0)); [ [8 r4 : Ar8. v+5] A^Ar  [8 r4 : Ar8. v-5] A^Ar ]
 (Time(49:1:0)); [ [8 r4 : Ar8. v+5] A^Ar  [8 r4 : Ar8. v-5] A^Ar ]

　　　//Track10のライン
      (TR(20);) 
//_ｵｰﾌﾟﾝ&ｸﾛｰｽﾞﾊｲﾊｯﾄ+α
    {{ 
 (Time(1:1:0)); v(70); l16;
 (Time(17:1:0)); [8 [4 #S2; : HrO^ ] H^OO ]
 (Time(33:1:0)); [12 [4 #S2; : HrO^ ] H^OO ]
 (Time(49:1:0)); [4 [3[4 #S2; : HrO^ ] O^^r ] | [4 #S2; : HrO^ ] H^OO ]
 (Time(65:1:0)); [8 [4 #S2; : HrO^ ] H^OO ] v60;O1　

	}
	}//Track12まで
	(TR(21);) 
//_ｷｯｸ(ﾊﾞｽﾄﾞﾗ)+ﾀﾑ系
    {{ v(95); l16;
 (Time(41:1:0));
	[7 r1 ] r2 l32v32 [16 'UM' v+4t-1] l16;t0; 
	
	}
//_ｽﾈｱ(ｺﾞｰｽﾄ含)
 (Time(1:1:0)); v(50);
	[ [8 r4 : s4 v+5 ] s8s8 v(90); [8 r4 : s4 v-5 ] s8s8 v(50); ]
	[ [8 r4 : s4 v+5 ] s8s8 v(90); [8 r4 : s4 v-5 ] s8s8 v(50); ]
 (Time(49:1:0)); v(50);
	[ [8 r4 : s4 v+5 ] s8s8 v(90); [8 r4 : s4 v-5 ] s8s8 v(50); ]
 (Time(73:1:0));  v(75);
 	[12 s4 v-2 s4 v-3 ]

	}//Track14まで
	}//Rythmまで
TR(22); CH(11); //ﾊﾞｽﾄﾞﾗ（Elec-Dr）
   Time(1:1:0);
     /* EPC(30,125,!1^1); [4 [8 g^g^ : ^g^g ] g^gg ] [4 r1 ] */
   Time(21:1:0);
	 [4 [8 : g^^r ] g^g^ ]
   Time(29:1:0);
	 [4 [8 : g^^r ] g^g^ ]
	 v(95); [4 [8 : g^^r ] : g^g^ ] g^gg
	 [3 r1 ] r2 l32;v32; [16 g v+4 t-1] l16; t0; v95;
	 
   Time(49:1:0);
   	 [ [3 [3 g^^r ] r4 ] | [4 : g^^r ] : g^g^ ] g^gg
   Time(57:1:0); v(100);
	 [8 [8 : g^^r ] g^g^ ] 


//_ﾄﾗｯｸｽﾍﾟｰｽ = 基本設定 = -------------------------------------------------------------------------------------------------

 TR(01);  CH(01);  Time(0:2:16); Tempo(90); @(005); v(095); o7;  l8; q(098); M(00); P(074); EP(127); // E-ﾋﾟｱﾉ 1 
 TR(02);  CH(02);  Time(0:2:16);            @(004); v(075); o5;  l8; q(098); M(24); P(048); EP(125); // ﾎﾝｷｰﾄﾝｸ 
 TR(03);  CH(03);  Time(0:2:16);            @(002); v(110); o4;  l8; q(098); M(24); P(072); EP(125); // B-ﾋﾟｱﾉ 
 TR(04);  CH(04);  Time(0:2:16);            @(051); v(090); o5;  l4; q(098); M(00); P(096); EP(030); // S-ｽﾄﾘﾝｸﾞｽ 1 
 TR(05);  CH(05);  Time(0:2:16);            @(072); v(068); o4;  l4; q(098); M(00); P(032); EP(030); // ｸﾗﾘﾈｯﾄ 
 TR(06);  CH(06);  Time(0:2:16);            @(012); v(050); o5; l16; q(398); M(32); P(022); EP(080); // 
 TR(07);  CH(07);  Time(0:2:16);            @(039); v(100); o3;  l8; q(098); M(00); P(040); EP(125); // ｼﾝｾ-ﾍﾞｰｽ 1 
 TR(08);  CH(08);  Time(0:2:16);            @(088); v(074); o3; l16; q(098); M(00); P(058); EP(030); // ﾍﾞｰｽ & ﾘｰﾄﾞ 
 TR(09);  CH(09);  Time(0:2:16);            @(082); v(086); o3; l16; q(098); M(00); P(070); EP(030); // Saw-ﾘｰﾄﾞ 
 TR(12);  CH(12);  Time(0:2:16);            @(097); v(082); o3; l16; q(075); M(00); P(102); EP(030); // ｱｲｽﾚｲﾝ 
 TR(13);  CH(13);  Time(0:2:16);            @(109); v(072); o3; l16; q(075); M(00); P(025); EP(030); // ｶﾘﾝﾊﾞ 
 TR(14);  CH(14);  Time(0:2:16);            @(093); v(110); o6;  l1; q(098); M(00); P(056); EP(127); // 
 TR(15);  CH(15);  Time(0:2:16);            @(123); v(127); o5;  l4; q(098); M(00); P(064); EP(125); // R-ｼﾝﾊﾞﾙ等 
 TR(16);  CH(16);  Time(0:2:16);            @(123); v(127); o5;  l4; q(098); M(00); P(064); EP(125); // R-ｼﾝﾊﾞﾙ等 
 
/* ｱｼｽﾄ（コード等による音の調整欄） */
 TR(34);  CH(04);  Time(0:2:16);            @(051); v(090); o4;  l4; q(098); M(00); P(096); EP(030); // 
 TR(35);  CH(05);  Time(0:2:16);            @(072); v(068); o3;  l4; q(098); M(00); P(032); EP(030); // 
 
//_ﾄﾗｯｸｽﾍﾟｰｽ2 = 各種設定 = ------------------------------------------------------------------------------------------------
TR(1); CH(1); // E-ﾋﾟｱﾉ 1 
   Time(1:1:0); Tempo(140); 
   Time(33:1:0);
     CD( 2 ,127,60,!2,0,!2); v.Random(15);
     MidiDelayS( [4 `c1^1^1^2a2 ] `c4^1^1^2 )
   Time(57:1:0);
     CD( 2 ,127,60,!2,0,!2); v.Random(15);
     MidiDelayS( [4 `c1^1^1^2a2 ] `c4^1^1^2 )

//------------------------------------------------------------------------------
TR(2); CH(2); // ﾎﾝｷｰﾄﾝｸ 
   Time(1:1:0); 
   Time(33:1:0); 
     EPC(60,120,!1); Po(on,24); v.Random(15);
	  [4 `a`e`a`e`a`e`a`e `a`e`a`e`g`g`f#`d`e
	     `f#4^8`g^4 `f`e `d`c`d`e2 ]
   Time(49:1:0); 
	  [Po(on,8); `a`e`a`e`a`e`a `e8^2.r4 `g`d`g`d`g`d`g `f`e`d`c`d `e2 Po(off); ]
	Po(on,24); 
	  [4 `a`e`a`e`a`e`a`e `a`e`a`e`g`g`f#`d`e
	     `f#4^8`g^4 `f`e `d`c : `d`e2 ] ; Po(off); `d Po(on,12); `e2
	EPC(110,5,!1^1^1^1^1^1^1^1);
	  Po(on,32); [ a`e`a`e`a`e`a`e `a`e`a`e`g`g`f#`d`e `f#4^8`g^4 `f`e `d`c`d`e2 ] 
	Po(off); r1^2 

//------------------------------------------------------------------------------
TR(3); CH(3); // B-ﾋﾟｱﾉ 
   Time(1:1:0); 
   Time(41:1:0); 
     EPC(60,120,!1); Po(on,32); v.Random(15);
	  [ `a`e`a`e`a`e`a`e `a`e`a`e`g`g`f#`d`e
	     `f#4^8`g^4 `f`e `d`c`d`e2 ]
   Time(49:1:0); 
	  [ Po(on,8); r1 `a`e`a`e`a`e`a`e8^2^8 `d`g `f`e`d`c`d `e2 Po(off); ]
   	Po(off);
	  [4 `a`e`a`e`a`e`a`e `a`e`a`e`g`g`f#`d`e
	     `f#4^8`g^4 `f`e `d`c`d`e2 ]
	EPC(110,5,!1^1^1^1^1^1^1^1);
	  Po(on,64); [ a`e`a`e`a`e`a`e `a`e`a`e`g`g`f#`d`e `f#4^8`g^4 `f`e `d`c`d`e2 ] 

//------------------------------------------------------------------------------
TR(4); CH(4); // ｼﾝｾ-ｽﾄﾘﾝｸﾞｽ 1 
   Time(1:1:0); 
   Time(9:1:0); EPC(30,100,!1^1^2);
	[4 "g0"b0e1^1^1^2 "b0d0g2 ] EPC(100,30,!1^1^2); "g0"b0e1^1^2
   Time(57:1:0); CD( 2 ,75,90,!2,65,!4.,!8 );
   	[4 c0e0a1 e0a0`c1 c0e0a1 c0e0g2 "g0"a0d4 "g0"b0e4 ] 
	  CD( 2 ,75,85,!2,00,!1^1,!16); c0e0a1^1

//------------------------------------------------------------------------------
TR(34); CH(4); // ｼﾝｾ-ｽﾄﾘﾝｸﾞｽ 1 (ｱｼｽﾄ) 
   Time(1:1:0); 
   Time(9:1:0); 
	EPC(30,100,!1^1^2);
	Unison({ [4 e1^1^1^2 g2 ] EPC(100,30,!1^1^2); e1^1^2 },-12) 
   Time(49:1:0); CD( 2 ,75,110,!2,65,!4.,!8 );
   	Unison({ [ a1`c1g1f+2d4e4 ] },-12)
	  CD( 2 ,75,90,!2,65,!4.,!8 ); < [4 a1`c1a1g2d4e4 ] 
	  CD( 2 ,75,85,!2,00,!1^1,!16); a1^1 >

//------------------------------------------------------------------------------
TR(5); CH(5); // ｸﾗﾘﾈｯﾄ 
   Time(1:1:0); 
   Time(9:1:0); EPC(30,90,!1^1^2);
	[4 "b0e1^1^1^2 d0g2 ] EPC(100,30,!1^1^2); "b0e1^1^2
   Time(57:1:0); CD( 2 ,75,90,!2,65,!4.,!8 );
   	[4 c0e0a1 e0a0`c1 c0e0a1 c0e0g2 "g0"a0d4 "g0"b0e4 ]
	  CD( 2 ,75,85,!2,00,!1^1,!16); c0e0a1^1

//------------------------------------------------------------------------------
TR(35); CH(5); // ｸﾗﾘﾈｯﾄ (ｱｼｽﾄ) 
   Time(1:1:0); 
   Time(9:1:0); EPC(30,90,!1^1^2);
	Unison({ [4 e1^1^1^2 g2 ] EPC(100,30,!1^1^2); e1^1^2 },-12)
   Time(49:1:0); CD( 2 ,75,110,!2,65,!4.,!8 );
   	Unison({ [ a1`c1g1f+2d4e4 ] },-12)
	  CD( 2 ,75,90,!2,65,!4.,!8 ); < [4 a1`c1a1g2d4e4 ] 
	  CD( 2 ,75,85,!2,00,!1^1,!16); a1^1

//------------------------------------------------------------------------------
TR(6); CH(6); // 
   Time(1:1:0);

//------------------------------------------------------------------------------
TR(7); CH(7); // ｼﾝｾ-ﾍﾞｰｽ 1 
   Time(1:1:0); 
   Time(17:1:0); v.Random(15); P.N(40,60,80,80,60,40);
   	[ EPC(30,105,!1^1^1); [8 [4 "ge^e ]] ]
   Time(57:1:0);
   	[ EPC(30,105,!1^1^1); [4 [4 "ge^e ]] ]
     

//------------------------------------------------------------------------------
TR(8); CH(8); // ﾍﾞｰｽ & ﾘｰﾄﾞ 
   Time(1:1:0); EPC(30,105,!1);
	[4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
   Time(17:1:0); 
   	[8 [4 [ e^e^^ : e^e ] : e^d ] efg ]
   Time(49:1:0); CD( 2 ,75,110,!2,65,!4.,!8 );
   	BNW(0,-$750,!8.); 
   	Unison({ [ a1`c1g1f+2d4e4 ] },-12)
	BT(0,0,!4); 
   Time(57:1:0); EPC(30,105,!1^1);
   	[4 [4 [ e^e^^ : e^e ] : e^d ] efg ]

//------------------------------------------------------------------------------
TR(9); CH(9); // ｿｰﾄｩｰｽ 
   Time(1:1:0); 
	EPC(30,105,!1);
	[4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
   Time(17:1:0); 
   	[8 [4 [ e^e^^ : e^e ] : e^d ] efg ]
   Time(49:1:0); CD( 2 ,75,110,!2,65,!4.,!8 );
   	BNW(0,-$250,!8.); 
   	Unison({ [ a1`c1g1f+2d4e4 ] },-12)
	BT(0,0,!4); 
   Time(57:1:0); EPC(30,105,!1^1);
   	[4 [4 [ e^e^^ : e^e ] : e^d ] efg ]

//------------------------------------------------------------------------------
TR(12); CH(12); // ｱｲｽﾚｲﾝ 
   Time(1:1:0); 
   
   Time(33:1:0); EPC(30,86,!2);
   	[ MidiDelayS( [4 e^^`e^b^g : e^^`e^a^b ] e^^e ) `ebag
	  MidiDelayS( [4 e^^`e^b^g : e^^`e^a^b ] e^^e^ ) gab  ]
   
   Time(49:1:0); EP(102);
   	[ MidiDelayS( "a0a^^"a0a a^'ae'^ "a0a^^^ ) "aega | MidiDelayS( c0`c^^c0`c `c^'`ca'^ c0`c^^^ ) caf+d
   	  MidiDelayS( "g0g^^"g0g g^'gd'^ "g0g^^^ ) gaec  : MidiDelayS( "e0e^^"e0e e^'ed'^ "e0e^^^ ) eafg  ]
   	    MidiDelayS( "e0e^^"e0e e^'ed'^ "e0e^^^  e ) ab`e
   
   Time(57:1:0); EPC(65,86,!2);
   	[ MidiDelayS( [4 e^^`e^b^g : e^^`e^a^b ] e^^e ) `ebag
	  MidiDelayS( [4 e^^`e^b^g : e^^`e^a^b ] e^^e^ ) gab  ]

//------------------------------------------------------------------------------
TR(13); CH(13); // ｶﾘﾝﾊﾞ 
   Time(1:1:0); 
   Time(33:1:0); EPC(30,80,!2);
   	[ MidiDelayS( [4 e^^`e^b^g : e^^`e^a^b ] e^^e ) `ebag
	  MidiDelayS( [4 e^^`e^b^g : e^^`e^a^b ] e^^e^ ) gab  ]
   
   Time(49:1:0); EP(98); 
   	[ MidiDelayS( "a0a^^"a0a a^'ae'^ "a0a^^^ ) "aega | MidiDelayS( c0`c^^c0`c `c^'`ca'^ c0`c^^^ ) caf+d
   	  MidiDelayS( "g0g^^"g0g g^'gd'^ "g0g^^^ ) gaec  : MidiDelayS( "e0e^^"e0e e^'ed'^ "e0e^^^ ) eafg  ]
   	    MidiDelayS( "e0e^^"e0e e^'ed'^ "e0e^^^  e ) ab`e
   
   Time(57:1:0); EPC(60,80,!2);
   	[ MidiDelayS( [4 e^^`e^b^g : e^^`e^a^b ] e^^e ) `ebag
	  MidiDelayS( [4 e^^`e^b^g : e^^`e^a^b ] e^^e^ ) gab  ]

//------------------------------------------------------------------------------
TR(14); CH(14); // 
   Time(1:1:0); 

//------------------------------------------------------------------------------
TR(15); CH(15); // ﾘﾊﾞｰｽｼﾝﾊﾞﾙ等 
   Time(1:1:0); @(123,2); EP(80);
   Time(73:4:0); @(123,2); M(32);
   EP.T(76,92,!1^1,92,15,!1^1^1^1 );
	 e0c0"g1^1^1^1^1

//------------------------------------------------------------------------------
TR(16); CH(16); // ﾘﾊﾞｰｽｼﾝﾊﾞﾙ等 
   Time(1:1:0); @(123,3); BR(32);
   Time(29:1:0); 
      CD( 2 ,30,105,!1^1,127,!1,!1 ); 
      P.T( 30,90,!1,90,30,!1,30,90,!1,90,30,!1 );
      BT(-$2000,$2000,!1^1^1^1);
	 e0c0"g1^1^1^1 
   Time(73:1:0); @(123,5); BR(32); M(32);
   	EP.T(15,75,!1^1^1^1,75,15,!1^1^1 ); 
      P.T( 20,100,!1^1,100,20,!1^1,20,100,!1^1,100,20,!1^1 );
      PitchBend.T(-$2000,$2000,!1^1^1^1,$2000,$2000,!1^2,$2000,-$2000,!1^1^2);
	 e0c0"g1^1^1^1^1^1^1^1 

//------------------------------------------------------------------------------



