\version "2.12.3"

\header {
	title = "Junko's Disappearance Scene"
	subtitle = "From Shakugan no Shana S episode 4"
	composer = "Composed by Ko Otani"
	arranger = \markup \right-column {
		\line {Transcription by Joel Spadin}
		\line \teeny {http://chaosinacan.com}}
}

\include "english.ly"

MelodyA = \relative c'' {
	c4 << { c'2.^> } \\ { f,8 e ~ e2 } >> |
	r4 << { c'2.^> } \\ { f,8 e ~ e2 } >> |
	r4 << { c'4.^> c4 c8 ~ | c4. } \\ { f,8 e ~ e d4 f8 ~ | f4. } >> f8-> f-> e4-> f8-> ~ |
	f2 f8-> g4-> f8-> ~ | f1 |
	%7
	\override Score.MetronomeMark #'transparent = ##t
	\tempo 4 = 68
	<< { c'2^> ~ c4. } \\ { f,8 e^\markup \italic "piu mosso" ~ e4 ~ e4. } >> <e c'>8 |
	<e c'> <f c'> <g c> <a c> <a c> <g c> <g c> <f c'> |
	<bf c> <a c> <g c>4 <g c> <f c'>8 <e c'> |
	<f c'>4 <g c> <a c>4. <f c'>16 <g c> |
	<a c>4^\markup \italic "rall." <g c> <f c'> <g c> |
}

DynamicsA = {
	r1\mp | R1*5 |
	%7
	r1 | r2\< r2\! | r16 r16\> r2. r8\! | r2.\< r8. r16\! | r2.\> r4\! |
}

BassA = \relative c' {
	c8_\markup \italic "with pedal" f bf2. | c,8 f bf2. | c,8 f bf2. | c,8 f <bf c>2 bf4 |
	c,8 f bf c ~ c2 | c,8 c'4 bf8 a4 c |
	%7
	c,8 f bf c ~ c2 | c,8 f bf c ~ c bf4 a8 | g f e4 e d8 c |
	d4 e f4. d16 e | f4 e d e |
}

MelodyB = \relative c'' {
	%12
	\acciaccatura d16 <d d'>4^\markup \italic "a tempo" e8 f g8. e16 c8 f ~ |
	f4 <a f'> <g e'> <f d'>8 c' | <d d,>4 e,8 f g a g f |
	e f d'4 ~ d8 a^\markup \italic "rall." f' e | f16^\markup \italic "a tempo" e d8 a2 f'16 e d8 |
	d e a, g a4 a8 bf | c f4 e8 ~ e c4 a8 ~ | a d d2.|
	%20
	<< { a8\arpeggio g f g } \\ { <a, d f>2\arpeggio } >> f'8 e c4 |
	<< { f8\arpeggio e d e d c a g } \\ { <a bf d>2\arpeggio g } >> |
	<a d, c>2.-> f8^\markup \italic "poco a poco rall. e dim." g |
	<< { \voiceOne <g a>1 } \\ { \voiceTwo f2 ~ f8 f e c } >> |
	a8 d d2. | a8 d << { d2. } \\ 
		{ \override TextScript #'Y-extent = #'(-1.0 . 1.0) s4. s4.^\markup \italic "molto" } >> |
	<d a fs>1\arpeggio\fermata
}

DynamicsB = {
	%12
	r1\mp | R1*7 |
	%20
	r8 r8\mf r8 r8\> r4. r16 r16\! | r16 r16\mf r8 r4\> r8 r4\< r16 r16\! |
	r1\f | R1*4
}

BassB = \relative c' {
	bf8 f' bf f c g' \parenthesize c4 | d,8 a' d a d a d a |
	\repeat unfold 2 { bf,8 f' bf f c g' c g | d a' d a d a d a }
	bf, f' bf f c g' c g d a' d a e'4 f |
	%20
	\clef bass <d, g,>2\arpeggio <f e a,>2 | <d bf d,>2\arpeggio <a c,> |
	bf,8 f' bf c d c r4 | g,8 d' a' bf c r8 r4 |
	d,,8 a' d a e' a, f' a, | d, a' d a e' a, f' g | <a, d,>1\arpeggio\fermata

}

UpperStaff = {
	%\override Score.MetronomeMark #'transparent = ##t
	%#(set-accidental-style 'piano-cautionary)
	#(override-auto-beam-setting '(end 1 8 * *) 4 8)
	\set Staff.connectArpeggios = ##t
	\override TextScript #'Y-extent = #'(-1.0 . 1.0)
	\tempo 4 = 64 
	\tempo \markup \concat { \fontsize #-2 \general-align #Y #DOWN
		\note #"4" #1 " = ca. 64 (Tempo rubato)" }
	\key f \major
 	\MelodyA | \MelodyB
	\bar "|."
}

PianoDynamics = {
	\DynamicsA | 
	\DynamicsB
}

LowerStaff = {
	%#(set-accidental-style 'piano-cautionary)
	#(override-auto-beam-setting '(end 1 8 * *) 4 8)
	\set Staff.connectArpeggios = ##t
	\key f \major
	\BassA | \BassB
	\bar "|."
}






\score
{
	\new PianoStaff
	{
		\set PianoStaff.connectArpeggios = ##t
		\set PianoStaff.midiInstrument = #"acoustic grand"
		<<
			\new Staff = "upper" \UpperStaff
			\new Dynamics = "dynamics" \PianoDynamics
			\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
		}
	}
}