//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.374)
//------------------------------------------------------------------------------
//曲名{"適当曲集１"}
//作者{"ゴロニャ〜ゴ"}
//コメント{"色々なところで不安ありすぎて何かご免なさい。そしてありがとうございます。何となく感謝したくなっただけです。"}
Int music={1}
//         ↑このカッコの中の数字だけを書き換えて各曲をお聴きください
//　　　　{1}『ゆたり』
//　　　　{2}『ピアノ即興曲-名無し-』
//　　　　{3}『サブマリン』
//　　　　{4}　おまけ
//    ※この4曲だけですので、1〜4の数字以外のものに書き換えても何もありません。
/*
     [失礼します]

たまに言っている事とやっている事が矛盾している部分が多い気がしますが、気にしないでください。
しかし、たまになのか多いのかどちらなのか…と考え込んだところで何もありません。
そんな感じで適当に何となく聴いていただければ幸いです。

適当に作る事に全力を注いだ結果、この曲集が出来たというようなものです。
適当なのか全力なのか…そんな事は考えてもしょうがない。自分でも分からないのですから。
何も考えずに…というのも何かもったいない。だからこそ作った後にどんな風景かを想像する。
…色々順序が変なんです。まぁそれも良いものなのか悪いものなのか、考えすぎて頭が痛くなったり。
それだけ脳の特訓をし続けていればストレスも増えてくるだろう。しかしその分脳は鍛えられる。
どういう風に聴こえるのか、どんな場面を思い浮かべられるのかを考えてみるのも いい(≧∇≦)b …のかなぁ。
まぁ、考えすぎない程度にお聴きくだされ。何かを考えて作ったようなものでは無いのですからｗｗ
だから特に何も考えずに聴くことも全然問題無いんです！(-ω☆)
…途中から言っている事が逆転し始めているのも気にしない！適当ですから。

// 制作開始：2011/11/03　　最終更新：2011/11/23                               */
//------------------------------------------------------------------------------
Str MA={
曲名{"ゆたり"}
作者{"ゴロニャ〜ゴ"}
コメント{"さて、どこへ行こうか？"}
/*

     「はて、どこへ行くのか？」


お時間を割いてまでこの曲を気にしてくれるとは予想外です。今回は友人にコード進行を
聞き、何か適当に作ってみようと超軽い気分でメール送ったら、コード教えて頂けたので
きままに作成したところ、割とすぐ作れました。ちなみに、D→Bm→G→A の進行を教えて
頂きました。しかし作ってみると、何だか今までに無い程曲被りの不安があったり、何か
きままに自分が作ったとは思えない程まとまったような気になったり、そうでもない様な
感じにも思えたり何だか複雑な気分になっています。あと、いつも友人にお世話になり感
謝しきれない感があります。もちろん自分の曲をお聞き頂いて貰っている皆様方にも感謝
しきれない程にありがたいと思っています。本当にありがとうございます。今回の曲名は
まったりゆったりしている様な感じの曲になった気がするので、それっぽい名前を直感で
すぐ思いついたのを付けた感じです。まぁ、大体いつも適当なのです。自由気ままです。


…あれ、思っていた以上にまとまってしまった気がして、色々もの凄く戸惑っていたり…

// 制作開始：2011/11/03　　最終更新：2011/11/03   演奏時間：3分10秒(誤差不明) */
//------------------------------------------------------------------------------
//_初期設定
Include(unison.h);Include(chord.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={"TwmParam(059,125,125)"} // ReverbSetting    Time Dpth High
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,001,000,127,127,090,040,000,000,000)// グランドピアノ
TR=2  r-8 Set(002,026,000,127,127,040,040,000,000,000)// スティールギター
TR=3  r-8 Set(003,083,000,127,127,064,040,000,000,000)// カリオペ
TR=4  r-8 Set(004,074,000,127,127,064,040,000,000,000)// フルート
TR=5  r-8 Set(005,034,000,127,127,064,040,000,000,012)// フィンガーベース


TR=10  r-8 Set(010,001,000,127,127,064,040,000,000,000)// StandardSet
//------------------------------------------------------------------------------
Str P1 = {y64,127;};　 //ペダル
Str P0 = {y64,0;};　　//放す
Str P2 = {y64,0;y64,127;};　//「放す」してから「ペダル」へ
//------------------------------------------------------------------------------
TR(1)　v100　o4　q100　l8
Time(1:1:0)
[6 [4 #D][4 #Bm][4 #G][4 #A]]
[P1 レファ＃ラファ＃^ラP0 ファ＃^ P1"シレファ＃レ"シレファ＃P0 レ
P1 レソシソ^シP0 ソシ P1 レファ＃ラファ＃"ラド＃ミP0 "ラ]
[4 l4#Bm l8rl4.#Bm l4#Bm :l4#A l8rl4.#A l4#A]l4#A#D#Bm#G
l8 [4 [4 #D][4 #Bm][4 #G]:[4 #A]][#A][#Bm]

[ [4 #D][4 #Bm][4 #G][4 #A]]
[P1 レファ＃ラファ＃^ラP0 ファ＃^ P1"シレファ＃レ"シレファ＃P0 レ
P1 レソシソ^シP0 ソシ P1 レファ＃ラファ＃"ラド＃ミP0 "ラ]
[4 l4#Bm l8rl4.#Bm l4#Bm :l4#A l8rl4.#A l4#A]l4#A#D#Bm#G
l8 [4 [4 #D][4 #Bm][4 #G]:[4 #A]][#A][#Bm]
Time(76:1:0)
[#D][#Bm][#G][#A]
[[4 [4 #D][4 #Bm][4 #G]:[4 #A]][#A][#Bm]]l1#Bm
//------------------------------------------------------------------------------
TR(2)　v90　o5　q100　l8
Time(5:1:0)
[10 レ^"ラレ^"ラミ"ラ]
レ^"シレ^"シソ"シ[3 レ^"ラレ^"ラミ"ラ]レ^"シレ^"シソ"シ レ^"ラレ^"ラミ"ラ
[P1 "ソレファ＃レ"ラファ＃レラ ^ソレミファ＃"ラミ"ソ
レ"ソレファ＃レ"ラファ＃レ ラレファ＃ラ`レソラ"ラ]P1
P0[4 レ^"ラレ^"ラミ"ラ]
[4 'ラ,300レ'^"ラレ^"ラ:'ファ＃,200ミ'"ラ]P1 'レ,200ソ'`レ

P0[6 レ^"ラレ^"ラミ"ラ]
レ^"シレ^"シソ"シ[3 レ^"ラレ^"ラミ"ラ]レ^"シレ^"シソ"シ レ^"ラレ^"ラミ"ラ
[P1 "ソレファ＃レ"ラファ＃レラ ^ソレミファ＃"ラミ"ソ
レ"ソレファ＃レ"ラファ＃レ ラレファ＃ラ`レソラ"ラ]P1
P0[4 レ^"ラレ^"ラミ"ラ]
[4 'ラ,300レ'^"ラレ^"ラ:'ファ＃,200ミ'"ラ]P1 'レ,200ソ'`レ

Time(74:1:0)
レ^^^レ^^ラ^レ"ラ^ファ＃"ファ＃ミ"ラ レレ"ラレレ"ラレP0"ラ
P0[4 レ^"ラレ^"ラミ"ラ]
[4 'ラ,300レ'^"ラレ^"ラ:'ファ＃,200ミ'"ラ]P1 'レ,200ソ'`レ
[レレ"ラレレ"ラレ"ラ レレ"ラレレ"ラミ"ラ]
['ラ,300レ'レ"ラレレ"ラ'ファ＃,200レ'"ラ 'ラ,300レ'レ"ラレレ"ラ:'ファ＃,200ミ'"ラ]P1 'レ,200ソ'`レ
レ1r1
//------------------------------------------------------------------------------
TR(3)　v100　o5　q100　l8
Time(13:1:0)
[レラソレ^ファ＃ラソ ファ＃^rミ^^ファ＃^
ソレレソ^ファ＃レ^ミ^rファ＃^^:ミ^]ミレ
[ラララソ^ソソ^ファ＃^ファ＃ミ^レレr
ラララソ^:ソソ^ファ＃^ファ＃ソ^ファ＃ミレ]ファ＃ファ＃^ファ＃^ソ^ラ`ド＃`ファ＃`ド＃
[`レ^^^rラシ`レ^^^rラシ`レ^^シ:ラ^rラシ`レララ`ファ＃`ミ`レ`ド＃^`レ]
`ファ＃`レrラシ`レララ`ファ＃`ミ`レ`ド＃^`レ`レ1
Time(41:1:0)
[レラソレ^ファ＃ラソ ファ＃^rミ^^ファ＃^
ソレレソ^ファ＃レ^ミ^rファ＃^^:ミ^]ミレ
[ラララソ^ソソ^ファ＃^ファ＃ミ^レレr
ラララソ^:ソソ^ファ＃^ファ＃ソ^ファ＃ミレ]ファ＃ファ＃^ファ＃^ソ^ラ`ド＃`ファ＃`ド＃
[`レ^^^rラシ`レ^^^rラシ`レ^^シ:ラ^rラシ`レララ`ファ＃`ミ`レ`ド＃^`レ]
`ファ＃`レrラシ`レララ`ファ＃`ミ`レ`ド＃^`レ`レ1
Time(69:1:0)
[ラララソ^ソソ^ファ＃^ファ＃ミ^レレr
ラララソ^:ソソ^ファ＃^ファ＃ソ^ファ＃ミレ]ファ＃ファ＃^ファ＃^ソ^ラ`ド＃`ファ＃`ド＃
[`レ^^^rラシ`レ^^^rラシ`レ^^シ:ラ^rラシ`レララ`ファ＃`ミ`レ`ド＃^`レ]
`ファ＃`レrラシ`レララ`ファ＃`ミ`レ`ド＃^`レ
[`レ^^^rラシ`レ^^^rラシ`レ^^シ:ラ^rラシ`レララ`ファ＃`ミ`レ`ド＃^`レ]
`ファ＃`レrラシ`レララ`ファ＃`ミ`レ`ド＃^`レ`レ1
//------------------------------------------------------------------------------
TR(4)　v80　o5　q100　l8
Time(29:1:0)
[[3 ラ^^^^^:^r]r^`レ`レ`ド＃`ド＃シララr]
ラ1
Time(57:1:0)
[[3 ラ^^^^^:^r]r^`レ`レ`ド＃`ド＃シララr]
ラ1
Time(77:1:0)
[[[3 ラ^^^^^:^r]r^`レ`レ`ド＃`ド＃シララr]]
ラ1
//------------------------------------------------------------------------------
TR(5)　v100　o3　q100　l8
Time(1:1:0)
[6 レ^^レファ＃^^ファ＃ソ^^"ラレ^^ミ]
[レ^^ミ^^ファ＃rファ＃^^"シ^^レr p%.T(0,0,!8,0,4778,!8)レ^^p%(0)ラ^^ファ＃rミ^^ファ＃^^ミ^]
[4 [8レ][4ラ]:[4ミ]][4`レ]
[6 レ^^レファ＃^^ファ＃ソ^^"ラレ^^ミ]
[レ^^ミ^^ファ＃rファ＃^^"シ^^レr p%.T(0,0,!8,0,4778,!8)レ^^p%(0)ラ^^ファ＃rミ^^ファ＃^^ミ^]
[4 [8レ][4ラ]:[4ミ]][4`レ]
[6 レ^^レファ＃^^ファ＃ソ^^"ラレ^^ミ]
"ラ1^1"ラレ1^2ラ^レ^"ラファ＃レ^^"ラファ＃"ラファ＃"ラファ＃[4ラ][8レ][ラ]"ラレ[4`レ]
[4 レ^^レファ＃^^ファ＃ソ^^"ラレ^^ミ]
[4 '"ソ,400レ'レレレ'"ラ,400ファ＃'ファ＃ファ＃ファ＃'レ,400ソ'ソソ"ラ'"ラ,400レ'レレミ]
'"ソレ'1^2r2
//------------------------------------------------------------------------------
TR(10)　v100　o5　q100　l16

$a{n(Kick2),}$b{n(Snare1),}$c{n(Snare2),}$d{n(LowTom2),}$e{n(LowTom1),}
$f{n(MidTom2),}$g{n(MidTom1),}$h{n(HighTom2),}$i{n(HighTom1),}
$j{n(ClosedHiHat),}$k{n(PedalHiHat),}$m{n(OpenHiHat),}$n{n(CrashCymbal1),}
$s{n(RideCymbal1),}$u{n(CrashCymbal2),}

Time(1:1:0)
Rythm{jrrr|'am'rrr|krrr|'am'rrr jrrr|'am'rrr|krrr|'am'rar}
Rythm{jrrr|'am'rrr|krrr|'am'rcr jrcr|'agm'rcr|'hj'r'hf'r|'adm'r'adb'r}
[Rythm{'jn'rjr|'am'r'aj'r|jrsr|'am'r'ac'r jrsr|'acm'r'aj'r|jrsr|'abm'r'ac'r}
Rythm{'ju'rjr|'am'r'aj'r|jr'es'r|'am'r'ac'r jrcr|'agm'r'asc'r|'hj'r'auf'r|'adn'r'aub'r}]
[Rythm{jrrr|'am'rrr|krrr|'am'rjr jrrr|'am'rrr|krrr|'am'r'as'r}
Rythm{jrrr|'am'rrr|krrr|'am'r'cj'r jrcr|'agm'rcr|'hj'r'hf'r|'adm'r'adb'r}]
[Rythm{jrrr|'am'rcr|krrr|'am'rjr jrrr|'am'rcr|krsr|'agm'r'aej'r}:
Rythm{jrrr|'am'rcr|krsr|'am'r'cj'r jrcr|'am'rbr|'hj'r'hf'r|'adm'r'adb'r}]
Rythm{jrrr|'am'rcr|krrr|'am'r'cj'r jrcr|'agm'rbr|'hj'r'hf'r|'adn'r'aub'r}
[Rythm{'jn'rjr|'am'r'aj'r|kr'es'r|'am'r'ac'r jrsr|'acm'r'aj'r|kr'is'r|'abm'r'adc'r}
Rythm{'ju'rjr|'am'r'aj'r|kr'es'r|'am'r'ac'r jrcr|'agm'r'asc'r|'hj'r'auf'r|'adn'r'aub'r}]

Rythm{jrrr|'am'rrr|jrrr|'am'rrr jrrr|'am'rrr|jrrr|'am'rar}
Rythm{jrrr|'am'rrr|jrrr|'am'rcr jrcr|'agm'rcr|'hj'r'hf'r|'adm'r'adb'r}
[Rythm{jrrr|'am'rrr|krrr|'am'rjr jrrr|'am'rrr|krrr|'am'r'as'r}
Rythm{jrrr|'am'rrr|krrr|'am'r'cj'r jrcr|'agm'rcr|'hj'r'hf'r|'adm'r'adb'r}]
[Rythm{jrrr|'am'rcr|krrr|'am'rjr jrrr|'am'rcr|krsr|'agm'r'aej'r}:
Rythm{jrrr|'am'rcr|krsr|'am'r'cj'r jrcr|'am'rbr|'hj'r'hf'r|'adm'r'adb'r}]
Rythm{jrrr|'am'rcr|krrr|'am'r'cj'r jrcr|'agm'rbr|'hj'r'hf'r|'adn'r'aub'r}
[Rythm{'jn'rjr|'am'r'aj'r|kr'es'r|'am'r'ac'r jrsr|'acm'r'aj'r|kr'is'r|'abm'r'adc'r}
Rythm{'ju'rjr|'am'r'aj'r|kr'es'r|'am'r'ac'r jrcr|'agm'r'asc'r|'hj'r'auf'r|'adn'r'aub'r}]

[Rythm{jrrr|'am'rrr|krrr|'am'rrr jrrr|'am'rrr|krrr|'am'rar}]
[Rythm{jrrr|'am'rrr|krrr|'am'rjr jrrr|'am'rrr|krrr|'am'r'as'r}]
Rythm{jrrr|'am'rcr|krsr|'am'r'cj'r jrcr|'am'rbr|'hj'r'hf'r|'adm'r'adb'r}
Rythm{'ju'rjr|'am'r'aj'r|jr'es'r|'am'r'ac'r jrcr|'agm'r'asc'r|'hj'r'auf'r|'adn'r'aub'r}
[4Rythm{'jn'rjr|'am'r'aj'r|kr'es'r|'am'r'ac'r jrsr|'acm'r'aj'r|kr'is'r|'abm'r'adc'r}
Rythm{'ju'rjr|'am'r'aj'r|kr'es'r|'am'r'ac'r jrcr|'agm'r'asc'r|'hj'r'auf'r|'adn'r'aub'r}]


/* 

　　『あれ、どこだっけ？』

何だかなぁ…思いつきでやってみると意外なところにいったり、
微妙なところにこだわろうとしたりしてしまうものですね。
まさか適当にコード進行から曲を作ってみようとしたところから、
縦読みコメントに挑戦しようと思うとは…全くの計算外でしたｗ
書き終わってから見てみるとかなり微妙な感じに思えてきた…

orz

まぁ、たまには良いかもしれませんが、目的を忘れて別の事に夢中になって、
目的地が分からなくなる事を頻繁に起こしていたら、色々見えなくなってしまうかもしれません。
しかし色々と手を出して整理出来なくなる可能性もあれば、色々手を出した事での知識量が力になるかも？
…と考えると、どっちの道を辿るのも多分同じくらいのリスクと見返りがあるのかもしれない。
一直線で向かえば早く辿り着くかもだけど、最短という事はそれ以外は何も手に入らない。
寄り道をすれば色々何かを得る事は出来るかもだけど、その分時間が掛かり目的地へ行けないかもしれない。

…ってかこんなことばっか考えてるのは、明らかに目的地が見えなくなっている気がする。
まぁ気のせいなのかもしれないけれど。
何だかなぁ…昔よりも文章を思いつくような気はするものの、感想とか意見とか全く思いつかないのは…
どこか努力の方向を見落としてしまっているのだろう。まったく探しものが多すぎてまいったまいったｗ

orz

*/
}
//------------------------------------------------------------------------------
Str MB={
曲名{"ピアノ即興曲-名無し-"}
作者{"ゴロニャ〜ゴ"}
コメント{"ただ直感で感じるままに…"}

// 適当過ぎるので、実際弾けるのかどうかは知りません。
// 適当過ぎるので、一行毎に小節分けされていません。作った本人もワカリマセーン。
// 適当過ぎたので、適当な曲名すら思いつくことが出来ませんでした。だから名無しなのです。 orz
// 適当過ぎたので、終わらせ方も適当で強引です。

// 3時間程度で出来るとは思っていませんでした。しかし3時間以内ではこの長さだとまだ作れないかも。
// まぁ早く曲を作る事が出来る様になる事はとても魅力的に思っていますが、
// 曲の良し悪しの影響には早さはそれ程重要ではないと思っていたりで、
// 作成時間の早さを追求する事に対して、とても微妙で複雑な気分になります。
// だから何だと言われても、ただの個人的な考えを適当に言ったようなものなので、
// 特に意味は無いのです。まぁ、たまにはのんびりいきましょうやｗ

// 使用音源：TW-MUSIC2
// 制作開始：2011/11/04　　最終更新：2011/11/04
//------------------------------------------------------------------------------
//_初期設定
Include(unison.h);
TimeBase=(096)           // 四分音符分解能
Tempo=(70)              // テンポの設定(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={"TwmParam(059,125,125)"} // ReverbSetting    Time Dpth High
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,001,000,127,127,064,040,000,000,000)// グランドピアノ
TR=2  r-8 Set(002,001,000,127,127,064,040,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)
t.N(0,16)'ソ`ソ'^^^レ＃`レ^^^^^^ラ＃ソ^^^t(0)ラ＃^`レ`レ＃`レ^`レ＃
'ラ＃`ラ＃'^^'ソ`レ`ファ'^^`ソ`レ＃`レラ＃^^^'ソラ＃`レ＃''ファソ`レ'
l16ソラ＃`ソ`レ＃ラ＃ファラ＃`レ`ソ`レ＃ラ＃レ＃ソ`ソ`レ＃ラ＃ソl8'`ソ`ラ＃'^^^'`ド`レ＃`ソ'^
'ソ`ド`レ＃'^l16レ＃ラ＃レ＃ソレ＃ラ＃レ＃ソ`ラ＃`レ＃`ファ`レ`ソ＃`レ`ラ＃`ソ`ファ`レ＃ラ＃ソ`レ
l8レ＃ソ`レ`ラ＃`レ＃ラ＃レ＃'`ソ``レ＃'^^'`ラ＃``ソ'^^ラ＃`レ＃`ソ＃16'`レ＃`ソ'16'レ＃ドソラ＃'
レ＃レレ＃レレ＃"ラレ"ラ"ラ＃ドレド＃ド"ラ＃"ラt(28)`ソ^^^t(0)``レt.N(0,28,44)'ソ`ド`ファ'^`レ＃^
`レ`ラ＃`ソ＃`ソ`ファ`ミ`レ＃[3`レ32][`レ16]`レt(0)`レ32'レ＃ソ'^^'レ＃ソ''"ラレ'^'"ラレ''ラ＃`レ＃'1
P1[`ファ^^^ラファ`レ]P0`ド＃`ドシラ＃ラ`ソ`ミ`レ＃`レ`ド＃ラ＃ラファ

`レソレ＃ファ＃`レシファ`ド＃[`レ32`ファ32`ラ16^2`ファ]ファ^[3`レ32`ファ32]`ラ16^8`ファラ＃
'`ラ``レ'^^^t.N(0,18,6)'`ソ``レ'^l32[8`ソ``ド]t(0)`ソ`ラ＃`ソ^^16`ファ'`レ`ソ'`ファ`レ^^`ド
`レ`ファl8`レ^16`ファ`レ`ド^16.ラ＃`ド`レ^ファ^ソ^[ファ32ソ^]^^16`ド＃`レ
[['ファラ＃`レ'^^:'ファラ＃'^^^^]'ファラ＃'^^ファ^]
'ファラ＃''ファラ＃`レ'`ラ＃^^``ファ^`ラ^`レ＃`レ16`レ＃32ラ＃32`レ64`ファ32`ラ16``レ^16^32^64^4.
t.N(0,16)'`ファ``ファ'1^1t(0)
//------------------------------------------------------------------------------
TR(2)　v100　o4　q100　l8
Time(1:1:0)
"ド^^ファ^^^^'"ラ＃レ＃'^^'"ソレ'^'レファ'^レ＃^'"ラ＃レ'^ソ^ラ＃^t(16)`レ＃
t(0)"ラ＃レ＃ラ＃レ＃"ラ＃レ＃ラ＃レ＃`レ＃'"レ＃"ラ＃レ＃'^'"ファ"ラ＃レ'^r
ソ'レソ'ソ'レ＃ソ'ラ＃ソラ＃ソレ＃ソ'"ラ＃レ＃ラ＃'^'ソ`ド`レ＃'^'"ラ＃レ＃ソ'^
'"ファ"ソレ''"ファ"ラ＃ファ'^^^`レ＃`レ'`ド`ファ'ラ＃ソ＃'ソ`レ＃'ファ'レ＃ラ＃'
t.N(0,16,32,40)'ソ`ド`レ＃''ソ`ド`レ＃''ソ`ド`レ＃''ソ`ド`レ＃'t(0)"ソ^^"ソ^^"ソ^^"ソ"ソ"ソ
l32 t.N(0,3,1,0)P1[8 "ソ"レ＃][8"ファド][4"ラ＃レ]l16["レ＃""ソ]l8["ファ"レ] P0"ソ^^"ソ^"ソソソ^
ソt(0)[3'"ファ"ラレ']P1"ド^^"ド"ド"ファ"ラド"ラP0'ミソ''"ラミ''"ミ"ラ'"ド
P1["ソレソレ"ソレソレ]P0 ソ'"ミ"ソ'"ソレ＃'レ＃ソ''レ＃ファ''レソ`レ'P1[3"ミミ`ミ]ミ"ミ

[5 '"ファ"ラ＃レ'^"ファ"ファ][3'ミファラ'"ラミ][4"ソレソ][3 レ"ソ"ラ＃ソ"ラ＃]ソレファ`レ`ソソ
['"ラ＃レ＃ファ'^^^'"ソ"ラ＃レ'^^^]'"ファ"ラ＃レ'"レ^"ラ＃'"レ"ファ"ラ＃'ラ＃ファラ[4'ファラ＃'ファ]
ファレ"ラ＃P0'"ラ＃レファ'P1 レファ'"ファ"ラ＃レ'^"ファ'"ラ＃ファレラ＃'1^1

}

//------------------------------------------------------------------------------
Str MC={
曲名{"サブマリン"}
作者{"ゴロニャ〜ゴ"}
コメント{"潜るぜー、もっと潜るぜー！"}
/*
    「 D→Bm→G→ Σ(･A･;) 」

この曲は「ゆたり」を作り終えて友達にメールで報告したら、
あのコード進行は一応パンク風なイメージだったよと言われて、
えぇ〜！？と驚いたところで、また同じコード進行で作ってみようと思って制作してみました。
…やっぱ分からなかったです。何か普通にポップスな感じにイメージしてしまうようです。
一応ディストーションギターを使って作り始めたものの、ゆたりの時とほぼ変わらないイメージでした。

そういえば、guitar.hの定義ファイルがあった事を思い出したのも
この曲を作ろうと思ったきっかけの一つでした。
chord.hを使ってみて何か引っかかるような思いが拭えなかったので。
それにしても定義ファイルも貴重な資料の一つだなぁと改めて思いました。
色々なコードが記されているのはコードを全く覚えられない自分にとってはありがたいです。

一日で作るのが目標でしたが、作り始めたのが遅かったからか、
途中で寝てたからか日付をまたいでしまったのが残念…
まぁ、深夜25時半と考えれば何とかなるはず！…ってわけにもいかないか。

// 制作開始：2011/11/12　　最終更新：2011/11/13                               */
//------------------------------------------------------------------------------
//_初期設定
Include(unison.h);Include(guitar.h);
TimeBase=(096)           // 四分音符分解能
Tempo=(140)              // テンポの設定(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={"TwmParam(059,125,125)"} // ReverbSetting    Time Dpth High
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,031,000,127,127,064,040,000,000,000)// ディストーションギター
TR=2  r-8 Set(002,038,000,127,127,064,040,000,000,000)// スラップベース2
TR=3  r-8 Set(003,005,000,127,127,064,040,000,000,000)// エレクトリックピアノ1
TR=4  r-8 Set(004,089,000,127,127,064,040,000,000,000)// ニューエイジパッド
TR=5  r-8 Set(005,123,000,127,127,064,040,000,000,000)// シーショア
TR=6  r-8 Set(006,123,005,127,127,064,040,000,000,000)// バブル


TR=10  r-8 Set(010,001,000,127,127,064,040,000,000,000)// スタンダードセット


//------------------------------------------------------------------------------
TR(1)　v90　o4　q100　l8
/*#D={'d*f*+a*'}#Bm={'b*d*f*+'}#G={'g*b*d*'}#A={'a*c*+e*'}
             #Bmu={'b*`d*`f*+'}#Gu={'g*b*`d*'}#Au={'a*`c*+`e*'}
             #Bms={'"b*d*f*+'}                #As={'"a*c*+e*'}
*/
#Gt1={dd D(1,4)d16[D(1,8.)]d16 D(1,8)
"b"b Bm(1,4)"b16[Bm(1,8.)]"b16 Bm(1,8)
gg G(1,4)g16[G(1,8.)]g16 G(1,8)
"a"a A(1,4)a16[A(1,8.)]a16 A(1,8)}
#Gt2={[8 D(1,8)][8 Bm(1,8)][8 G(1,8)][8 A(1,8)]}
Time(1:1:0)
[4 #Gt1][4 #Gt2][4 #Gt1][4 #Gt2]#Gt1[3 #Gt2]
//[ [4 #D][4 #Bmu][4 #Gu][4 #Au]]
//------------------------------------------------------------------------------
TR(2)　v100　o3　q100　l8

#Bs1={レレファレソレラレ
`レ`レシ`レ"シ`レレ`レ
ソソソ"シレレレレ
ラソレラレソレ`ミ}
#Bs2={レ^レレ^レレ^
シ^シシ^シシ^
ソ^ソソ^ソソ^
ラ^ララ^ララ^}
#Bs3={ファファ&&`レ`レ16`レラ`レ16ラソ16ファ16
ソ&&レr16レ16ソ16レr16シ`ファ16シ`ソ16
`ソソ`レ16ソ`レ16レソ16`レソ16`レ
ソ&&ラ`レ16ラ16ファ16ファ&&`レ`レ16`レ16ラ}
Time(1:1:0)
[4 #Bs1][#Bs2][#Bs3][4 #Bs1][#Bs2][6 #Bs3]
//------------------------------------------------------------------------------
TR(3)　v100　o5　q98　l8

#Vo1={`レ^`レラ16`レ`レ16ラ`レラ
シ^16rシ16ソシ16シソシソ16r
ミソシソ^rシ
ラ16ラ^ラ16rシ16ラ^ラr16}
#Vo2={ラ^ララ^ラrシ
ラ^シシ^シソシ
ラ^rソソ^ソラ
ミ^ラ^ソ^ミr}
#Vo3={`レラ`レラ16ラ`レ16ラ`レラ
`レラ`レラ16r`レ16ラ`レラ
`レラ`レラ16ラ`レ16ラ`レラ
`レラシソ16rソ16ラシラ}
#Vo4={`レ^^`ド^^ラr
ラ^^シ^シソr
ラ1}
Time(9:1:0)
[#Vo1][#Vo2][#Vo3][#Vo4 r1][#Vo1][#Vo2][4 #Vo3][#Vo4 r1]
//------------------------------------------------------------------------------
TR(4)　v100　o5　q100　l8

#Cr1={r2ソファ`ドシラ1[r1]r2ソファ＃`ドシ}
#Cr2={[ファ＃2^4.r`レ2^4.r`ド2^4.r:ラ2^4.r]ソ^ファ^シ^`レr}
#Cr3={ラ`レラ`レ16`レラ16`レラ`レ
ラ`レラ`レ16rラ16`レラ`レ
ラ`レラ`レ16`レラ16`レラ`レ
ラ`レソシ16rシ16`レソ`レ}
#Cr4={ラ^^ラ^^ファ＃r
ファ＃^^ソ^ソレr
ラ1}
Time(12:1:0)
#Cr1 #Cr2 [#Cr3] [#Cr4 r1][3r1] #Cr1 #Cr2 [4 #Cr3][#Cr4 r1]

//------------------------------------------------------------------------------
TR(5)　v100　o5　q200　l1
Time(68:1:0)EP.T(0,20,!1*3,20,127,!1*12) t.N(0,12,28,44,69)
[ 'ソミド'r1.'ソ`レラミド'r1.'"ファソ"ラミド'r1.'ソファミド'r1.]r1
//------------------------------------------------------------------------------
TR(6)　v70　o4　q100　l8 P.N(54,90,67,12,44,120,78) v.Random(20) t.Random(4) EP.WE(127,127,!2,127,0,!2)
Time(75:1:0)
[ "ミ,800"ソ,700"ド2.ミ1 [r1] "ミ,800ド,700"ソ2.ソ1 r1]

//------------------------------------------------------------------------------
TR(10)　v100　o5　q100　l16
$a{n(Kick2),}$b{n(Snare1),}$c{n(Snare2),}$d{n(LowTom2),}$e{n(LowTom1),}
$f{n(MidTom2),}$g{n(MidTom1),}$h{n(HighTom2),}$i{n(HighTom1),}
$j{n(ClosedHiHat),}$k{n(PedalHiHat),}$m{n(OpenHiHat),}$n{n(CrashCymbal1),}
$s{n(RideCymbal1),}$u{n(CrashCymbal2),}

Time(1:1:0)//tam
[[4 Rythm{rrrr|brrr|ercr|crrr rrrr|crrr|rrrr|brdr}
Rythm{rrrr|bcrc|rrrr|crrr rrrr|cirf|rrrr|brfd}]
Rythm{[4rrrr|rrrr|rrrr|rrfr :rrrr|rrrr|rrrr|brrr]rrrr|crrr|rcrr|cibd}
[4Rythm{rrrr|crrr|rcrr|cibe rrrr|crrr|rcrr|cibd}]]
[4 Rythm{rrrr|brrr|ercr|crrr rrrr|crrr|rrrr|brdr}
Rythm{rrrr|bcrc|rrrr|crrr rrrr|cirf|rrrr|brfd}]

Time(1:1:0)//hat
[[4 Rythm{jrjr|mrsr|jrsr|mrrj srjr|jrsj|mrjs|nrms}
Rythm{jrjr|mrjr|jrsr|mrrj srjr|jrsj|mrjs|nrur}]
Rythm{[4jrrr|rrrr|srrr|mrrr jrrr|:rrrr|jrrr|mrrr]srmr|rmrs|nrur}
[4Rythm{mrjr|srmr|rmrr|urmr jrjr|srmr|rmrs|nrur}]]
[Rythm{nrjr|mrsr|ursr|mrrj srnr|mrsj|urjs|nrms}
Rythm{urjr|mrjr|nrsr|mrrj urjr|jrsj|mrjs|nrur}]
[Rythm{jrjr|mrsr|jrsr|mrrj srjr|jrsj|mrjs|nrms}
Rythm{jrjr|mrjr|jrsr|mrrj srjr|jrsj|mrjs|nrur}]

Time(1:1:0)//kic
[[4 Rythm{rrrr|arrr|rrra|arra rrrr|arrr|rrar|aara}
Rythm{rrrr|arrr|rrra|arra rrrr|arrr|rrar|aara}]
Rythm{[4rrrr|arrr|rrrr|arrr rrrr|arrr|rrrr|arrr]}
[4Rythm{arrr|arrr|arrr|arrr arrr|arrr|arrr|arrr}]]
[ Rythm{rrrr|arrr|rrra|arra rrrr|arrr|rrar|aara}
Rythm{rrrr|arrr|rrra|arra rrrr|arrr|rrar|aara}]
[Rythm{arrr|arrr|arrr|arrr arrr|arrr|arrr|arrr}]
}

Str MD={
//------------------------------------------------------------------------------
Include(gs.h);Include(delay.h);
//------------------------------------------------------------------------------
TrackName={"日常"};             //タイトル
Copyright={"ゴロニャーゴフ?"};             //著作権表示
TimeSignature=4,4;           //拍子記号の設定
Tempo(120);                  //テンポの設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGM; r2 ResetGS; r2      //音源初期化命令
TrackSync;                   //全てのトラックを同期する
// アレ...? 普通に曲作ろうと思っていたらネタになってきちゃったよ…。orz　　　
MetaText={" 悲劇？喜劇？ホラー？ラブコメ？サスペンス？…謎です。"}//      
// 最終更新日：2011/10/21                                                  〆
//------------------------------------------------------------------------------
TR(1)  @(12)       V(127) EP(127) P(64) REV(029) CHO(017)// ビブラフォン
TR(2)  @(36)       V(127) EP(127) P(64) REV(068) CHO(025)// フレットレスべース
TR(3)  @(126)      V(127) EP(127) P(064) REV(060) CHO(000)//ヘりコプター時々スクリーミング
TR(4)  @(126,2)    V(127) EP(127) P(064) REV(060) CHO(000)//カ―・ストップ時々銃ところにより笑い声
TR(5)  @(126,4)    V(127) EP(127) P(064) REV(060) CHO(000)//カー･クラッシュところによりHeart Beat!

//------------------------------------------------------------------------------
TR(1)　v100　o5　q100　l8
Time(1:1:0)
'ラ#ファ'ッ'ラ#ファ'ファファ'ラ#ファ'^ラ^'ファ4ラ#'ラソファソ'ラファ'^
'ラ#ファ'ッ'ラ#ファ'ファファ'ラ#ファ'^ラ^'ファ4ラ#'ラソファソ'"ラ＃レ'^
'ラ#ファ'ッ'ラ#ファ'ファファ'ラ#ファ'^`ド^'ファ4ラ#'`ドラ＃`ド`レ'ファラ'^
'ラ#ファ'ッ'ラ#ファ'ファファ'ラ#ファ'^`ド^'ファ4ラ#'ラファレ＃ソ'ラ＃レ'^

//------------------------------------------------------------------------------
TR(2)　v80　o3　q100　l8
Time(1:1:0)
ラ＃^ッレレラ＃^16ッ16ラ^ラ^レレ^ラ^ ラ＃^ッレレラ＃^16ッ16ラ^ラ^レレ^ファ^
ラ＃^ッレレラ＃^16ッ16ラ^ラ^レレ^ラ^ ラ＃^ッレレラ＃^16ッ16ラ^ラ^レレ^ラ＃^

//------------------------------------------------------------------------------
TR(3)　v100　o5　q100　l8
Time(4:1:0)
r2 '"""ド"""ファ""ファ""シ"ミ"ソドミファラ'1
r16 @127,2 ソ4.. @126,0 EP.T(0,0,!1^4,80,0,!1^1.)'"""ド"""ファ""ファ""シ"ミ"ソドミファラ'1^1^1^2

//------------------------------------------------------------------------------
TR(4)　v100　o5　q100　l8
Time(5:1:0)
r2 '"ド,,70"ラ＃,,80ドファ,,60'2 @(128,0)""ド1 @(127,1)"c1

//------------------------------------------------------------------------------
TR(5)　v100　o5　q800　l8
Time(6:1:0)
MidiDelayKey({ソド"ソ"ド""ソ},4,!32,-3)l4 @127,4 eeee

//色々意味の無いものは多いものです。無理矢理意味を考えるのも面白いものです。
//妄想は帰ってこれる程度に程々に。これも特に意味は無いのです。超☆適☆当！！
//これにて御話しおしまいおしまい。実は何も始まってなかったかもしれないけど。

}

If(music = {1}){MA}
If(music = {2}){MB}
If(music = {3}){MC}
If(music = {4}){MD}

Else{MetaText={"お手数ですが1〜4の内の1個数字を{ }の中にご入力ください。"}}//何か書き方によって文字がストトン表記として認識しようとするような…
//{Case({1}){MA}Case({2}){MB}Case({3}){MC}Case({4}){MD}
//             Default{MsgBox(何もありません)}} //これら2行ボツにして結局いつもと同じやり方に。
//まぁ気にしない！