/*コメント
※PC内臓音源可、mp3推奨(演奏時間 3:15)
※unison3.h,syoki.hは下記アドレスよりincludeフォルダに別途保存又はダウンロードしてください。
unison3.h…http://www.oto.chu.jp/mmlbbs6/post.php?mml_id=1776
syoki.h……http://www.oto.chu.jp/mmlbbs6/post.php?mml_id=1776
http://kabanesuiryutsukasa.web.fc2.com/ryujin/music/other/2016/index.html
【黄昏観光案内所｜屍翠龍司×龍神団】
http://kabanesuiryutsukasa.web.fc2.com/
(C) Kabanesuiryu Tsukasa 2009- */
MetaText={"
☆ 廃墟シリーズ4曲目 ☆
廃墟シリーズは2013年作品集に収録した、一曲完結物語の作品群です。
4年の時を超えてまた作りたくなったので、当時の幻想感を残しつつ
壮大な物語を表現してみました。
ざっくりと転調するところは、33小節目、49小節目、89小節目。
33小節目は変化が小さいですが、構成する音が変わります。
49小節目は＃が付く音も変わります。(←雰囲気が変わるので、ここが一番分かりやすいと思います)
89小節目で一番最初の調に戻ります。
【最奥の廃墟 物語】
人が立ち入ることのない、神々の住まう神聖な領域。
嘗てそこに住んだ人々の、〝生活を営んだ形跡″を残す。
大自然に還り逝く、人の痕跡を旅人は静かに見送る。
久遠の地に、人々が二度と立ち入らぬようにと
美しい大地は時間の力を借りて威を振るう。
朽ちた家屋、朽ちた線路、朽ちた町…
蒼い空、生い茂る草木、清らかな沢…
全てはここから始まり、ここで終わる。
"}
//=====================================
//定義
Include(gs.h); Include(delay.h); Include(fadeio.h); Include(syoki.h); Include(unison3.h);
//音源初期化
ResetGM; r2 ResetGS; r2 TrackSync;
//曲情報
TrackName={"最奥の廃墟"}; Copyright={"屍翠龍司"};
//設定
System.MeasureShift = 1; System.TimeBase=96;
System.vAdd=10; System.qAdd=5; System.KeyFlag=0;
TimeSignature=4,4; Tempo=105;
//=====================================
//Tempo(初期でない値をここに記入)
Time(17:1:0); Tempo = 112;
Time(25:1:0); Tempo = 115;
Time(33:1:0); Tempo = 125;
//人の痕跡を壊す、荒ぶる大地
Time(41:1:0); Tempo = 170;
Time(49:1:0); Tempo = 175;//転調( Key(+) = F => Key(+) = D,A )
//少しずつ減速
Time(65:1:0); Tempo = 170;
Time(67:1:0); Tempo = (167.5);
Time(69:1:0); Tempo = 165;
Time(71:1:0); Tempo = (162.5);
Time(73:1:0); Tempo = 160;
Time(75:1:0); Tempo = (157.5);
Time(77:1:0); Tempo = 155;
Time(79:1:0); Tempo = (152.5);
//そして、静と動を繰り返しながら元の姿へと少しずつ戻っていく…
Time(81:1:0); Tempo = 125;
Time(89:1:0); Tempo = 118;//転調( Key(+) =D,AF => Key(+) = F )
Time(97:1:0); Tempo = 112;
Time(101:1:0); Tempo = 109;
Time(104:1:0); Tempo = 80;
Time(105:1:0); Tempo = 120; r1//演奏後の空白(編集用)
//Mute = 0;//指定のトラックを消音する
//Solo = 0;//指定のトラックのみ演奏する
//=====================================
//ここから譜面
//Atmosphere =====================================
Str A1={EP.W(100,85,!4) [ [e"beg] [d"adf+] [c"gce] : d"adf+gf+ed ] c"gef+gf+ed
[ [c"gce] [d"af+d] [e"bg"b] : [c"b"a"g] ] e"bef+gf+e^}
Str C1={EP.W(75,65,!4) q102 ["e""b"e"g] "c""g"e"f+"g"f+"e"d ["d""a"d"f+] "g"a"b"a"g"f+"e"d
EP.W(85,73,!4) q105 ["e""b"e"g] ["c""g"g""g] ["d""a"d"f+] "e""b"e"g"e"d"e^}
Str D1={EP.W(90,80,!4) q102 [ e"beb`cbag f+gf+ef+ed"b e"bgb`cbag : f+ed^g^f+^ ] e"bege2}
Str E1={EP.W(110,100,!4) q100 [ e"bef+gf+ed c"gcde^g^ d"adef+ed"a : "bc"b"a"b"a"g"f+ ] erdre2}
Str F1={EP.W(117,107,!4) q103 [ gdgaa+^`d^ `d+^`c`d`d+`d`ca+ agfgf^g^ : d^"a+"b+d"b+"a+"a ] a+fda+agfd
[ gdgaa+^`d^ `d+^`c`d`d+`d`ca+ agfgf^g^ : a+fa+`d`ca+af ] a+fda+[aa+]}
Str H1={EP.W(100,85,!2) q105 gdgaa+2 d+"a+gaa+2 fcfga2 a+fa+`d`ca+af
gda+dd+"a+a+d [fcaf] gda+dd+"a+gd+ fcafgfg^}
Str J1={EP.W(95,85,!2) q105 [ e"bef+gf+eb `cbagagf+d agf+df+ed"b : gdgbagf+d ] e"bef+g2}
//-------------------------------------
TR= 1 @100 o5 l8 q100 v127 M=0; CHO=10; REV=0; Key=0; P0
Time(1:1:0); A1
Time(25:1:0); C1 D1 E1 F1
Time(81:1:0); H1
Time(97:1:0); J1
//Violin =====================================
Str B2={EP.W(63,70,!2) q103 [ [3 r1] : [4 g16a16]f+^d^ ] v75 erdrgrf+r}
Str C2={EP.W(68,76,!4) q104 v127 r1 c"gcde^g^ r1 [4 g16a16]f+^d^
[3 r1] erdrg2}
Str H2={EP.W(45,35,!2) q103 g^^aa+2 d+^^aa+2 f^^ga2 a+fa+`db+a+af
g^a+dd+^a+d [f^a^] g^a+d+d+^gd fcafgfg^}
//-------------------------------------
TR= 2 @41 o5 l8 q100 v127 M=8; CHO=25; REV=0; Key=0; PL3
Time(17:1:0); B2 C2
Time(81:1:0); H2
//F.Horn =====================================
Str E3={EP.W(90,100,!2) [ "e2"g2 "c2"e2 "d2"f+2 : "c2""b2 ] "er"dr"e0"g2}
Str F3={EP.W(85,105,!1) Unison1{ [ "g2"d^d^ d+2"g2 "a2"f^"g^ : "d1 ] "a+2"a2
[ "g2"d^d^ d+2"g2 "a2"f^"g^ : "a+2"a2 ] "a+2"g2 } KU0}
Str J3={EP.W(70,80,!2) q108 Unison1{ [ "e2"b2 c2"g2 "a2"d2 : "g2"f+2 ] "e2"g2 } KU0}
//-------------------------------------
TR= 3 @61 o5 l8 q100 v127 M=8; CHO=10; REV=10; Key=0; PR3
Time(41:1:0); E3 F3
Time(97:1:0); J3
//Pizzicato =====================================
Str B3={EP.W(95,80,!4) q102 [ e^g^b^ge c^e^g^ec d^f+^a^f+d : r1 ] e^d^g^f+^}
Str C3={EP.W(108,95,!4) q105 e^g^b^ge r1 d^f+^a^f+d r1
e^g^b^ge c^e^g^ec d^f+^a^f+d e^d^e^r^}
Str G3={EP.W(103,93,!4) q100 [ g^d^a+^d^ d+^"a+^a+^d^ f^c^a^f^ : d^c^"a+^"a^] g^f^g2
EP.W(93,83,!4) Unison1{ [ g^d^a+^d^ d+^"a+^a+^d^ f^c^a^f^ : d^c^"a+^"a^] g^f^g2 } KU0}
Str H3={EP.W(80,70,!4) q105 "d^"g^"a+^"g^ "d+^"g^"a+^"g^ "f^"g^"a^"f^ "g^"f^"d+^"d^
"d^"g^"a+^"g^ "d+^"g^"a+^"g^ "d^"g^"a+^"g^ ["d^]["g^]}
Str I3={EP.W(85,75,!4) q110 Unison1{ e^g^b^ge c^e^g^`c^ b^a^g^f+^ g^f+^e^d^
e^g^b^ge c^e^g^ec d^f+^a^f+d e^d^e2 }}
//-------------------------------------
TR= 4 @46 o5 l8 q100 v127 M=0; CHO=10; REV=10; Key=0; PR2
Time(17:1:0); B3 C3
Time(65:1:0); G3
Time(81:1:0); H3 I3
//D.Guiter =====================================
Str F5={EP.W(92,82,!2) Unison3{ q98 v95 [ [8 ""g] [8 "d+] ""a2""f^""g^ : [4 ""d][4 ""c] ] v127 ""a+2""a2
q100 [ ""g2^4"d^ "d+2""g2 ""a^""g^""f^""g^ : ""a+2""a^""f^ ] ""a+1 }}
Str G5={EP.W(60,50,!2) q102 KU0 [8 r1]
Unison3{ ["g2"a+2 "d+2"a+2 "f2"a2 : "a+2"a2 ] "gr"fr"g2 }}
//-------------------------------------
TR= 5 @31 o5 l8 q100 v127 M=3; CHO=0; REV=0; Key=0; PL2
Time(49:1:0); F5 G5
//Strings1 =====================================
Str A6={EP.W(40,47,!1) Unison7{ [ e1 d1 c1 : d2g2 ] c2g2
[ c1 d1 e1 : c1 ] e2g2} KU0}
Str B6={EP.W(45,65,!1) Unison3{ [ "e1 "c1 "d1 : "g2"f+2 ] "e2"g2}}
Str C6={EP.W(58,42,!1) Unison3{ e1 c1 d1 g2f+2
e1 c1 d1 e2g2}}
Str D6={EP.W(55,45,!1) Unison3{ [ e1 f+2d2 e1 : d2g2 ] e2e2 }}
Str E6={EP.W(65,55,!1) Unison3{ [ e1 c1 d1 : c1 ] e^d^g2}}
Str F6={EP.W(75,65,!1) Unison3{ [ g2^4`d^ `d+2g2 a2f^g^ : a+2a2 ] a+1
[ g2^4`d^ `d+2g2 a2f2 : a+2a2] a+2a2}}
Str G6={EP.W(73,60,!1) Unison3{ [ g1 d+1 f1 : a+2a2 ] f2g2
[ g1 d+2g2 f2d2 : a+2a2 ] f2a+2}}
Str H6={EP.W(55,45,!1) Unison7{ g1 d+1 f1 a+2g2
g1 f1 g1 f1 }}
Str I6={EP.W(40,30,!1) Unison7{ e1 c1 d1 g2f+2
e1 c1 d1 e1} KU0}
Str J6={EP.W(33,28,!1) o6 Unison3{ [ e2b2 : `c1 a2d2 g2f+2 ] `c2g2 a2d2 e2g2} o5}
//-------------------------------------
TR= 6 @49 o5 l8 q100 v127 M=0; CHO=20; REV=0; Key=0; PR1
Time(1:1:0); A6 B6 C6 D6 E6 F6 G6 H6 I6 J6
//A.Bass =====================================
Str A7={EP.W(105,90,!2) q102 [ "e1 "d1 "c2"c2 : "d2""g2 ] "c2"g2
[ "c1 "d1 "e1 : ["c2] ] "e2"g2}
Str B7={EP.W(110,95,!2) q103 [ ["e^""b^] ["c^""g^] ["d^""a^] : "e^""b^"c^""g^ ] "e^"d^"g^"f+^}
Str C7={EP.W(112,100,!4) q105 [4 "e^] [4 "c^] [4 "d^] ["e^]["d^]
[4 "e^] [4 "c^] [4 "d^] "e^"d^["e^]}
Str D7={EP.W(95,80,!2) q102 [ "e2c2 ["f+^]["d^] "e2c2 : "f+^"d^"g^"f+^ ] "e^"g^"e2}
Str E7={EP.W(100,90,!4) q100 [ [8 "e] [8 "c] [8 "d] : [4 "c][4 ""b] ] "er"dr[4 "e]}
Str F7={EP.W(110,100,!4) q95 [ [4 "g"d] [4 "d+""a+] [4 "f""b+] : ["g"d]["d""a+] ] r1
EP.W(115,107,!8) q100 [ [8 "g] [8 "d+] [8 "e+] : [4 "a+][4 "a] ] [4 "a+]["a]["f] }
Str G7={EP.W(105,90,!2) q103 v105 [ "g^"d^"a+^"d^ "d+^""a+^"a+^"d^ "f^"c^"a^"f^: "g^"f^"d+^"d^ ] "g^"f^"g2
v127 [ "g^"d^"a+^"d^ "d+^""a+^"a+^"d^ "f^"c^"a^"f^: "g^"f^"d+^"d^ ] "g^"f^"g2}
Str I7={EP.W(80,70,!2) q105 ["e^""b^] ["c^""g^] ["d^""a^] "g^"d^"e^"d^
["e^""b^] ["c^""g^] ["d^""a^] [""b^]["e^]}
Str J7={EP.W(90,80,!2) q105 [ [4 "e""b] [4 c"g] [4 "a"d] : ["g"d]["f+"d] ] ["d""a]"e2}
//-------------------------------------
TR= 7 @33 o4 l8 q100 v127 M=0; CHO=20; REV=10; Key=0; PL1
Time(1:1:0); A7 B7 C7 D7 E7 F7 G7
Time(89:1:0); I7 J7
//Drum=====================================
Key=0;
//A-足
$A{n(Kick1),}
$B{n(Kick2),}
$C{n(MuteSurdo),}
$D{n(OpenSurdo),}
$E{n(Slap),}
$F{n(HighQ),}
Str DA={Rythm{v70 [ [A^r^] [4 A^] [A^r^] : [3 A^][A] ] [A^][4 A]}}
Str EA={Rythm{v100 [ [4 A^] [3 A^][A] [A^][A]A^ : [3 A^][A] ] [Ar][4 A]}}
Str FA={Rythm{v120 [ [3 [4 A^]] : [A^][4A] ] [8A]
[ [4 A^] [3 A^][A] [4 A^] : [A^][4 A] ] A^[A][A^] }}
//-------------------------------------
TR=10 CH=10 @(StandardSet) v100 l8
Time(33:1:0); DA EA FA
//-------------------------------------
//B-その他
$G{n(HandClap),}
$H{n(Sticks),}
$I{n(SideStick),}
$U{n(MetronomeClick),}
$W{n(MetronomeBell),}
$X{n(Castanets),}
$Y{n(Tambourine),}
Str CB={Rythm{v90 r1 [4 Ur] r1 v80 [4 Ur]
v80 [4 Ur] v100 [X^][X]X^ v85 [4 Ur] v105 [X^][X]X^}}
//-------------------------------------
TR=10 CH=10 @(StandardSet) v100 l8
Time(25:1:0); CB
//-------------------------------------
//C-太鼓
$a{n(HighTom1),}
$b{n(HighTom2),}
$c{n(MidTom1),}
$d{n(MidTom2),}
$e{n(LowTom1),}
$f{n(LowTom2),}
$g{n(Snare2),}
$h{n(Snare1),}
Str CC={Rythm{v80 [3 [e^r^] ] e^r^[e^]
[3 [e^r^] ] e^r^[e^]}}
Str DC={Rythm{v75 [ d^c^[d]c^ [4 e^] d^c^[d]cd : [e^][d]c^ ] d^c^[4 b]}}
Str FC={Rythm{v120 [ [3 [drcr]] : drcr[4 b] ] v127 cdefabcd
v120 [ l8 [drcr] [erdr] [drcr] : l16 [4 cb][4 dc] ] v127 l16 [cdef][abcd] l8}}
Str GC={Rythm{v85 [ c^r^b^r^ d^r^c^r^ c^r^b^r^ : d^r^c^r^ ] d^c^[d]b^
[ c^r^b^r^ d^r^c^r^ c^r^b^r^ : d^r^c^r^ ] d^c^[b]a^}}
//-------------------------------------
TR=10 CH=10 @(StandardSet) v100 l8
Time(25:1:0); CC DC
Time(49:1:0); FC GC
//-------------------------------------
//D-金物
$i{n(RideBell),}
$j{n(PedalHiHat),}
$m{n(ClosedHiHat),}
$s{n(OpenHiHat),}
$u{n(RideCymbal1),}
$w{n(RideCymbal2),}
$x{n(CrashCymbal1),}
$y{n(CrashCymbal2),}
$z{n(ChineseCymbal),}
Str DD={Rythm{v75 [r2^4i^ r2^4ji r2^4i^ : [rj][m]i^] [rj]msx^}}
Str ED={Rythm{v90 [ [4 rj] [3 rj]rs [4 rj] : [rj][s]x^ ] [rj]uwx^}}
Str FD={Rythm{v100 [ [3 [4 rj]] : [rj]wux^ ] i^[j]x^y^
[ [4 rj] [rj][i]x^ [4 rj] : [rj]imx^ ] [rj][x]y^}}
Str GD={Rythm{v60 [ r^i^r^m^ r^i^r^j^ r^i^r^s^ : r^i^r^u^] r^i^[j]s^
[ r^i^r^m^ r^i^r^u^ r^i^r^s^ : r^i^[j]u^] r^i^jix^}}
//-------------------------------------
TR=10 CH=10 @(StandardSet) v100 l8
Time(33:1:0); DD ED FD GD
//ここまで