//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.372)
//------------------------------------------------------------------------------
曲名{"密洞教窟"}
作者{"しるばーすぷれっど"}
コメント{"詰め込み過ぎれば、入れ物は耐えられずに崩壊する"}
// ちょっぴり何かが出てきそうな雰囲気があったりなかったり。
// そんなのは気のせいなのです。…だぶん。
// 制作開始：2007/11/27　　最終更新：2010/07/16
//------------------------------------------------------------------------------
//_初期設定
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(90,125,125)"} // ReverbSetting    Time Dpth High
CuePoint={"TwmChorus(001,045,089,081,015,120,004)"} // ChorusSetting  Wave Mix Dpth FB Freq Dly Phs

//------------------------------------------------------------------------------
//　制作期間：2007/11/27〜
//------------------------------------------------------------------------------
//Solo(1,2)
//------------------------------------------------------------------------------
TR(1)　v100　o5　q100　l8
@(20)       V(127) EP(127) P(064) REV(060) CHO(000)
Time(1:1:0)
[`レ＃^`ド^`ファ^`レ＃^ `ファ^`レ＃`レ`レ＃^`ド^
`レ＃^`ド^`ファ^`レ＃^ `ソ^`ソ`ソ＃`ソ^`レ^
`レ＃^`ド^`ファ^`レ＃^ `ファ^`レ＃`レ`レ＃^`ド^
`レ＃^`ド^`ファ^`レ＃^ `ソ^``ド^`ラ＃`ソ`ド^]
Time(29:1:0)
`ド`レ`レ＃`レ`ソラ＃`ド`レ＃ `レ`ファラ＃`レ`ソ`ファ`レ`ラ＃
`ド^^^シ^ソ^ ラ＃^`ド`レ＃`ファ^`レ^
[ソ^^^`レ^^^`ファ^^^`レ^^^]
ソ^`レ`ファ`レ＃^`レ^ `レ＃^^^`ド`レ`ファラ＃
`ド`レ＃`ファ`レ`ソラ＃`ド`レ＃ ラ＃^`ド`レ`ソ^ソ^
Time(45:1:0)
[`レ＃^`ド^`ファ^`レ＃^ `ファ^`レ＃`レ`レ＃^`ド^
`レ＃^`ド^`ファ^`レ＃^ `ソ^`ソ`ソ＃`ソ^`レ^
`レ＃^`ド^`ファ^`レ＃^ `ファ^`レ＃`レ`レ＃^`ド^
`レ＃^`ド^`ファ^`レ＃^ `ソ^``ド^`ラ＃`ソ`ド^]
//------------------------------------------------------------------------------
TR(2)　v100　o5　q100　l8
  @(20)       V(127) EP(127) P(064) REV(060) CHO(000)
Time(1:1:0)
[[レ＃^^^ファ^^^ レ^^^レ＃^^^
レ＃^^^ファ^^^ ソ^レ＃^:ド^"シ^]ド^^^]
Time(29:1:0)
ド^^"ソ"ラ＃^^レ＃ レ^^"ソ^^レ^
レ＃レ"ソドレ＃ファレ＃レ レ＃レレ＃^^"ソレ"ラ＃
r^レ^^^ファ^^^ソ^^^^ド [ドレ＃ドレ"ラ＃ソラファ]
レ^^ラソ^^ラ＃レ＃ ソレソ^^^ファ [ドレ＃ドレ"ラ＃ソレ＃ファ]
Time(45:1:0)
[[レ＃^^^ファ^^^ レ^^^レ＃^^^
レ＃^^^ファ^^^ ソ^レ＃^:ド^"シ^]ド^^^]
//------------------------------------------------------------------------------
TR(3)　v100　o5　q100　l8
  @(53)       V(127) EP(127) P(064) REV(060) CHO(000)
Time(17:1:0)
ド^^^`ドレ＃ソ^レ＃^ラ＃^^^ファレ レ＃^^^シ^^ソ＃ソレ＃レド"シ^ドレ
ド2,300レ＃2,200ファ2,200レ^"ラ^ド2,300レ＃4,400ファ4,500`ド4,200`レ＃4,200ラ＃4,200レ^
[4 ド4,400"ド4,300"ソ4"レ＃4,200"シ4,400"ソ4,300ソ4,200"レ＃4]
ド2,300レ＃2,200ファ2,200レ^"ラ^<ド2,300レ＃4,400ファ4,500`ド4,200`レ＃4,200ラ＃4,200レ^
Unison5th(ド^^^`ドレ＃ソ^レ＃^ラ＃^^^ファレ レ＃^^^シ^^ソ＃ソレ＃レド"シ^ドレ)
Time(45:1:0)o4 l4 v59 M.WE(0,127,!1,127,33,!8)t.Random(6)P.N(54,74)
Unison5th([レ＃^^^ファ^^^ レ＃^^^ド^^^
レ＃^^^ファ^^^ ソ^レ＃^:ド^"シ^]"ソ^"ド^)
Time(45:1:0)o6 l4 v66
`レ＃^`ド^`ファ^`レ＃^ `ファ^`レ＃`レ`レ＃^`ド^
`レ＃^`ド^`ファ^`レ＃^ `ソ^`ソ`ソ＃`ソ^`レ^
`レ＃^`ド^`ファ^`レ＃^ `ファ^`レ＃`レ`レ＃^`ド^
`レ＃^`ド^`ファ^`レ＃^ `ソ^``ド^`ラ＃`ソ`ド^
//------------------------------------------------------------------------------
TR(4)　v100　o5　q100　l8 BR(24)
  @(54)       V(127) EP(127) P(064) REV(060) CHO(000)
Time(16:1:0) p.T(64,6,!1,96,127,!1.) EP.T(127,127,!1,100,0,!1*2)
P.N(0,127,24,0,127,48,0,127,72,0,127,96,0,127,120,0,127,96,0,127,72,0,127,48,0,127,24,0,127)
[80 ド32]
Time(24:1:0) p.T(0,127,!1,127,44,!1.) EP.T(127,127,!1,127,0,!1.)
P.N(0,127,10,0,127,20,0,127,30,0,127,40,0,127,50,0,127,60,0,127,70,0,127,80,0,127,90,0,127,100,0,127,110,0,127,120,0,127,110,0,127,100,0,127,90,0,127,80,0,127,70,0,127,60,0,127,50,0,127,40,0,127,30,0,127,20,0,127,10,0,127)
[240 `ド96]
Time(32:1:0) EP.T(60,127,!1) p.WE(0,127,!1) Str F1 = {v.T(60,100,!2,100,89,!2)} l96
[48 `ド]p.T(127,0,!2)[48 シ] p.WE(0,127,!1)
F1[24 ド][24 ソ][24 `レ＃][12 ラ][12 ラ＃]F1[24 `ド][24 ソ][24 ファ＃][24 ソ]
F1[24 ラ＃][12 ソ][12 `ド]F1[24 ソ][24 レ＃][24 ファレ][24 レ"ラ＃]r2
F1[24 `レラ＃]r2[24 ラレ]r2 F1[24 ラ＃ファ]F1 r2[24 ソレ]
Time(44:1:0)v100 p.T(64,6,!1,88,128,!1*2) EP.T(110,127,!1,127,44,!1*2)
[96 `ド96][192 ド96]
Time(53:1:0) EP.N(108,127,90)
[r2 F1[24 `レ＃ラ＃]r2[24 ラレ]r2 F1[24 ラ＃ファ]F1 r2[24 ソレ]]
//------------------------------------------------------------------------------
TR(5)　v90　o5　q300　l8 BR(24)
  @(127,002)       V(127) EP(127) P(064) REV(060) CHO(000)
t.Random(016) P.N(64,9,33,108,66,121,4,35,99,60,113,80,44,13)
Time(44:1:0)p%.T(-8192,8191,!1,8191,-8192,!1.)
[ド4]"シ"ラ＃[ド16]["ソ16]["ファ16]"レ＃"ソド[3ド4]ド
Time(54:1:0)p.T(0,108,!1*2,66,6,!2)
[ド4]ド"ド[4ド16]"ド[6ド32]['"ド32"ファ32'][3"ラ16]"ソ16ドq400'"ド"レ＃'ド4"ド4ファ8.[3ラ＃16]`ド2レ＃2
//------------------------------------------------------------------------------
TR(6)　v88　o4　q100　l1
  @(51)       V(127) EP(127) P(000) REV(060) CHO(000) t.N(0,1)
Time(1:1:0) EP.WE(96,127,!6,127,96,!8) V.T(0,127,!1*12,127,127,!1^1.,127,55,!1.)
[`ド^ラ＃^`レ＃^ソ^]
Time(45:1:0)V.T(0,127,!1*8)
[`ド^ラ＃^`レ＃^ソ^]
//------------------------------------------------------------------------------
TR(7)　v88　o4　q100　l1
  @(52)       V(127) EP(127) P(127) REV(060) CHO(000) t.N(1,0)
Time(1:1:0) EP.WE(96,127,!6,127,96,!12) V.T(0,127,!1*12,127,127,!1^1.,127,55,!1.)
[ソ^`レ＃^ソ＃^`ド^]
Time(45:1:0)V.T(0,127,!1*8)
[ソ^`レ＃^ソ＃^`ド^]
//------------------------------------------------------------------------------
TR(9)　v100　o3　q100　l8 BR(24)
 @(117)       V(127) EP(127) P(064) REV(060) CHO(000)
Time(9:1:0)
[ド^^^ド^^^ ド^ド^ドド^^
ド^^^ド^^^ ド^ド^ドド^ド]v120> p.W(64,0,!4)
[ド^^^ド^^^ ド^ド^ドド^^
ド^^^ド^^^ ド^ド^ドド^ド]
p.W(44,127,!8)
[ド^^^ド^^^ ド^ド^ドド^^
ド^^^ド^^^ ド^ド^ドド^ド]
p.WR(0,127,!16,127,0,!12)
[ド^^^ド^^^ ド^ド^ドド^^
ド^^^ド^^^ ド^ド^ドド^ド]
p.WR(0,127,!16,127,0,!24)
ド^^^ド^^^ ド^ド^ドド^^
ド^^^ド^^^ ド^ド^ドド^ド<
p.W(100,0,!32,44,127,!16,127,0,!8)
[6 ド^^^ド^^^ ド^ド^ドド^^
ド^^^ド^^^ ド^ド^ドド^ド]
Time(61:1:0)
EP.T(127,0,!1*6)
//------------------------------------------------------------------------------
TR(10)　v100　o5　q100　l8 p%(-8000) BR(8)
 @(1)       V(127) EP(127) P(064) REV(060) CHO(000)
$a{'n(SquareClick)n(MetronomeClick)n(Kick2)n(Kick1)',}$b{'n(Slap)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),}


Str AA={ Rythm{ 
      {jrjr|jrsr|jrjr|jrsr}
      {rrrr|rrrr|rrrr|rrrr}
       arrr|arrr|arar|aarr}}

Str AB={ Rythm{ 
      {rrrr|rrrr|rrrr|rrrr}
      {rrrr|rrrr|rrrr|brrr}
       arrr|arrr|arar|aara}}

Str AC={ Rythm{ 
      {jrjr|jrsr|jrjr|jrsr}
      {rrrr|rrrr|rrrr|rrrr}
       rrrr|rrrr|rrrr|rrrr}}

Str AD={ Rythm{ 
      {jrjr|jrsr|jrjr|jrsr}
      {rrrr|rrrr|rrrr|brrr}
       arrr|arrr|arar|aara}}


Time(9:1:0)
[AA AB]
Time(25:1:0)l8.
AC r4 [3AC] r4 AC r2 l8 AB AA 
Time(45:1:0)
[4 AA AD]
//------------------------------------------------------------------------------
TR(11)　v100　o5　q100　l8 p%(-8192) BR(24)
 @(17)       V(127) EP(127) P(064) REV(060) CHO(000)

Time(9:1:0)
[AA AB]
Time(25:1:0)l4
[3 AC]AD l8 AC AD 
Time(45:1:0)
[4 AA AD]

/*
…何か叫び声予想通りに鳴らなかったなぁ。
しかし、予想していた以上に怖いような…？
予定としては一つの声のように聴こえさせたかった。
どうやら2、3TR使う必要があるかもしれない。

ボイスの音の使い方…作り終わってから気になりだした。
確か前に誰かが先にやっていたような記憶が急に湧き出た…
しかし、過去に保存した掲示板の曲を探しても見つからない。
…考えすぎだったか、勘違いだったのだろうか…
探し当てることが出来なかっただけだろうか。

かなり予想外な感じの出来になって作っていて面白かった。
…まだまだ稚拙で粗い出来だけれど。

そういえば心なしか最近自分の曲はワンパターンな感じの進行に思えてきた。
*/