//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.374)
//------------------------------------------------------------------------------
/*
題名{"抜け殻"}
作者{"ゴロニャ〜ゴ"}
コメント{" …物の抜け殻、生の抜け殻… "}
*/

Int music=1   //←の数字を変えると、メニューにある他の曲が聴けます。(数字は半角で)

/*
   ◆ メ ニ ュ ー ◆

music=1 『 砂上楼閣 』   演奏時間：1分40秒ぐらい    恐らくオルゴール曲
music=2 『  凍  霊  』   演奏時間：2分16秒ぐらい    多分…落ち着いた曲

※ メニューに書かれている数字以外の数字に変えても曲とか何もありません。
【使用音源】[ Microsoft GS Wavetable Synth ] 



ダウンロードありがとうございます！

                                                       最終更新日：2010/07/08 */



If(music=1){
曲名{"砂上楼閣"}
作者{"ゴロニャ〜ゴ"}
コメント{"…沈む回廊…"}
/*
オルゴール曲作りの練習…練習の割りには本気だったり。
ピッチずらして合わせる場合、+と-の両方付けないと何か違和感を感じてきた。
…もしかしたら無理にピッチずらす必要は無いのかも。何ともいえない。
// 制作期間：2010/05/19〜07/08                        演奏時間：1分40秒ぐらい */
//------------------------------------------------------------------------------
//_初期設定
TimeBase      = 96       // 四分音符分解能
Tempo         = 120      // テンポの設定(20〜240を推奨)
TimeSignature = 4,4      // 拍子記号の設定→2,4は2/4拍子を表す
System.MeasureShift(1);    // 音源初期化用に発音を１小節遅らせる
ResetGS();                 // GS音源用リセット
Time(1:1:0); TrackSync;    // 全てのトラックを同期する(初期化後に必須)
//------------------------------------------------------------------------------

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,009,000,114,127,064,000,000,000,000)// チェレスタ
TR=2  r-8 Set(002,009,000,127,127,064,000,000,000,000)// チェレスタ(一部ミュージックボックス)
TR=3  r-8 Set(003,011,000,108,127,064,000,000,000,000)// ミュージックボックス
TR=4  r-8 Set(004,011,000,127,127,064,000,000,000,000)// ミュージックボックス
TR=5  r-8 Set(005,009,000,084,127,009,000,000,000,000)// チェレスタ
TR=6  r-8 Set(006,009,000,044,127,118,000,000,000,000)// チェレスタ
TR=7  r-8 Set(007,011,000,052,127,001,000,000,000,000)// ミュージックボックス
TR=8  r-8 Set(008,011,000,074,127,127,000,000,000,000)// ミュージックボックス



