//_------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.37)
//_------------------------------------------------------------------------------
MetaText = {" Charon… ( Full Remake & Long,Ver ) = Psychedelic-Trance "};
//↑:タイトル
Copyright = {" ＭＭ GMで作成中 Ver.3.35 "}; //著作権表示
//_一応、曲の説明？----------------------------------------------------------------------------------
/* …オリジナル(以後:自) 作曲 投稿 No.12 … 暫定完了
[ Charon… ( Full Remake & Long,Ver ) ]
※ 注意 ※
説明欄が長くなりました…すみません(汗; ...ですので読むのが面倒だなぁ…と思う人は説明欄を飛ばして
も構いませんし、削除しても構いません。
初めての御方は「初めまして、宜しくお願い致します」 m(_ _)m
皆様、こんにちは、ご無沙汰しておりました、[ ＭＭ(えむえむ) ]と言う者です。
そして、ダウンロードして頂き誠に有り難うございます m(_ _)m
ＭＭは生きております…生きておりましたが、震災の影響は少なかったのですが他の所で色々と良くない事が
起きてしまいました…今は大分落ち着いて普段の生活に戻ってます。
震災の影響で大変な被害を逢われ、そして亡くなられた方々に心からお悔やみ申し上げます…
言葉でしか返せないのが申し訳の無い気持ちで沢山なのですが…少なからずですが私も義援金や募金等を行っ
てきました。
早く日本が良くなる事を願いつつ、湿っぽい話は一旦おきまして、曲の説明に入ろうと思います m(_ _;)m
今回は、自作曲の[ Charon… ]を[ ＴＷＭ２ ]で[ フルリメイク ]してみました。
時事的には少し不謹慎かもしれませんが、よりサイケデリックな世界観を目指してみました。
それに伴って、原曲にアレンジを加えて、長くしてみましたが…最後は何かやけっぱちになってしまったように
も感じます…伸ばそうか区切ろうか…もっと凝らしたアウトローにした方が良いか…等々、思っている内に、何か
収拾がつかなくなってきました…ゴメンナサイ... m(_ _;)m
やっぱり、最後はもう…、詰めすぎたかな…と思います (=д=;)>
何かパッとフレーズが浮かんだら改作していこうと思います。
…と言う、これ以上上手く表現出来なかったよ…、と言う、言い訳を言ってみました（苦笑;
まだまだ処理の仕方といい、音色の付け方といい、拙い部分は有り、展開や終わり方がざっくりとした感じに
なってしまいましたが、楽しく聴いて頂けたら作り手としては本当に嬉しい限りです
それでは、お粗末ながらも長文の御説明を最後まで御付き合いして頂き、誠に有難う御座います m(_ _ )m
それでは、失礼致します!! (´・ω・`)ﾉｼ
《 更新記録 》
・2011/06/05 … Ver.3.25 一先ず全体の流れが出来上がり、通常版より長めで仕上がっています
( 通常版 … [ 2:00～3:30 ] を目安に作っております )
細かい修正もしたけど…どうでしょうか？ (汗;
《 その他 》
・使用音源等 … 「ＴＷＭ２ ( 推奨 ) 」・ ヘッドホン ( Victor社の[ HP-RX500 ] ) で制作
出来れば、イヤホンやヘッドホンで聴いて頂けると嬉しいです
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(UD1,UD2,L){ PitchBend.onTime(UD1,UD2,L,0,0,1); } // ベントを簡単に纏めておく(時間指定)
Function BNW(UD1,UD2,L){ PitchBend.onNoteWave(UD1,UD2,L,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 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*/
$Y{n27,}/*ﾊｲﾀﾑ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); RC(5,0);EV(120,120); Time(1:1:0);
TR(20); Time(0:1:8); CH(10); BR(24); BT(0,-250,!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(120,4,16,48); RC(120,120);EV(120,120);
//------------------------------------------------------------------------------
Rythm{(TR(10); //トラックとチャンネルをリズムモード（10）に設定
#S1 = { v.onNote(80,55,85,55); } #S2 = { v.onNote(50,35,55,35); }
#S4 = { v.onNote(40,25,37,22); }
)
//_ｼｪｲｶｰ
{{
(Time(1:1:0)); v(10); l16; [8 rrSr rrSS rrSr rrSS rrSr rrSS rrSr rrSS v+8]
(Time(17:1:0));v(64); [8 rSSr SSrS rSSr SSrS rSSr SSrS rSSr SSrS ]
(Time(49:1:0));v(64); [8 rSSr SSrS rSSr SSrS rSSr SSrS rSSr SSrS ]
(Time(65:1:0));v(64); [8 SrSr SrSS SrSr SrSS SrSr SrSS SrSr SrSS ]
(Time(81:1:0));v(64); [8 rSSr SSrS rSSr SSrS rSSr SSrS rSSr SSrS ]
(Time(129:1:0));(v.N(72,50,70,46);)l16; [8 SrSr SrSS SrSr SrSS SrSr SrSS SrSr SrSS ]
(Time(145:1:0));[[ (v.N(65,45,60,46);) [ SrSr : SrSS ] v(50); S4
(v.N(65,45,60,46);) [ SrSr : SrSS ] : v(40); S4 ] SrSS ]
(Time(153:1:0));(v.N(72,50,70,46);)l16; [8 SrSr SrSS SrSr SrSS SrSr SrSS SrSr SrSS ]
}
//_ﾊﾝﾄﾞ
(Time(1:1:0)); v(100); l16;
(Time(17:1:0)); [8 [4 r4h4 ] ]
(Time(49:1:0)); [8 [4 r4h4 ] ]
(Time(65:1:0)); [4 [7 r4h4 ] r4h8h8 ]
(Time(81:1:0)); [4 [7 r4h4 ] r4h8h8 ]
(Time(117:1:0)); [3 [7 r4h4 ] r4h8h8 ]
(Time(129:1:0)); [4 [7 r4h4 ] r4h8h8 ]
(Time(145:1:0)); v(90); [[8 r4 : h8r8 ] h^hr ]
(Time(153:1:0)); /*v(110); [[8 r4 : h8r8 ] h^hr ] [ [4 v(105); h8. v-6 h8. v-6 h8 v100;h4 : rrhr ] hhrh ] */
[4 [7 r4h4 ] r4h8h8 ]
}
//_ｵｰﾌﾟﾝ&ｸﾛｰｽﾞﾊｲﾊｯﾄ+α
(Time(1:1:0)); v(100); l16;
(Time(17:1:0)); (v.N(88,75,90,70);)[4 [8 ppHr ] ]
(Time(25:1:0)); (v.N(88,75,90,70);)[4 [8 ppOr ] ]
(Time(49:1:0)); [16 [4 #S2; : HrO^ ] H^OO ]
(Time(65:1:0)); #S1; [8 [8 ppHr ] ]
(Time(81:1:0)); [ #S1; [4 ppO^ ppO^ prOr prOr : ppO^ ppO^ prOO pO^O ] ppOr ppOr OOrO OrOO ]
(Time(113:1:0)); [16 [4 #S2; : HrO^ ] H^OO ]
(Time(129:1:0)); [12 [4 #S1; : HrO^ ] H^OO ]
(Time(145:1:0)); [4 [3[4 #S1; : HrO^ ] O^^r ] | [4 #S2; : HrO^ ] H^OO ] [8 [4 #S1; : HrO^ ] H^OO ]
//Track10のライン
(TR(20);)
//_ｼﾝﾊﾞﾙ～
{{
(Time(1:1:0)); v(70); l16;
(Time(16:1:0)); r2 l48v48 [24 O v+4t-1] l16;t0;
(Time(17:1:0)); v(125); C0D0d1 v-45 [8 C0D5 v-10t-1] t(0);
(Time(24:1:0)); r2 l48v48 [24 O v+4t-1] l16;t0;
(Time(25:1:0)); v(125); C0D0d1 v-45 [8 C0D5 v-10t-1] t(0);
(Time(48:1:0)); r2 l48v48 [24 O v+4t-1] l16;t0;
(Time(49:1:0)); v(125); C0D0d1 v-45 [8 C0D5 v-10t-1] t(0);
(Time(56:1:0)); r2 l48v48 [24 O v+4t-1] l16;t0;
(Time(57:1:0)); v(125); C0D0d1 v-45 [8 C0D5 v-10t-1] t(0);
(Time(64:1:0)); r2 l48v48 [24 O v+4t-1] l16;t0;
(Time(65:1:0)); v(125); C0D0d1 v-45 [8 C0D5 v-10t-1] t(0);
(Time(80:1:0)); r2 l48v48 [24 O v+4t-1] l16;t0;
(Time(81:1:0)); v(125); C0D0d1 v-45 [8 C0D5 v-10t-1] t(0);
(Time(89:1:0)); v(125); C0D0d1
(Time(96:1:0)); r2 l48v48 [24 O v+4t-1] l16;t0;
(Time(97:1:0)); v(125); C0D0d1
(Time(105:1:0)); v(100); C0D0d1
(Time(128:1:0)); r2 l48v48 [24 O v+4t-1] l16;t0;
(Time(129:1:0)); v(125); C0D0d1 v-45 [8 C0D5 v-10t-1] t(0);
(Time(141:1:0)); v(125); C0D0d1
(Time(144:1:0)); r2 l48v48 [24 O v+4t-1] l16;t0;
(Time(145:1:0)); v(125); C0D0d1 v-45 [8 C0D5 v-10t-1] t(0);
(Time(152:1:0)); r2 l48v48 [24 O v+4t-1] l16;t0;
(Time(153:1:0)); v(125); C0D0d1 v-45 [8 C0D5 v-10t-1] t(0);
(Time(161:1:0)); v(125); C0D0d1 v-45 [8 C0D5 v-10t-1] t(0);
(Time(168:1:0)); r2 l48v48 [24 O v+4t-1] l16;t0;
(Time(169:1:0)); v(125); C0D0d1 v-45 [8 C0D5 v-10t-1] t(0);
}
//_何かアクセントにチョイ足し
(Time(1:1:0)); v(70); l16;
(Time(65:1:0)); v(75); [ [8 r4 : G0dr8. v+5] G0d^G0dr [8 r4 : G0dr8. v-5] G0d^G0dr ]
(Time(65:1:0)); v(50); [ [8 r4 : sr8. v+5] s^sr [8 r4 : sr8. v-5] s^sr ]
(Time(97:1:0)); v(75); [ [8 r4 : Yr8. v+5] Y^Yr [8 r4 : Yr8. v-5] Y^Yr ]
(Time(105:1:0)); v(40); [ [8 r4 : G0dr8. v+5] G0d^G0dr [8 r4 : G0dr8. v-5] G0d^G0dr ]
(Time(145:1:0)); v(60); [ [8 r4 : G0dr8. v+5] G0d^G0dr [8 r4 : G0dr8. v-5] G0d^G0dr ]
}//Track20まで
(TR(21);)
//_ｷｯｸ(ﾊﾞｽﾄﾞﾗ)+ﾀﾑ系
{{
(Time(1:1:0)); l16; v(30); (Sub){ [64 k4 v+1] }
(Time(17:1:0)); [8 [7 k4 ] k8k8 ]
(Time(33:1:0)); l16; v(30); [4 [3 k4 v+1][ k8 v+1][3 k4 v+1] [4 k v+1] ] [ [7 k8k8 v+1 ] : [4 k v+1] ] [ [6 k96 ] r ]
(Time(45:1:0)); [32 k ] (REV.T(5,100,!1^1);CHO.T(0,50,!1^1); BR(48); p%.T(-250,-8000,!1.,-8000,200,!2);) [48 K48K48 v-1]
(Time(49:1:0)); (BR(24); RC(5,0); p%(-250);) (Sub){ v(110); [8 K1r1r1r1 ] } [8v(115); [7 k4 ] k8k8 ]
(Time(65:1:0)); v110; [4 k8.k8.k8 k4. rkkr k8.k4 k32k32k8 k48k48k48k8. k8.k8.k8 k4 r [ k32]k8.k8.kk k4kk rk32k32k32k32r ]
(Time(81:1:0)); [8 v(115); [7 k4 ] k8k8 ]
(Time(97:1:0));(RC(60,0);) k1
(Time(105:1:0));(RC(60,0);)v(100); k1
(Time(117:1:0));(RC(08,20);)v(115); [6 [7 k4 ] k8k8 ]
(Time(129:1:0));v(115); [6 [7 k4 ] k8k8 ]
(Time(145:1:0));v(125); [ [3 [3 k^^r ] r4 ] | [4 : k^^r ] : k^k^ ] kkkk
(Time(153:1:0));v(120); [6 [7 k4 ] k8k8 ] (RC(60,0);) k1
/* [ [3 [3 k^^r ] r4 ] | [4 : k^^r ] : k^k^ ] kkkk [ [4 v(120); k8. v-5 k8. v-5 k8 v100 k4 v125 : kkrk ] kkkk ] */
(Time(169:1:0)); v(100);(RC(100,0);) [ [7 k4 v-8] k8k8 ]
}
//_ｽﾈｱ(ｺﾞｰｽﾄ等)
(Time(1:1:0)); v(55); l16;
(Time(144:1:0)); r2 l32v32 [16 s v+4t-1] l16;t0;
(Time(152:1:0));v(80); r2 l32v32 [16 s v+4t-1] l16;t0;
(Time(153:1:0));
/*[ rrsr ssrs rssr srrr rrsr ssrs rssr srrr ] r1r1r1r1
[ (v.N(92,80,90,78);) [ rwwr wrwr rwwr wrrr : rwwr wrwr rwwr wrrr ] v90 ssrs rrsr srrr v90[12 s48 v+2t-1]t(0) ] */
}//Track21まで
}//Rythmまで
TR(22); CH(11); //ﾊﾞｽﾄﾞﾗ（Elec-Dr）
Time(1:1:0);
Time(47:1:0); EPC(60,110,!1*2); BR(36);p%.T(-8160,8160,!1*2); REV(60); [7 "g^gg ] g^g^
Time(97:1:0); BR(32);v=65 [4[7 r4g4 ] r4g8g8 ]
//_ﾄﾗｯｸｽﾍﾟｰｽ = 基本設定 = -------------------------------------------------------------------------------------------------
TR(01); CH(01); Time(0:2:16); Tempo(90); @(082,110,0); RC( 2, 36); Vm(100,3,16,0); q(075); P(096); EV(100,100); //
TR(02); CH(02); Time(0:2:16); @(088, 0,0); RC( 12, 36); Vm(100,3,16,0); q(075); P(032); EV(100,100); //
TR(03); CH(03); Time(0:2:16); @(039, 0,0); RC( 20, 88); Vm(100,3, 8,0); q(050); P(064); EV(100,100); //
TR(04); CH(04); Time(0:2:16); @(082, 1,0); RC( 0, 80); Vm(110,3, 2,0); q(088); P(064); EV(100,100); //
TR(05); CH(05); Time(0:2:16); @(005, 00,0); RC(120, 0); Vm(120,7, 8,0); q(098); P(024); EV(100,100); //
TR(06); CH(06); Time(0:2:16); @(081, 8,0); RC(120, 0); Vm(120,6, 1,0); q(098); P(106); EV(100,100); //
TR(07); CH(07); Time(0:2:16); @(005, 00,0); RC(120, 64); Vm(120,7, 8,0); q(098); P(040); EV(100,100); //
TR(08); CH(08); Time(0:2:16); @(082,090,1); RC(100,100); Vm( 98,3, 1,0); q(098); P(064); EV(100,100); //
TR(09); CH(09); Time(0:2:16); @(097, 0,0); RC( 20, 80); Vm( 72,3,16,0); q(075); P(025); EV(100,100); //
TR(12); CH(12); Time(0:2:16); @(109, 0,0); RC( 20, 80); Vm( 82,3,16,0); q(075); P(102); EV(100,100); //
TR(13); CH(13); Time(0:2:16); @(001, 0,0); RC( 10, 88); Vm(120,5, 1,0); q(098); P(064); EV(100,100); //
TR(14); CH(14); Time(0:2:16); @(001, 0,0); RC( 10, 88); Vm(120,5, 1,0); q(098); P(064); EV(100,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(100,100); //
TR(16); CH(16); Time(0:2:16); @(001, 0,0); RC( 10, 88); Vm(120,5, 1,0); q(098); P(064); EV(100,100); //
//_ﾄﾗｯｸｽﾍﾟｰｽ2 = 各種設定 = ------------------------------------------------------------------------------------------------
TR(1); CH(1); Int TKC = (0) // TKC = (χ) の χ をイジるとお好みのキーに変えられます♪ 本家のキーは [ 0 ] です♪
Time(1:1:0); Tempo(145); TK(TKC);
Time(9:1:0); V.T(30,105,!1*32); [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(17:1:0); [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(33:1:0); V.T(30,105,!1*16); [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(49:1:0); v75; [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(65:1:0); TK(TKC-2); v75; [ [4 [ e^e^^ : e^e ] : e^d ] efg ] | v80; [ [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(81:1:0); TK(TKC); v75; [ [4 [ e^e^^ : e^e ] : e^d ] efg ] | v80; [ [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(97:1:0); V.T(30,105,!1*16); [8 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(129:1:0); Tempo(142); [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(145:1:0); CD( 2 ,75,110,!2,65,!4.,!8 );q98 Unison({ [ a1`c1g1f+2d4e4 ] },-12)
Time(153:1:0); EV(100,105);q75; [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
/* [4 [4 [ e^e^^ : e^e ] : e^d ] efg ] */
//------------------------------------------------------------------------------
TR(2) ;CH(2); // ﾍﾞｰｽ
Time(1:1:0); TK(TKC);
Time(9:1:0); V.T(30,105,!1*32); [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(17:1:0); [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(33:1:0); V.T(30,105,!1*16); [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(49:1:0); v80; [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(65:1:0); TK(TKC-2); v80; [ [4 [ e^e^^ : e^e ] : e^d ] efg ] | v80; [ [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(81:1:0); TK(TKC); v80; [ [4 [ e^e^^ : e^e ] : e^d ] efg ] | v80; [ [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(97:1:0); V.T(30,105,!1*16); [8 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(129:1:0); [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
Time(145:1:0); CD( 2 ,75,110,!2,65,!4.,!8 );q98; Unison({ [ a1`c1g1f+2d4e4 ] },-12)
Time(153:1:0); EV(100,105);q75; [4 [4 [ e^e^^ : e^e ] : e^d ] efg ]
/* [4 [4 [ e^e^^ : e^e ] : e^d ] efg ] */
//------------------------------------------------------------------------------
TR(3); CH(3); // ﾍﾞｰｽ
Time(1:1:0); TK(TKC);
Time(17:1:0); v.Random(15);Slur(0); P.N(40,64,88,88,64,40);
[ EPC(30,105,!1^1^1); [8 [4 "ge^e16&"g16 ]] ]
Time(49:1:0); [8 [4 "ge^e16&"g16 ] ]
Time(65:1:0); TK(TKC-2); [4 [4 "ge^e16&"g16 ] ] [4 [4 "ge^e16&"g16 ] ]
Time(81:1:0); TK(TKC); [4 [4 "ge^e16&"g16 ] ] [4 [4 "ge^e16&"g16 ] ]
Time(113:1:0); TK(TKC); EPC(30,105,!1*8); [4 [4 "ge^e16&"g16 ] ] [4 [4 "ge^e16&"g16 ] ]
Time(129:1:0); TK(TKC); EPC(30,105,!1*8); [4 [4 "ge^e16&"g16 ] ]
Time(145:1:0);
Time(161:1:0); EPC(30,105,!1*8); [4 [4 "ge^e16&"g16 ] ]
//------------------------------------------------------------------------------
TR(4); CH(4); // ﾍﾞｰｽ
Time(1:1:0); TK(TKC);
Time(17:1:0);EP.WR(25,90,!8,90,25,!8); CHO.WR(10,120,!4);REV.WR(0,45,!4);P.WR(127,0,!16,0,127,!16);
Unison({ [64 e4 ] },-12)
Time(49:1:0); V=120 @82,1,0 [64 EP.T(0,120,!8.); e4 ]
Time(65:1:0); TK(TKC-2); V=105 @82,110,0 [8 [4 EP.T(0,90,!8.); e4 ] ] [8 [4 EP.T(0,90,!8.); e4 ] ]
Time(81:1:0); TK(TKC); V=120 @82,1,0 [8 [7 EP.T(0,90,!8.); e4 ] EP.T(0,90,!8.); c4 ]
Time(129:1:0); TK(TKC); V=120 @82,1,0 [8 [7 EP.T(0,90,!8.); e4 ] EP.T(0,90,!8.); c4 ]
Time(145:1:0); EP.WR(25,78,!8,78,25,!8);@82,110,2 o3; [ a2.r4`c2.r4g2.r4 f+2d4e4 ]
Time(153:1:0); V=120 @82,1,0 [8 [7 EP.T(0,90,!8.); e4 ] EP.T(0,90,!8.); c4 ]
//------------------------------------------------------------------------------
TR(5); CH(5); // Melody
Time(1:1:0); TK(TKC);
Time(17:1:0); CD( 2 ,127,60,!2,0,!2);P.N(0,127,64,127,0,64); v.Random(15);
MidiDelayS( [4 `c1^1^1^2a2 ] `c4^1^1^2 )
Time(49:1:0);o6; P.N(0,127,64,127,0,64);
[ v100 [16 `a`e v-8] :
v100 [13 `a`e v-8] MidiDelayS( [4 [4 `a32 v+7 ] ] ) r4 ]
v100 [6 `a`e v-10] `g`g v92 `f#`d`e | `f#4^8`g^4 `f`e `d`c`d`e2
Time(65:1:0);
TK(TKC-2);
v100 [13 `a`e v-8] MidiDelayS( [4 [4 `a32 v+7 ] ] ) r4 v100 [16 `a`e v-8]
v100 [13 `a`e v-8] MidiDelayS( [4 [4 `a32 v+7 ] ] ) r4 v100 [16 `a`e v-8]
Time(81:1:0); v100
TK(TKC);
v100 [13 `a`e v-8] MidiDelayS( [4 [4 `a32 v+7 ] ] ) r4 v100 [16 `a`e v-8]
v100 [13 `a`e v-8] MidiDelayS( [4 [4 `a32 v+7 ] ] ) r4 v100 [16 `a`e v-8]
Time(97:1:0);
v100 [13 `a`e v-8] MidiDelayS( [4 [4 `a32 v+7 ] ] ) r4 v100 [16 `a`e v-8]
Time(129:1:0); v100 o5 @4,0,0
EPC(60,120,!1); v.Random(15); P(48); RC(100,30);
MidiDelayS( [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(145:1:0); v-4
[ `a`e`a`e`a`e`a `e8^2.r4 `g`d`g`d`g`d`g `f`e`d`c`d `e2 ]
Time(153:1:0); EPC(60,120,!1); v100
MidiDelayS( [3 `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 ] )
MidiDelayS( `a`e`a`e`a`e`a`e `a`e`a`e
Sub{ `g`g`f#`d `e `f#4^8`g^4 `f`e `d`c`d`e2 }
r``g``d`b`e ^`cbg^rfec^"a"g"e^^ )
Time(169:1:0);
v100 [16 `a`e v-8]
/* [4 `a`e`a`e`a`e`a`e `a`e`a`e`g`g`f#`d`ec
`f#4^8`g^4 `f`e `d`c`d`e2 ] */
//------------------------------------------------------------------------------
TR(6); CH(6); // ッポ～ン…
Time(1:1:0); TK(TKC-10);
Time(17:1:0); CD( 2 ,118,60,!2,0,!2); P.WR(127,0,!8,0,127,!8);
MidiDelayS( [8 `f1^1^1^1 `f1^1^1^1 ] )
Time(81:1:0); MidiDelayS( [8 `f1^1^1^1 `f1^1^1^1 ] )
Time(153:1:0); MidiDelayS( [5 `f1^1^1^1 ] )
//------------------------------------------------------------------------------
TR(7); CH(7); // ｷｰﾝとかｺｰﾄﾞとか
Time(1:1:0); TK(TKC);
Time(49:1:0); P.WR(0,127,!4,127,0,!4); v120; MidiDelayS( [4 `c1^1^1^2 a2 ] `c4^1^1^2 )
Time(105:1:0); RC(10,40);
@(051,0,0); v(082); l4; q(098); M(24); P(106);
EPC(20,90,!1*4);V=80 Sub{o4; Unison({ [4 e1^1^1^2 g2 ] EPC(100,30,!1^1^2); e1^1^2 },-12) }
o6; [4 "g0"b0e1^1^1^2 "b0d0g2 ] EPC(100,30,!1^1^2); "g0"b0e1^1^2
Time(145:1:0);o4; CD( 2 ,75,110,!2,65,!4.,!8 );V=105; Unison({ [ a1`c1g1f+2d4e4 ] },-12)
Time(153:1:0);CD( 2 ,80,102,!2,65,!4.,!8 );
Sub{o3; Unison({[4 a1`c1a1g2d4e4 ]},12) }o5;[4 c0e0a1 e0a0`c1 c0e0a1 c0e0g2 "g0"a0d4 "g0"b0e4 ]
CD( 2 ,75,85,!2,00,!1^1,!16);Sub{o5; c0e0a1^1 }o3;Unison({ a1^1},24)
/* [4 EP.T(98,30,!1*4); "g0"b0e1^1^1^2 EP.T(98,30,!1*4) "b0d0g2 ] */
//------------------------------------------------------------------------------
TR(8); CH(8); // ｺｰﾄﾞ
Time(1:1:0); TK(TKC);
Time(105:1:0); TK(TKC); RC(10,40);
@(090,0,0);v(075);V=80 l4; q(098); M(24); P(022);
EPC(20,90,!1*4); Sub{o4; Unison({ [4 e1^1^1^2 g2 ] EPC(100,30,!1^1^2); e1^1^2 },-12) }
o5;[4 "b0e1^1^1^2 d0g2 ] EPC(100,30,!1^1^2); "b0e1^1^2
Time(145:1:0);o3;@(072,0,0); CD( 2 ,75,110,!2,65,!4.,!8 );V=105; Unison({ [ a1`c1g1f+2d4e4 ] },-12)
Time(153:1:0);@(055,0,0); CD( 2 ,75,90,!2,65,!4.,!8 );
Sub{o2; Unison({[4 a1`c1a1g2d4e4 ]},24) }o6;[4 c0e0a1 e0a0`c1 c0e0a1 c0e0g2 "g0"a0d4 "g0"b0e4 ]
CD( 2 ,75,85,!2,00,!1^1,!16); Sub{o6; c0e0a1^1 }o2; Unison({ a1^1 },24)
/*[4 "g0"b0e1^1^1^2 "b0d0g2 ]
[4 c0e0a1 e0a0`c1 c0e0a1 c0e0g2 "g0"a0d4 "g0"b0e4 ] */
//------------------------------------------------------------------------------
TR(9); CH(9); // ちょいっとパカしてみる
Time(1:1:0); TK(TKC); EPC(30,80,!1*8);
[ 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); RC(2,24);
[ 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(81:1:0);
l16;o6; @82,1,0 q50; RC(10,10);EV(90,90); P.N(0,127,64,64,0,127);
v100;
[ 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(97:1:0); RC(100,10); EV(48,90);
[ 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(129:1:0); RC(20,80);o5 @(097, 0,0) EV(54,90);
[ 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(145:1:0); EV(75,95);
[ 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(153:1:0); RC(20,80);o5 @(097, 0,0) EV(54,90);
[ 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(12); CH(12); // ちょいっとパカしてみる
Time(1:1:0); TK(TKC); EPC(30,80,!1*8);
[ 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); RC(2,24);
[ 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(65:1:0); /* TK(TKC-2); v+25
[ 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(81:1:0);
l16;o6; @82,90,1 q50; RC(10,10);EV(90,90); P.N(127,0,64,64,127,0);
v100;
[ 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(97:1:0); RC(100,10); EV(48,90);
[ 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(129:1:0); RC(20,80);o4 @(109, 0,0) EV(54,90);
[ 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(145:1:0);EV(75,95);
[ 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(153:1:0); RC(20,80);o4 @(109, 0,0) EV(54,90);
[ 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); // SE等
Time(1:1:0); // SE等の素材置き場♪お好きなSEを色々工夫してみると良いモノが見つかったり無かったり…？（笑
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);v(105); 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); v(105); 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,!1^1^1^2.,120,60,!4);q(98); p%.T(8000,-8000,!1*4); "c0"g0c1^1^1^1 }
Time(1:1:0); @(123,2); M(32); TD(2);
Time(16:1:0); TD(1);
Time(24:1:48); EP=98; SE_0 Time(32:1:48);BR(48); SE_0
Time(45:1:0);@(82,110,0); EPC(45,120,!1*4);BR(48);v98;o4; Up
Time(56:1:48);BR(0); SE_0
Time(65:1:48);BR(0);@(123,2); TD(2);
Time(88:1:48); EP=120;BR(36); SE_0h Time(96:1:48); EP=120;BR(36); SE_0h
Time(104:1:48); EP=80;BR(36);o6; SE_0
Time(128:1:48); EP=112;BR(48);o6; SE_0
Time(140:1:48); EP=112;BR(48);o6; SE_0h Time(144:1:48); EP=110;BR(36);o6; SE_0h
Time(152:1:64); EP=114;BR(48);o6; SE_0h
Time(153:1:24); V=125 @(123,1);o6;v=96 SE2_1
Time(160:1:48); EP=112;BR(48);o6; SE_0h
Time(168:1:48); EP=120;BR(48);o6; SE_0h
//------------------------------------------------------------------------------
TR(14); CH(14); // SE等
Time(1:1:0);
Str TNM = { 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(1:1:0); r2 @(123,3); BR(32); TNM
Time(8:1:0); TNM Time(16:1:0); TNM Time(24:1:0); TNM
Time(69:1:0); SE2_1
Time(77:1:0); BR(48);v120; Up
Time(81:1:0); EP=92;BR(36); @(123,3);o6; SE2_1 Time(89:1:0); @(123,3);o6; SE_1
Time(97:1:0); @(123,1);o6;v=75 SE_1
Time(125:1:0);v=125 V=125 @(123,3,0); BR(32); TNM
Time(141:1:0);v=125 V=125 @(123,1,0); o6; SE_1 Time(144:3:0);V.T(85,20,!1^4)
Time(149:1:24);v=125 V=125 @(126,7,0); BR(32);o2; v=98; SE2_2
Time(153:1:0);v=125 V=125 @(123,1,0);o6; SE_1
Time(161:1:0);v=125 V=125 @(123,1,0);o6; SE_1
Time(169:1:0);v=76 @(123,1,0);o6; SE_1
//------------------------------------------------------------------------------
TR(15); CH(15); // SE等
Time(1:1:0); @(123,1); BR(32); r1+1+1+1 SE_1
Time(8:1:0); r1+1+1 SE_1 Time(17:1:0); SE_1
Time(25:1:0); SE_1 Time(65:1:0); SE_1
Time(80:1:48);BR(0); SE_0
Time(81:1:0); @(123,1); SE_1 Time(89:1:0); @(123,1); SE2_1
Time(97:1:0); @(123,1);o6;v=75 SE2_1
Time(137:1:0); TK(TKC); p%(0); @(002,0,0); v(110); o4;l8;q(098);M(24);P(072);
EPC(45,110,!1); v.Random(15); P(88); RC(100,30);V(104);
[ `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(145:1:0); V(115); [ r1 `a`e`a`e`a`e`a`e8^2^8 `d`g `f`e`d`c`d `e2 ]
Time(153:1:0); EPC(45,110,!1);V(104); [ `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(16); CH(16); // SE等
Time(1:1:0);
Time(16:1:48);BR(0); EP=98; SE_0
Time(48:1:48);BR(12); EP=98; SE_0h Time(64:1:48);BR(0); EP=98; SE_0h
Time(129:1:0); TK(TKC); @(005, 00,0); RC(120, 64); Vm(100,7, 8,0); q(098);V=98
P.WR(0,127,!4,127,0,!4); v120; MidiDelayS( [4 `c1^1^1^2 a2 ] `c4^1^1^2 )
Time(153:1:0);MidiDelayS( [4 `c1^1^1^2 a2 ] `c4^1^1^2 )
//------------------------------------------------------------------------------