\version "2.15.8"

\header {
	title = "Melancholy"
	subtitle = "From the Yumekui Merry Soundtrack"
	composer = "Composed by Keiichi Oku"
	arranger = \markup \right-column {
		\line {Transcription by Joel Spadin}
		\line \teeny {http://chaosinacan.com}}
}

\include "english.ly"

RightA = \relative c'' {
	\acciaccatura b8 <b b'>2. | \acciaccatura e8 <e e'>8 <a, a'>8 ~ <a a'>2 |
	\acciaccatura a8 <a a'>2. | \acciaccatura d8 <d d'>8 <g, g'>8 ~ <g g'>2 |
	\acciaccatura g8 <g g'>2. | \acciaccatura c8 <c c'>8 <f, f'>4. <af af'>4 |
	<f f'>2. | <f c>2. | << { fs2 ~ fs8 } \\ { g,8 b8 ~ b4 ~ b8 } >> fs'8 ~ |
	\time 2/4
	<fs a,>2 |
	\time 3/4
	<< { gs2. } \\ { c,8 c8~ c2 } >> | << { gs'2. } \\ { <cs, a>4. cs4. } >> |
	<d e b'>8 a' e4 g4 | <g b d>2. |
}

DynamicsA = {
	%	\override DynamicTextSpanner #'dash-period = #-1.0
	\override DynamicTextSpanner #'style = #'dotted-line
	\grace s8 s2.\mp | R2.*6 | s2.\cresc | R2. | \time 2/4 R2 |
	\time 3/4 R2.*3 | s4.\mf\> s8\! s4 | s2.\mp\cresc |
	R2.*5 | s2.\mf\> | s2. | s2.\! | s2. |
}

LeftA = \relative c' {
	\grace s8 r8 <f a>8 ~ <f a>2 | <e fs as>2. | r8 <ds g>8 ~ <ds g>2 | <d e gs>2. |
	r8 <df ef a>8 ~ <df ef a>2 | <c d gf>2. | 
	<bf df gf>4 <bf df gf>2 | \clef bass af8 d, e,2 |
	<ds cs'>2. | \time 2/4 <es ds'>2 | \time 3/4 
	<< { d'4 d2 } \\ { f,4. f4. } >> | r8 fs d' a'4. |
	<e f,>4 d8 a b e | <ef a c>8 c'8 f2 |
}

RightB = \relative c'' {
	<d fs, d>2.^\markup \italic "mosso" | <fs b, g>8 b,8 ~ b2 |<e g, e>2. | <g cs, a g>8 cs,8 ~ cs2 |
	<fs a, fs>2. | <a e c a>4 e4. fs8 | <g e c>2. ~ | <g e c>2. | <g ef c>2. ~ | <g ef c>2. |
	\key c \major
	g,8 g fs g e fs | << { g2. } \\ { c,8 c b c af b } >> |
	<< { a'8 a gs a f gs } \\ { ef2. } >> | << { a2. } \\ { ef8 ef d ef a, ef' } >> |

	<< { bf'4 a bf ~ | bf8[ gf] \times 2/3 { a8[ bf gf] ~ gf[ a bf] } } \\
	{ \repeat unfold 6 <ef, b>8 | \repeat unfold 6 <e c>8 } >> |
	<< { b'4 as b ~ | b8[ g] \times 2/3 { as8[ b g] ~ g[ as b] } } \\
	{ \repeat unfold 6 <e, c>8 | \repeat unfold 6 <f cs>8 } >> |
	<< { <c' c,>4 <b b,> <c c,> ~ | <c c,>8 } \\ { s8 g8 s8 g8 s8 g8 | s8 } >>
	<a a,>8 \times 2/3 { <b b,>8[ <c c,> <a a,>] <b b,> <c c,> <d d,> } |
	\key af \minor
	<ef ef,>4 <bf' bf,>4. <ef, ef,>8 | <ef ef,>4 <bf' bf,>2 |
	r8 <ef, ef,> <bf' bf,>4. <ef, ef,>8 | <ef ef,>4 <bf' bf,>4. <ef, ef,>8 |
}

DynamicsB = {
	R2.*4 | s2.\cresc | R2.*5 | s2.\f | R2.*3 | s2.\> |
}

LeftB = \relative c' {
	cs8 cs b cs a b | <g fs'> a fs g e fs | d' d cs d b cs | a b g a fs g |
	e' e d e cs d | c c b c a c | << { bf2. ~ | bf2. | a2. ~ | a2. }  \\
	{ e8 e d e c e | d e c e d e | ef ef df ef c ef | df ef c ef df ef } >>
	\key c \major

	<< { <g b cs>2. | <af d,>2. | <a c,>2. | <a b,>2. } \\ 
	{ r8 ef, ~ ef2 | r8 e ~ e2 | r8 f ~ f2 | r8 f ~ f2 } >> |
	r8 g g g g g | gf gf gf gf gf gf |
	%#(set-accidental-style 'piano-cautionary)
	\repeat unfold 6 <gs fs'> | \repeat unfold 6 <g f'> |
	\repeat unfold 12 <a ef' g a> |
	\key af \minor
	\repeat unfold 6 <af ef' g> | \repeat unfold 6 <af ef' gf> |
	\repeat unfold 6 <af ef' f> | \repeat unfold 6 <af ef' ff> |
}


RightC = \relative c'' {
	<bf bf'>2. ~ | <bf bf'>2. |
	<< { ef,4 bf'2 ~ | bf4. } \\ { <cf, ff>4 <cf ff af>2 ~ | <cf ff af>4. } >>
	<ff af>8 <df df'> <ff af> | <ef gf bf>2. ~ | 
	<ef gf bf>4 \clef bass ef,4 bf' | << { <af ff ef>4 ef'2 ~ | ef4. } \\ 
	{ s2. | <af, ff ef df>4. } >> <af ff ef>8 <bf df,> <af ff ef> |
	<bf gf ef>2.^\markup \italic "rit. e dim." | <bf gf ef>2. | <bf gf ef>2.\fermata

}

DynamicsC = {
	s2.\mp
}

LeftC = \relative c {
	<gf bf ef gf>8 \repeat unfold 5 <ef ef,> |
	\repeat unfold 54 <ef ef,> | <ef ef,>2.\fermata
}



UpperStaff = {
	\tempo \markup \concat { \fontsize #-2 \general-align #Y #DOWN
		\note #"4" #1 " = ca. 64 (Tempo rubato)" }
	\key c \major
	\time 3/4
	\RightA
	\key b \minor
	\RightB
	\RightC
	\bar "|."
}

Dynamics = {
	\time 3/4
	\DynamicsA
	\DynamicsB
	\DynamicsC
}

LowerStaff = {
	\key c \major
	\time 3/4
 	\LeftA
 	\key b \minor
 	\LeftB
 	\LeftC
	\bar "|."
}



\score
{
	\new PianoStaff
	{
		\set PianoStaff.connectArpeggios = ##t
		\set PianoStaff.midiInstrument = #"acoustic grand"
		<<
			\new Staff = "upper" \UpperStaff
			\new Dynamics = "dynamics" \Dynamics
			\new Staff = "lower" \LowerStaff
		>>
	}
	\layout { }
	%\midi { }

}