//------------------------------------------------------------------------------
TR(1)　v100　o4　q100　l8 p%.N(-272,0,99)
Time(1:1:0)
#AA={[ソ^^`レ＃^^^^レ＃^^レ^^^^]
['"ソ,300,94"ラ＃,,84ソ'レ＃,,80レ＃,,70'"ソ,300,94"ラ＃,,84ソ'レ＃,,80レ＃,,70'"ソ,200,94"ラ＃,,84ソ'レ＃,,70]
['"ソ,300,94"ラ＃,,84ソ'レ＃,,80`レ＃,,70'"ソ,300,94"ラ＃,,84ソ'レ＃,,80`レ＃,,70'"ソ,200,94"ラ＃,,84ソ'`レ,,70
'"ソ,300,94"ラ＃,,84ソ'ラ＃,,80`レ＃,,70'"ソ,300,94"ラ＃,,84ソ'ラ＃,,80`レ＃,,70'"ソ,200,94"ラ＃,,84ソ'レ,,70]
v60[3 ソ^^`レ＃^^^^レ＃^^レ^^^^]} #AA
Time(17:1:0)
#AB={[4 '"ソ,300,94"ラ＃,,84ソ'レ＃,,80`レ＃,,70'"ソ,300,94"ラ＃,,84ソ'レ＃,,70`レ＃,,80'"ソ,200,94"ラ＃,,84ソ'`レ,,70
'"ソ,300,94"ラ＃,,84ソ'ラ＃,,80`レ＃,,70'"ソ,300,94"ラ＃,,84ソ'ラ＃,,70`レ＃,,80:'"ソ,200,94"ラ＃,,84ソ'レ,,70]'"ソ,94,94"ラ＃,86,84ソ,90'EP(0)rEP(127)} #AB
#AC={[8 '"ソ,300,94"ラ＃,,84ソ'レ＃,,80`レ＃,,70'"ソ,300,94"ラ＃,,84ソ'レ＃,,80`レ＃,,70'"ソ,200,94"ラ＃,,84ソ'`レ,,70
'"ソ,300,94"ラ＃,,84ソ'ラ＃,,80`レ＃,,70'"ソ,300,94"ラ＃,,84ソ'ラ＃,,80`レ＃,,70'"ソ,200,94"ラ＃,,84ソ'レ,,70]
v60[3 ソ^^`レ＃^^^^レ＃^^レ^^^^]} #AC
//------------------------------------------------------------------------------
TR(2)　v100　o5　q100　l8 p%.N(24,198,-14)
Time(1:1:0)
#BA={`ソ1`レ＃1`レ1ラ＃1
['`レ＃`ソ'1'ラ＃`レ＃'1'ソ`レ'1'レラ＃'1]} #BA
Time(15:1:0)@11 v.T(0,60,!1.,60,70,!2)<  EP.W(0,127,!14^44^95)
l8 [14 '"ラ＃レ＃']'"ラ＃レ＃',90 EP(0)r8> EP(127) @9 v.N(80,90,70)
['`レ＃`ソ'1'ラ＃`レ＃'1'ソ`レ'1:'レラ＃'1]Time(24:1:0) #BB={'レ,96ラ＃,92'2.^8 EP(0)rEP(127)
['`レ＃`ソ'1'ラ＃`レ＃'1'ソ`レ'1'レラ＃'1]
Sub{[4 o6`ソ,,44`レ＃,,50`レ,,75ラ＃,,90`ソ,,54`レ＃,,68`レ,,80ラ＃,,97
ソ,,68`レ＃,,90`レ,,78`レ＃,,60`ファ＃`レ＃,,70`レ,,86ラ＃]}
[o5'`レ＃`ソ'1'ラ＃`レ＃'1'ソ`レ'1'レラ＃'1]
Sub{[ o6`ソ,,44`レ＃,,50`レ,,75ラ＃,,90`ソ,,54`レ＃,,68`レ,,80ラ＃,,97
ソ,,68`レ＃,,90`レ,,78`レ＃,,60`ファ＃`レ＃,,70`レ,,86ラ＃]}
[o5'`レ＃`ソ'1'ラ＃`レ＃'1'ソ`レ'1'レラ＃'1]} #BB
//------------------------------------------------------------------------------
TR(3)　v100　o6　q100　l8 p%.N(312,98)
Time(1:1:0)
#CA={[`ソ,,40`レ＃,,50`レ,,75ラ＃,,90`ソ,,54`レ＃,,68`レ,,80ラ＃,,97
ソ,,80`レ＃,,90`レ,,78`レ＃,,60`ファ＃`レ＃,,70`レ,,86ラ＃]
[4 'ソ,300`ソ,,60'`レ＃,,52`レ,,73'レ＃,300ラ＃,,92'`ソ`レ＃,,64'ソ,200`レ,,79'ラ＃
'レ＃,300ソ,,98'`レ＃,,70`レ,,60'ラ＃,300`レ＃,,80'`ファ＃`レ＃,,80'レ,200`レ,,68'ラ＃,,54]
'ソ,300`ソ,,40'`レ＃,,38`レ,,48'レ＃,300ラ＃,,92'`ソ,,58`レ＃,,30'ソ,200`レ,,79'ラ＃,,44
'レ＃,300ソ,,98'`レ＃,,20`レ,,10'ラ＃,300,60`レ＃,,40'`ファ＃,,34`レ＃,,24'レ,200,30`レ,,18'ラ＃,,20
'ソ,300`ソ,,60'`レ＃,,12`レ,,8'レ＃,300ラ＃,,48'`ソ,,3^'ソ,200`レ,,20'^
'レ＃,300,60ソ,,40'^^^^^'レ,200`レ'^} #CA
Time(25:1:0)#CB={v.N(52,78,64) r2
[ '`レ＃`ソ'1'ラ＃`レ＃'1'ソ`レ'1'レラ＃'1]v.N(60,84,72)
[ '`レ＃`ソ'1'ラ＃`レ＃'1'ソ`レ'1'レラ＃'1]} #CB Time(45:1:0)
#CC={'ソ,300`ソ,,40'`レ＃,,38`レ,,48'レ＃,300ラ＃,,92'`ソ,,58`レ＃,,30'ソ,200`レ,,79'ラ＃,,44
'レ＃,300ソ,,98'`レ＃,,20`レ,,10'ラ＃,300,60`レ＃,,40'`ファ＃,,34`レ＃,,24'レ,200,30`レ,,18'ラ＃,,20
'ソ,300`ソ,,60'`レ＃,,12`レ,,8'レ＃,300ラ＃,,48'`ソ,,3^'ソ,200`レ,,20'^
'レ＃,300,60ソ,,40'^^^^^'レ,200,44`レ,,40'^} #CC
//------------------------------------------------------------------------------
TR(4)　v100　o5　q100　l8 p%.N(8,-334,412)
Time(1:1:0)
#DA={`ソ1`レ＃1`レ1ラ＃1
[`レ＃^ソ^`レ＃^ソラ＃`ソ^ラ＃^`ソ^`レ^]} #DA
Time(15:1:0) v.T(0,60,!1.,60,70,!2)< EP.W(0,127,!14^44^95)
l8 r16[14 '"ラ＃レ＃']'"ラ＃レ＃'16,98 EP(0)r8
Time(25:1:0)> #DB={v.N(94,76,68,80) EP(127)
[8 `レ＃^ソ^`レ＃^ソラ＃`ソ^ラ＃^`ソ^`レ^]} #DB
//------------------------------------------------------------------------------
TR(5)　v100　o4　q99　l8 EP.W(0,127,!26) p%(-128)
Time(1:1:0)
r22 #AA
Time(17:1:0)
r16 #AB EP.W(0,127,!24) #AC
//------------------------------------------------------------------------------
TR(6)　v100　o4　q100　l8 EP.W(0,127,!23) p%(342)
Time(1:1:0)
r16 #AA
Time(17:1:0)
r12 #AB EP.W(0,127,!24) #AC
//------------------------------------------------------------------------------
TR(7)　v100　o6　q100　l8 p%(248) EP.W(0,127,!24)
Time(1:1:0)
r12 #CA
Time(25:1:0)
r12 #CB
Time(45:1:0)
r10 #CC
//------------------------------------------------------------------------------
TR(8)　v100　o6　q100　l8 p%(-248) EP.W(0,127,!24)
Time(1:1:0)
r17 #CA
Time(25:1:0)
r17 #CB
Time(45:1:0)
r15 #CC
}





