// 君が代

Int VOCALOID=1
Int BACK=1

Function EV(Int V) {
	V=127-V
	V=V*2
	IF(V>127){
		V=127
	}
	Expression(127-V)
}

Function EVT(Int V1,Int V2, Int LEN) {
	V1=127-V1
	V1=V1*2
	V2=127-V2
	V2=V2*2

	IF(V1>127){
		V1=127
	}
	IF(V2>127){
		V2=127
	}
	Expression.onTime(127-V1,127-V2,LEN)
}
IF(VOCALOID=1){
TR(1)
	l4q100
	Tempo 50
	r1
	Tempo 49
	r1
	dcd&e
	g&e Tempo 45 d4..r16
	Tempo 49
	ega&g8&a8
	Tempo 50 >d< Tempo 49 b Tempo 47 a Tempo 45 g8.r16
	Tempo 48
	ega2
	Tempo 47
	>d Tempo 46 c Tempo 46 d4..r16<
	Tempo 48
	egag
	Tempo 48
	e4.g8 Tempo 46 d4..r16
	Tempo 47
	a8..a32>cd4..r16
	Tempo 48
	c&d< Tempo 46 a&g
	Tempo 40
	a& Tempo 35 g8&e8 Tempo 30 d2
}
IF(BACK=1){

TR(2)
音色(Strings1)
	EV(110)
	o5q100
	v100
	EV(90,110,!1)
	dcde
	ge EVT(110,40,!2)d4.r8

	EV(90,110,!1)
	dcde
	ge EVT(110,40,!2)d4..r16
	o6
	EVT(110,127,!1)
	v110
	'ce' 'cg' 'ca' Sub{c4}g8a8
	EVT(127,90,!1)
	'd>d<' 'db' 'ca' '<b8.>g8.'r16
	EVT(110,120,!1)
	ega4..r16
	EV(127)
	>dc
	EVT(127,80,!2)
	d4.r8<
	egag
	EVT(100,110,!2)
	e4.g8
	EVT(110,60,!2)
	d4..r16
	v127
	EVT(110,127,!2)
	a>c
	EVT(127,90,!2)
	d2
	EVT(127,100,!1.)
	cd<ag8.r16
	v120
	a v110 g8e8
	EVT(110,50,!2)
	d2

TR(12)
音色(Strings2)
	EV(110)
	o5q100
	v100
	EV(90,110,!1)
	dcde
	ge EVT(110,50,!2)d4.r8

	EV(90,110,!1)
	dcde
	ge EVT(110,50,!2)d4..r16
	o6
	EVT(110,127,!1)
	v110
	'ce' 'cg' 'ca' Sub{c4}g8a8
	EVT(127,90,!1)
	'd>d<' 'db' 'ca' '<b8.>g8.'r16
	EVT(110,120,!1)
	ega4..r16
	EV(127)
	>dc
	EVT(127,80,!2)
	d4.r8<
	egag
	EVT(100,110,!2)
	e4.g8
	EVT(110,60,!2)
	d4..r16
	v127
	EVT(110,127,!2)
	a>c
	EVT(127,90,!2)
	d2
	EVT(127,100,!1.)
	cd<ag8.r16
	v120
	a v110 g8e8
	EVT(110,50,!2)
	d2

TR(11)
音色(Violin)
	EV(110)
	o5q100
	v30
	EV(90,110,!1)
	dcde
	ge EVT(110,70,!2)d4.r8

	EV(110)
	dcde
	ge EVT(110,80,!2)d4..r16
	o6
	EVT(110,127,!1)
	v70
	'ce' 'cg' 'ca' Sub{c4}g8a8
	EVT(127,90,!1)
	v80
	'd>d<' 'db' 'ca' '<b8.>g8.'r16
	v90
	EVT(110,120,!1)
	ega4..r16
	v100
	EV(127)
	>dc
	EVT(127,100,!2)
	d4.r8<
	v80
	egag
	EVT(100,110,!2)
	e4.g8
	EVT(110,90,!2)
	d4..r16
	v100
	EVT(110,127,!2)
	a>c
	EVT(127,115,!2)
	d2
	EVT(127,100,!1.)
	v90
	cd<ag8.r16
	v80
	a v70 g8e8
	EVT(110,80,!2)
	d2


TR(3)
	音色(Cello)
	EV(110)
	o4q100l4
	v100
	EVT(90,110,!1)
	dcde
	geEVT(110,70,!4.)d4.r8
	EV(110)
	dcde
	geEVT(110,70,!4.)d4..r16

	音色(Viola)
	o5
	v105
	EVT(100,110,!1)
	'<g>e' 'cg' 'ca'Sub{c4}g8a8>
	EVT(120,90,!1)
	<'f#>d'<'gb'ag8.r16
	EVT(100,110,!2)
	'<g>c' '<g>e'
	EVT(110,80,!2)
	'<a4..>f4..'r16
	v127
	EVT(127,110,!2)
	dc
	EVT(110,70,!2)
	d4..r16
	v110
	EVT(90,110,!1)
	'<a>e''<g>e' '<a>f''<g>e'
	EVT(110,90,!1)
	Sub{c4e4d4..r16}<c4e4g4..r16
	v127
	EVT(110,127,!1)
	'a>f''<a>f''<a2>f2'
	EVT(120,110,!1)
	'<a>e''<a>f''<a>a''<g>g'
	v120
	EVT(110,100,!2.)
	'<a>a'v110'<g8>g8''<e8>e8'
	EV(100,70,!2)
	v105'<d2>d2'

TR(4)
	EV(110)
	音色(Clarinet)
	o5q100
	EVT(90,110,!1)
	dcde
	geEVT(110,40,!4.)d4.r8
	EVT(90,110,!1)
	dcde
	geEVT(110,60,!4.)d4..r16
	egag8a8
	>d<bag8.r16
	ega4..r16
	fef4..r16

	egfe
	c4.c8<b4..r16>
	aaa2
	aaag
	ag8e8d2


TR(5)
	EV(120)
	[4 r1]
	音色(Piccolo)
	o7q100
	EVT(90,110,!1)
	egag8a8
	EVT(115,90,!1)
	>d<bag8.r16
	EVT(90,110,!1)
	ega4..r16
	EVT(127,90,!1)
	>dcd4..r16<

	EVT(90,110,!1)
	egag
	EVT(110,80,!1)
	e4.g8d4..r16
	EVT(110,127,!1)
	a>cd2
	EVT(120,100,!1.)
	cd<ag8.r16
	ag8e8EVT(100,50,!2)d2

TR(6)
	EV(110)
	音色(Trumpet)
	[4 r1]
	o6q100
	EVT(90,110,!1)
	egag8a8
	EVT(115,90,!1)
	>d<bag8.r16
	EVT(90,110,!1)
	ega4..r16
	EVT(127,90,!1)
	>dcd4..r16<

	EVT(90,110,!1)
	egag
	EVT(110,80,!1)
	e4.g8d4..r16
	EVT(110,127,!1)
	a>cd2
	EVT(120,100,!1.)
	cd<ag8.r16
	ag8e8EVT(100,50,!2)d2

TR(7)
	EV(110)
	音色(Trombone)
	o5q100l4
	[10 r1]
	EVT(110,127,!1)
	fff2
	EVT(120,100,!1.)
	'ea''fa'<ag
	ag8e8EVT(100,50,!2)d2
	
TR(8)
	EV(120)
	音色(FrenchHorn)
	o5q100
	EVT(90,110,!1)
	'<d>d''<c>c''<d>d''<e>e'
	EVT(110,90,!1)
	'<g>g''<e>e''<d4.>d4.'r8

	EVT(90,110,!1)
	'<d>d''<c>c''<d>d''<e>e'
	EVT(110,90,!1)
	'<g>g''<e>e''<d4..>d4..'r16

	EVT(90,110,!1)
	'<g>c''<g>c''<f>c'<Sub{e8f8}>c
	EVT(110,90,!1)
	'<f#>d' '<gb' Sub{d8d#8}a 'e8.g8.'r16
	EVT(110,127,!1)
	'g>c' '<g>e' '<a4..>f4..'r16
	<'da''<a>a'	EVT(127,100,!1)'d4..a4..'r16

	EVT(100,110,!1)
	'<a>c''<g>e''<a>f''<g>e'
	EVT(110,100,!2)
	Sub{g2^4..}c4.e8<	EVT(100,70,!1)b4..r16
	EVT(110,127,!1)
	>'<a>f''<a>f''<a2>f2'
	'<c>c''<d>d'<ag
	EVT(127,110,!2)ag8e8	EVT(110,60,!2)d2

TR(16)
	EV(120)
	音色(Contrabass)
	o4q100l4
	EVT(110,127,!1)
	dcde
	EVT(127,110,!1)
	ged4.r8
	EVT(110,127,!1)
	dcde
	EVT(127,110,!1)
	ged4..r16
	<
	EVT(100,127,!1)
	cefe8f8
	EVT(127,100,!1)
	f#gd8d#8e8.r16
	EVT(100,127,!1)
	cecf
	d<a>EVT(127,80,!2)d4..r16
	EVT(100,127,!1)
	agfe
	ce EVT(127,70,!1)g4..r16
	EVT(100,127,!1)
	fff4..r16
	adag
	EVT(127,117,!2)
	ag8e8
	EVT(117,80,!1)d2

TR(10)
//	音色(OrchestraSet)
	v127q100
	$b{n(Kick1),}
	$S{n(SnareRoll),}
	$s{n(Snare1),}
	Expression(127)
	[4 r1]
	Sub{Expression.onTime(40,100,!1) r1 Expression.onTime(100,40,!1)}
	Rythm{S1^1}
	Expression(127)
	Rythm{'bs''bs'}
	Sub{Expression.onTime(80,127,!1) r2 Expression.onTime(127,50,!1)}
	Rythm{S2^1}
	Sub{Expression.onTime(40,100,!1) r1 Expression.onTime(100,40,!1)}
	Rythm{S1^1}

	Expression(127)
	Rythm{'bs''bs'}
	Sub{Expression.onTime(80,127,!1) r1. Expression.onTime(127,30,!1)}
	Rythm{S2^1^1}

}

End
##############################################################################
# TiMidiTy Config (v2.0)

dir ../patches/sf2_all
dir ../patches/sf2_all/atomic
dir "../patches/sf2_part/Sonatina Symphonic Orchestra"

##############################################################################

bank 0
bank 0
	# Strings
	48 %font "Strings - 1st Violins Sustain.sf2" 0 0 amp=100 rate=::100
	49 %font "Strings - 2nd Violins Sustain.sf2" 0 0 amp=100 rate=::100

	# Violin
	40 %font "atomic.sf2" 0 40 amp=90 rate=::100

	# Viola
	41 %font "Strings - Violas Sustain.sf2" 0 0 amp=100 rate=::100

	# Cello
	42 %font "Strings - Celli Sustain.sf2" 0 0 amp=100 rate=::100

	# Bass
	43 %font "Strings - Basses Sustain.sf2" 0 0 amp=100 rate=::100

	# Clarinet
	71 %font "Woodwinds - Clarinets Sustain.sf2" 0 0 amp=100

	# Trumpet
	56 %font "Brass - Trumpets Sustain.sf2" 0 0 amp=100 rate=::100

	# Trombone
	57 %font "Brass - Trombones Sustain.sf2" 0 0 amp=100 rate=::100

	# Piccoro
	72 %font "Woodwinds - Piccolo Solo.sf2" 0 0 amp=100 tune=-12

	# Horn
	60 %font "Brass - Horns Sustain.sf2" 0 0 amp=100 rate=::100

drumset 0
	# sd roll
	25 %font "Percussion - All Percussion.sf2" 128 0 39 amp=120

	# bd
	36 %font "Percussion - All Percussion.sf2" 128 0 36 amp=170

	# sd
	38 %font "Percussion - All Percussion.sf2" 128 0 40 amp=170

#extension altassign 42 44 46