//_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
// Silent Night v1.0
//
// MMLかき：ななこっち★（ゆった）
//
// 奨励音源
// TiMidiTy (cfg付属)
//
// 奨励環境
// オーディオ
// 携帯電話（着うた）
//
// 転載：可
// 編曲：可
// その他：ＰＤになっています。
// 「きよしこの夜」の歌詞を添えると、著作権があります。
//
// 普通のMIDIで聞く場合、Timpany を ピチカートに置き換えてください。
//
//_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

Int MOBILE=0	// モバイル用に低音増強

曲名{"きよしこの夜(Silent Night) }
作者{"ぱぷぅ"}

Function Slowly(Mes) {
	Int TT = Tempo;
	Int T = Tempo / Mes ;
	T = T / 16;
	For(Int I=1; I <= Mes; I++){
		Sub{ [4
			TT = TT - T;
			Tempo = TT; r4
		]}
	}
}

REV(127);

Tempo 80
//Tempo 150

#MELODY1={
	l4
	[2
		e4.f#8e4
		c#2^8r8
	]
	b2b4
	g#2^8r8
	a2a4
	e2^8r8

	[2
		f#2f#4
		a4.g#8f#4
		e4.f#8e4
		c#2^8r8
	]

	b2b4
	>d4.<b8g#4
	a2.>c#2^8r8<
	aec#
	e4.d8<b4
	a2.^2r4
	>
}

	
#CHORD1={
	l4
	Sub { e2. } 'g#2b2' 'g#b' 
	Sub { 'f2g#2' 'df' } >d4.<b8 g#4
	'c#2.f#2.a2.'
	'd#2^8f#2^8a2^8>c#2^8<'r8
	'c#ea' '<a>c#e' '<ea>c#'
	Sub {'<a2b2>'} e4.d8 '<eg#b>'
	'<c#1e1a1>' r2

}

#CHORDSUB1={
	r2.
	r2.
	r4f#4e#
}

#CHORD2={
	q95'e2.^2.^2.^2.a2.^2.^2.^2.>c#2.^2.^2.^2.<'
	q95'e2.^2.g#2.^2.b2.^2.'
	q95'e2.^2.a2.^a.>c#2.^2.<'
	[2
		q100'f#2.^2.a2.^2.>d2.^2.<'
		q100'e2.^2.a2.^a.>c#2.^2.<'
	]
	q100'e2.^2.g#2.^2.b2.^2.'
	q80'f#2.^2.a2.^2.>c#2.^2.<'
	q100'e2.a2.>c#2.<'
	'e2.g#2.b2.'
	q80'e2.^2.a2.^2.>c#2.^2.<'
}

#CHORD3={
	o5l4
	q100'c#ea''<a>c#e''<ea>c#'
	q100 Sub{'<a2b2>'}e4.d8 <'eg#b'
	'e1.a1.>d1.<'
	'e1.a1.>c#1.<'
}

#CHORD4={
	>
	d2.
	c#2.
	'<f#2.a2.>d2.<'
	'f#4a4>c#<''e4.g#4.b4.'r8
	>
}

#BELL={
	Sub{d2.f#2.}a4
	Sub{c#2.e2.}a4
	r4a2 c#4<b2
}

#STRING={
	r2.
	r4r4
	>>
	l20f#g#ab>c#
	l8d4.<af#d
	c#4<b4.r8
	<
}

#PIZZ={
	l8<
	ra>f#da4<
	ra>ec#a4

}

