//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.374)
//------------------------------------------------------------------------------
/*
           「…まだ、生きてます…」

今回は昔作った曲を本気で色々調整してみようという事で、面倒くさい気持ちに押し潰されな
がら仕上がった感じになりました。
気力が持つかどうか怪しかったので、とにかく短い曲を選びたかった…という事で「月夜花」
を選んだ感じだったり。…何しろ根性ありませんので。
しかし自分史上最高の仕上りを目指しながら作ったわりには、まだ納得が行かない様な気分。

曲を調整する際気を付けていた事というか、疑問に思っていた事がありまして、たとえ人が毎
回同じ演奏をする事が出来なくても、録音したものは何度も寸分違わずに同じ演奏で聴ける。
それならベストな演奏を録音し、何度もその時の演奏を聴けるのと同じ様に、Randomに頼らず
何度も同じものを聴ける様に仕上げるのも良いかも？という事を意識して仕上げてみました。

結果、Random使っても使わなくても多分あまり変わらなかったかも…と、微妙に思いました。

そうそう、月夜花を調整している最中に息抜き兼リハビリ兼実験として作った曲を、おまけに
二曲追加しました。こちらはランダムに頼っています。そして四曲目追加は想定外でした。*/

Int MS={001}  // ←にある数字を変えれば他の曲を聴けます。曲目、数字は次の通り。