If(music=2){
曲名{"凍霊"}
作者{"ゴロニャ〜ゴ"}
コメント{" …消え行く姿、留まりて願うは、彼の地への想い…"}
/*
曲作りのリハビリと実験目的…何か物足りない。
でも、それが抜け殻らしいように思えてきた…。
// 制作期間：2010/06/02〜07/08                       演奏時間：2分16秒ぐらい  */
//------------------------------------------------------------------------------
//_初期設定
TimeBase      = 96       // 四分音符分解能
Tempo         = 115      // テンポの設定(20〜240を推奨)
TimeSignature = 4,4      // 拍子記号の設定→2,4は2/4拍子を表す
System.MeasureShift(1);    // 音源初期化用に発音を１小節遅らせる
ResetGS();                 // GS音源用リセット
Time(1:1:0); TrackSync;    // 全てのトラックを同期する(初期化後に必須)
Include(delay.h);
//------------------------------------------------------------------------------

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,005,000,109,127,064,040,000,000,000)// エレクトリックピアノ1
TR=2  r-8 Set(002,005,000,109,127,064,040,000,000,000)// エレクトリックピアノ1
TR=3  r-8 Set(003,005,000,109,127,064,040,000,000,000)// エレクトリックピアノ1
TR=4  r-8 Set(004,001,000,109,127,032,040,000,000,000)// グランドピアノ
TR=5  r-8 Set(005,001,000,109,127,096,040,000,000,000)// グランドピアノ
TR=6  r-8 Set(006,108,000,109,127,064,040,000,000,000)// 琴
TR=10 r-8 Set(010,001,000,109,127,064,040,000,000,024)// ドラム(StandardSet)

