//_------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.37)
//_------------------------------------------------------------------------------
MetaText      = {" The Glacierbound Ocean (Short,ver) = Psy-Trance / Psy-Techno "};
                                         //↑:タイトル
Copyright     = {" ＭＭ GMで作成 Ver.3.35 "};              //著作権表示
//_一応、曲の説明？-----------------------------------------------------------------------------------
/*…オリジナル(以後:自) 作曲　投稿 No.19 … 暫定完了 

                              [ The Glacierbound Ocean (Short,ver) ]                        

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

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

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



  TWM2で、サイケデリックを作ろう!!…と言う題目で、今回は作ってみました

  洋物でエッジの効いたサイケ物に、しかもGM規格で何処まで表現出来るか…と言うコンセプトの元、製作してみ
たのですが...



　………力尽きました………|||orz　＜ 御免なさい...



　…なので、かなり短い楽曲になりました…最後はもう、後の繋ぎは任せた〜〜〜ﾊﾞﾄﾝﾀｯﾁ!!、て感じです =ω=;ｱｾｱｾ



  そして、洋物では無い気が致します。どちらかと言えば、麻雀格●倶楽部のゲームサウンドみたいになっちゃった
様な…そんな感じも否めません（苦笑；

　そしてそして、使い回しがｇｇｇｇｇ....随所に過去に作った曲の引用がチョコチョコ…この手の楽曲はコピペで
何とかなるので良いのですが、その反面展開がのっぺりに成りがちなのがタマノキズです、と言うよりワンパターン
なのです…|||orz



　そろそろ、曲のバリエーションを増やす為にロックやジャズ等の勉強もしてみようかなぁ…と思います
　でも、最近はPSGとか80'sのピコピコサウンド（もしくはDS等のサウンド）等もやってみたい…とか



  …やってみたいものが有り過ぎて、空回り中…とりあえず、一つに絞ってみます（^^;ｱｾｱｾ



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

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

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



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

《 その他 》
  	・使用音源等 … 「ＴＷＭ２ ( 推奨 ) 」・ ヘッドホン ( Sony社の[ MDR-XD200 ) で制作
				出来れば、イヤホンやヘッドホンで聴いて頂けると嬉しいです
				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(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 EPC(Ep1,Ep2,Et1){ EP.T(Ep1,Ep2,Et1); }
	 /*複合IR関数が上手くいかなかったので(CDの方)、個別に書きました
	   <(;^^)関数は難しいやw。
	   こちらはｸﾚｯｼｪﾝﾄﾞの役割を担う命令文*/

	Function CD(Int a ,Ep1,Ep2,Et1,Ep3,Et2,Es){ 
	 IF ( a = 1 ) { EP.WR(Ep1,Ep2,Et1); } Else { EP.WR( Ep1,Ep2,Et1, Ep2,Ep2,Es, Ep2,Ep3,Et2 ); } }
	 /* aはIfの判断,複合有か無か Epは音の大きさ,Etは掛かる時間。 EPで所謂、擬似的な音の掛け具合を作る(一定型) */
      Function PC(Int a ,Pp1,Pp2,Pt1,Pp3,Pt2,Ps1){
	/*aはIfの判断,複合有か無か
	  PpはPの向き,Ptは移動時間,Psは停滞時間*/
	 IF ( a = 1 ) { P.T(Pp1,Pp2,Pt1); } 
	 	   Else { P.T( Pp1,Pp2,Pt1, Pp2,Pp2,Ps1, Pp2,Pp3,Pt2 ); } }
	                       /* ↑開始場所   ↑停滞時間   ↑終了場所 のPの移動を簡単纏めておく
			                一回きりなのでﾙｰﾌﾟ関係を用いて継続的に鳴らす事が必要有… 
					    <(;^^)ううん、中々上手く関数が作れないなぁ...*/ 
	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,}/*ﾗｲﾄﾞﾍﾞﾙ*/
  $R{n51,}/*ﾗｲﾄﾞｼﾝﾊﾞﾙ1*/   $F{n59,}/*ﾗｲﾄﾞｼﾝﾊﾞﾙ2*/
  
  $C{n49,}/*ｸﾗｯｼｭｼﾝﾊﾞﾙ1*/  $c{n57,}/*ｸﾗｯｼｭｼﾝﾊﾞﾙ2*/
  $D{n52,}/*ﾁｬｲﾅ       */  $d{n55,}/*ｽﾌﾟﾗｯｼｭ   */
  
  /*英字で書く時は、他の記号と被らないようにしないと、素直に起動しない時も
  　有るので注意を払う…対処法が有るのかは未だ分かりません…
  　(ｌ,ｑ,ｖとかの記号)*/

