//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.374)
//------------------------------------------------------------------------------

/*
ハープは好きな楽器なんだけど、何故こうなった…。
という感じのハープのみで構成された3曲入りです。
3曲目は急いで入れた為あまり確認出来ていません。
*/


Int harp=1
//　上のharpの横の数字を変えると曲が変わります

// harp=1 で 1曲目：『反芻』　　…おまけの様なメイン。何だか気持ち悪い雰囲気の何かです。
// harp=2 で 2曲目：『反射鏡』　…メインの様なおまけ。何だか分からないうちに終わります。
// harp=3 で 3曲目：『無題』　　…恐らくこの中では最も普通な曲。短いです。
//------------------------------------------------------------------------------
If(harp=1){
曲名{"反芻"}//個人的に反芻(はんすう)は牛がよくやっていそうなイメージがあります。
作者{"ゴロニャ〜ゴ"}
コメント{"…の、乗り物酔いが…！"}

/*　　　　　　　　『こ…コメンｔ』

投稿というか作曲自体久々過ぎて瀕死の状態ですが、どうかお気になさらず。
実は…本当はもっと普通な曲を目指していたんですよ。これでも…。
ところが、いざメロディを打ち込もうとしてもメロディと言うには酷すぎる状態に…。
何故か意地になって、そのまま修正せず無駄に集中して無理矢理作っていたら
…こうなってしまったというものです。

…スランプって恐ろしいね。

まぁ、徐々に勘を取り戻していくと思いますので大丈夫でしょうｗ

…多分。

// 制作開始：2013/07/03　　最終更新：2013/07/03     演奏時間：1分半過ぎぐらい */
//------------------------------------------------------------------------------
//_初期設定
//Include(unison.h);
TimeBase=(096)           // 四分音符分解能
Tempo=(120)              // テンポの設定(20〜240を推奨)
TimeSignature 4,4        // 拍子記号の設定→2,4は2/4拍子を表す
System.MeasureShift(1);  // 音源初期化用に１小節遅らせる
ResetGS;                 // GS音源用リセット
TrackSync;               // 全てのトラックを同期する(初期化後に必須)
CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;
CuePoint={"TwmReverb(089,125,125,115)"} // ReverbSetting    Time Dpth High Mix?
//CuePoint={"TwmChorus(001,045,089,081,015,120,004)"} // ChorusSetting  Wave Mix Dpth FB Freq Dly Phs

Function Set(x1,x2,xa,x3,x4,x5,x6,x7,x8,x9){ r8
CH(x1);@(x2,xa);V(x3);EP(x4);P(x5);REV(x6);CHO(x7);M(x8);BR(x9);}

//             CH, @ , @2, V , EP, P ,REV,CHO, M , BR
TR=1  r-8 Set(001,047,000,124,127,064,000,000,000,000)// ハ
TR=2  r-8 Set(002,047,000,124,127,064,064,000,000,000)// 　−
TR=3  r-8 Set(003,047,000,120,127,064,127,000,000,000)// 　　プ

//------------------------------------------------------------------------------
Str P1 = {y64,127;};　 //ペダル
Str P0 = {y64,0;};　　//放す
//Str P2 = {y64,0;y64,127;};　//「放す」してから「ペダル」へ
//------------------------------------------------------------------------------
TR(1)　v100　o5　q100　l8
Time(1:1:0)
[[[ファ＃^^^ド^レレ＃ ^ファファファ＃^ドレ＃ド]
ファ^^^ドレラソ ファ^ミファソファソド
`ド^ラ^ソ^ファ^ ミファソ^レレ＃ミ^]
ファファファソ^^ファソ ラソファ^ソファレ^
^^ミファレファソラ シラ＃ファ^レファラソ＃
ソ^'レソ'^'レ,,40ソ'^ラ^ ドレファラ`ド^]r^ソソ＃
l16`レ＃`レ`ド＃ラ＃`ド＃シラ＃`ドラソ＃ファソ＃ファレ＃レド＃
//------------------------------------------------------------------------------
TR(2)　v80　o5　q100　l8 P.WR(127,0,!13,0,96,!13,96,0,!13,0,127,!13)
Time(1:1:0)EP.WE(0,127,!1,127,90,!1)
[[[rファ＃^^^ド^レ レ＃^ファファファ＃^ドレ＃]
r8ファ^^^ドレラソ ファ^ミファソファソド
`ド^ラ^ソ^ファ^ ミファソ^レレ＃ミ^r-8]
[6`ド`ソ`ド`レ`ソ`ド`ファ`ド]]
'`ミ`ソ`シ'`レ＃`ファ'`ド＃`ファ＃'`ファ`レ'ラ＃`レ＃'`ド＃
//------------------------------------------------------------------------------
TR(3)　v80　o5　q100　l8 P.WR(0,127,!16,127,32,!16,32,127,!16,127,0,!16)
Time(1:1:0)P1 EP.WE(0,127,!8,127,90,!1)
[[[r^ファ＃^^^ド^ レレ＃^ファファファ＃^ド]
r4ファ^^^ドレラソ ファ^ミファソファソド
`ド^ラ^ソ^ファ^ ミファソ^レレ＃ミ^r-4]
"ラ^"ラ"ラ^"ファ^"ファ '"ファ"ラ'^^^'"ソ"シ'^'"ファ"ラ'^
["ソ^'"レ"ソ'^"ソ^'"レ"ソ'^ "ラ^'"レ"ソ＃'^"ソ^'"レ"ファ'^]]
[3'"ド"ミ"ソド']"ドド"ド"ド"ド
}