//------------------------------------------------------------------------------
TR(1)　v120　o5　q100　l8
Time(1:1:0)
#AA={ソ^`レ＃^^^^^ ソ^`レ^^^^^
ソ^`ド^^^^^ レ＃^ラ＃^^^^^
ド^ソ＃^^^^^ "ラ＃^ソ^^^^^
ド^ソ＃^^^`ド^ ソ^`レ^^^`レ＃^}
[7 #AA] EP.W(0,127,!16) #AA
Time(57:1:0)
V.T(127,0,!1*8)
//------------------------------------------------------------------------------
TR(2)　v100　o5　q100　l8 FineTune(72)
Time(1:1:0) EP.W(0,127,!16) P.WE(64,0,!1)
r8 [8 #AA]
Time(57:1:0)
V.T(127,0,!1*8)
//------------------------------------------------------------------------------
TR(3)　v100　o5　q100　l8 FineTune(60)
Time(1:1:0) EP.W(0,127,!16) P.WE(64,127,!1)
r4 [8 #AA]
Time(57:1:0)
V.T(127,0,!1*8)
//------------------------------------------------------------------------------
TR(4)　v127　o6　q100　l8  t.N(-2,2,0)
Time(9:1:0)
#BA={MidiDelay({ドソ`レ`ソ^^`レ^ ソ`ドレ＃ラ＃^^レ＃^},4,!8)}
#BB={MidiDelay({ドレ＃ラ＃レ＃^ファ^ラ＃ レ＃^ソ^レ^"ラ＃^},4,!8)}
#BC={MidiDelay({ソ＃`ドレ`レ＃^ラ＃`ソレ＃ `レ^^`ファ^^`レ＃^},4,!8)}
#BD={MidiDelay({`レソ^`ファラ＃^`レ＃^ レ＃^ソ^`ファ^`レ^},4,!8)}

[#BA #BB #BC #BD]
Time(41:1:0)
[#BA #BB #BC #BD]
Time(57:1:0)
V.T(127,0,!1*8)
//------------------------------------------------------------------------------
TR(5)　v100　o6　q100　l8  FineTune(68)
Time(9:1:0) t.N(2,-2,0)
[#BA #BB #BC #BD]
Time(41:1:0)
[#BA #BB #BC #BD]
Time(57:1:0)
V.T(127,0,!1*8)
//------------------------------------------------------------------------------
TR(6)　v100　o5　q100　l8
Time(25:1:0)
#CA={`ド^^`ド32`ド32`ド16`レ＃`ファ`ソ`ファ`ソ^^`ソ32`ソ32`ソ16`ファ`ソ`レラ＃
`レ＃32`レ＃32`レ＃32`レ＃32`レソ`レラ＃`レ`レ＃`レラ＃32ラ＃32ラ＃16`レ`レ＃`レ`レ＃16`レ＃16`レ[4`レ＃32]`レ
レラ＃`レ`レ＃レラ＃`レ`レ＃[レ32]レ16ソ`レ＃[4`レ32]ラ＃^`レ`レ＃
`ファ`ドラ＃ソ[`レ32]`レ16ファ16ファ16[4`ソ32]`ファ`ソドソラ＃`レ＃^`レ^}
#CD={`ド`ファ`ソ`ソ＃[4`ソ32]`ソ＃`ソ^[4`ソ32]`レ＃`レ`レ＃`ファラ＃`ソソ16[`ソ32]
`レ＃ソ`レソ`レ＃ソ[`レ16]`ソ[4`レ＃32][4`レ32][`レ＃16]レ`ソ`レラ＃`レ
ソ[`ソ16][4`ファ32][`ラ＃16]`ソ^`レ＃[`ファ16]`ソ^`レ[ラ＃24]ソ24`ファ`レ＃`ファ`ソ
`レ＃[4ソ32]`ドソ`ソレ＃`レラ＃[3`ソ24]ソ[3`レ＃24]レ`レ＃^`レ^
}

#CA `レ＃1
Time(41:1:0)
#CA #CD `レ＃1
Time(57:1:0)
V.T(127,0,!1*8)
//------------------------------------------------------------------------------
TR(10)　v90　o3　q96　l16 p.N(0,64,127)
//kikc2 o2 b
//kick1 o3 c
Time(17:1:0)
#DrA={MidiDelay({"b^^^"b^^^"b^^^"b^^^ "b^^^"b^^^"b^^^"b^"b^},5,!16)}

[8 #DrA]
Time(41:1:0)
[12 #DrA]
Time(57:1:0)
V.T(127,0,!1*8)
CH(10)
Time(25:1:0)
#DrB={MidiDelay({"g#^^^"e^"d^"g#^^^d^^^ e^^ef^^^"a^^^"a#^d"a#},5,!8)}
[6 #DrB]
Time(41:1:0)
[8 #DrB]
CH(10)
Time(37:1:0)
#DrC={MidiDelay({f#^^^`a^`d#^a#^^f#`d#^^^ a#^f#^^^`d#^`a^^^f#^`c#^},3,!6)}
[#DrC]
Time(49:1:0)
[4 #DrC]
}



/*

　「諸行無常」


今回は、出来上がる寸前で放置してあった曲が何となく形になったので、
出来上がった2つの曲を纏めてみたという感じです。

1曲目と2曲目との音量の大きさが違うのは、音量に対する考え方が途中で変わった…
というか、そこまで調整する気力が残っていなかったという感じです。　　orz
とりあえず、2曲目のボリュームの方を調節して、1曲目になるべく合わせていますが、
本来は127での状態で作っていたり。…気にしない方向で考えるかな。

なるべく音割れしないぐらいの音量でwavに録音する方が、小さな音でwavにして音量調節するより、
何か音割れがしにくい感じで大きめの音量？にしやすい様に思えました。自分の環境では。

それに気づくまでは、少し小さめの音量で録音して後で大きくする方が良いと思っていました。
…多分、環境によって合うやり方が違うのかもしれませんね。

それにしても、ずっと聴いていると分からなくなる…音量も、変化も。
重ねてもあまり変わってないのでは？と疑問に思えてきたり、他と比べて音量これで良いのか？とか、
そんなところで錯覚を起こしてしまう…そうなったら少し休むのが良いのかもしれませんね。多分。
それか、吹っ切れるか(何



…しかし、どっちの名義で投稿するか何とも悩む暗さがあったり。
まぁ、狂った感じが少ない気がしたから、こっちで選ぶかな…。
と、結論出るまで何か時間が掛かりました。
もちろん、最終的に吹っ切れて選んだ結果で(何

*/