\version "2.12.3"

\header {
	title = "A Distant Promise"
	subtitle = \markup { From \italic "Myth: The Xenogears Orchestral Album" }
	composer = "Composed by Yasunori Mitsuda"
	arranger = \markup \right-column {
		\line {Arranged by Natsumi Kameoka}
		\line {Transcription by Joel Spadin}
		\line \teeny {http://chaosinacan.com} }
}

\include "english.ly"

RightA = \relative c'' {
	\voiceOne
	<f a>4. c8 ~ c4 f4 | g f g <f a> | <g c c,>2 <b d d,>4 g | <f g f'>2 <e e'>4 c' |
	a1 | <c g>2 b | <c g e c>2.\arpeggio g4 | c,1 |
	
	#(set-octavation 1)
	\set Staff.ottavation = #"R.H. 8va"
	<< { g''8.\arpeggio g16 ~ g8 g g8. f16 ~ f8 e } \\ { <c g>1\arpeggio } >> |
	<d g,>2 c4 d | << { <f f,>4. <e e,>8 <e e,>2 ~ | <e e,>1 } \\ { <c g>1 | s1 } >>

	<< { g'8.\arpeggio g16 ~ g8 <c c,> <c c,>8. <b b,>16 ~ <b b,>8 <a a,> } \\ { <c, g>1\arpeggio } >> |
	<a d a'>8. <g g'>16 ~ <g g'>8 <g g'> ~ <g g'>4 <d d'> |
	<< { e'4. g8 ~ g2 ~ | g1 | } \\ { <c, a>1 ~ | <c a> 1 } >> |
	
	<< { g'8.\arpeggio g16 ~ g8 g g8. f16 ~ f8 e } \\ { <c g>1\arpeggio } >> |
	<d g,>2 c4 d | << { <f f,>4. <e e,>8 <e e,>2 ~ | <e e,>1 } \\ { <c g>1 | s1 } >>

	<c f,>8. b16 ~ b8 c ~ c <g g'>4 <g g'>8 | <g g'>8 e'4 d8 ~ d4 c8 b |
	#(set-octavation 0)
	<c g e>1\arpeggio ~ | <c g e>2 r4^\markup \italic "tratt." <c, g>8 <c c'>8 |
}

DynamicsA = {
	c1\mp | R1*23
}

LeftA = \relative c' {
	<< { s1_\markup \italic "with pedal" s2 } \\ {
	\change Staff=upper \voiceTwo f1 ~ | f2 } >>
	\change Staff=upper \voiceTwo
	c4 f | <g d>1 | <g c c,>2. g4 |
	<f f'>4. c'8 ~ c4 f4 | <d c g>2. d,4 | e2.\arpeggio g4 | c,1 |

	\change Staff=lower \oneVoice
	\clef treble
	<f a c>1\arpeggio | <g b d>1 | <g c c,>2. ~ <g c c,>8  g8 | c4. d8 ~ d8 c4 g8 |

	<f a c>1\arpeggio | <g b d>1 | <a c e>2. ~ <a c e>8 b8 | c4. b8 ~ b4 g4 |

	<f a c>1\arpeggio | <g b d>1 | <g c c,>2. ~ <g c c,>8  g8 | c4. d8 ~ d8 c4 g8 |

	<f a c>1 | <g b d>1 | <e g c>2.\arpeggio g4 
	\clef bass
	c,4. d8 c, g' e'4 |
}


RightB = \relative c''' {
	<b b,>2^\markup \italic "a tempo" <c c,>2 | <b b,>2 <a a,>4. <g g,>8 |
	<g g,>4. d8 ~ d4 c8 <g' g,>8 | <g g,>8. e16 ~ e8 d8 ~ d4 <c' c,>4 |

	<b b,>2 <c c,>2 | <b b,>2 <a a,>4. <g g,>8 |
	<g g,>4. d8 ~ d8 d <c' c,>4 | <b b,>4. <c c,>8 ~ <c c,>4 <d d,> |

	<c c,>2.^\markup \italic "poco a poco rall. e dim." e,4 | <b' b,>2 a4 g | <g g,>4. d8 ~ d4 c8 g' |
	<< { g8. e16 ~ e8 d8 ~ d4 c8 b } \\ { b2 a4 g } >> |

	<< { c4. f8 ~ f4 g | c,4. a8 ~ a4 d8 e | <c g>1 } \\ { f,1 | f2. g4 | e4. d8 ~ d4 e } >> |
	g4.^\markup \italic "molto rall." c8 ~ c4 d | <e c e, d>1\fermata
}

DynamicsB = {
	c8 c4\mf c8 c2 | R1*10 | c1\mp | R1 * 4 | c8 c4\p c8 c2
}

LeftB = \relative c {
	a8 e' c' d g4. c,8 | f,, c' b' a e'2 | c,,8 g' e' g d' g, e' g, | g, d' b' d g2 |
	a,,8 e' c' d g4. c,8 | f,, c' b' a e'2 | c,,8 g' e' g d' g, e' g, | g, d' g a d b g' d |
	a a, e' b' c d g4 | f,8 d' c a'8 ~ a2 | c,,8 g' d'4 e2 | <d g,>1 |
	<c a f>1 | r2 f,,8 c' g' a | <g c>1 | R1 | <g c, g>1\fermata
}


UpperStaff = {
	%\override Score.MetronomeMark #'transparent = ##t
	#(override-auto-beam-setting '(end 1 8 * *) 4 8)
	\override TextScript #'Y-extent = #'(-3.75 . 1.5)
	\tempo 4 = 100
	\tempo \markup \concat { \fontsize #-2 \general-align #Y #DOWN
		\note #"4" #1 " = ca. 80" }
	\key c \major
	\RightA
	\override TextScript #'Y-extent = #'(-1.5 . 1.5)
	\RightB
	\bar "|."
}

Dynamics = {
	\DynamicsA
	\DynamicsB
}

LowerStaff = {
	#(override-auto-beam-setting '(end 1 8 * *) 4 8)
	\key c \major
	\clef bass
 	\LeftA
 	\LeftB
	\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
		>>
	}
	%\midi { }
	\layout {

		% define Dynamics context
		\context {
			\type "Engraver_group"
			\name Dynamics
			\alias Voice
			\consists "Output_property_engraver"
			\consists "Piano_pedal_engraver"
			\consists "Script_engraver"
			\consists "New_dynamic_engraver"
			\consists "Dynamic_align_engraver"
			\consists "Text_engraver"
			\consists "Skip_event_swallow_translator"
			\consists "Axis_group_engraver"
			
			pedalSustainStrings = #'("Ped." "*Ped." "*")
			pedalUnaCordaStrings = #'("una corda" "" "tre corde")
			\override DynamicLineSpanner #'Y-offset = #0
			\override TextScript #'font-size = #2
			\override TextScript #'font-shape = #'italic
			\override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
		}
		% modify PianoStaff context to accept Dynamics context
		\context {
			\PianoStaff
			\accepts Dynamics
		}
	}
}