If(harp=2){
曲名{"反射鏡"}
作者{"ゴロニャ〜ゴ"}
コメント{"…磨かれた不自然…"}
/*
           『コメント…だったっけ？』

さすがにリバース的な曲だけはまずい感じがしてきて、急遽作った曲でございます。

…今度は最初の方は意外とまともな方に行けていたんですよ…

音のタイミングがずれた時に、これは面白そうだ！と悪ノリしたのが崩れていったキッカケですね。
不自然さを直すのが面倒になってきて無理矢理音をねじ込んでいったら…
…さらに不自然なものになっていってしまったのです。

スランプって恐ろしいね…orz

いつかAメロ・Bメロ・ザビの様な型から抜け出せたらなぁ、
とか考えているから普通じゃない奇怪なものへとなり易くなっているのかも知れないです。
…まぁそれは関係ないと思いますけど。恐らく。
// 制作開始：2013/07/03　　最終更新：2013/07/03            演奏時間：大体50秒 */
//------------------------------------------------------------------------------
//_初期設定
//Include(unison.h);
TimeBase=(096)           // 四分音符分解能
Tempo=(160)              // テンポの設定(20〜240を推奨)
TimeSignature 4,4        // 拍子記号の設定→2,4は2/4拍子を表す
System.MeasureShift(1);  // 音源初期化用に１小節遅らせる
ResetGS;                 // GS音源用リセット
TrackSync;               // 全てのトラックを同期する(初期化後に必須)
CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;
CuePoint={"TwmReverb(089,125,125,110)"} // ReverbSetting    Time Dpth High Mix?
CuePoint={"TwmChorus(001,045,089,081,015,120,004)"} // ChorusSetting  Wave Mix Dpth FB Freq Dly Phs

Function Set(x1,x2,xa,x3,x4,x5,x6,x7,x8,x9){ r8
CH(x1);@(x2,xa);V(x3);EP(x4);P(x5);REV(x6);CHO(x7);M(x8);BR(x9);}

//             CH, @ , @2, V , EP, P ,REV,CHO, M , BR
TR=1  r-8 Set(001,047,000,120,127,064,040,000,000,000)// オーケストラハープ
TR=2  r-8 Set(002,047,000,120,127,064,040,020,000,000)// …いわゆるハープ
//------------------------------------------------------------------------------
Str P1 = {y64,127;};　 //ペダル
Str P0 = {y64,0;};　　//放す
//Str P2 = {y64,0;y64,127;};　//「放す」してから「ペダル」へ

//------------------------------------------------------------------------------
TR(1)　v100　o6　q100　l16
Time(1:1:0)[4r1]
ドファラ＃`ド^^^ファ`ド^^v80ファ`ド^^v60ファ`ド^^v50ファ`ド^^v40ファ`ド,,80^^
v100`レ＃`ド,,70^^^`ドラ＃ファレ＃^^ド,,70レ＃^^レ＃ファソソ＃,,60ソレラ＃ファレ＃^^ドファ`ドファ^^ドファ^^ファ,,60
ド,,80ファ,,90ラ＃`ド^^^ファ`ド^^v80ファ`ド^^v60ファ`ド^^v50ファ`ド^^v40`ファ`ド,,80^^
v100`レ＃`ド,,70^^^`ドラ＃`レ＃`ド^^ド,,70レ＃^^レ＃ファソソ＃,,60ソレラ＃ファレ＃^^ドファ`ドファ^^ドファ^^`ファ,,60
l8
ファ^^ソ^^ド^ファ^^ソ^^`ド^ ファ^^'`ソ,,76ソ'^^ラ＃^`ソ,,70^^^
ファ^^ソ^^ド^ファ^^ソ^^`ド^ ファ^^'`ソ,,76ソ'^^ラ＃^`ソ,,70^`ファ,,60^`レレ,,50^`レ`レ＃,,60`レ,,80`レ＃`レ
l16
'"ソド'ファラ＃'`ド`ソ'^^^`ソ`ファ`レ＃`ド`レソファ'ドソ'^'ドソ'^v70'ドソ'v100'ドソ'^v50'ドソ'v80'ドソ'^
v30'ドソ''`ソ,,76ソ'v100`ド^`レ,,60`レ＃`ファ`レ `レ＃ラ＃`レ＃,,70^`レソ`レファ^'ラ＃`レ＃'^^'ソ`レ'^^'ソ`ド'^ソ,,60レ＃ラ＃
ドレ＃ファソ`レ＃`レ`ドラ＃P1`ファ^`レ^ソ^ラ
'ド,,80`ド'ファ,,90'ラ＃`ソ,,70'`ド^^^ファ`ド^^v80ファ`ド^^v60ファ`ド^^v50ファ`ド^^v40`ファ`ド,,80^^
v100`レ＃`ド,,70^^^`ドラ＃`レ＃`ド^^ド,,70レ＃^^レ＃ファソソ＃,,60ソレラ＃ファレ＃^^ドファ`ドファ^^ドファ^^`ファ,,60
'"ソド'ファラ＃'`ド`ソ'^^^`ソ`ファ`レ＃`ド`レソファ'ドソ'^'ドソ'^v70'ドソ'v100'ドソ'^v50'ドソ'v80'ドソ'^
v30'ドソ''`ソ,,76ソ'v100`ド^`レ,,60`レ＃`ファ`レ `レ＃ラ＃`レ＃,,70^`レソ`レファ^'ラ＃`レ＃'^^'ソ`レ'^^^ソ,,60レ＃ラ＃
l8`レ＃^16ド16,,75`レ^`ド^ラ＃P0 `ド
//------------------------------------------------------------------------------
TR(2)　v100　o5　q100　l8
Time(1:1:0)
ド^'ドファ'^ドファ^'"ラ＃レ＃'^'"ラ＃,,70レ＃'レ＃^レ^"ラ＃^
'"ソド'^ファ^ド'ド,,60ファ'^'"ラ＃レ＃'^レ＃'"ラ＃,,70レ＃'^レ^レ＃^
'ドファ,,50'^'ド,,70ファ'^ドファ^'"ラ＃レ＃'^'"ラ＃,,70レ＃'レ＃^レ^"ラ＃^
'"ソド'^ファ^ド'ド,,60ファ'^'"ラ＃レ＃'^レ＃'"ラ＃,,70レ＃'^レ^レ＃^
'ドファ,,50'^'ド,,80ファ'^ド,,90ファ^'"ラ＃レ＃'^'"ラ＃,,70レ＃'レ＃^レ^"ラ＃^
'"ソド'^ファ^ド'ド,,60ファ'^'"ラ＃レ＃,,80'^レ＃'"ラ＃,,70レ＃'^レ^レ＃^P1
v.N(80,90,100)
[4レドファドレ＃ドファソファレソレファレファソ]
'"ソド'^"ソ'ドファ'^^'レファ'ファ,,70ソ`レ＃^ソ^
'"ソド''"ソドファ''"レ"ソド'^ソ'"ソレ'ファ'"ソレ'レ＃^レ＃レ^レ"ラ＃^'レソ,,60'^'レ,,60ソ'^ラ^
[4'"ソレ'ドファ'"ソド'レ＃ド'ド,,70ファ'ソファ'"ソレ'ソレ'ドファ'レファ'ドソ']P0[r1]
}
//------------------------------------------------------------------------------
If(harp=3){
曲名{"無題"}
作者{"ゴロニャ〜ゴ"}
コメント{"…どうか安らぎを…"}

// ちょっと投稿してからヤバイ雰囲気が立ち込めてきそうだったので、急いでまともなものを…。
// …急ぎすぎて題名も思いつかない。

// 制作開始：2013/07/03　　最終更新：2013/07/03
//------------------------------------------------------------------------------
//_初期設定
Include(unison.h);
TimeBase=(096)           // 四分音符分解能
Tempo=(117)              // テンポの設定(20〜240を推奨)
TimeSignature 3,4        // 拍子記号の設定→2,4は2/4拍子を表す
System.MeasureShift(1);  // 音源初期化用に１小節遅らせる
ResetGS;                 // GS音源用リセット
TrackSync;               // 全てのトラックを同期する(初期化後に必須)
CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;
CuePoint={"TwmReverb(089,125,125,120)"} // ReverbSetting    Time Dpth High Mix?
CuePoint={"TwmChorus(001,045,089,081,015,120,004)"} // ChorusSetting  Wave Mix Dpth FB Freq Dly Phs

Function Set(x1,x2,xa,x3,x4,x5,x6,x7,x8,x9){ r8
CH(x1);@(x2,xa);V(x3);EP(x4);P(x5);REV(x6);CHO(x7);M(x8);BR(x9);}

//             CH, @ , @2, V , EP, P ,REV,CHO, M , BR
TR=1  r-8 Set(001,047,000,127,127,064,040,000,000,000)
TR=2  r-8 Set(002,047,000,127,127,064,040,000,000,000)
TR=3  r-8 Set(003,047,000,127,127,064,040,000,000,000)
TR=4  r-8 Set(004,047,000,127,127,064,040,000,000,000)

//------------------------------------------------------------------------------
TR(1)　v100　o5　q100　l8
#A={ド^'ド,,70ファ'^ラ^ 'ファ,,60"ラ'^ド^'ミラ,,50'^
レ^'レ,,70ファ'^'レ,,50ソ'^ 'ファ,,60ド'^レ^'ド,,50ミ'r
'ド,,60ファ'^'ド"ソ,,70'^ラ^ 'ファ,,60"ラ'^ド^'ミラ,,50'^
レ^'レ,,70ファ'^'レ,,50ソ'^ 'ファ,,60ド'^レ^'ド,,50ミ'^
}
Time(1:1:0)
[4#A]'ド,,70ファ'^^^^^ ^^^^^^
//------------------------------------------------------------------------------
TR(2)　v100　o5　q100　l8 EP.WR(60,127,!12) p(62)
Time(1:1:5)
[4#A]'ド,,70ファ'^^^^^ ^^^^^^
//------------------------------------------------------------------------------
TR(3)　v100　o5　q100　l8
#B={[4`ド,,70^^^^^`ド,,60^^^`ド,,50^]
`ド`ラ`ソ`ファ^^ `レ^`ド^^`ド
`ミ`ファ^`ファ`ファ^ ^`ミ`ファ`ソ^`ミ
`ラ`ファ`ミ^`ド^ `レ`ド`レ^`ド^
`ミ^`ミ`ファ^`ファ `ソ^`ファ^`ミ^
`ファ^^^`ミ`ファ `ソ^^^`ファ`ソ
`ラ^`ラ`ソ^`ファ `ミ^^^`ミ^
`ファ^^^`ミ`ファ `ソ^^^`ファ`ソ
``ド^`ソ`ファ^`ソ `ファ`ミ`ミ^`ファ^
`ファ^^^^^ `ファ,,80^^^^^
`ファ,,60^^^^^ `ファ,,40^^^^^
}
Time(1:1:0)
#B
//------------------------------------------------------------------------------
TR(4)　v100　o5　q100　l8 EP.WR(60,127,!14) p(61)
Time(1:1:5)
#B
}



// 投稿する直前に気がついた…作っている間にいつの間にか色々な人の影響を受けている気がする…。


/*       「いい加減な真面目…なのか？」


今回もう何も書き残すネタは無いだろうと思っていましたが、どうでも良い事を何となく。

そういえば、自分の作曲スタイルとは何だったのか…とかたまに考えていました。
…完全に忘れてしまっていますな。

まぁ、それでも一つだけ作曲し始めの頃から信条にしていたものがあって、
それが自分の定番と言えるのかは謎です。特徴を捉えられないメロディにするという事なのですが。
果たして個性と言えるのか。どう言えば良いかも分からんですが…
一定の個性を持たない個性、作った曲が同一人物だと悟られないようにする、何これ…大体こんなもので。
でも暫くその信条は自分の中から忘れられていたり、頭の片隅にあっても関係ねぇ！という場合もあった様な…

そんな状態だったので、最初から信条なんて無かったんだ…とも言えたり。
なんだかんだ言っていても、最終的に何かで心動かせる事が出来たらどんな形態でも良いのです。迷惑かけなければ。

…やっぱ説明は苦手だ。

という事で文章能力向上のため無理矢理書いているものなので、どうかスルーしてやってください。

…思い出した。そういえば自然と音の響きは気を付けていた気がします。全てをそこに注ぐかのように。
今回音割れしているけれど…まぁ反芻なら頭痛、反射鏡なら光が水の様に散る表現の一つという事で（何
…以上、無理矢理なこじ付けでした。
*/