TR(10); Time(0:1:8); CH(10); @(25,90,1); RC(4,68);EV(120,120); Time(1:1:0);
TR(20); Time(0:1:8); CH(10); BR(48); BT(0,1280,!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,9,0); Vm(125,4,16,0); RC(20,80);EV(120,120);

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

Rythm{(TR(10); //トラックとチャンネルをリズムモード（10）に設定
       #S1 = { v.onNote(80,55,85,55); }
	 )
	 
//_ｼｪｲｶｰ
    {{ 
 (Time(1:1:0)); v(50); l16;
	#S1;
	[ rSSr SSrS rSSr SSrS  rSSr SSrS rSSr SSrS ]
	[ SSSS SrSS SSSS SrSS  SSSS SrSS SSSS SrSS ]
 (Time(17:1:0));
	#S1;
	[ rSSr SSrS rSSr SSrS  rSSr SSrS rSSr SSrS ]
	[ SSSS SrSS SSSS SrSS  SSSS SrSS : SSSS SrSS ] r4r4
 (Time(25:1:0));
	#S1;
	[ rSSr SSrS rSSr SSrS  rSSr SSrS rSSr SSrS ]
	[ SSSS SrSS SSSS SrSS  SSSS SrSS SSSS SrSS ]
 (Time(41:1:0));
	#S1;
	[4 rSSr SSrS rSSr SSrS  rSSr SSrS rSSr SSrS ]
	[4 SrSr SrSS SrSr SrSS  SrSr SrSS SrSr SrSS ]

	}
//_ﾊﾝﾄﾞ
 (Time(1:1:0)); v(100); l16; [ rrrr hrrr rrrr hrrr  rrrr hrrr rrrr hrrr ] 
 (Time(17:1:0));[4 rrrr hrrr rrrr hrrr  rrrr hrrr : rrrr hrhr ] 
 (Time(25:1:0));[4 rrrr hrrr rrrr hrrr  rrrr hrrr  rrrr hrhr ] 
 (Time(41:1:0));[8 rrrr hrrr rrrr hrrr  rrrr hrrr  rrrr hrhr ] 
 
 
 
	
	}
//_ｵｰﾌﾟﾝ&ｸﾛｰｽﾞﾊｲﾊｯﾄ+α
 (Time(1:1:0)); v(100); l16;
	#S1;[ HrOr HrOr HrOr HrOr  HrOr HrOr HrOr HrOr ]
	[ prpr Orpr prpr Orpp  prpr Orpr prpr Orpp ]
	 [ [8 HrHr HrHH ] ] | [ [8 HHHr : HrHr ] HHHr ]
 (Time(16:3:0);EV(0,0);)
 (Time(17:1:0);EV(120,120);)
 	#S1;[ HrOr HrOr HrOr HrOr  HrOr HrOr HrOr HrOr ] [ prpr Orpr prpr Orpp  prpr Orpr : prpr Orpp ]
 (Time(25:1:0);EV(120,120);)
 	#S1;[4 HrOr HrOr HrOr HrOr  HrOr HrOr HrOr HrOr ] 
 (Time(41:1:0);)
 	[4 #S1;[6 HHOr] pOOr pOpO ]
	[4 #S1; [3pHpr] pOOr [pHpH] pOOr pOpO ]
	
	
　　　//Track10のライン
      (TR(20);) 
//_Cowbell=ｶｳﾍﾞﾙ
    {{
 (Time(1:1:0)); v(60); l16; [8 mrrmrrmr jrrjrrjr urrurrur jrrjrrjr ]
 (Time(17:1:0));v(60);[4 mrrmrrmr jrrjrrjr  urrurrur : jrrjrrjr ] 
 (Time(17:1:0)); v(120); c0C4 v-45 [8 c0C0D5 v-10t-1]t(0) 
 (Time(25:1:0)); v(120); c0C4 v-45 [8 c0C0D5 v-10t-1]t(0) 
 (Time(33:1:0)); v(120); c0C4 v-45 [12 c0C0D5 v-7t-1]t(0) 
 (Time(37:1:0)); v(120); c0C4 v-45 [12 c0C0D5 v-7t-1]t(0) 
 (Time(41:1:0)); v(120); c0C4 v-45 [8 c0C0D5 v-10t-1]t(0) 
 (Time(41:1:0));v(80);[4 mrrmrrmr jrrjrrjr  urrurrur : jrrjrrjr ] 
 (Time(57:1:0)); v(120); c0C4 v-45 [8 c0C0D5 v-10t-1]t(0) 
 
 
 
	}
//_Cowbell=ｶｳﾍﾞﾙ
 (Time(1:1:0)); v(60); l16;
      [8 RRrr RrRr rRRr RrRr  RRrr RRrr RrRR RrRR ]
 (Time(17:1:0));[ Rrrr rrRr Rrrr Rrrr  Rrrr rrRr Rrrr RrRr ]
 (Time(41:1:0)); v(75); [ [8 r4 : G0dr8. v+5] G0d^G0dr  [8 r4 : G0dr8. v-5] G0d^G0dr ] 
 (Time(41:1:0)); v(72); [8 [4 R0F4 ] ]
 
 
	}//Track20まで
	(TR(21);) 
//_ｷｯｸ(ﾊﾞｽﾄﾞﾗ)+ﾀﾑ系
    {{
 (Time(1:1:0)); v(120); l16; [5 [15 k4 ] k8k8 ] [14 k4 ]
 (Time(17:1:0));[ K1 K1 K1 K2 : K8.K8.K8 ]
 (Time(25:1:0)); v(120); l16; [[15 k4 ] k8k8 ] 
 (Time(41:1:0)); v(120); l16; [[15 k4 ] k8k8 ] 
 	 [ k8.k8.k8 k4. rkkr  k8.k4 k32k32k8 k48k48k48k8. k8.k8.k8 k4 r [ k32]k8.k8.kk k4kk rk32k32k32k32r  ]
 
 
 
	
	}
//_ｽﾈｱ(ｺﾞｰｽﾄ)
 (Time(1:1:0)); v(55); l16;
	(p%.WR(1280,-2560,!8.,-8000,8000,!16);)[16r4s4r4w4]
 (Time(17:1:0));
 	(p%.WR(1280,-2560,!8);)[8r4s4r4 : w4] r4
	(p%.WR(1280,-2560,!8.,-8000,8000,!16);)[8r4s4r4w4][16r4]
 (Time(33:1:0));[8[4r4]]
 (Time(41:1:0));v(78); [ [8r4s4r4w4] ][8r4]
 
 
 
	}//Track21まで
	}//Rythmまで
TR(22); CH(11); //ﾊﾞｽﾄﾞﾗ（Elec-Dr）
  Time(1:1:0);BR=48
	p%.WR(1280,-2560,!16,-8000,8000,!16);
	EP.WR(120,0,!8,0,0,!4.);
	[4[15 g^^r  ] : d^"a^ ] v98 [12 d48 v+2]
  Time(17:1:0);v125 [[15 g^^r  ] : d^"a^ ] 
  Time(25:1:0);v120 [[15 g^^r  ]  d^"a^ ] RC=120,120 o2 g0c0"a1
  Time(41:1:0);RC=20,80;o4; v118 [ [6 g^^r  ]  [ d0"a8 ][6 g48 ] r8 [6 g^^r  ]  [d0"a8 [4 g64 ] r16] ]
  Time(49:1:0);[ [6 r4  ]  [ d0"a8 ][6 g48 ] r8 [6 r4  ]  [d0"a8 [4 g64 ] r16] ] 
  Time(57:1:0);RC=120,120 o2 g0c0"a1
  
  
  



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

 TR(01);  CH(01);  Time(0:2:16); Tempo(90); @(082,110,0); RC( 80,120); Vm(108,3,16,48); q(050); P(096); EV(100,100); // 
 TR(02);  CH(02);  Time(0:2:16);            @(082,  8,0); RC( 20,120); Vm(112,3,16,48); q(050); P(032); EV(100,100); // 
 TR(03);  CH(03);  Time(0:2:16);            @(082,  1,0); RC( 20,120); Vm(112,3,4,48); q(098); P(0104); EV(100,100); // 
 TR(04);  CH(04);  Time(0:2:16);            @(082,  1,0); RC( 20,120); Vm(112,3,4,48); q(098); P(024); EV(100,100); // 
 TR(05);  CH(05);  Time(0:2:16);            @(082,  1,0); RC( 80,120); Vm(108,6,16,48); q(075); P(044); EV(100,100); // 
 TR(06);  CH(06);  Time(0:2:16);            @(040, 16,0); RC( 80,120); Vm(108,7,16,48); q(075); P(084); EV(100,100); // 
 TR(07);  CH(07);  Time(0:2:16);            @(090,  0,0); RC( 80,  0); Vm(98,5,1,48); q(099); P(127); EV(80,75); // 
 TR(08);  CH(08);  Time(0:2:16);            @(096,  0,0); RC( 80,  0); Vm(98,5,1,48); q(099); P(000); EV(80,75); // 
 TR(09);  CH(09);  Time(0:2:16);            @(081,  8,0); RC(120,  0); Vm(120,5, 1,0); q(098); P(106); EV(100,100); // 
 TR(12);  CH(12);  Time(0:2:16);            @(039,  0,0); RC(  0, 70); Vm( 90,5,16,48); q(030); P(064); EV(100,100); // 
 
 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(100, 80); Vm(120,5, 1,0); q(098); P(064); EV(120,120); // 
 TR(15);  CH(15);  Time(0:2:16);            @(001,  0,0); RC(100, 80); Vm(120,5, 1,0); q(098); P(064); EV(120,120); // 
 TR(16);  CH(16);  Time(0:2:16);            @(001,  0,0); RC(100, 80); Vm(120,5,12,0); q(098); P(064); EV(120,120); // 
 
//_ﾄﾗｯｸｽﾍﾟｰｽ2 = 各種設定 = ------------------------------------------------------------------------------------------------
TR(1); CH(1); Int XX = 0 //←ここの数字を弄るとキーがズレテ変わった世界が楽しめます（笑
   Time(1:1:0);TK=(XX);Tempo(145); 
   	EP.WR(120,0,!16);p%.WR(1280,-2560,!16,-8000,8000,!16);
   	Unison( { [4 [6rree] frff ggrg [6rree] rddr d-d-^d- ] },-12) 
   Time(16:3:0);EV(0,0);p%=0 RC(40,0);
   Time(25:1:0);EP.WR(60,120,!16);V=100 p%=0 
   	Unison( { [ [6rree] frff ggrg [6rree] rddr d-d-rd- ] },-12) 
   Time(41:1:0);EP.WR(60,120,!16);V=100 p%=0 
   	Unison( { [4 [6rree] frff ggrg [6rree] rddr d-d-rd- ] },-12) 
 
//------------------------------------------------------------------------------
TR(2) ;CH(2); 
   Time(1:1:0);TK=(XX) EP.WR(120,0,!16); Unison( { [4 [6rree] frff ggrg [6rree] rddr d-d-^d- ] },-12) 
   Time(16:3:0);EV(0,0);
   Time(25:1:0);EP.WR(60,120,!16);V=100 p%=0 RC(40,0); 
   	Unison( { [ [6rree] frff ggrg [6rree] rddr d-d-rd- ] },-12) 
   Time(41:1:0);EP.WR(60,120,!16);V=100 p%=0 RC(40,0); 
   	Unison( { [4 [6rree] frff ggrg [6rree] rddr d-d-rd- ] },-12) 

//------------------------------------------------------------------------------
TR(3); CH(3);
   Time(1:1:0); TK=(XX) 
	EP.WR(0,120,!4);
	[4[6e]fg[6e]dd-]
   Time(16:3:0);EV(0,0);
   Time(17:1:0);EP.WR(0,120,!4);V=120 [[6e]fg[6e]dd-]
   Time(24:3:0);EV(0,0);
   Time(25:1:0);EP.WR(0,120,!4);V=120 [[6e]fg[6e]dd-]
   Time(41:1:0);EP.WR(0,100,!4);V=120 [4[6e]fg[6e]dd-]

//------------------------------------------------------------------------------
TR(4); CH(4);
   Time(1:1:0);TK=(XX)  
	EP.WR(0,120,!4);
	[4[6e]fg[6e]dd-]
   Time(16:3:0);EV(0,0);
   Time(17:1:0);EP.WR(0,120,!4);V=120 [[6e]fg[6e]dd-]
   Time(24:3:0);EV(0,0);
   Time(25:1:0);EP.WR(0,120,!4);V=120 [[6e]fg[6e]dd-]
   Time(41:1:0);EP.WR(0,100,!4);V=120 [4[6e]fg[6e]dd-]

//------------------------------------------------------------------------------
TR(5); CH(5);
   Time(1:1:0);TK=(XX) BR=2 
	EP.WR(120,0,!16);p%.WR(1280,-2560,!16,-8000,8000,!16);
	[4[[ eera r`crr : erar r`c`cr ] : aar greer ] a`cag eaed ] 
   Time(16:3:0);V=110
   Time(17:1:0);V=85;EP.WR(120,0,!16);[r1r2aar greer r1r2 : a`cag eaed] V=120 a`cag eaed
   	V=100;EP.WR(120,0,!16);[4[[ eera r`crr : eraa r`c`cr ] : aar greer ] a`cag eaed ] 
   Time(41:1:0);BR=2 V=100;p%.WR(1280,-2560,!16,-8000,8000,!16);
   	EP.WR(120,0,!16);[4[[ eera r`crr : eraa r`c`cr ] : aar greer ] a`cag eaed ] 
   Time(57:1:0);

//------------------------------------------------------------------------------
TR(6); CH(6);
   Time(1:1:0);TK=(XX) BR=2  
	EP.WR(120,0,!16);p%.WR(1280,-2560,!16,-8000,8000,!16);
	[4[[ eera r`crr : erar r`c`cr ] : aar greer ] a`cag eaed ] 
   Time(16:3:0);V=120
   Time(17:1:0);V=85;EP.WR(120,0,!16);[r1r2aar greer r1r2 : a`cag eaed] V=125 a`cag eaed
   	V=100;EP.WR(120,0,!16); [4[[ eera r`crr : eraa r`c`cr ] : aar greer ] a`cag eaed ] 
   Time(41:1:0);BR=2 V=100;p%.WR(1280,-2560,!16,-8000,8000,!16);
   	EP.WR(120,0,!16);[4[[ eera r`crr : eraa r`c`cr ] : aar greer ] a`cag eaed ] 
   Time(57:1:0);

//------------------------------------------------------------------------------
TR(7); CH(7);
   Time(1:1:0);TK=(XX) P.WR(127,0,!4,0,127,!4);EP.WR(45,105,!4,105,45,!4);
	Sub{ [4e^2d2 e^2g2] } o3; [4e^2d2 e^2g2] 
   Time(16:3:0);EV(0,0);
   Time(41:1:0);EV(90,90);Sub{o5v85 [4e^2d2 e^2g2] } o3;v102 [4e^2d2 e^2g2] 

//------------------------------------------------------------------------------
TR(8); CH(8);
   Time(1:1:0);TK=(XX) P.WR(0,127,!4,127,0,!4);EP.WR(105,45,!4,45,105,!4);
   	Sub{ [4e^2d2 e^2g2] } o3; [4e^2d2 e^2g2] 
   Time(16:3:0);EV(0,0);
   Time(41:1:0);EV(90,90);Sub{o5v85 [4e^2d2 e^2g2] } o3;v102 [4e^2d2 e^2g2] 

//------------------------------------------------------------------------------
TR(9); CH(9); // なんでか、このポーンは相変わらず好きみたいです（笑
   Time(1:1:0);TK=(XX) CD( 2 ,118,60,!2,0,!2); P.WR(127,0,!8,0,127,!8); MidiDelayS( [4 `f1^1^1^1 `f1^1^1^1 ] ) 
   Time(41:1:0); MidiDelayS( [ `f1^1^1^1 `f1^1^1^1 ] ) 

//------------------------------------------------------------------------------
TR(12); CH(12); // ＋このシンコペーション？も好きで多様してしまうこの頃…
   Time(1:1:0);TK=(XX) P.N(0,127,64,127,0,64);
   Time(41:1:0); EP.WR(120,0,!16);
   	[  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  ] 
	

//------------------------------------------------------------------------------
Str SE_0  = {@(120,0,0); P.WR(24,106,!16,106,24,!16); p%.T(0,-6000,!1); V.T(30,127,!2.); '`c1g1e1' } 
	Str SE_0h  = {@(120,0,0); P.WR(24,106,!16,106,24,!16); p%.T(0,6000,!1); V.T(30,127,!2.); '`c1g1e1' } 
	Str SE_0R  = {@(120,0,0); P.WR(106,24,!16,24,106,!16); p%.T(0,-6000,!1); V.T(30,127,!2.); '`c1g1e1' } 
   	Str SE_01 = {@(120,0,0); P.WR(24,106,!16,106,24,!16); V.T(15,127,!4.); '`c2g2e2' } 
	Str SE_02 = {@(120,0,0); P.WR(24,106,!16,106,24,!16); V.T(15,127,!8.); '`c4.g4.e4.' } 
	Str SE_02h = {@(120,0,0); P.WR(24,106,!16,106,24,!16); V.T(15,127,!16); '`c4g4e4' } 
	Str SE_02h4 = {@(120,0,0); P.WR(24,106,!16,106,24,!16); V.T(15,127,!16); '`c8.g8.e8.' } 

   	Str SE_03 = { @81,8,0; o7; BR(12); PC( 2 ,28,106,!4,88,!8,!12 ); 
   			   p%.T(0,$250,!4, $250,-$2000,!8 ); `e8.r16e2 r16 p%(0); }
	Str SD_1 = { P(64); v125;o4;l1; @(126,8,0); BR(20); p.T(0,127,!1^1^1^2,127,0,!2); a0e1^1^1^1 p(64); }
	Str SD_1h = { P(64); v125;o4;l1; @(126,8,0); BR(20); Sub{ [p.T(0,127,!4,127,0,!8); r4. ]} a0e1^1 p(64); }
	Str SD_2 = { P(64); o3;l1; BR(20); V.T(0,100,!8,98,30,!1*4); p.T(127,0,!1^1^1^1); f0c1^1^1^1 r4 p(64); } 

   	Str SE_1 = { P.T(24,106,!1^1^1^1); V.T(75,115,!1*3,115,0,!1*5); 
   	  		 BR(20); p.T(127,0,!1^1^1^1); f0c1^1^1^1^1^1^1^1  p(64); } 
	Str SE_2 = { P.T(106,24,!1^1^1^1); V.T(100,127,!1,127,10,!1*5); 
	              BR(20); p.T(0,127,!1^1^1^2,127,0,!2); a0e1^1^1^1 p(64); }
	Str SE_3 = {  RC(20,88); o7; EPC(120,100,!1*4); P(64); P.T(106,24,!1^1^1^1);
   			   BR(38); p.T(127,0,!1^1^1^1); 
	  		  Po(on,64); ``f4  [86 ``f32 t-1] [36 Po(off);``f32 t-1] p(64); t(0); EPC(100,120,!1*4); }
   	Str SE_4 = { p.T(0,127,!1^1^1^2,127,0,!2); P.T(24,106,!1^1^1^1); 
	  		  Po(on,64); ``f4  [96 ``f32 t-1] [32 Po(off);``f32 t-1] p(64); t(0); }

	Str SE2_1 = { P.T(106,24,!1^1^1^1); V.T(75,115,!1*3,115,0,!1*5);
   	  	  BR(20); p.T(127,0,!1^1^1^1); f0c1^1^1^1^1^1 [ r1 ] p(64); }
	Str SE2_2 = { P.T(24,106,!1^1^1^1); V.T(100,127,!1,127,10,!1*5);
	        @(126,9); BR(20); p.T(0,127,!1^1^1^2,127,0,!2); a0e1^1^1^1 p(64); [4 r1 ] }
	Str SE2_3 = {  RC(20,88); o7; EPC(120,100,!1*4); P(64); P.T(24,106,!1^1^1^1);
   	  		   BR(38); p.T(127,0,!1^1^1^1); 
	  		   Po(on,64); ``f4  [86 ``f32 t-1] [36 Po(off);``f32 t-1] p(64); t(0); EPC(100,120,!1*4); }
	Str SE2_4 = { p.T(0,127,!1^1^1^2,127,0,!2); P.T(106,24,!1^1^1^1); 
	  		   Po(on,64); ``f4  [96 ``f32 t-1] [32 Po(off);``f32 t-1] p(64); t(0); }

	Function BRL(X){ @(127,110,1); Sub{ [(X) P.T(20,104,!2.,98,30,!2.); r1r2 ] } MidiDelayS( [(X) rrg ^rg ara rrg ^ra rcf ] ) }
//------------------------------------------------------------------------------
TR(13); CH(13); // 擬似スネア!!
   Time(1:1:0);BR=12 @(119,9,0); Vm(125,5,16,96); RC(20,80);EV(120,120); q30
   Time(9:1:0);EP.WR(120,0,!16);v15 Unison({ [32e8v+2][32ev+1][48e32v-1] },-7 )
   Time(29:1:0);EP.WR(120,0,!16);v54 Unison({ [16e8v+2][16ev+1][32e32v-1] },-7 )
   Time(33:1:0);RC(120,80);Unison({ v20 [3 [6 e8 v+1] ee ee ] [3e8:[3e24v+1]] e8 [12e64v-1] },-7 )
   Time(37:1:0);Unison({ v20 [3 [6 e8 v+1] ee ee ] [3e8:[3e24v+1]] e8 [12e64v-1] },-7 )
   Time(49:1:0);RC(20,80);EP.WR(120,0,!16);v22 
   	Unison({ [32e8v+2][32ev+1][32e32v-1] },-7 )
   	[3p%(128);Unison({e8},-7 )p%(-768);Unison({[4d0"a48][r48]},-7 )]p%(4000);Unison({[12d0"a96]},-7 ) r8
	

//------------------------------------------------------------------------------
TR(14); CH(14); // SE等 
   Time(1:1:0); 
   Time(16:1:48);o5;BR(24);SE_0h  Time(24:1:48);o2;BR(48);SE_0h
   Time(32:1:48);o2;BR(48);SE_0h Time(36:1:48);o2;v80;BR(48);SE_0h
   Time(40:1:48);o5;v120;BR(48);SE_0h Time(56:1:48);o5;v120;BR(48);SE_0h

//------------------------------------------------------------------------------
TR(15); CH(15); // SE等 
   Time(1:1:0); 
   Time(33:1:0);o7;v30 @126,0,0 SE_1
   Time(37:1:0);o7;v30 @126,7,0 SE2_1
   Time(53:1:0);o1;v110 @126,9,0 SE2_2

//------------------------------------------------------------------------------
TR(16); CH(16); // SE等 
   Time(1:1:0); 
   Time(33:1:0);v40BRL=5
	

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