//  MS={001} 『 月夜花 』 音源は主にSC-8850仕様。
//  MS={002} 『 アクティブタイム 』 音源は主にTW-MUSIC2仕様。TR6,10,11が結構ランダム。
//  MS={003} 『 迷いの森 』 音源は適当。TR3,4が結構ランダム。TR1,2はたまにランダム。
//　MS={004} 『 花月 』 音源は適当。メロディも適当。ほぼランダム。
//------------------------------------------------------------------------------
/*

mp3置場→ https://skydrive.live.com/?cid=e23b453d131d3fb6&id=E23B453D131D3FB6%21145

*/
STR AS={
曲名{"月夜花"}
作者{"ゴロニャ～ゴ"}
コメント{"…幽かに輝く儚き命…"}
// 曲掲示板Part5の方に調整前のMMLがありますので、どう変わったか聴き比べるのも自由です。
// とか当たり前な事を言った所で何も変わりません。
// 制作開始：2009/04/14　　最終更新：2012/04/21
//------------------------------------------------------------------------------
//_初期設定
Include(4neria.h);
Include(SC-8850.h);
TimeBase      = 96       // 四分音符分解能
Tempo         = 86      // テンポの設定(20～240を推奨)
TimeSignature = 4,4      // 拍子記号の設定→2,4は2/4拍子を表す
System.MeasureShift(1);    // 音源初期化用に発音を１小節遅らせる
GS_MODE_SET();// 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,001,000,127,127,088,073,004,000,000)// グランドピアノ(右手)
TR=2  r-8 Set(002,001,000,124,127,040,073,004,000,000)// グランドピアノ(左手)
//------------------------------------------------------------------------------
GS_REVERB_MACRO(4)
GS_REVERB_LEVEL(67)
GS_REVERB_PRE_LPF(2)
GS_REVERB_TIME(71)
GS_CHORUS_MACRO(2)
GS_CHORUS_PRE_LPF(4)
GS_CHORUS_LEVEL(4)
GS_CHORUS_DELAY(35)
GS_CHORUS_RATE(123)
GS_CHORUS_DEPTH(127)
GS_CHORUS_SEND_LEVEL_TO_REVERB(48)
GS_EQ_LOW_FREQ(0)
GS_EQ_LOW_GAIN($38)
GS_EQ_HIGH_FREQ(1)
GS_EQ_HIGH_GAIN($44)
//------------------------------------------------------------------------------
Str P1 = {r-16 y64,127; r16};　 //ペダル
Str P0 = {r-16 y64,0; r16};　　//放す
Str P2 = {r-16 y64,0; r16 y64,127;};　//「放す」してから「ペダル」へ
//------------------------------------------------------------------------------
TR(1)VAR(2)　v100　o6　q100　l8
P1 t.N(0,8,16)'ド,,80ソ,,60`ド,,50'^t(4)ソ,,64^t(0)ソ,,64t(4)ファ,,76t(0)ソ,,89ラ＃ t(2)ソ,,90^ド^ソファ,,80ソ,,74ラ＃,,60 P0
P1 t.N(1,4,2)レ,,74レ＃,,82ソ t(0)ファt(2)ソ^ファレ＃,,70 レ,,78^レ＃,,80^ソ^t(16)ファ,120,58^P0
P1 t.N(24,34,42)'ド,,62ソ,,75`ド,,60'^t(36)ソ,,74^t(31)ソ,,80t(25)ファ,,84t(19)ソ,,90t(17)ラ＃ P2 t(21)ソ,,92^t(11)ド^t(4)ソ,,72t(0)ファ,,75ソ,,80`ド,,96 P0
P1 `レ`レ＃`ソ,,80`ファ,,78`レ,,74^`ド,,90`レ `ド^`レ^ P2 t.N(10,20,32)'ソ,,79`レ`ソ,,78'^t(0)`ファ,,80^ P0

P1 ソ,,70ファ,,75ド,,85ソ,,90ファ,,98^レ＃,,80レ,,75 レ,,60^"ラ＃,,85^レ＃,,89レ,,84レ＃,,90ファ P0
P1 ソt.N(1,-1,0,5)`ド`ソ,,104`ファ,,102`レ,,97^t.N(-1,-2)`ド`レ,,90 P2 t(0)`ド16,,80`レ16,,90ラ＃,,70ソ,,90`レ,,114t.N(0,8,16)'レ＃,,95ラ＃,,108`レ＃,,92'^t(7)`レ,,87^ P0
P1 t.N(8,7,4,0,4,3,2,1)`ド,,78ラ＃,,76`ド,,82`レ＃,,93`ファ,,80`レ＃,,90`レ`レ＃,,108 P2 t(2)`ラ＃,,122^t(3)`レ,,98^t(0)`ド,,95^ラ＃,,90^ P0
P1 ファ,,80レ＃,,85レ,,90レ＃,,95"ラ＃^"ソ,,95レ,,90 P2 t(2)レ＃^t(6)レ,,80^t(2)ド,,65^^^ P0

P1 t(20)`ソ,,70^t(10)`ファ16,,85t(2)`レ＃16,,74t(0)`レ,,68^t(4)ラ＃,,88^`レ,,118 P2 t(0)`レ＃,,73t(2)ソ,,120`ソ,,110t(1)ラ＃,,84t(2)`ファ,,80t(-2)`レ＃,,104t(0)`レ,,114t(2)ラ＃,,92 P0
P1 t(4)`ド16,,120t(1)`レ16,,100t(-3)`ド,,80^t(-2)ラ＃,,119^t(1)`レ,,90^t(0)`レ＃,,108 `ファ,,80^t(1)`レ＃16,,70`ファ16,,120t(0)`レ＃,,98^t.N(4,1,-2)ラ＃16,,107`レ＃16,,127`レ,,100^ P0
P1 t.N(0,8,16)'ソ,,100ラ＃,,127`ド,,110'ラ＃t(2)ソ,,89t(0)ラ＃,,106t(2)`ド,,110t(1)ラ＃,,108t(2)`レ＃,,115t(3)`レ,,127 P2 t(10)`ラ＃,,108^t(4)`ファ16,,105t(0)`レ＃16,,82t(-2)`レ16,,93t(-6)ラ＃16,,110t(-4)ソ,,101^t(2)`レ,,89^ P0
P1 t(0)`ソ,,90t(4)`ド,,97t(0)`レ,,108t(1)`レ＃,,124t(2)`レ,,112^t(0)ラ＃,,94`レ,,127P2 t(2)`レ＃,,120^t(4)`レ,,92^t.N(8,18,30)'ソ,,123`ド,,98`レ＃,,84'^t(18)ラ＃^ v85t(42)`ド1^1 P0 t(0)[r1]
//------------------------------------------------------------------------------
TR(2)VAR(3)　v92　o4　q100　l8
P1 r^^^t(3)ソ,,80^t(1)ラ＃,,84^t(2)ファ,,104^^^ t(0)レ＃,,80^"ラ＃,,74^ ド,,83^^^レ,,78^レ＃^ t(4)ソ,,88^^^t(12)ファ,,61^^^
^^^^ P2 t(26)ソ,,72^t(23)ラ＃,,90^ t(18)`ファ,,110^^^t(0)`レ＃,,88^`レ,,80^ t(4)`レ＃,,70^^^t(2)ラ＃,,76^^^ P2 t(4)`レ＃,,88^^t(0)`レ,,102t(2)`レ＃,,98t(0)`レラ＃,,67^
^^^t(4)ラ＃,,76^^t(2)ラ＃,,70^t(0)レ＃,,64ファ,,95レ＃,,82レ,,71^ド,,82レ,,120レ＃,,93 "ラ＃,,74^^^t(3)レ＃,,80^t(1)ファ,,67^^^t(0)レ＃,,88^t(1)レ,,102^t(0)レ＃,,77^P0
P1 ド,,84ラ＃ソ,,102^t(3)`レ,,94^^^t(4)`レ＃^^^t.N(0,1)ラ＃,,89`レ,,93ソ,,80^t(0)レ,,85^t(4)ソ^`レ,,84^t(2)ラ＃t(0)`レ,,90t(2)ソ^t(0)ファ,,88^t(1)`ド,,70^^^P0
P1 `ソ,,75^^^^^t(2)`ド,,89^t(4)ソ,,78^t(2)ラ＃,,97^t(1)`レ＃,,110^t(-1)`レ,,90^ t(-2)`ド,,80^^t(-4)ソ,,90^^t(-3)レ＃,,86^t(0)`レ,,84^ソ^レ＃,,99^"ラ＃,,114^P0
P1 t(2)"ド,,127ド,,89t(0)ソ,,99ファt(1)ソ,,84^レ＃,,80t(3)レ,,73^^ "ラ＃,,97^t(2)レ＃,,86^t(8)レ,,78^P2 t(2)ド,,82t(0)ソレ,,102t(2)ラ＃,,108t(4)`レ,,91^t(2)`レ＃,,88P2 t(-1)`レ,,80t(1)ラ＃,,86^t(3)ファ,,114^t(12)レ＃,,95^t(16)"ソ,,71^
t(44)ド1,,82^1 P0 t(0)[r1]
}

