//_------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (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
//------------------------------------------------------------------------------