TrackName{"聖なる夜の鐘が鳴る"}
Copyright{"レイン望( RainboWish Project )"}

/*
どうも、PSO2をやり込みながらも日々作曲に勤しんでるレイン望でございます。

当初はクリスマス向けの楽曲を作ろうと張り切っていましたが、やはりというべきか間に合いませんでしたorz
あと、最近の曲掲示板(12月27日現在)で、自分と同じクリスマス向けの楽曲を投稿してらっしゃる方がいて、その人と微妙に曲の雰囲気が
似てしまっている事にも気づき、一時は投稿及び制作を打ち切ろうかと考えてました。
ですが、気づいた時には既に8割方出来上がっていたので、ここで打ち切るのは勿体無いと判断し、投稿にふみきりました。
(というより、これまで沢山の楽曲が投稿されてるなか、全部が全部、楽曲の雰囲気が全く似てないということは無いはず)

どれだけ間に合わなくても、楽曲がもう少しで完成しそうなら最後まで作りきる。
それがわたくし、レイン望の作曲する上でのモットーでございます。(_ _)
*/

拍子 4,4

Include(chord2.h);
Include(unison.h);

//出だし
#4St={ Tempo 80 o5l8q100v100P(80)[ C(1)G(2)C(2) Am7(1) : F(2)G(2) ] Bb(4.)G(8^2)TempoChange(80,102,!1)>t.N(0,4,8)G(1)t(0)<r1 }
#7St={ o7l8 [ efg`c8^1 b4`c4 : g4.f16.e32c2r1 ] `d4.`e16.`d32`c2r1 }
#11St={ r4'cg`c'2r4 }
//前奏
#3A={ o3l8q100v127[ c,30r16.c32r"g16.c32r2 r1 <g,30r16.g32r`d16.g32r2 : f,30r16.f32rfgabg> ] b-,30r16.b-32rb-[g4]> }
#4A={ o5l8q100v100P(80)[ C(2)rC(16)r16r16C(8.)G(4.)C(8^2) Am7(2)rAm7(16)r16r16Am7(8.) : F(4.)G(8^2) ] Bb(4.)G(8^2) }
#5A={ o5l1q100v72P(48)[ C()G(4.)C(8^2)Am7() : F(4.)G(8^2) ] Bb(4.)G(8^2) }
Str Bell_A	={ r-8"g16.c32 fecd e4d4 }
#7A={ o7l8 [ efg`c8^1 b4`c4 : g4.f16.e32c2r1 ] `d4.`e16.`d32`c2r1 }
#8A={ o6l8 [ Bell_A : c1r1^1 ] }
Str Bass_A	={ cr16.c32r4[c]r }
Str Snare_A	={ f+f+,,75'f+e'[f+16.e32]f+,,80 }
Str Tamb_A	={ n54,n54,,,75 }
	Str DRM1	={ Sub{ Bass_A } Snare_A 'f+e'f+,,70 }
	Str DRM1A	={ Sub{ Bass_A } Snare_A 'f+e' }
	Str DRM1B	={ Sub{ Bass_A } Snare_A }
	Str TandJ1	={ [4 Tamb_A ] }
	Str TandJ1A	={ [3 Tamb_A ]'n54,n83,'n54,,,75 }
#10A={ o3l8q100v100[ Sub{ `c+8,,120 r-8 [ TandJ1 TandJ1A ] } [3 DRM1 ] : DRM1A e16.e32 ] DRM1B Sub{n29,n30,}Sub{n48,16.n45,32n43,} er }

//メロ1-1
#1B={ o6l8q100v108[ rd,50dcdc16"g16^8c16.,50c32dc,50d16e,50M(20)d32&e16^2M(0)r-32 rd,50dcdc16"g16^8c16.c32dcde16g16^8ed,50e16.d32
	l.onNote(!4.,!16.,!32)M(12)c,80"bcd,80cdM(0)l8 eg : ec4,50c"bc16<a16^8,30 g16.g32`cg`f`e`cg,50> r1 ] ba4,50edc r"acfec"bM(28)c8^1,75M(0) }