#BACK1={
	r4
	Sub{e4}Sub{r48a4}Sub{r48r48>c#4<}r4
	Sub{a4}Sub{r48>c#4}Sub{r48r48e4<}r4
	r4
	Sub{e4}Sub{r48g#4}Sub{r48r48b4}r4
	Sub{g#4}Sub{r48b4}Sub{r48r48>d4<}r4
	r4
	Sub{e4}Sub{r48a4}Sub{r48r48>c#4<}r4
	Sub{a4}Sub{r48>c#4}Sub{r48r48e4<}r4
	Sub{>c#4}Sub{r48e4}Sub{r48r48a4}r2.<
}

#BACK2={
	[4
		v60r8 Sub{e4}r8
		v88Sub{a4}Sub{r48>c#4<}r8v60Sub{e2}r8
		v88Sub{>c#4}Sub{r48e4<}r4
	]

	[2
		v60r8 Sub{e4}r8
		v88Sub{g#4}Sub{r48b4}r8v60Sub{e2}r8
		v88Sub{b4}Sub{r48>d4<}r4
	]

	[2
		v60r8 Sub{e4}r8
		v88Sub{a4}Sub{r48>c#4<}r8v60Sub{e2}r8
		v88Sub{>c#4}Sub{r48e4<}r4
	]

	[2
		[2
			v60r8 Sub{f#4}r8
			v88Sub{a4}Sub{r48>d4<}r8v60Sub{f#2}r8
			v88Sub{>d4}Sub{r48f#<}r4
		]


		[2
			v60r8 Sub{e4}r8
			v88Sub{a4}Sub{r48>c#4<}r8v60Sub{e2}r8
			v88Sub{>c#4}Sub{r48e4<}r4
		]
	]

	[2
		v60r8 Sub{e4}r8
		v88Sub{g#4}Sub{r48b4}r8v60Sub{e2}r8
		v88Sub{b4}Sub{r48>d4<}r4
	]

	r8 v60Sub{f#4}r8
	v88Sub{a4}r8v60Sub{f#4}r8
	v88Sub{a4}Sub{r48>c#4<}r4

	Sub{d#2}Sub{r48f#2}Sub{r48r48a2}Sub{r48r48r48>c#2<}r2.

	r8 Sub{e4}r8
	Sub{a4}Sub{r48>c#4<}r8Sub{e2}r8
	Sub{>c#4}Sub{r48e4<}r4

	r8 Sub{e4}r8
	Sub{g#4}Sub{r48b4}r8Sub{e2}r8
	Sub{b4}Sub{r48>d4<}r4

	r8 Sub{e4}r8
	Sub{a4}Sub{r48>c#4<}r8Sub{e2}r8

	Sub{a4}Sub{r48>c#4}Sub{r48r48e4<}r8Sub{e2}r8
	Sub{>c#2.}Sub{r48e2.}Sub{r48r48a2.}r2.
	<
}

#BASS1_1={
	e2.
	f2.
	f#2.
	d#2r4
	e2.
	e2.
}

#BASS1_2={
	a4e4c#4a2.
}
#BASS1_3={
	[4 a2.]
	[2 e2.]
	a2.
	a2 c#4
	[2 d2.]
	[2 a2.]
	[2 d2.]
	[2 a2.]
	e2.
	e2f4
	f#2.
	d#2.
	[2 e2.]
	a4e4c#a2.
}

#BASS1_4={
	>d2.c#2.<
	<b2.>e2.
}

#BASS1_5={
	Sub{e2.e2.}
	r1Slowly(2) r2
}
#BASS1_6={
	a2.^2 e4 a1.
}

トラック 1;
REV(127);
v127q100o6
//音色(Piccolo)
//音色(Flute)
	[8 r2.]
//#MELODY1
音色(Violin)
[24 r2.]
#MELODY1
[4 r2.]
#MELODY1

トラック 2;
REV(127);
//音色(Clarinet)
音色(Violin)
v127q100o5
	[8 r2.]
#MELODY1
#MELODY1
[4 r2.]
#MELODY1


トラック 4;
REV(127);
v120q90o5
//音色(PizzicatoStrings)
音色(Timpani)
[8 r2.]
[24 r2.]
[24 r2.]
#PIZZ

トラック 5;
REV(127);
v120q98o5
//音色(NewAgePad)
音色(ChurchOrgan)
#CHORD1
[24 r2.]
[24 r2.]
音色(TubularBells)
o5
#BELL
r4
[25 r2.]
音色(ChurchOrgan)
#CHORD3

r1v0o1c64

トラック 6;
REV(127);
v110q95
音色(ChoirAahs)
Sub {#CHORDSUB1}
#CHORD1
o4v80q100
音色(Strings1)
#CHORD2
#CHORD2


#CHORD4
o4v80q100
//音色(ChoirAahs)
//音色(Strings1)
#CHORD2
#CHORD3

トラック 7;
REV(127);
IF (MOBILE=1) {
	v127o4q100
} ELSE {
	v100o4q100
}
音色(OrchestralHarp)
[4 r2.]
#BACK1
#BACK2
#BACK2
//音色(Strings1)
音色(Violin)
v127
Sub {>#STRING<}#STRING
	
音色(OrchestralHarp)
IF (MOBILE=1) {
	v127o4q100
} ELSE {
	v100o4q100
}
#BACK2

トラック 8;
REV(127);
IF (MOBILE=1) {
	o3v127q98
} ELSE {
	o3v100q98
}
音色(Cello)
#BASS1_1
音色(PizzicatoStrings)
#BASS1_2

#BASS1_3
#BASS1_3

//音色(Cello)
#BASS1_4
//音色(PizzicatoStrings)
#BASS1_3
#BASS1_5
音色(Cello)
#BASS1_6

トラック 9;
REV(127);
IF (MOBILE=1) {
	o3v127q98
} ELSE {
	o3v100q98
}
音色(Contrabass)
#BASS1_1
音色(PizzicatoStrings)
#BASS1_2

#BASS1_3
#BASS1_3

//音色(Contrabass)
#BASS1_4
//音色(PizzicatoStrings)
#BASS1_3
#BASS1_5
音色(Contrabass)
#BASS1_6

End

以下、timidity 起動バッチ

rem y:
rem cd "Program\Timidity++\Timidity++"
timidity -c sn.cfg -Ow --output-stereo -s 48000 --reverb=d,127 sn.mid
# 適時、sn.cfg、sn.mid等を絶対パスにしてください。

以下、timidity用 cfg

dir ../patches/izumo/inst/GUS
dir ../patches/izumo/inst/GUS/gsdrum00
dir ../patches/izumo/inst/GUS/gsdrum08
dir ../patches/izumo/inst/GUS/gsdrum25
dir ../patches/izumo/inst/GUS/gsdrum40
dir ../patches/izumo/inst/GUS/power
dir ../patches/izumo/inst/gusperc
dir ../patches/izumo/inst/mazpat
dir ../patches/izumo/inst/misc
dir ../patches/izumo/inst/orchhit-patch
dir ../patches/izumo/inst/release	
dir ../patches/izumo/inst/roland
dir ../patches/izumo/inst/wime
dir ../patches/izumo/inst/wowpats
dir ../patches/izumo/inst
dir ../patches/izumo

source default.cfg
source gsdrum.cfg
source gsdrum25.cfg
source sfx.cfg
source mt32.cfg
source power.cfg
source release.cfg

なくてもいけるはず
#bank 0
#	47 roland/C2TIMPNI.PAT amp=125
#	115 roland/C3WODBLK.PAT amp=160
#	116 roland/C3TAIKO.PAT amp=160


dir ../patches/atomic
dir ../patches/fluid3
dir ../patches/atomic
dir ../patches/syuuhou/ultimate

	53 %font Atomic.sf2 0 53 amp=26 pan=30	
	45 %font FluidR3GM.SF2 0 45 amp=45 pan=-12	
	46 %font atomic.SF2 0 46 amp=80 pan=-12	
	47 %font atomic.SF2 0 45 amp=50 pan=-12	
	53 %font Ultimate.SF2 0 52 amp=100 pan=0	
	14 %font atomic.SF2 0 14 amp=100 pan=0	
	19 %font fluidr3gm.SF2 0 19 amp=80 pan=0	
	48 %font fluidr3gm.SF2 0 49 amp=80 pan=0