//_------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.37)
//_------------------------------------------------------------------------------
TrackName = {" 《 彷徨の樹海 》 - 不協和音 ( Dissonance ) "};
//↑:タイトル
Copyright = {" ＭＭ "}; //著作権表示
MetaText = {" GMで作成中 Ver.3.1 "} //説明・コメントなど
//_一応、曲の説明？-------------------------------------------------------------------------------
/* …オリジナル(以後:自) 作曲 投稿№ 9 … 暫定完了
[ 《 彷徨の樹海 》 - 不協和音 ( Dissonance ) ]
※ 注意 ※
初めに言っておきます…説明欄が長くなりました、ですので読むのが面倒だなぁ…と思う人は説明欄を飛ば
しても構いませんし、削除しても構いません。
初めての御方は「初めまして、宜しくお願い致します」 m(_ _)m
皆さんこんにちは、[ ＭＭ(えむえむ) ]と言う者です。
そして、ダウンロードして頂き誠に有り難うございます m(_ _)m
…自分で言うのも何ですが…これは少し情緒不安定になりますね...(^^;
今回は、トコトン【 不安定さ 】を意識してみました。ですので、【 不協和音 】を重視して制作してみま
した。因みに、読み方は [ 彷徨 ] と書いて [ さまよい ]・[ 樹海 ] と書いて [ もり ] と読んで下さい、
回りくどいかもしれませんが… m(_ _;)m すみません...
…気持ちは [ 現代音楽的な ]・[ 不協和音 ] の様な感じを目指して作ってみましたが、どうでしょうか…？
うぅ～ん、しかし… [ 現代音楽 ] にしては意味を少し履き違えている様な気も致します… (^^;)>
ジャンルがイマイチ定まらないので、 [ 不協和音 ( Dissonance ) ] と言う風にしてみましたが、こういう
ジャンルも有りなのでしょうか？ (^w^; ｱｾｱｾ
聴いた感じだと、[ ゲーム音楽 ] でも良い様な気も致します（笑
…と思ったのですが、これを機にループが出来る様に [ ゲーム音楽系ＢＧＭ ] にしてみました。最後は突然消
える感じになってしまいましたが、一応そういう仕様と言う事で… (=ω=;)> (←ｺﾗｺﾗ
まだまだ処理の仕方といい、音色の付け方といい、拙い部分は有り、展開や終わり方がざっくりとした感じに
なってしまいましたが、楽しく聴いて頂けたら作り手としては本当に嬉しい限りです
それでは、お粗末ながらも長文の御説明を最後まで御付き合いして頂き、誠に有難う御座います m(_ _ )m
それでは、失礼致します!! (´・ω・`)ﾉｼ
《更新記録》
・09/06/22 …Ver.3.1 一先ず全体の流れが出来上がり、通常版にしては長め…
( 通常版改正･1 … [ 2:00～3:30 ] を目安に作っております )
一応、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,Len){
PitchBend.onTime(0,UD,Len,0,0,1); } // ベントを簡単に纏めておく(時間指定)
Function BNW(UD,Len){
PitchBend.onNoteWave(0,UD,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{n53,}/*ﾗｲﾄﾞbell*/ $G{n51,}/*ﾗｲﾄﾞｼﾝﾊﾞﾙ1*/ $R{n59,}/*ﾗｲﾄﾞｼﾝﾊﾞﾙ2*/
$p{n44,}/*ﾍﾟﾀﾞﾙﾊｲﾊｯﾄ*/
$C{n49,}/*ｸﾗｯｼｭｼﾝﾊﾞﾙ1*/ $c{n57,}/*ｸﾗｯｼｭｼﾝﾊﾞﾙ2*/
TR(10); Time(0:1:8); CH(10); @(1,0,0); Time(1:1:0);
TR(20); Time(0:1:8); CH(10); BT(0,!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); @(48,0,0); v(080); o(3); l(16);
//--------------------------------------------------------------------------------
Rythm{(TR(10); //トラックとチャンネルをリズムモード（10）に設定
#S1 = { v.onNote(80,55,85,55); }
)
//_ｼｪｲｶｰ
{{
(Time(1:1:0)); v(50); l16;
}
//_ﾊﾝﾄﾞ
(Time(1:1:0)); v(100); l16;
}
//_ｵｰﾌﾟﾝ&ｸﾛｰｽﾞﾊｲﾊｯﾄ+α
(Time(1:1:0)); v(100); l16;
(Time(10:1:0));
#S1; [ [8 HrHr HrHH ] ] | [ [8 HHHr : HrHr ] HHHr ]
[4 v(80); Hr v-10 p v-10 H : r2. ] #S1; rr8. HrHHr HHr
#S1; [8 HrHr HrHH ]
(Time(34:1:0));
#S1; [4 [ HrHr HrHH ] HrHr HHHr [ HrOr ] ]
#S1; [4 [ HrHH HrHr ] HrHH HrHH [ HrOr ] ]
(Time(50:1:0));
#S1; [ ppHp ppHp ] v(118); c0C2 #S1; [3 ppHp pppp ] [ ppHp ] HpHO HOpO
#S1; [4 [7 HpHp ] HOpO ]
(Time(70:1:0));
#S1; [ [7 HrHr HrHH ] HHHr HrHH ]
[ [7 HHHr HrHr ] HrHH HOpO ]
(Time(87:1:0));
#S1; [ [4 prpr Orpr : prpr Orpp ] [ ppOr ] ]
(Time(95:1:0));
#S1; [4 [ HrHr HrHH ] HrHr HHHr [ HrOr ] ]
#S1; [4 [ HrHH HrHr ] HrHH HrHH [ HrOr ] ]
(Time(111:1:0));
#S1; [ ppHp ppHp ] v(118); c0C2 #S1; [3 ppHp pppp ] [ ppHp ] HpHO HOpO
#S1; [4 [7 HpHp ] HOpO ]
//Track10のライン
(TR(20);)
//_Cowbell=ｶｳﾍﾞﾙ
{{
(Time(1:1:0)); v(70); l16;
(Time(34:1:0));
[ [ Brrr rrGr rrrr RrRr : Brrr rrGr rrrr RRrR ] B4 R8G8 r8G8 RrRR
[ B4. B4. G8G8 B4. B4. R8R8 ] ]
(Time(50:1:0));
r1r1r2. v(110); [3 R0G0B4 ] v(100); [ R0G0B8 v-10] v(105); R0G0B4 v85;
[ [ Brrr rrGr rrrr RrRr : Brrr rrGr rrrr RrRr ] B4 R8G8 r8G8 R^RR ]
(Time(78:1:0));
[ [ Brrr rrGr rrrr RrRr : Brrr rrGr rrrr RrRr ] B4 R8G8 r8G8 R^RR ]
(Time(95:1:0));
[ [ Brrr rrGr rrrr RrRr : Brrr rrGr rrrr RRrR ] B4 R8G8 r8G8 RrRR
[ B4. B4. G8G8 B4. B4. R8R8 ] ]
(Time(111:1:0));
r1r1r2. v(110); [3 R0G0B4 ] v(100); [ R0G0B8 v-10] v(105); R0G0B4 v85;
[ [ Brrr rrGr rrrr RrRr : Brrr rrGr rrrr RrRr ] B4 R8G8 r8G8 R^RR ]
}
(Time(34:1:0)); v(85); [ [4 Mrrr rrMr rrrr mrrr Mrrr rrMr rrrr jjrj ] ]
(Time(95:1:0)); v(85); [ [4 Mrrr rrMr rrrr mrrr Mrrr rrMr rrrr jjrj ] ]
}//Track20まで
(TR(21);)
//_ｷｯｸ(ﾊﾞｽﾄﾞﾗ)+ﾀﾑ系
{{
(Time(1:1:0));
(Time(2:1:0)); v(120); l16;
[8 [15 k4 ] k8k8 ]
(Time(34:1:0));
[4 [ [ k8k8k4 : k4 r8 kk ] : k4 kkrk ] [ krkk ] ]
(Time(50:1:0));
[3 k4 ] k8k8 k2 v100; krkk v(120); k4 [6 k4 ] krkk k8k8
[15 k4 ] k8k8 [ k4 k4 k4 k8k8 k4 k4 k4 k8k8 ]
(Time(62:1:0)); v80
[ [7 k4 ] k8k8 ] k1 r1r1 r2. k8k8
v(120); [4 [7 k4 ] k8k8 ]
(Time(86:1:0));
r2 v60; [ [3 k24 v+3] ] K8K8
(Time(87:1:0)); v(120); l16;
[4 [7 k4 ] k8k8 ]
(Time(95:1:0));
[4 [ [ k8k8k4 : k4 r8 kk ] : k4 kkrk ] [ krkk ] ]
(Time(111:1:0));
[3 k4 ] k8k8 k2 v100; krkk v(120); k4 [6 k4 ] krkk k8k8
[15 k4 ] k8k8 [ k4 k4 k4 k8k8 k4 k4 k4 k8k8 ]
}
//_ｽﾈｱ(ｺﾞｰｽﾄ)
(Time(1:1:0)); v(55); l16;
}//Track21まで
}//Rythmまで
TR(22); CH(11); //ﾊﾞｽﾄﾞﾗ（Elec-Dr）
Time(1:1:0);
Time(2:1:0);
[8 v.N(85,75); [15 g4 ] g8g8 ]
Time(34:1:0);
[4 v.N(85,75); [15 g4 ] g8g8 ]
v.N(90,80); [15 g4 ] g8g8 v.N(95,85); [15 g4 ] g8g8
v(80); [16 g8 v-5 g8 v+8 ]
Time(62:1:0);
v.N(95,85); [8 g8g8 r2. ]
[4 v.N(85,75); [15 g4 ] g8g8 ]
r2 g8g8g4
Time(87:1:0);
[4 v.N(85,75); [15 g4 ] g8g8 ]
Time(95:1:0);
[4 v.N(85,75); [15 g4 ] g8g8 ]
v.N(90,80); [15 g4 ] g8g8 v.N(95,85); [15 g4 ] g8g8
v(80); [16 g8 v-5 g8 v+8 ]
//_ﾄﾗｯｸｽﾍﾟｰｽ = 基本設定 = -------------------------------------------------------------------------------------------------
TR(01); CH(01); Time(0:2:16); Tempo(90); @(081); v(085); o3; l4; q(098); M(00); P(096); EP(120); // ｽｸｴｱ
TR(02); CH(02); Time(0:2:16); @(044); v(080); o3; l4; q(098); M(00); P(032); EP(120); // ｺﾝﾄﾗﾊﾞｽ
TR(03); CH(03); Time(0:2:16); @(051); v(105); o5; l4; q(098); M(00); P(105); EP(125); // ｼﾝｾ-ｽﾄﾘﾝｸﾞｽ･1
TR(04); CH(04); Time(0:2:16); @(051); v(112); o4; l4; q(098); M(00); P(022); EP(125); // ｼﾝｾ-ｽﾄﾘﾝｸﾞｽ･2
TR(05); CH(05); Time(0:2:16); @(015); v(100); o5; l4; q(098); M(24); P(064); EP(060); // ﾁｭｰﾌﾞﾗｰﾍﾞﾙ
TR(06); CH(06); Time(0:2:16); @(002); v(120); o5; l4; q(098); M(00); P(068); EP(125); // ﾌﾞﾗｲﾄ
TR(07); CH(07); Time(0:2:16); @(002); v(105); o3; l4; q(098); M(00); P(060); EP(125); // ﾌﾞﾗｲﾄ
TR(08); CH(08); Time(0:2:16); @(089); v(092); o6; l8; q(098); M(00); P(127); EP(060); // ﾆｭｰｴｲｼﾞ
TR(09); CH(09); Time(0:2:16); @(046); v(098); o5; l4; q(098); M(00); P(044); EP(060); // ﾋﾟﾁｶｰﾄ
TR(12); CH(12); Time(0:2:16); @(109); v(098); o4; l4; q(098); M(00); P(088); EP(125); // ｶﾘﾝﾊﾞ
TR(13); CH(13); Time(0:2:16); @(081,8); v(100); o7; l4; q(098); M(00); P(064); EP(125); // SE
TR(14); CH(14); Time(0:2:16); @(092); v(100); o4; l4; q(098); M(00); P(077); EP(125); // SE
TR(15); CH(15); Time(0:2:16); @(001); v(100); o5; l4; q(098); M(00); P(064); EP(125); //
TR(16); CH(16); Time(0:2:16); @(001); v(100); o5; l4; q(098); M(00); P(064); EP(125); //
//_ﾄﾗｯｸｽﾍﾟｰｽ2 = 各種設定 = ------------------------------------------------------------------------------------------------
TR(1); CH(1); // Bass 1 = ｽｸｴｱ
Time(1:1:0); Tempo(90);
Time(2:1:0); Tempo(145);
EPC(60,120,!1^1^1); VC(0,!1,42,!1);
Unison({ [4 g1^1^1^2 f2 g1^1^1g#2a2 ] },-12)
Time(34:1:0); v97
Unison({ [ d#1^1^1^2c2 "a#1^1^1^1 ]
d#1&d8r4. "d#4"g#8"b4d4g8r4 f#ed#dc
[ "a1"b1c1d1 ] },-12)
Time(69:4:0); TC(145,118,!4);
Time(70:1:0); Tempo(145); v80;
EPC(60,120,!1^1^1); VC(0,!1,42,!1);
Unison({ [ g1^1^1^2 f2 g1^1^1 : g#2a2 ] g#2a4.r8 },-12)
Time(87:1:0); Tempo(145);
EPC(60,120,!1); VC(0,!1,42,!1);
Unison({ g1^1^1^2 f2 g1^1^1g#2a2 },-12)
Time(95:1:0); v97
Unison({ [ d#1^1^1^2c2 "a#1^1^1^1 ]
d#1&d8r4. "d#4"g#8"b4d4g8r4 f#ed#dc
[ "a1"b1c1d1 ] },-12)
//------------------------------------------------------------------------------
TR(2) ;CH(2); // Bass 2 = ｺﾝﾄﾗﾊﾞｽ
Time(1:1:0);
Time(2:1:0);
EPC(60,120,!1^1^1); VC(0,!1,42,!1);
Unison({ [4 g1^1^1^2 f2 g1^1^1g#2a2 ] },-12)
Time(34:1:0); v93 Slur(0);
Unison({ [ d#1^1^1^2c2 "a#1^1^1^1 ]
d#1&d8r4. "d#4"g#8"b4d4g8r4 f#ed#dc
[ "a1"b1c1d1 ] },-12)
Time(70:1:0); v80;
EPC(60,120,!1^1^1); VC(0,!1,42,!1);
Unison({ [ g1^1^1^2 f2 g1^1^1 : g#2a2 ] g#2a4.r8 },-12)
Time(87:1:0);
EPC(60,120,!1); VC(0,!1,42,!1);
Unison({ g1^1^1^2 f2 g1^1^1g#2a2 },-12)
Time(95:1:0); v93 Slur(0);
Unison({ [ d#1^1^1^2c2 "a#1^1^1^1 ]
d#1&d8r4. "d#4"g#8"b4d4g8r4 f#ed#dc
[ "a1"b1c1d1 ] },-12)
//------------------------------------------------------------------------------
TR(3); CH(3); // Strings 1 = ｼﾝｾ-ｽﾄﾘﾝｸﾞｽ･1
Time(1:1:0);
Time(34:1:0);
[ d#1 d2. c4 "b1^2 "f#2 "g#1 "b1 "g#1 "g1 ]
Time(50:1:0); [4 r1 ] EPC(60,125,!4.); @52 l8; v93; >
Unison({[ "d#^^"f^^^^ "g^^"g#^^^^ "b^^c^^^^ : "a^^"g#^^^^ ] },-12)
CD(2,122,125,!8.,30,!4.,!4.); "a0a^^"g#0g#1
Time(95:1:0); EPC(60,125,!8); @51 v105 <
[ d#1 d2. c4 "b1^2 "f#2 "g#1 "b1 "g#1 "g1 ]
Time(111:1:0); [4 r1 ] EPC(60,125,!4.); @52 l8; v93; >
Unison({[ "d#^^"f^^^^ "g^^"g#^^^^ "b^^c^^^^ : "a^^"g#^^^^ ] },-12)
CD(2,122,125,!8.,30,!4.,!4.); "a0a^^"g#0g#1
//------------------------------------------------------------------------------
TR(4); CH(4); // Strings 2 = ｼﾝｾ-ｽﾄﾘﾝｸﾞｽ･1
Time(1:1:0);
Time(34:1:0);
[ b1^2. g#4 g-2. g4g#4g4d1 d#1 f#1 f4 d#4 d2c#2 ]
Time(50:1:0); [4 r1 ] EPC(60,122,!2.); @44 l8; v82; >
[ "g#^^"g^^"d#^ "f^^"g^^"g#^ : "f^^"d#^^"d^ "c^^"d^^"d#^ ] c^^"b^^"g#^ "b^^"g^^ EPC(125,30,!2); c2
Time(95:1:0); EPC(60,125,!8); @51 v112 <
[ b1^2. g#4 g-2. g4g#4g4d1 d#1 f#1 f4 d#4 d2c#2 ]
Time(111:1:0); [4 r1 ] EPC(60,122,!2.); @44 l8; v82; >
[ "g#^^"g^^"d#^ "f^^"g^^"g#^ : "f^^"d#^^"d^ "c^^"d^^"d#^ ] c^^"b^^"g#^ "b^^"g^^ EPC(125,30,!2); c2
//------------------------------------------------------------------------------
TR(5); CH(5); // Bell = ﾁｭｰﾌﾞﾗｰﾍﾞﾙ
Time(1:1:0);
Time(62:1:0); P.N(102,48,24,74); v.N(98,78,50); EPC(60,100,!1^1^1^1);
MidiDelayS( [8 g4.g8r2 ] )
Time(87:1:0); P.N(102,48,24,74); v.N(98,78,50); EPC(60,100,!1^1^1^1);
MidiDelayS( [8 g4.g8r2 ] )
//------------------------------------------------------------------------------
TR(6); CH(6); // Piano 1 = ﾌﾞﾗｲﾄ
Time(1:1:0);
Time(2:1:0);
Po(on,64); t.N(-12,-24,-36,-48); "g0c0d#0g1 Po(off); r1r1r2
[4 Po(on,32);
t.N(12,24,36,48); v.N(120,110,100,90); "g0c0d#0g2
t.N(48,36,24,12); v.N(90,100,110,120); "g0c0d#0g1 Po(off); r1r1r2 ]
Time(34:1:0); v(122);
Po(on,64); t.N(-96,-74,-48,-32); "d#0"g#0c0d#1 Po(off); r1r1r2
Time(50:1:0); t(0); v(118);
< d#0c0"g1 d0"b0"g8 r4. v(124); "b0d#4 f0g#8 f0b4 g#0`d4 t.N(0,4,9,15); v(127); g0`c0`d#0`g8 t(0); r4
v(124); t.N(0,6); d-0f#4 c0e4 "b0d#4 "b0d4 "g#0c4 t(0);
Time(70:1:0);
Po(on,64); t.N(-12,-24,-36,-48); "g0c0d#0g1 Po(off); r1r1r2
> [3 Po(on,32);
t.N(12,24,36,48); v.N(120,110,100,90); "g0c0d#0g2
t.N(48,36,24,12); v.N(90,100,110,120); "g0c0d#0g1 Po(off); r1r1r2 ]
Time(95:1:0); v(122);
Po(on,64); t.N(-96,-74,-48,-32); "d#0"g#0c0d#1 Po(off); r1r1r2
Time(111:1:0); t(0); v(118);
< d#0c0"g1 d0"b0"g8 r4. v(124); "b0d#4 f0g#8 f0b4 g#0`d4 t.N(0,4,9,15); v(127); g0`c0`d#0`g8 t(0); r4
v(124); t.N(0,6); d-0f#4 c0e4 "b0d#4 "b0d4 "g#0c4 t(0);
//------------------------------------------------------------------------------
TR(7); CH(7); // Piano 2 = ﾌﾞﾗｲﾄ
Time(1:1:0);
Time(2:1:0);
[4 [7 v95 [3 g6 v-15 t-1] t(0); ] v95 [3 f6 v-15 t-1] t(0); ]
Time(34:1:0);
[ [7 v120 [3 d#6 v-15 t-1] t(0); ] v120 [3 c6 v-15 t-1] t(0);
[7 v120 [3 "a#6 v-15 t-1] t(0); ] v120 [3 c6 v-15 t-1] t(0); ]
Time(50:1:0); v118
d#1 d8 r4. d#4g#8b4`d4`g8 r4 t(0); f#ed#dc
[ [ v120 [3 "a6 v-15 t-1] t(0); ] [ v120 [3 "b6 v-15 t-1] t(0); ]
[ v120 [3 c6 v-15 t-1] t(0); ] [ v120 [3 "b6 v-15 t-1] t(0); ] ]
Time(70:1:0); EPC(100,125,!4);
[4 [7 v95 [3 g6 v-15 t-1] t(0); ] : v95 [3 f6 v-15 t-1] t(0); ] v95 [ f6 v-15 t-1] f12r12 t(0);
Time(95:1:0);
[ [7 v120 [3 d#6 v-15 t-1] t(0); ] v120 [3 c6 v-15 t-1] t(0);
[7 v120 [3 "a#6 v-15 t-1] t(0); ] v120 [3 c6 v-15 t-1] t(0); ]
Time(111:1:0); v118
d#1 d8 r4. d#4g#8b4`d4`g8 r4 t(0); f#ed#dc
[ [ v120 [3 "a6 v-15 t-1] t(0); ] [ v120 [3 "b6 v-15 t-1] t(0); ]
[ v120 [3 c6 v-15 t-1] t(0); ] [ v120 [3 "b6 v-15 t-1] t(0); ] ]
//------------------------------------------------------------------------------
TR(8); CH(8); // Melody？ = ﾆｭｰｴｲｼﾞ
Time(1:1:0); v.Random(13);
Time(10:1:0);
Sub{ [4 P.T(127,0,!1^1,0,127,!1^1); r1r1r1r1 ] }
Sub{ [8 EP.T(75,90,!1,90,75,!1); r1r1 ] }
Unison({ MidiDelayS( [4 g^^d#^^c"g g^^d#^^c"g ] ) },-7)
Time(34:1:0); v(102);
Sub{ [4 P.T(127,0,!1^1,0,127,!1^1); r1r1r1r1 ] }
Sub{ [8 EP.T(75,90,!1,90,75,!1); r1r1 ] }
Unison({ MidiDelayS( [ `d#^^`d^^`c^ b^^a^^g#d# c^^d^^d#^ d^^c^^"g#^
"g^^"g^^"d#^ "g^^"g^^"g#"b c^^"g#^^"b^ c^^f^^ : d^ ] ) d^ },-7)
Time(50:1:0);
Sub{ [4 P.T(127,0,!1^1,0,127,!1^1); r1r1r1r1 ] }
Sub{ [8 EP.T(90,112,!1,112,90,!1); r1r1 ] }
Unison({ MidiDelayS( d#^^d#^^d#^ d^^^"g^"g#"b ^c^g^^^^ ^"d#"d"c"d^^^ ) },-7)
v(125);
Unison({ MidiDelayS( [ "d#^^"f^^^^ "g^^"g#^^^^ "b^^c^^^^ : "a^^"g#^^^^ ] a^^g#^^`c^^^ ) },-7)
Time(70:1:0); [8 r1 ] v(97);
Sub{ [ P.T(127,0,!1^1,0,127,!1^1); r1r1r1r1 ] }
Sub{ [4 EP.T(75,90,!1,90,75,!1); r1r1 ] }
Unison({ MidiDelayS( [4 g^^d#^^c"g : g^^d#^^c"g ] g^^d#^^ ) g#b },-7)
EP.T(60,30,!2.); P.N(96,22,88,32); Unison({ MidiDelayS( [3 g#b ] ) g#b },-7)
Time(87:1:0);
Sub{ [4 P.T(127,0,!1^1,0,127,!1^1); r1r1r1r1 ] }
Sub{ [8 EP.T(75,90,!1,90,75,!1); r1r1 ] }
Unison({ MidiDelayS( [4 g^^d#^^c"g : g^^d#^^c"g ] g^^d#^^ ) g#b },-7)
Time(95:1:0); v(102);
Sub{ [4 P.T(127,0,!1^1,0,127,!1^1); r1r1r1r1 ] }
Sub{ [8 EP.T(75,90,!1,90,75,!1); r1r1 ] }
Unison({ MidiDelayS( [ `d#^^`d^^`c^ b^^a^^g#d# c^^d^^d#^ d^^c^^"g#^
"g^^"g^^"d#^ "g^^"g^^"g#"b c^^"g#^^"b^ c^^f^^ : d^ ] ) d^ },-7)
Time(111:1:0);
Sub{ [4 P.T(127,0,!1^1,0,127,!1^1); r1r1r1r1 ] }
Sub{ [8 EP.T(90,112,!1,112,90,!1); r1r1 ] }
Unison({ MidiDelayS( d#^^d#^^d#^ d^^^"g^"g#"b ^c^g^^^^ ^"d#"d"c"d^^^ ) },-7)
v(125);
Unison({ MidiDelayS( [ "d#^^"f^^^^ "g^^"g#^^^^ "b^^c^^^^ : "a^^"g#^^^^ ] a^^g#^^`c^^^ ) },-7)
//------------------------------------------------------------------------------
TR(9); CH(9); // ﾋﾟﾁｶｰﾄ
Time(1:1:0);
Time(2:1:0); [8 EP.T(60,95,!1,95,60,!1); r1r1 ]
Time(2:1:0); l12; v.Random(9); [8 gd#c"a-"f"c "d#"g"bdfa- ]
Time(10:1:0); l12; v.Random(9); [8 gdf"bd#"g# d"a"d#"g#"gd ]
Time(18:1:0); [8 EP.T(60,95,!1,95,60,!1); r1r1 ]
Time(18:1:0); l12; v.Random(9); [8 gd#c"a-"f"c "d#"g"bdfa- ]
Time(26:1:0); l12; v.Random(9); [8 gdf"bd#"g# d"a"d#"g#"gd ]
Time(34:1:0);
Sub{ [8 EP.T(60,95,!1); r1r1 ] }
l12; v.Random(9); [ [8 cd#g d#c"g# ] [8 "f"g#"b "g#"f"d ] ]
Time(50:1:0); [4 r1 ]
Sub{ [8 EP.T(95,70,!1); r1 ] }
l12; v.Random(9); [ [ ag#gfed# ] [ ba#g#gfe ] [ `cba#ag#f ] [ `d`c#`ca#g#g ] ]
Time(62:1:0);
Sub{ [ [4 EP.T(60,95,!1,95,60,!1); r1r1 ] ] }
l12; v.Random(9); [ [8 gd#c"a-"f"c "d#"g"bdfa- ] ]
Time(78:1:0); l12; v.Random(9); [8 gdf"bd#"g# d"a"d#"g#"gd ]
Time(87:1:0);
Sub{ [ [4 EP.T(60,95,!1,95,60,!1); r1r1 ] ] }
l12; v.Random(9); [8 gdf"bd#"g# d"a"d#"g#"gd ]
Time(95:1:0);
Sub{ [8 EP.T(60,95,!1); r1r1 ] }
l12; v.Random(9); [ [8 cd#g d#c"g# ] [8 "f"g#"b "g#"f"d ] ]
Time(111:1:0); [4 r1 ]
Sub{ [8 EP.T(95,70,!1); r1 ] }
l12; v.Random(9); [ [ ag#gfed# ] [ ba#g#gfe ] [ `cba#ag#f ] [ `d`c#`ca#g#g ] ]
//------------------------------------------------------------------------------
TR(12); CH(12); // ｶﾘﾝﾊﾞ
Time(1:1:0);
Time(2:1:0);
Sub{ [8 EP.T(60,95,!1,95,60,!1); r1r1 ] }
l12; v.Random(9); [8 gd#c"a-"f"c "d#"g"bdfa- ]
Time(10:1:0); l12; v.Random(9); [8 gdf"bd#"g# d"a"d#"g#"gd ]
Time(18:1:0);
Sub{ [8 EP.T(60,95,!1,95,60,!1); r1r1 ] }
l12; v.Random(9); [8 gd#c"a-"f"c "d#"g"bdfa- ]
Time(26:1:0); l12; v.Random(9); [8 gdf"bd#"g# d"a"d#"g#"gd ]
Time(34:1:0);
Sub{ [8 EP.T(60,95,!1); r1r1 ] }
l12; v.Random(9); [ [8 cd#g d#c"g# ] [8 "f"g#"b "g#"f"d ] ]
Time(50:1:0); [4 r1 ]
Sub{ [8 EP.T(95,70,!1); r1 ] }
l12; v.Random(9); [ [ ag#gfed# ] [ ba#g#gfe ] [ `cba#ag#f ] [ `d`c#`ca#g#g ] ]
Time(62:1:0);
Sub{ [ [4 EP.T(60,95,!1,95,60,!1); r1r1 ] ] }
l12; v.Random(9); [ [8 gd#c"a-"f"c "d#"g"bdfa- ] ]
Time(78:1:0); l12; v.Random(9); [8 gdf"bd#"g# d"a"d#"g#"gd ]
Time(87:1:0);
Sub{ [ [4 EP.T(60,95,!1,95,60,!1); r1r1 ] ] }
l12; v.Random(9); [8 gdf"bd#"g# d"a"d#"g#"gd ]
Time(95:1:0);
Sub{ [8 EP.T(60,95,!1); r1r1 ] }
l12; v.Random(9); [ [8 cd#g d#c"g# ] [8 "f"g#"b "g#"f"d ] ]
Time(111:1:0); [4 r1 ]
Sub{ [8 EP.T(95,70,!1); r1 ] }
l12; v.Random(9); [ [ ag#gfed# ] [ ba#g#gfe ] [ `cba#ag#f ] [ `d`c#`ca#g#g ] ]
//------------------------------------------------------------------------------
TR(13); CH(13); // SE 1 ？
Time(1:1:0); M(24); CD( 2 ,60,105,!8.,0,!8.,!2^8^16); "g1
Time(18:1:0); @(93,0); M(0); v(112);
CD( 2 ,127,60,!2,0,!2); BNW(-$4000,!1); `f^1
Time(62:1:0); @(81,8); M(0); v(112); BT($0,!1);[7 r1 ]
M(24); CD( 2 ,60,105,!8.,0,!8.,!2^8^16); "g1
Time(86:1:0); v120;
M(24); CD( 2 ,60,105,!8.,0,!8.,!2^8^16); "g1
//------------------------------------------------------------------------------
TR(14); CH(14); // SE 2 ？
Time(1:1:0);
Time(18:1:0); [4 r1 ]
CD(2,60,120,!1*2,15,!2.,!1*3); p%.T(0,$250,!1^1^1,$500,$2000,!1,$2000,-$2000,!1^2);
g0c0d#0`g1^1^1^1^1^1
Time(50:1:0); EPC(60,120,!2);
`d#0g1 EPC(120,60,!4.); `d0g#4r4 EPC(60,120,!16^); "b0d#4 f0g#8 f0b4 g#0`d4 `c0`g8 t(0); r4
> d-0f#4 c0e4 "b0d#4 "b0d4 "g#0c4
Time(111:1:0); EPC(60,120,!2);
<`d#0g1 EPC(120,60,!4.); `d0g#4r4 EPC(60,120,!16^); "b0d#4 f0g#8 f0b4 g#0`d4 `c0`g8 t(0); r4
> d-0f#4 c0e4 "b0d#4 "b0d4 "g#0c4
//------------------------------------------------------------------------------