//------------------------------------------------------------------------------
STR BS={
曲名{"アクティブタイム"}
作者{"ゴロニャ～ゴ"}
コメント{"…遊びは大事だ！･･･でも遊び過ぎに注意…"}
// 制作開始：2012/01/31　　最終更新：2012/04/19
//------------------------------------------------------------------------------
//_初期設定
Include(guitar.h);
TimeBase=(096)           // 四分音符分解能
Tempo=(116)              // テンポの設定(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,94)"} // 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,007,008,127,127,092,055,000,000,000)
TR=2  r-8 Set(002,001,016,127,127,050,047,000,000,000)
TR=3  r-8 Set(003,028,000,127,127,064,040,014,000,000)
TR=4  r-8 Set(004,117,000,127,127,064,008,010,000,000)
TR=5  r-8 Set(005,114,000,127,127,064,090,000,000,000)
TR=6  r-8 Set(006,082,000,124,127,064,040,000,000,000)

TR=10 r-8 Set(010,001,000,123,127,064,040,000,000,000)
TR=11 r-8 Set(011,017,000,127,127,064,040,000,000,024)

//------------------------------------------------------------------------------
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,12,24)'ソ,,80`レ,,110`ソ,,90'^^^t(0)`ラ,,97`ソ`ラ,,106`ソ4,,110`ミ^`ファ`ミ`レ,,98`ド`ミ^`レ,,105^`ド^^^
:ミソ`ミ`レ,,90ソ,,108`ファ4,,120`ミ`ド,,104]'`ソ,,110``ド,,120'^`シ`ソ,,108'`ソ,,111``ド,,123'^ラ,,90シ,,105ラ
ミ16ファ16,,90ソ2,,80`シ4,,94`ソ`ミ`ファ`ミ`レ^シソ`ド`ミ^`ソ^^`ミ^`ド^`ソ`ファ`ミ`レ`ミ^`ド
`ラ`ソ^^`ド`ラ`ソ^^``ド^`シ`ソ`ミミ16ソ16`ド`ミ^`ファ`ミ^`ファ`ミ`ドミ^^ソ^ド``ド`ドr1^1
//------------------------------------------------------------------------------
TR(2)　v108　o4　q100　l8
Time(1:1:0)
['ド,,90ミ,,105'^^P1'ドファ,,95'^^"ソ4,,70'レソ,,99'^^P0'ド,,114ラ,,94'^^'レソ'^
'ド,,100ミ'^^'ドファ'^^^^'"ソ,,110レ'^^'"シミ,,90'^^'レソ'^]
['ドミ'^^P1'ド,,99ファ'^^"ソ4,,90'レソ'^ミ'ドラ'^^P0'レソ'^
P1'ドミ'"ミ,,80 P0"ファP1'ドファ'^"ド4,,90 P0 ミ P1'"ソレ'"ミ4,,100'"シ,,90ミ'^"ド'レソ'^P0]
'ド,,90ミ,,105'^^P1'ドファ,,95'^^"ソ4,,70'レソ,,99'^^P0'ド,,114ラ,,94'^^'レソ'^
'ド,,100ミ'^^'ドファ'^^^^'"ソ,,110レ'^^'"シミ,,90'^^'ドソ'^r1^1
//------------------------------------------------------------------------------
TR(3)　v77　o5　q100　l8 v.N(70,74,77,81,76,70,75)
Time(1:1:0)
[[8C(1,8)][8Dm(1,8)][8C(1,8)]:[4F(1,8)][4Am7(1,8)]][4Gm7(1,8)][4F(1,8)]
[[[4Am(1,8)][4F(1,8)]:[4C(1,8)][4F(1,8)]][4Gm7(1,8)][4F(1,8)]]
r1^1
//------------------------------------------------------------------------------
TR(4)　v100　o4　q100　l8 v.N(89,120,90,100,124,100,102,108)
Time(1:1:0)
Sub{[9r1r2.```ソ,,88```ソ,,77]}
[8^^ド^ドドド^ド^ドド^ドドド]
[3r1]r2.ド^r1^1
//------------------------------------------------------------------------------
TR(5)　v90　o5　q100　l8
Time(1:1:0)v.N(70,82,108,94,82)
[3[r1]r2r4. P.N(32,64,96)[3`ソ32]P.T(127,0,!64)`ソ32[4r1]]

//------------------------------------------------------------------------------
TR(6)　v100　o5　q100　l8
Time(1:1:0) v.N(85,94,100,90)
//RandomSelect のサンプル
Int NA
l8
[160
　NA=RandomSelect(28,31,35,36,40)
　n(NA)
]r1^1

//ここまで
//------------------------------------------------------------------------------
TR(10)　v100　o5　q100　l8
Time(1:1:0)v.N(93,100,88)
//RandomSelect のサンプル
Int NO
l8
[160
　NO=RandomSelect(29,30,64,66,67,75,82)
　n(NO)
]

//ここまで
//------------------------------------------------------------------------------
TR(11)　v100　o5　q100
//RandomSelect のサンプル
Int MC
Time(1:2:0)v.N(90,98,100,94,83)p%(-8190)

l1
[20
　MC=RandomSelect(38,51,49,57,59,67)
　n(MC)
]r1^1

//ここまで
//------------------------------------------------------------------------------
TR(98)CH(10)　v100　o5　q100
//RandomSelect のサンプル
Int NQ
Time(1:2:0)v.N(95,98,100,96,93)

l2
[40
　NQ=RandomSelect(28,38,59,74,67)
　n(NQ)
]

//ここまで

//------------------------------------------------------------------------------
TR(99)CH(10)　v100　o5　q100
Time(1:1:0)v.N(100,80,90,70)
//RandomSelect のサンプル
Int NB
l16
[320
　NB=RandomSelect(42,44,60,70,85)
　n(NB)
]

//ここまで
}
//------------------------------------------------------------------------------
STR CS={
曲名{"迷いの森"}
作者{"ゴロニャ～ゴ"}
コメント{"自然なのか、人工的なのか、謎多き聖域"}
// 制作開始：2012/04/25　　最終更新：2012/05/08
//------------------------------------------------------------------------------
//_初期設定
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={"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,009,000,127,127,064,040,000,000,000)
TR=2  r-8 Set(002,010,000,127,127,064,040,000,000,000)
TR=3  r-8 Set(003,013,000,127,127,064,040,000,000,000)
TR=4  r-8 Set(004,015,008,127,127,064,040,000,000,000)

//------------------------------------------------------------------------------
TR(1)　v100　o5　q100　l8
Time(1:1:0)
[10'"ラレ'^'"ラレ'^'レファ'^'レファ'^'"ファ"ラ＃'^'"ファ"ラ＃'^'"ファ"ラ'^'"ラド'^]
//RandomSelect のサンプル
Int DO
l4
Sub{[48　DO=RandomSelect(60,62,65)　n(DO)]}
Int DU
l4
[48　DU=RandomSelect(55,57,58,60)　n(DU)]
//ここまで
l8 [10'"ラレ'^'"ラレ'^'レファ'^'レファ'^'"ファ"ラ＃'^'"ファ"ラ＃'^'"ファ"ラ'^'"ラド'^][r1]
//------------------------------------------------------------------------------
TR(2)　v100　o5　q100　l8
Time(1:1:0)
[4r1]
[3[ソラ＃レ＃^^ファ^"ラ＃16ド32レ32ファファソファ^"ラド:^]"ファ]
[4r1]
//RandomSelect のサンプル
Int BO
[3[l8[3 BO=RandomSelect(63,67,70) n(BO)]^^ BO=RandomSelect(58,62,65) n(BO)^l16 BO=RandomSelect(55,57,60) n(BO)
l32[BO=RandomSelect(58,60,62) n(BO)]l8[4 BO=RandomSelect(58,62,65) n(BO)]^[BO=RandomSelect(57,60,62) n(BO)]:^]
BO=RandomSelect(53,55,60,65) n(BO)]
//ここまで
[4r1]
[3[ソラ＃レ＃^^ファ^"ラ＃16ド32レ32ファファソファ^"ラド:^]"ファ][r1]
//------------------------------------------------------------------------------
TR(3)　v90　o5　q100　l8
Time(1:1:0)
[8r1]
//RandomSelect のサンプル  74=d 76=e 77=f
Int GO
l8[64 GO=RandomSelect(74,76,77) n(GO)][8r1]v80[32 GO=RandomSelect(72,77,79) n(GO)][32 GO=RandomSelect(70,72,76) n(GO)]
[4r1]
Sub{[64 v70 GO=RandomSelect(86,88,89) n(GO)]}
[64 v90 GO=RandomSelect(74,76,77) n(GO)][r1]
//------------------------------------------------------------------------------
TR(4)　v90　o5　q100　l8
Time(1:1:0)
[8r1]
//RandomSelect のサンプル 60=o5 c
Int NO
[12 l4 NO=RandomSelect(55,57,64,65) n(NO)
l16[ NO=RandomSelect(64,65,67,81) n(NO)]
l8[3 NO=RandomSelect(64,66,67,79) n(NO)]
l4 NO=RandomSelect(53,62,65,72) n(NO)]
//ここまで
[8r1]
Sub{r8[8 l2 NO=RandomSelect(55,57,64,65) n(NO)]}
[8l2 NO=RandomSelect(53,60,69,70) n(NO)]
[4r1]
Sub{r8[8 l2 NO=RandomSelect(50,48) n(NO)]}
Sub{[8l2 NO=RandomSelect(55,45) n(NO)]}
[4 l4 NO=RandomSelect(55,57,64,65) n(NO)
l16[ NO=RandomSelect(64,65,67,81) n(NO)]
l8[3 NO=RandomSelect(64,66,67,79) n(NO)]
l4 NO=RandomSelect(53,62,65,72) n(NO)]
Sub{r8[8 l2 NO=RandomSelect(53,50,48) n(NO)]}
Sub{[8l2 NO=RandomSelect(55,45,77,70) n(NO)]}
[4 l4 NO=RandomSelect(55,57,64,65) n(NO)
[l16 NO=RandomSelect(64,65,67,81) n(NO)]
[3l8 NO=RandomSelect(64,66,67,79) n(NO)]
l4 NO=RandomSelect(53,62,65,72) n(NO)]
[4 l4 NO=RandomSelect(55,57,64,65) n(NO)
l16[ NO=RandomSelect(64,65,67,81) n(NO)]
l8[3 NO=RandomSelect(64,66,67,79) n(NO)]
l4 NO=RandomSelect(53,62,65,72) n(NO)][r1]
}
//------------------------------------------------------------------------------
STR DS={
曲名{"花月"}
作者{"ゴロニャ～ゴ"}
コメント{"風流な…遊び？"}
// 制作開始：2012/07/01　　最終更新：2012/07/04
//------------------------------------------------------------------------------
//_初期設定
Include(unison.h);
TimeBase=(096)           // 四分音符分解能
Tempo=(116)              // テンポの設定(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,081,000,127,127,064,040,000,000,000)
TR=2  r-8 Set(002,081,000,127,127,040,040,000,000,000)
TR=3  r-8 Set(003,081,000,127,127,088,040,000,100,000)
TR=4  r-8 Set(004,081,000,127,127,009,040,000,000,000)
TR=5  r-8 Set(005,081,000,127,127,117,040,000,000,000)

Int NO
Str GON ={
NO=RandomSelect(44,48,49,53,55,56,60,61,65,67,68,72,73,77,79,80,84,85) n(NO)}
Int NH
Str HON ={
NH=RandomSelect(41,48,53,60,65,72,77,84,89) n(NH)}
Int NS
Str SSG ={
NS=RandomSelect(44,48,53,56,60,65,68,72,77,80,84,89) n(NS)}
Int NA
Str NAG ={
NA=RandomSelect(43,48,55,60,67,72,79,84,91) n(NA)}
// GON→五音音階?(ドレ♭ファソラ♭)  
// HON→本調子(ドファ`ド)            
// SSG→三下がり(ドファラ♭)         
// NAG→二上がり(ドソ`ド)            
// 確か…音階はこんな感じだった気がする…。英字は気にしない。
//------------------------------------------------------------------------------
TR(1)　v94　o5　q100　v.Random(30) t.Random(3) EP.W(60,90,!24,90,115,!16,115,127,!3)
Time(1:1:0)
l2[10GON]l1 GON r1
[3[l8[3 GON]l16[SSG]]l8
[4 GON]l16[HON]l4 GON l8 GON]l4 GON l16[GON]l8[3GON]l4 GON l2[GON]l1[GON] r1l2[8GON]
rl1GON l4[GON] l12[12GON]l28[28GON]l4[GON]l8[4GON][4l16[HON]l8GON]l4[3GON]l8[GON]l4[4GON]l2[4GON]t(0)r1[3l1GON]r1
//------------------------------------------------------------------------------
TR(2)　v93　o5　q100  v.Random(34) t.Random(5) EP.WR(40,127,!32,127,90,!32,90,117,!32,117,74,!32,74,108,!32,108,63,!32,63,112,!32,112,52,!32,52,120,!32,120,40,!32)
Time(1:1:0)
r16 l2[5HON SSG]l1 SSG r1r-16
[3l4[[NAG][SSG]]]l4 HON l16 HON SSG l8[3HON]l4 SSG l2[HON]l2.HON l4HON l1HON r1l3[12HON]
r2l16[16HON]l2HON l1HON l2[HON]l3[3HON]l16[HON]l8[3SSG]l2HON l4[4HON] [SSG]l8[4HON]l2[4HON]t(0)r1[l1GON]HON r1
//------------------------------------------------------------------------------
TR(3)　v90　o5　q100　v.Random(32) t.Random(3) EP.WE(70,127,!1,127,40,!1)
Time(1:1:0)
r8 l1[6NAG]r1r-8
[3l4[8HON]]l4 NAG l16 [NAG] l8 HON [NAG] l4 GON l2[NAG]l2[SSG]l1SSG r1l5[20NAG]
r2l1NAG l8[3NAG] r8l6[6NAG]l1NAG l32[32NAG]l8[8GON]l4[4SSG] [4NAG]l2[4HON]t(0)r1[l1GON]HON r1
//------------------------------------------------------------------------------
TR(4)　v95　o5　q100　l8　v.Random(30) t.Random(3) EP.WR(40,127,!28,127,40,!28)
Time(1:1:0)
l1[NAG]l4 NAG l2 NAG l1 NAG l4 NAG l2[NAG]l1 NAG r1
[3l2[4NAG]]l4 GON l16[NAG] l8[3NAG]l4 NAG l2NAG HON l1[NAG] r1l2[4NAG HON]
rl3[3HON]l8[4HON]l1SSG l4[4SSG]l18[18SSG]l2HON l6[3NAG]l2[NAG] l4[HON][SSG]l2[4SSG]t(0)r1[l1GON]SSG r1
//------------------------------------------------------------------------------
TR(5)　v96　o5　q100　l8　v.Random(29) t.Random(7) EP.WR(60,127,!12,127,60,!12)
Time(1:1:0)
r16 l2[3SSG]l8[SSG]l4[SSG]l2 SSG l4 [3SSG]l2 SSG l1[SSG]r1r-16
[l2[4SSG]]l2.[SSG]l2SSG l4SSG l16[SSG]l8[3SSG]l4HON l2HON SSG l1[SSG] r1l2[8SSG]
rl1SSG l4.SSG r8l8[8SSG]l3[3SSG]l9[9SSG]l1SSG l2[SSG] l4[4SSG]l2[4SSG]t(0)r1[l1GON]SSG r1
}

If(MS = {001}){AS}
If(MS = {002}){BS}
If(MS = {003}){CS}
If(MS = {004}){DS}

/*------------------------------------------------------------------------------



           「…もう、アカン…」


ということで、現在まだ家はインターネットを使える環境ではないので滅多に現れませんが、
極稀に他の場所で使わせて貰える機会を狙って曲を投稿する等、色々模索している愚者です。
今まで曲の感想を書く事が出来ず、全く思いつかない事態も何とかしようと企んでいたりも…
テレビや図書館で借りたCDや、昔集めたサクラユーザーの皆様の曲等から特訓をしてみる等…

と、まだ模索しているだけの話は置いといて…（何

最近になって、MIDIからwavに録音した際に出るノイズをSoundEngine Freeのノイズサプレッサー
を幅-6.0とか、スレッショルドを-90とか凄く弱く全体域ノイズ低減設定して重ねがけし続ければ、
そこまで音質変わらずにいつか消える事に気が付いた…という事を個人的メモとして書き残します。
とりあえず他に気を付けなければいけない事は、録音する時にノイズが聴こえない程度に音量を設定する事。
ノイズの音量気にせず調整していったら、無音になる所はちゃんと消えるけど、音が鳴る部分には
しっかりノイズが入っていて、ノイズサプレッサ重ねがけの後に音量上げたらノイズも増幅されたり…
と、最初からやり直す事にならない様に、USBオーディオIFとか音源の音量等録音前に確認しておく事。

あと、ノイズサプレッサで-90dB以下で消えない場合、ノイズゲートを使ってみたりとかも良いかも。

…とか色々だらだら書いた後に、結局録音状況次第でこれが全く当てはまらなかったりする事に気づかされた。
何だか一番最初の録音が最も重要の様な気がしてきた…もっと色々試さないと自分には分かりそうも無いですな。

…こんなところまで見てくださった方々に申し訳ないと思いつつも長々と書いてしまっているのは、
自分自身の記憶力に不安がある為、忘れてしまった時の為に残しておきたいと思ったからです。
パソコンが故障したりとかでデータが消えてしまった場合でも、ネット上にあれば後で見れるかなという
バックアップ目的ですが、もう一つの目的でとてつもなく可能性が低いと思いますが、もしかしたら
他の人にも役立ててもらえるかもしれない、というとても浅はかで小さな野望があったりします。

…結論、不安解消と自己満足だという事で、この個人的メモの事は
大変申し訳ありませんが、どうか見て見ぬフリをしてやって下さい。