#2B={ o6l8q120v75[ r1^1^1^1 <l.onNote(!4.,!16.,!32)M(12)a,80gab,80abM(0)l8 `c`e : `ca> r2^1^1 ] `g``c>r2^1^1 }
//Function BS1(Str Base1,Str Base2){ r'Base1',30'Base1''Base2''Base1'2,20r2 }
Function BS2(Str Base2){ 'Base2',50r16'Base2'16r'Base2',30 }
#3B={ l8[ rc,30c"gc2,20r2c4"b4r"a,30"a"e"a2,20r2"a4"g4 < BS2(f)[g4]BS2(e)[a4] d,30r16.d32r"a : [d4] rg,30g8.g16g,30g4. > ] [g4]d8.g8.,30`c8^2 > }
#4B={ [ C(1^2)r8o6l16efedc8l8'"e"gc'4.,,80'""b"d"g'8^2^1,,72 o5l2t.N(0,2,4)F()G()Em()Am() : Dm(1)t(0)r1 ] Dm()G()Csus4(4.)C(8^2)t(0) }
#5B={ [ r1^1^1^1 l2F()G()Em()Am() : l1Dm()r ] Dm()G()Csus4(4.)C(8^2) }
#10B={[ Sub{`c+,,120} Sub{[ TandJ1 TandJ1A ]} [3 DRM1 ] DRM1A e16.e32 r-4 n84,4 : Sub{TandJ1 TandJ1A TandJ1} [DRM1] DRM1B n48,16.n45,32n43,16.n43,32
	r Sub{v.onNote(16,32,64,96,112,127,127,127)[8 n83,]v100}[e,,100]r16.e32e,,80e,,100 Sub{n29,16.n29,32'n30,n84,'} n48,16.n45,32n43, ]
	Sub{[TandJ1 TandJ1A]} Sub{`a} [3 DRM1 ] DRM1B Sub{n48,16.n45,32n43,16.n43,32}'en84,'4}

//メロ1-2
#1C={ r-8"g M(20)"a4M(0)reM(20)d4M(0)rc"bcdc4,50<eab `c4`cb4`cbagM(28)e8^2M(0)r8>"g "a4ed4c4"b4cdc4,50cde [gfc]ee4f16.e32M(28)d2.M(0) }
#3C={ [ f4.f,30g2e4. : e16.b32a2[f8.,30]f[g4]a2a4g4 ] ga2[a+8.,30]a+4ea+a [g8.,30]g4cdcg1 }
#4C={ r1^1 l2F()G(4)d16f16g8Am()Am(4)Gsus4(4) r1^1 q20[Bb(8.)]q100Bb(4)l8ea+aq20[G(8.)]q100G(4)cdcG(1) }
#5C={ r1^1 l2F()G()Am(2^4)Gsus4(4) r1^1 l1Bb()v72EP.T(80,80,!1,80,120,!1)G(1^1)EP(127)v52 }
#10C={ [ Sub{n55,,,112}Sub{[c2c4.c]}[4`d+4 : `d+`d+16.`d+32] Sub{n29,16.n29,32n30,}`c16.a32a16.f32 |
	Sub{`c+}Sub{TandJ1 TandJ1A}DRM1 DRM1B : 'e`c'a16.'fn84,'32 ]
		`c16.a32a16.f32 v.onNote(80,90,100,110,120)[5'e`f+']v100 `a,,120`c16.`c32a16.'fn84,'32 }

//サビ
#1D={ r-4"bc [ [g,50]ga16g16^8,90c"bc [g,50]ga16g16^4,90cde4`cb4gedM(28)e2,50M(0)d4c4
	[a,50]ac16d16^8efa : gaedM(20)c4rM(0) "g16c16 [fec]gf32&M(28)g8^2r4M(0)r-32"bc ] geb`c4bge f4refgag16&a4r-16g4,50gfecd16c32&d16^8r-32EP.T(127,0,!8^2.^1)M(28)c8^2.^1M(0)EP(127) }
#2D={ o6[ [e,50]ef16e16^8,90"a"g"a [e,50]ef16e16^4,90"a"bc4ag4ec"bM(28)c2,50M(0)r2^1^1^1^1 ] }
Function BS3(Str Base3){ ['Base3',30]'Base3'[3r16.'Base3'32]'Base3'4,80 }
Function BS4(Str Base4){ 'Base4'8.'Base4'8.,30'Base4',30 }
#3D={ [ BS3(c)BS3(g)[e,30]e[3r16.e32][g] [a,30]a[3r16.a32][g] | BS4(f)[g4]e8.e8.,30e16.b32BS4(a) |: [d8.c8.,30]dg8^1  ] [BS4(d)]g1 }
#4D={ [ l8q70[4rC()][4rG()][rEm()][rG()][3rAm()]rGsus4() | l2q100F()G()Em(4)Em7(4)Am()l1Dm()G() ] }
#5D={ [ l1C()G()Em(2)G(2)Am(2.)Gsus4(4) l2F()G()Em(4)Em7(4)Am()l1Dm() : G() ]q20G()q100 }
#6D={ o7P(96) [ l1[g]l2egar fge4b4`cr1^1 ] }
#8D={	o5l4 r-1P(96)t.N(0,8)OctaveUnison(gfedc)t(0) }
Str Bass_B	={ crc[3r16.c32]cr }
Str Snare_B	={ [4 a+'a+e',,75 ] }
Str Tamb_B	={ n54,'n54,,,75,n83,' }
	Str DRM2	={ Sub{ Bass_B } Snare_B a+'a+e',,75 }
	Str DRM2A	={ Sub{ Bass_B } [3 a+'a+e',,75 ]`c16.a32a16.f32 }
	Str TandJ2A	={ Tamb_B }
#10D={ [ Sub{ [16 n80,,75n81,,90 ] }Sub{ `c+8 r-8 [15TandJ2A] }[3 Sub{ Bass_B }Snare_B ] Sub{ Bass_B }[3 a+'a+e',,75 ]`c16.a32a16.f32
	Sub{ `a8 r-8 TandJ1 TandJ1A }[DRM1] : Sub{ [TandJ1 TandJ1A] }DRM1 Sub{ Bass_B } [3 a+'a+e',,75 ] Div{`c`ca`caf}4 ]
	Sub{ TandJ1 }DRM1B `c16.a32a16.f32 `c+2 Div{`c`ca}8 a16.f32`c16.'an84,'32f8 }

