//_------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.37)
//_------------------------------------------------------------------------------
MetaText = {" UndaGRand THA FacTorY = Industrial-Hardcore "};
//↑:タイトル
Copyright = {" ＭＭ GMで作成中 Ver.3.35 "}; //著作権表示
//_一応、曲の説明？-------------------------------------------------------------------------------
/*…オリジナル(以後:自) 作曲 投稿 No.21 … 暫定完了
[ UndaGRand THA FacTorY ]
※ 説明欄が長くなりました…すみません(汗;
...ですので読むのが面倒だなぁ…と思う方は説明欄を飛ばして下さい（汗；
初めての御方は「初めまして、宜しくお願い致します」 m(_ _)m
皆様、こんにちは、[ ＭＭ(えむえむ) ]と言う者です。
そして、ダウンロードして頂き誠に有り難うございます m(_ _)m
ご無沙汰しておりました…中々時間を作れずようやく完成に至りました。|||orz
返信返せず、コメント返せず、本当に申し訳ありません…
後、曲のネタが最近なんか上手く出来なくなってきｔe･･･（ｒｙ
さて今回は、インダストリーなハードコアを目指してみました。
地下工場で怪しげな活動…胎動…原動…アラユルモノが蠢く世界…そんな世界を目指してみました。
インダルトリアルにしては少し要素が弱い気がするのでにわかハードコアでも良い気がしてきました(^^;
まだまだ処理の仕方といい、音色の付け方といい、拙い部分は有り、展開や終わり方がざっくりとした感じに
なってしまいましたが、楽しく聴いて頂けたら作り手としては本当に嬉しい限りです
それでは、お粗末ながらも長文の御説明を最後まで御付き合いして頂き、誠に有難う御座います m(_ _ )m
これで、失礼致します!! (´・ω・`)ﾉｼ
《 更新記録 》
・2013/ 2/16 … 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 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); @(25,90,1);q50 RC(8,80);EV(120,120); Time(1:1:0);
TR(20); Time(0:1:8); CH(10); BR(48); BT(0,-768,!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(0); l16; [8[ rSSr SSrS v+3]]
(Time(9:1:0));v(68);[8 rSSr SSrS rSSr SSrS rSSr SSrS rSSr SSrS ]
(Time(25:1:0));v34[8 SSSS SrSS ]
(Time(29:1:0));v72[[4 rSSr : SSrS ]:r4 ]SSSS
(Time(33:1:0));[8[ rSSr SSrS ]]
(Time(41:1:0));v68[4 SrSr SrSS SrSr SrSS SrSr SrSS SrSr SrSS ]
(Time(57:1:0));v68 l32; [8 SrSr SrSS SrSr SrSS SrSr SrSS SrSr SrSS ]
(Time(73:1:0));(v.N(55,48,55,46);) l32; [8 [4rSSr SSrS] ]
(Time(81:1:0));(v.N(55,48,55,46);) l32; [8 [4rSSr SSrS] ]
(Time(121:1:0));(v.N(55,48,55,46);) l16; [8 [4rSSr SSrS] ]
(Time(137:1:0));(v.N(55,48,55,46);) l32; [16 [4rSSr SSrS] ]
}
//_ﾊﾝﾄﾞ
(Time(1:1:0)); v(120); l16;
[8r1] [8 r4 h4 r4 h4 r4 h4 r4 h4 ]
(Time(29:1:0));[3r4h4] h4 r4 [4r4h4]
(Time(33:1:0));[8 r4 h4 r4 h4 r4 h4 r4 h4 ]
(Time(57:1:0));[4 r4 h4 r4 h4 r4 h4 r4 h4 ]
(Time(73:1:0));[4 r4 h4 r4 h4 r4 h4 r4 h4 ]
(Time(89:1:0));[4 r4 h4 r4 h4 r4 h4 r4 h4 ]
(Time(113:1:0));[4 r4 h4 r4 h4 r4 h4 r4 h4 ]
(Time(121:1:0));v100[8 r4 w4 r4 w4 r4 w4 r4 w4 ]
(Time(137:1:0));v110[4 [7 h0w4 ][ h0w8 ] ]
}
//_ｵｰﾌﾟﾝ&ｸﾛｰｽﾞﾊｲﾊｯﾄ+α
(Time(1:1:0)); v(10); l16;
[ [8 HrHr HrHH v+3] ]
(Time(9:1:0)); #S1; [ [8 HrHr HrHH ] ] | [ [8 HHHr : HrHr ] HHHr ]
(Time(25:1:0));
v(80);[ prpr Orpr prpr Orpp prpr Orpr prpr Orpp ]
#S1; [4 HrHr : HrHH ] r4 v80[8O8v+1][8Ov+1][8O32v+1][9O48v-1][9O96v-1]
(Time(33:1:0));#S1; [[ prpr Orpr prpr Orpp : prpr Orpr prpr Orpp ] HrOr HrOr OOrO rOOO ]
(Time(41:1:0));[[ prpr Orpr prpr Orpp : prpr Orpr prpr Orpp ] HrOr HrOr OOrO rOOO ]
(Time(57:1:0));[[ prpr Orpr prpr Orpp : prpr Orpr prpr Orpp ] HrOr HrOr OOrO rOOO ]
(Time(73:1:0)); #S1; [ [8 HrHr HrHH ] ] | [ [8 HHHr : HrHr ] HHHr ]
(Time(105:1:0)); [7 prpr Orpr prpr Orpp ] prpO OOpr pOOr pOrO
[ HHOr HrOr HHOr HrOr HHOr HrOr HOrO OrOO ]
v110 [8 c0d0O4 ] [8 c0d0O8 ] [16 c0d0O ]
(Time(121:1:0)); #S1; [[ prpr Orpr prpr Orpp : prpr Orpr prpr Orpp ] HrOr HrOr OOrO rOOO ]
(Time(137:1:0)); #S1; [ [8 HrHr HrHH ] ] | [ [8 HHHr : HrHr ] HHHr ]
//Track10のライン
(TR(20);)
//_Cowbell=ｶｳﾍﾞﾙ
{{
(Time(1:1:0)); v(120); l16;
(Time(9:1:0)); v(120);C0D1
(Time(17:1:0)); v(125);[4C0D1r1r1r1]
(Time(33:1:0)); v(125);[5C0D1r1r1r1]
(Time(57:1:0)); v(125);[5C0D1r1r1r1]
(Time(81:1:0)); v(125);[5C0D1r1r1r1]
(Time(105:1:0)); v(125);[5C0D1r1r1r1]
(Time(121:1:0)); v(125);[4C0D1r1r1r1]
(Time(137:1:0)); v(125);[4C0D1r1r1r1]
(Time(153:1:0)); v(125);C0D1
(Time(169:1:0)); v(80);C0D1
}
(Time(1:1:0)); v(120); l16;
(Time(33:1:0)); [[16 v86; R0F8 v115; G8 ]]
[[3 v86; R0F4R0F8 v115;G8 v86;R0F4][v86; R0F8 v115; G8]G8G8][ v86; R0F4R0F8 v115;G8 v86;R0F4][v86; R0F8 v115; G8]G8G8
(Time(49:1:0)); [[16 v86; R0F8 v115; G8 ]]
(Time(57:1:0)); [[16 v86; R0F8 v115; G8 ]]
(Time(73:1:0));
[[3 v86; R0F4R0F8 v115;G8 v86;R0F4][v86; R0F8 v115; G8]G8G8][ v86; R0F4R0F8 v115;G8 v86;R0F4][v86; R0F8 v115; G8]G8G8
(Time(81:1:0)); [4[16 v86; R0F8 v115; G8 ]]
(Time(105:1:0));
[[3 v86; R0F4R0F8 v115;G8 v86;R0F4][v86; R0F8 v115; G8]G8G8][ v86; R0F4R0F8 v115;G8 v86;R0F4][v86; R0F8 v115; G8]G8G8
(Time(121:1:0)); [4[16 v86; R0F8 v115; G8 ]]
(Time(137:1:0)); [4[16 v86; R0F8 v115; G8 ]]
(Time(153:1:0)); [16 v86;[ F0R4 ]v115; G0R4 G0F4 ]
}//Track20まで
(TR(21);)
//_ｷｯｸ(ﾊﾞｽﾄﾞﾗ)+ﾀﾑ系
{{
(Time(1:1:0)); v127; l16;
(Time(9:1:0)); K0k1 r1 K0k1 r1K0k1K0k1K0k2K0k2K0k4K0k4K0k8K0k8K0kK0kK0kK0k
(Time(17:1:0));v125; [ [15 K4 ] K8K8 ] [v100; K1 v-30 k2 v-15k2 ]
(Time(29:1:0));v125 [7 K4 ] r4 [8K8][8k][8k32](p%=4000)v80[18K0k96]
(Time(33:1:0));v125(p%=-768)[ [15 K4 ] K8K8 ]
(Time(49:1:0));[4 [15 K4 ] K8K8 ]
(Time(65:1:0));(RC(100,40); BR=6 p%=-4000)
(Time(73:1:0));(RC(8,80); BR=6 p%=-4000) v110
(Time(76:1:0));v(48);r2 [24k48 v+2]K1 (Time(80:1:0));v(58);r2 [24s48 v+2]
(Time(81:1:0));(p%=-768)v110 [4[ Krrr krKr rrrr Krkr : Krrr krKr Krrr K0krKr ] Krrr krKr KrrKrrKr ]
(Time(105:1:0));(RC(64,040);) v(90); ( BR(48); )
[4 (p%(-2000)); [24 k48 t-1] t(0); | (p%.T(-2000,-8000,!4)); [24 k48 t-1] t(0);
(p%.T(-8000,0,!8)); [24 k48 t-1] t(0); | (p%.T(4000,-2000,!8)); [24 k48 t-1] t(0); ]
(Time(113:1:0));(RC(4,100);)(p%=-256)v125; [ [15 K4 ] K8K8 ]
(Time(121:1:0));(RC(12,96);)[4 v125;(p%=-128) [7 k4 ] k8k8 [7 k4 ] (p%=-768) KK[4K32v-5] ]
(Time(137:1:0)); [4 v125;(p%=-128) [7 K8 v-25 K8 v+25 ] KKKK [7 K8 v-25 K8 v+25 ] (p%=-768) KK[4K32v-5] ]
(Time(169:1:0));(RC(120,0)p%=-1280)k1
}
//_ｽﾈｱ(ｺﾞｰｽﾄ)
(Time(1:1:0)); v(55); l16; (Time(8:1:0));r2 [24s48 v+2] (Time(16:1:0));v(55);r2 [24s48 v+2]
(Time(20:1:0));v(55);r2 [24s48 v+2] (Time(24:1:0));v(55);r2 [24s48 v+2] (Time(28:1:0));v(55);r2 [24s48 v+2]
(Time(44:1:0));v(42);r2 [24k48 v+2]K1 (Time(48:1:0));v(55);r2 [24s48 v+2]
(Time(68:1:0));v(32);r2 [24k48 v+2]k1 (Time(72:1:0));v(45);r2 [24s48 v+2]
(Time(73:1:0));(v.N(68,58,70,62);)[4 rrwr wwrw rwwr wrrr rrwr wwrw rwwr wrrr ]
(Time(89:1:0));(v.N(68,58,70,62);)[4 rrwr wwrw rwwr wrrr rrwr wwrw rwwr wrrr ]
(Time(93:1:0));v(45); [16s8 v+2] [16s v+1] [16s32 v+1] [24s48 v+1]
(Time(104:1:0));v(24);[48s48 v+2]
(Time(117:1:0));v(45);[16s8 v+2] [16s v+1] [16s32 v+1] [12s48 v+1] (p%=4000)v118[9 K0s0w96]
(Time(121:1:0));(p%=0 BR=48)
[3 [ (BR(48);v(118);) [6 w4 ] : (BR(48);)[ v(125); [6 w48 ] r8 ] ]
(BR(48);v(118);) [3 v(125); [4 w64 ] : r16 ] [6 w96 ]r8 ]
(BR(48);v(118);) [6 w4 ] (BR(48)); [ v(120); [6 w48 ] r8 ]
(BR(48);v(118);) [4 w4 ] (BR(48);) v(120); c0w4.c0w4.c0w4
(Time(137:1:0));
(p%(128);)[6w4][(p%.T=-8000,0,!4)v125;[6w48]r8]
(p%=128)[4w4] [3(p%=128)s8(p%(-768);)[4w0s48][r48]](p%.T=4000,-2000,!8.)[12w0s96] r8
(p%(128);)[6w4][(p%.T=-8000,0,!4)v125;[6w48]r8]
(p%=128) [4w4] [(p%.W(-256,8000,!8);) [ k8 ] (p%.WR(4000,-2000,!16);) [6 k0w48 ]:r8 ] (p%=8000)[12 k0w96 ]
(p%(128);)[6w4][(p%.T=0000,-8000,!4)v125;[6w48]r8]
(p%=128) [4w4] [3(p%(128);) s8 (p%(1028);)[4 s0w64 ] r16 ](p%(4000);)[12w0s96]w8
(p%(128);)[6w4](p%.WR(4000,-2000,!4);) w8w4w8| (p%(128);) [8w0s8][8w0s16][12w0s48]
(p%.T(4000,-1280,!8.);)[10w0s48]r24
(Time(153:1:0));(p%(128);)
}//Track21まで
}//Rythmまで
TR(22); CH(11); //ﾊﾞｽﾄﾞﾗ（Elec-Dr）
Time(1:1:0);BR=48p%.WR(-4000,0,!16); RC=120,120 o3
Time(9:1:0);p%.WR(-4000,-8000,!1); RC=120,120 o3 g0c0"a1
Time(17:1:0);p%=-2000 RC=120,120 o3 g0c0"a1
Time(21:1:0);p%=-4000 RC=120,120 o3 g0c0"a1
Time(33:1:0);p%=-2000 RC=120,120 o3 g0c0"a1
Time(41:1:0);p%=-2000 RC=120,120 o3 g0c0"a1
Time(49:1:0);p%=-2000 RC=120,120 o3 g0c0"a1
Time(57:1:0);p%=-2000 RC=120,120 o3 g0c0"a1
Time(65:1:0);p%=-2000 RC=120,120 o2 v95 g0c0"a1
Time(73:1:0);p%=-2000 RC=120,120 o3 v90 g0c0"a1
Time(97:1:0);p%=-2000 RC=120,120 o3 v90 g0c0"a1
Time(104:1:0); BR(48); o1 v0;
p%.T(-8000,8000,!1);[48 g48 v+3]
Time(105:1:1);p%=-2000 RC=120,120 o2 v120 g0c0"a1
Time(112:1:0); BR(48); o1 v0;
p%.T(-8000,8000,!1);[48 g48 v+3]
Time(113:1:1);p%=-2000 RC=120,120 o2 v120 g0c0"a1
Time(121:1:1);p%=-2000 RC=120,120 o2 v120 g0c0"a1
Time(137:1:1);p%=-2000 RC=120,120 o2 v120 g0c0"a1
Time(153:1:1);p%=-2000 RC=120,120 o2 v120 g0c0"a1
//_ﾄﾗｯｸｽﾍﾟｰｽ = 基本設定 = -------------------------------------------------------------------------------------------------
TR(01); CH(01); Time(0:2:16); Tempo(90); @(082, 90,1); RC(80,30); Vm(98,5,16,64); q(050); P(064); EV(100,100); //
TR(02); CH(02); Time(0:2:16); @(056, 90,1); RC(64,120); Vm(98,7,16,0); q(098); P(064); EV(100,100); //
TR(03); CH(03); Time(0:2:16); @(082,110,0); RC(80,30); Vm(98,5,16,48); q(050); P(032); EV(100,100); //
TR(04); CH(04); Time(0:2:16); @(082,110,0); RC(80,30); Vm(98,4,16,48); q(050); P(096); EV(100,100); //
TR(05); CH(05); Time(0:2:16); @(056, 90,1); RC(64,120); Vm(98,5,16,0); q(098); P(064); EV(100,100); //
TR(06); CH(06); Time(0:2:16); @(082, 01,0); RC(120,120); Vm(98,5,16,0); q(075); P(064); EV(108,120); //
TR(07); CH(07); Time(0:2:16); @(082, 01,0); RC(120,120); Vm(98,5,16,0); q(098); P(064); EV(108,120); //
TR(08); CH(08); Time(0:2:16); @(081, 1,0); RC(20,80); Vm(110,3,4,0); q(098); P(127); EV(100,120); //
TR(09); CH(09); Time(0:2:16); @(088, 0,0); RC(40,120); Vm(120,3,4,0); q(098); P(064); EV(100,100); //
TR(12); CH(12); Time(0:2:16); @(081, 1,0); RC(20,80); Vm(110,3,4,0); q(098); P(000); EV(100,120); //
TR(13); CH(13); Time(0:2:16); @(127,110,2); RC(120, 80); Vm(110,5,4,0); q(098); P(064); EV(100,120); //
TR(14); CH(14); Time(0:2:16); @(001, 0,0); RC( 10, 88); Vm(120,5,1,0); q(098); P(064); EV(120,100); //
TR(15); CH(15); Time(0:2:16); @(001, 0,0); RC( 10, 88); Vm(120,5,1,0); q(098); P(064); EV(120,100); //
TR(16); CH(16); Time(0:2:16); @(001, 0,0); RC(120, 0); Vm(120,5,1,0); q(098); P(064); EV(100,100); //
//_ﾄﾗｯｸｽﾍﾟｰｽ2 = 各種設定 = ------------------------------------------------------------------------------------------------
TR(1); CH(1); Str X1 = -2
Time(1:1:0); Tempo(188); BR=48 TK(X1)
MidiDelayS( Unison({ [16 e^^r rra^ ^rf^ ^e"a^ ]},-24) )
Time(17:1:0);v=120 P.N(0,127,64,127,0,64);
MidiDelayS( Unison({ [8 e^^r rra^ ^rf^ ^e"a^ ]},-24) )[4r1]MidiDelayS( Unison({ [4 e^^r rra^ ^rf^ ^e"a^ ]},-24) )
Time(33:1:0);
Time(49:1:0); l8;MidiDelayS( [[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(57:1:0); MidiDelayS( [[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(73:1:0); MidiDelayS( [[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(81:1:0); MidiDelayS( [4[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(97:1:0); EP.T(0,110,!1*8)MidiDelayS( [4[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(113:1:0);MidiDelayS( [12 "e"ace ] [4 "ae ] )MidiDelayS([8 "a16e16 ])
Time(121:1:0); Tempo(192);
Sub{v70; o6; MidiDelayS( [[4 "e"ace ] [4"f"bdf] [4 "e"ace ] "d"f#"ad "c"e"g#c dgfc e"e"g"a ] ) }
o4;v80;l8;MidiDelayS( [ [4 e`e"er ][4 f`f"fr ][4 e`e"er ] d`d"dr c`c"cr "aa""ar "bb""br ] )
Time(137:1:0);
Sub{v90; o6; MidiDelayS( [[4 "e"ace ] [4"f"bdf] [4 "e"ace ] "d"f#"ad "c"e"g#c dgfc e"e"g"a ] ) }
o3;v90;l8;MidiDelayS( [ [4 e`e"e""e ][4 f`f"f""f ][4 e`e"e""e ] d`d"d""d c`c"c""c "aa""a"""a "bb""b"""b ] )
Time(153:1:0);l12;o3 Tempo(182);
EP.T(120,90,!1*8,90,10,!1*8); [16 "e"ee "e`e"e e"e"e "e``e"e ]
//------------------------------------------------------------------------------
TR(2) ;CH(2);
Time(1:1:0); TK(X1)
Time(33:1:0); EP.WR(120,0,!4);v110;o5; @56,90,0 [ ""e0"e0e1""e0"e0e1""f0"f0f1""a0"a0a2""g0"g0g2 ]
Time(41:1:0); EP.WR(120,0,!8);v45;o6; @109,0,0 Unison( { [8 e^^r rra^ ^rf^ ^e"a^ ]} ,-12)
Time(49:1:0); EP.WR(120,0,!4);v98;o7; @56,90,1 [ ""e0"e0e1""e0"e0e1""f0"f0f1""a0"a0a2""g0"g0g2 ]
Time(57:1:0); EP.WR(120,0,!4);v110;o5; @56,90,0 [ ""e0"e0e1""e0"e0e1""f0"f0f1""a0"a0a2""g0"g0g2 ]
Time(65:1:0); EP.WR(120,0,!8);v45;o6; @109,0,0 Unison( { [8 e^^r rra^ ^rf^ ^e"a^ ]} ,-12)
Time(81:1:0); EP.WR(120,0,!4);v110;o5; @56,90,0 [4 ""e0"e0e1""e0"e0e1""f0"f0f1""a0"a0a2""g0"g0g2 ]
Time(137:1:0); EP.WR(120,0,!4);o5; @5,16,0
Sub{ v55; o7; MidiDelayS( [[8 "e"ace ] [8"f"bdf] [8 "e"ace ] [ "d"f#"ad"c"e"g#c dgfc e"e"g"a ] ] ) }
Time(153:1:0);l12;o4 EP.T(120,90,!1*8,90,10,!1*8);
@82,90,1 [16 "e"ee "e`e"e e"e"e "e``e"e ]
//Time(17:1:0); EP.WR(120,0,!8); Unison( { [8 e^^r rra^ ^rf^ ^e"a^ ]} ,-24)
//
//Time(25:1:0); EP.WR(120,0,!8); Unison( { [4 e^^r rra^ ^rf^ ^e"a^ ]} ,-7) Unison( { [4 e^^r rra^ ^rf^ ^e"a^ ]} ,-24)
//------------------------------------------------------------------------------
TR(3); CH(3);
Time(1:1:0);TK(X1) p%(-128) EP.WR(120,0,!8);BR=48
MidiDelayS( Unison( { [16 e^^^ rra^ ^rf^ ^e"a^ ] } ,-12) )
Time(17:1:0);o6;BP=0,-2560 Unison({ [8 e^^r rra^ ^rf^ ^e"a^ ]},-12)
Time(25:1:0); EP.WR(120,0,!8);
P.N(0,127,64,127,0,64); Unison( { [4 e^^r rra^ ^rf^ ^e"a^ ]} ,-7)
P=96 Unison( { [4 e^^r rra^ ^rf^ ^e"a^ ]} ,-12)
Time(33:1:0);[8r1]
l8;MidiDelayS( [4[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(57:1:0);MidiDelayS( [4[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(81:1:0);MidiDelayS( [[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(89:1:0);MidiDelayS( [[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(97:1:0);P.N(0,127,64,127,0,64);o5
EP.T(0,110,!1*8)@82,110,5 MidiDelayS( [4[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(97:1:0);
Time(113:1:0);v120; l8;@82,1,0 MidiDelayS( [12 "e"ace ] [4 "ae ] )MidiDelayS([6 "a16e16 ])
Time(121:1:0);P.N(0,127,64,127,0,64); @40,16,0 l12; Slur=1 o4
[4[ "e"ee "e`e"e e"e"e "e``e"e ] [ "d"dd "d`d"d d"d"d "d``d"d ] [ "c"cc "c`c"c c"c"c : "c``c"c ]
""b16&b16""a16&a16 ""g""g"g ""g`"g""g "g""g""g ""g``"g""g ""d""d"d ""d`"d""d ""e""e"e ""e`"e""e ]
Time(153:1:0);EP.T(120,90,!1*8,90,10,!1*8);
[8 "e"ee "e`e"e e"e"e "e``e"e ]
//------------------------------------------------------------------------------
TR(4); CH(4);
Time(1:1:0);TK(X1) p%(128) EP.WR(120,0,!8); BR=48
MidiDelayS( Unison( { [16 e^^^ rra^ ^rf^ ^e"a^ ] } ,-12) )
Time(17:1:0);o6;BP=0,2580 Unison({ [8 e^^r rra^ ^rf^ ^e"a^ ]},-12)
Time(25:1:0); EP.WR(120,0,!8);
P.N(127,0,64,0,127,64); Unison( { [4 e^^r rra^ ^rf^ ^e"a^ ]} ,-7)
P=32 Unison( { [4 e^^r rra^ ^rf^ ^e"a^ ]} ,-12)
Time(33:1:0);[8r1]
l8;MidiDelayS( [4[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(57:1:0);@82,0,0
MidiDelayS( [4[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(81:1:0);MidiDelayS( [[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(89:1:0);MidiDelayS( [[4 "e"ace ] ["f"bdf] dgfc e"e"g"a ] )
Time(97:1:0);v90; l8;@81,1,0 MidiDelayS( [4[4 "e"ace v-6]] )
Time(113:1:0);v120; l8;@82,110,0 MidiDelayS( [12 "e"ace ] [4 "ae ] )MidiDelayS([5 "a16e16 ]) "a16e16
Time(121:1:0);EP.W(00,120,!16.,120,0,!1.);v120;o6;Slur=1 q98
@82,110,0; Unison({ [ `e1^1`d1^1 `c1^2.b8a8 g1^2d4e4 ] },-12)
Time(137:1:0);EP.WR(120,0,!4);
@82,110,0 Unison({ [ `e1^1`f1^1 `e1^2.&b8&a8 g1^2d4e4 ] },-12)
Time(153:1:0);l12;v80 EP.T(120,90,!1*8,90,10,!1*8);
@82,110,0 o2 MidiDelayS( [16 [4 e`e"e ] ] )
//------------------------------------------------------------------------------
TR(5); CH(5);
Time(1:1:0);TK(X1)
Time(33:1:0); EP.WR(120,0,!8); Unison( { [ e1e1f1a2g2 ]} ,-24)
Time(41:1:0); EP.WR(120,0,!8);@081,8,0 v65 Unison( { [8 e^^r rra^ ^rf^ ^e"a^ ]} ,-12)
Time(49:1:0); EP.WR(120,0,!8);v98 @56,90,1 Unison( { [ e1e1f1a2g2 ]} ,-24)
Time(57:1:0); EP.WR(120,0,!8);@56,90,1 Unison( { [ e1e1f1a2g2 ]} ,-24)
Time(65:1:0); EP.WR(120,0,!8);@081,8,0 v65 Unison( { [8 e^^r rra^ ^rf^ ^e"a^ ]} ,-12)
Time(81:1:0); EP.WR(120,0,!4);v110;o7; @49,90,1 [4 ""e0"e0e1""e0"e0e1""f0"f0f1""a0"a0a2""g0"g0g2 ]
Time(97:1:0); EP.WR(120,0,!4);v110;o7; @49,90,1 [6 ""e0"e0e1 v-20]
Time(121:1:0);EP.W(80,120,!16,120,0,!1.);v120;o5;P=96;Slur=1
@49,90,1 Unison({ [ `e1^1`d1^1 `c1^2.&b8&a8 g1^2d4e4 ] },-12)
Time(137:1:0);EP.WR(120,0,!4);
@49,90,1 Unison({ [ `e1^1`f1^1 `e1^2.&b8&a8 g1^2d4e4 ] },-12)
Time(153:1:0);l12;v80 EP.T(120,90,!1*8,90,10,!1*8);
@82,1,0 o4 MidiDelayS( [16 [4 e`e"e ] ] )
// Time(17:1:0); EP.WR(120,0,!8); Unison( { [8 e^^r rra^ ^rf^ ^e"a^ ]} ,-12)
// Time(25:1:0); EP.WR(120,0,!8); Unison( { [4 e^^r rra^ ^rf^ ^e"a^ ]} ,-7) Unison( { [4 e^^r rra^ ^rf^ ^e"a^ ]} ,-12)
//------------------------------------------------------------------------------
TR(6); CH(6);
Time(1:1:0);TK(X1) BR=36
Time(17:1:0);P.N(64,96,32,104,24,74,56,44,84);
TK=0 [ p%=0 [6 "eree rere ] p%.T=0,-8000,!1 o7 [ "eree rere ] o5; ]
TK=1 p%=0 [6 "eree rere ] p%.T=0,-4000,!1 [ "eree rere ]
TK=0 p%=0 [6 "eree rere ] p%.T=0,-4000,!1 [ "eree rere ]
Time(33:1:0);/*TK=0 p%=0 v115 o7 @81,1,0 RC=60,0
l8;MidiDelayS( [[4 "e"ace ] ["f"bdf] : dgfc e"e"g"a ] )
l16;MidiDelayS( dagf efed cdc"b cdrr )
Time(49:1:0);l8;MidiDelayS( [[4 "e"ace ] ["f"bdf] : dgfc e"e"g"a ] )
l16;MidiDelayS( dagf efed cdc"b cdrr )*/
Time(73:1:0);
[ o8; v78
TK=X1 @114,0,0 p%.WR=0,-1000,!8 MidiDelayS( [4 ""eree "eere ] )
TK=2+X1 p%.WR=0,-1000,!8 MidiDelayS( [ ""eree "eere ] )
TK=X1 p%.T=0,-8000,!1 o9 [ "eree rere ] ]
Time(97:1:0);EP.T(0,100,!1*8);
[4 o8; v66
TK=X1 @15,0,0 p%.WR=0,-1000,!8 MidiDelayS( [4 ""eree "eere ] )
TK=2+X1 p%.WR=0,-1000,!8 MidiDelayS( [ ""eree "eere ] )
TK=X1 p%.T=0,-8000,!1 o9 [ "eree rere ] ]
Time(121:1:0);
[4 [o8; v86
TK=X1 @15,0,0 p%.WR=0,-2000,!8 MidiDelayS( [4 ""eree "eere ] )
TK=2+X1 p%.WR=0,-1000,!8 MidiDelayS( [ ""eree "eere ] ) :
TK=X1 v115 @113,0,0;p%.T=0,-8000,!2,8000,-8000,!2 o9 [ "eree rere ] ]
TK=X1 v115 @113,0,0;p%.T=-8000,0,!2,8000,-8000,!2 o9 [ "eree rere ] ]
//------------------------------------------------------------------------------
TR(7); CH(7);
Time(1:1:0);TK(X1) P.N(64,96,32,104,24,74,56,44,84);
Time(33:1:0); p%=0 v115 o7 @81,1,0 RC=60,0
l8;MidiDelayS( [[4 "e"ace ] ["f"bdf] : dgfc e"e"g"a ] )
l16;MidiDelayS( dagf efed cdc"b cdrr )
Time(49:1:0);l8;MidiDelayS( [[4 "e"ace ] ["f"bdf] : dgfc e"e"g"a ] )
l16;MidiDelayS( dagf efed cdc"b cdrr )
Time(73:1:0);v80; l8;@81,0,0 MidiDelayS( [[4 "e"ace ] ["f"bdf] : dgfc e"e"g"a ] )
l16;MidiDelayS( dagf efed cdc"b cdrr )
Time(89:1:0);v90; l8;@81,1,0 MidiDelayS( [[4 "e"ace ] ["f"bdf] : dgfc e"e"g"a ] )
l16;MidiDelayS( dagf efed cdc"b cdrr )
Time(97:1:0);v90; l8;@81,1,0 MidiDelayS( [4[4 "e"ace v-6]] )
Time(121:1:0);v90; l8; @81,0,0
v90; o7; MidiDelayS( [4[4 "e"ace ] [4"f"bdf] [4 "e"ace ] "d"f#"ad"c"e"g#c dgfc e"e"g"a ] )
Time(153:1:0);v115; MidiDelayS( [4[4 "e"ace v-6]][4[4 "e"ace v+6]] )
/*P.N(64,32,96,24,104,56,74,84,44);
Time(33:1:0); TK=0 p%=0 v98;q50;o6 @39,8,0 RC=020,0
l8;MidiDelayS( [[4 "e"ace ] ["f"bdf] : dgfc e"e"g"a ] )
l16;MidiDelayS( dagf efed cdc"b cdrr )
Time(49:1:0);l8;MidiDelayS( [[4 "e"ace ] ["f"bdf] : dgfc e"e"g"a ] )
l16;MidiDelayS( dagf efed cdc"b cdrr )*/
//------------------------------------------------------------------------------
TR(8); CH(8);
Time(1:1:0);TK(X1) EP.WR(110,45,!4)
/*[4 EP.WR(0,110,!4) e8.e8.e8 EP.WR(0,110,!6) "b8[3c8]
EP.WR(0,110,!4) d8.d8.d8 "a4"b4]*/
Time(17:1:0);l1; [4[e4e4e4]c4c4][4r1][7e4]r4[8e4]
Time(33:1:0);EP.WR(45,110,!4)l4; [eeeeeeccffffbbaa]
Time(41:1:0);o4;@40,16,0 BR=24 EP.T=110,0,!1*4 p%.T=0,-8000,!1^2 e0"e0""e1^1
Time(45:1:0);o4;BR=24 EP.T=110,0,!1*4 p%.T=0,-8000,!1^2 e0"e0""e1^1
Time(49:1:0);o3;@82,0,0 EP.WR(45,110,!4)l4; p%=0 [eeeeeeccffffbbaa]
Time(57:1:0);o3;@82,1,0 EP.WR(00,110,!4)l4; p%=0 [eeeeeeccffffbbaa]
Time(73:1:0);o3;@39,0,0 EP.WR(00,110,!4)l4; p%=0 [eeeeeeccffffbbaa]
Time(81:1:0);o3;@82,0,0 EP.WR(0,110,!4)l4; p%=0 [eeeeeeccffffbbaa]
Time(89:1:0);o3;@82,0,0 EP.WR(0,110,!4)l4; p%=0 [eeeeeeccffffbbaa]
//------------------------------------------------------------------------------
TR(9); CH(9);
Time(1:1:0);TK(X1) EP.WR(20,110,!4)
/*[4r1][ee"bcdd"a"b]*/
Time(17:1:0);l1; [4[e4e4e4]c4c4] [4r1][7e4]r4[8e4]
Time(33:1:0);l4;@82,0,0 [eeeeeeccffffbbaa]
Time(41:1:0);o4;@82,90,1 BR=24 EP.T=110,0,!1*4 p%.T=0,-8000,!1^2 e0"e0""e1^1
Time(45:1:0);o4; BR=24 EP.T=110,0,!1*4 p%.T=0,-8000,!1^2 e0"e0""e1^1
Time(49:1:0);o3;@88,0,0 EP.WR(20,110,!4) p%=0 l4; [eeeeeeccffffbbaa]
Time(89:1:0);o3;@88,0,0 EP.WR(20,110,!4) p%=0 l4; [eeeeeeccffffbbaa]
//------------------------------------------------------------------------------
TR(12); CH(12);
Time(1:1:0);TK(X1) EP.WR(110,45,!4)
/*[4 EP.WR(0,110,!4) e8.e8.e8 EP.WR(0,110,!6) "b8[3c8]
EP.WR(0,110,!4) d8.d8.d8 "a"b]*/
Time(17:1:0);l1; [4[e4e4e4]c4c4] [4r1][7e4]r4[8e4]
Time(33:1:0);@82,0,0 EP.WR(45,110,!4)l4; [eeeeeeccffffbbaa]
Time(41:1:0);o4;@40,16,0 BR=24 EP.T=110,0,!1*4 p%.T=0,-8000,!1^2 e0"e0""e1^1
Time(45:1:0);o4; BR=24 EP.T=110,0,!1*4 p%.T=0,-8000,!1^2 e0"e0""e1^1
Time(49:1:0);o3;@82,0,0 EP.WR(45,110,!4)l4; p%=0 [eeeeeeccffffbbaa]
Time(57:1:0);o3;@82,1,0 EP.WR(00,110,!4)l4; p%=0 [eeeeeeccffffbbaa]
Time(73:1:0);o3;@39,0,0 EP.WR(00,110,!4)l4; p%=0 [eeeeeeccffffbbaa]
Time(81:1:0);o3;@82,0,0 EP.WR(0,110,!4)l4; p%=0 [eeeeeeccffffbbaa]
Time(89:1:0);o3;@82,0,0 EP.WR(0,110,!4)l4; p%=0 [eeeeeeccffffbbaa]
//------------------------------------------------------------------------------
Function TD(X1){ [(X1) EP.T(76,92,!1^1,92,15,!1^1^1^1 ); [ e0c0"g1^1^1^1 ] ] }
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_03 = { @81,8,0; o7; BR(12); PC( 2 ,28,106,!4,88,!8,!12 );
p%.onTime(0,$250,!4, $250,-$2000,!8 ); `e8.r16e2 r16 p%(0); }
Str SD_1 = { P(64); 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); o4;l1; @(126,8,0); BR(20); Sub{ [p.T(0,127,!4,127,0,!8); r4. ]}
a0e1^1^1^1^1 r16p(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 [ r1 ] 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 = { V(120); 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);
BR(20); p.T(0,127,!1^1^1^2,127,0,!2); a0e1^1^1^1 p(64); [4 r1 ] }
Str SE2_3 = { V(120); 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); }
Str Up = { P.WR(24,106,!16,106,24,!16);V.T(75,120,!1^1^1^2.,120,60,!4);q(98); p%.T(-8000,8000,!1*4); "c0"g0c1^1^1^1 }
Str Dw = { P.WR(24,106,!16,106,24,!16);V.T(75,120,!4,120,00,!2.^8);q(98); p%.T(0,-6000,!1*2); "c0"g0c1. }
//------------------------------------------------------------------------------
TR(13); CH(13); // SE等
Time(1:1:0);
Str SESS = { @(127,110,01);o7;V.T(30,112,!2.,112,00,!1*9); Sub{ [8 P.T(98,30,!1,20,104,!1); r1r1 ] }
[8 rdbrcar"bgr"ggr"ffr"eer"d"br"c"ar < dbrcar"bgr"ggr"ffr"eer"d"br"c"a < ] }
Time(17:1:0);v82 [8c2.c4] RC=120,0 v60 [4c2.c4] RC=120,80 v82 c1c2^8r4.c1c1
Time(33:1:0); l48; v118; SESS Time(57:1:0); l48; v118; SESS Time(65:1:0); l48; v118; SESS
Time(121:1:0); l48; v118; SESS Time(153:1:0); l48; v118; SESS
//------------------------------------------------------------------------------
TR(14); CH(14); // SE等
Time(1:1:0);@120,0,0 BR=48 Time(8:1:0);o3;v80;SE_0h Time(16:1:0);o3;v98;SE_0h
Time(28:1:0);v98 o5;SE_0 Time(32:1:0);o3;SE_0h Time(40:1:0);o3;SE_0h Time(48:1:0);o3;SE_0h
Time(56:1:0);o3;SE_0h Time(60:1:0);o3;SE_0h Time(64:1:0);v125;EP=125 BR=48;o7;SE_0
Time(68:1:0);v98EP=120; BR=48;o7;SE_0
Time(72:1:0);v98 o3;SE_0h Time(96:1:0);v98 o3;SE_0h
Time(104:1:0);v98 o3;SE_0h Time(108:1:0);v98 o6;SE_0 Time(112:1:0);v98 o3;SE_0h
Time(120:1:0);v125 o3;SE_0h Time(152:1:0);v125 o3;SE_0h Time(168:1:0);v125 o5;SE_0
//------------------------------------------------------------------------------
TR(15); CH(15); // SE等
Time(1:1:0); BR=48 @127,8,0 o6;v32;SE_1
Time(17:1:0);@127,8,0 o6;v60;SE_1
Time(33:1:0);@127,8,0 o6;v72;SE_1
Time(65:1:0);@127,8,0 o6;v72;SE_1 Time(97:1:0);@127,8,0 o6;v65;SE_1
Time(113:1:0);@127,8,0 o6;v65;SE_1 Time(117:1:0);@127,9,0 o6;v65; SE_2
Time(121:1:0);@127,8,0 SE_1 Time(153:1:0);@127,8,0 SE_1
//------------------------------------------------------------------------------
TR(16); CH(16); // SE等
Time(1:1:0); @(127,110,1);
Time(153:1:0);CHO.T(0,80,!1*8,80,40,!1*8) [16 g0c2 g2 v-5] [4 g0c2 g2 v-10] [ g0c2 g2 v-4]
//------------------------------------------------------------------------------