//間奏
#10E={ `c+8,,120 r-8 [4 TandJ1 TandJ1A ] }

//メロ2-1
#3F={ [ f4.f,30g2e4. : e16.b32a2f4.f,30g4.g,30a2a4g4 ] ga2[a+8.,30]a+4ea+a [g8.,30]g4cdcg1 }
#4F={ r1^1 /*l2F()G(4)d16f16g8Am()Am(4)Gsus4(4)*/r1^1 r1^1 q20[Bb(8.)]q100Bb(4)l8ea+aq20[G(8.)]q100G(4)cdcG(1) }
#5F={ r1^1 /*l2F()G()Am(2^4)Gsus4(4)*/r1^1 r1^1 l1Bb()v72EP.T(80,80,!1,80,120,!1)G(1^1)EP(127)v52 }
#10F={ Sub{ n55,,,112 r-8 [4 c2c4.c ]}[7 `d+4`d+`d+16.`d+32 ]`d+16.`d+32[`d+]r
	Sub{ n55,,,112 r-8 [ c2c4.c ]}[4 `d+4 : `d+`d+16.`d+32 ] Sub{n29,16.n29,32n30,}`c16.a32a16.f32
	`c+ r-8 Sub{TandJ1 TandJ1A}DRM1 DRM1B
		`c16.a32a16.f32 v.onNote(80,90,100,110,120)[5'e`f+']v100 `a,,120`c16.`c32a16.'fn84,'32 }

//サビ2
#1G={ r-4"bc [g,50]ga16g16^8,90c"bc [g,50]ga16g16^4,90cde4`cb4gedM(28)e2,50M(0)d4c4
	[a,50]ac16d16^8efa gaedM(20)c4rM(0) "g16c16 [fec]gf32&M(28)g8^2^2r-32M(0) TrackKey(2)g2^4,80 "bc }
#1Ga={ [g,50]ga16g16^8,90c"bc [g,50]ga16g16^4,90 cde4`cb4>c4d4edM(28)c4.,70M(0)<dc
	[a,50]ac16d16^8efa geb`c4bge f4refgag16&a4r-16 b16.a32g2.r4. gfecd16c32&d16^8r-32EP.T(127,0,!8^2.^1)M(28)e8^2.^1M(0)EP(127) }
#2G={ o6[ [e,50]ef16e16^8,90"a"g"a [e,50]ef16e16^4,90"a"bc4ag4 : ec"bM(28)c2,50M(0)r2r1^1^1^1^1TrackKey(2) ]a4b4`cba4.,70 }
#3G={ /*BS3(c)BS3(g)[e,30]e[3r16.e32][g] [a,30]a[3r16.a32][g]*/r1^1^1^1 | BS4(f)[g4]e8.e8.,30e16.b32BS4(a) [d8.c8.,30]dg8^1a1 }
#3Ga={ TrackKey(2) BS3(c)BS3(g)[e,30]e[3r16.e32][g] [a,30]a[3r16.a32][g] | BS4(f)[g4]e8.e8.,30e16.b32BS4(a) [BS4(d)]g1r1 }
#4G={  l1C()G()l2Em()G()Am()r4Gsus4(4) | l2q100F()G()l4Em()Em7()l2Am()l1Dm()G() TrackKey(2)G() }
#4Ga={ l8q70q100[4rC()][4rG()][rEm()][rG()][3rAm()]rGsus4() | l2q100F()G()Em(4)Em7(4)Am()l1Dm()G() t.N(0,8,16)G(1)t(0) }
#5G={  [ l1C()G()Em(2)G(2)Am(2.)Gsus4(4) l2F()G()Em(4)Em7(4)Am()l1Dm() : G()TrackKey(2)G() ]G() }
//#5Ga={ [ l1C()G()Em(2)G(2)Am(2.)Gsus4(4) l2F()G()Em(4)Em7(4)Am()l1Dm() : G()TrackKey(2)G() ]G() }
#6G={ o7P(96) l1[g]l2egar fge4b4`cr1^1r1 }
#6Ga={ TrackKey(2)o7P(96) l1[g]l2egar fge4b4`cr1^1 }
#8G={	o5l4 r-1P(96)TrackKey(2)t.N(0,8)OctaveUnison(gfedc)t(0) }
#10G={ Sub{ [16 n80,,75n81,,90 ] }Sub{ `c+8 r-8 [15TandJ2A] }[3 Sub{ Bass_B }Snare_B ] Sub{ Bass_B }[3 a+'a+e',,75 ]`c16.a32a16.f32
	Sub{ `a8 r-8 TandJ1 TandJ1A }[DRM1] Sub{ TandJ1 }DRM1B `c16.a32a16.f32 `c+2 Div{`c`ca}8 a16.f32`c16.'an84,'32f8 `c+1 }
#11H={ r-2 'cg`c'2 }

//終わり
#3H={ o3l8q100v127[ c,30r16.c32r"g16.c32r2 r1 <g,30r16.g32r`d16.g32r2 : f,30r16.f32rfgabg> ] b-,30r16.b-32rb-8^2g1>c1^1 }
#4H={ o5l8q100v100P(80)[ C(2)rC(16)r16r16C(8.)G(4.)C(8^2) Am7(2)rAm7(16)r16r16Am7(8.) : F(4.)G(8^2) ] Bb(1)G(1) C(1^1) }
#5H={ o5l1q100v72P(48)[ C()G(4.)C(8^2)Am7() : F(4.)G(8^2) ] Bb(1)G(1) C(1^1) }
#7H={ TrackKey(2)o7l8 [ efg`c8^1 b4`c4 : g4.f16.e32c2r1 ] `d4.`e16.`d32`c2r1 }
#8H={ o6l8 Bell_A c1r1^1 r-8"g16.c32 TempoChange(60,!1+1) fecd8^2 "acd"g"acdf e1^1r1^1 }
#9H={ o5v80EP.T(127,20,!1)P.T(127,0,!1)`c1-64&&c64r4P(127)EP(127) }
#10H={ o3l8q100v100[ Sub{ `c+8,,120 r-8 [ TandJ1 TandJ1A ] } [3 DRM1 ] : DRM1A e16.e32 ]
	Sub{ TandJ1A TandJ1A } DRM1 DRM1B Sub{n48,16.n45,32n45,16.n43,32} er `c+1 }

//音色定義
TR 1 	@66	REV(20)CHO(10)	//アルトサックス
TR 2 	@53	REV(12)CHO(5)	//卑猥ア
TR 3 	@34	REV(10)CHO(0)	//フンガーベース
TR 4 	@5,8	REV(20)CHO(10)	//エレP
TR 5 	@51	REV(40)CHO(20)	//伴奏2
TR 6	@89	REV(60)CHO(10)	//新時代パッド
TR 7 	@99	REV(80)CHO(10)	//滝川クリスタル
TR 8 	@15	REV(20)CHO(0)	//宙ぶらりんベル
TR 9	@125,5REV(20)CHO(10)	//ウィンドチャイム(擬似キラキラ)
TR 10	@1				//ドラム
TR 11	@120	REV(20)CHO(0)	//リバシン

//演奏タイミング
Int Start	=1
Int Intr	=1	+10
Int Mel1	=9	+10
Int Sab1	=34	+10
Int Kan	=50	+10
Int Mel2	=58	+10
Int Sab2	=67	+10
Int ENd	=85	+10
//				TR 1	TR 2	TR 3	TR 4	TR 5	TR 6	TR 7	TR 8	TR 9	TR 10 TR 11
Time(Start	:1:0)PLAY(	,	,	,	,#4St	,	,	,#7St	,	,	,	,	)
Time(Start+9:1:0)PLAY(	,	,	,	,	,	,	,	,	,	,	,#11St)
Time(Intr	:1:0)PLAY(	,	,	,#3A	,#4A	,#5A	,	,#7A	,	,	,#10A	,	)
Time(Intr+3	:1:0)PLAY(	,	,	,	,	,	,	,	,#8A	,	,	,	)
Time(Mel1	:1:0)PLAY(	,#1B	,#2B	,#3B	,#4B	,#5B	,	,	,	,	,#10B	,#11H	)
Time(Mel1+16:1:0)PLAY(	,#1C	,	,#3C	,#4C	,#5C	,	,	,	,	,#10C	,	)
Time(Sab1	:1:0)PLAY(	,#1D	,#2D	,#3D	,#4D	,#5D	,#6D	,	,#8D	,	,#10D	,	)
Time(Kan	:1:0)PLAY(	,	,	,#3A	,#4A	,#5A	,	,#7A	,	,	,#10E	,	)
Time(Kan+3	:1:0)PLAY(	,	,	,	,	,	,	,	,#8A	,	,	,	)
Time(Mel2	:1:0)PLAY(	,#1C	,	,#3F	,#4F	,#5F	,	,	,	,	,#10F	,#11H	)
Time(Sab2	:1:0)PLAY(	,#1G	,#2G	,#3G	,#4G	,#5G	,#6G	,	,#8D	,	,	,	)
Time(Sab2+8	:1:0)PLAY(	,	,	,	,	,	,	,	,	,#9H	,	,	)
Time(Sab2+9	:1:0)PLAY(	,#1Ga	,	,#3Ga	,#4Ga	,	,#6Ga	,	,#8G	,	,#10G	,#11H	)
Time(ENd	:1:0)PLAY(	,	,	,#3H	,#4H	,#5H	,	,#7H	,	,	,#10H	,#11H	)
Time(ENd+3	:1:0)PLAY(	,	,	,	,	,	,	,	,#8H	,	,	,	)
Time(ENd+9	:1:0)PLAY(	,	,	,	,	,	,	,	,	,#9H	,	,	)