\version "2.12.3"

\header {
	title = "Ce qui fut sauve"
	subtitle = "From the Shakugan no Shana Movie Soundtrack"
	composer = "Composed by Ko Otani"
	arranger = \markup \right-column {
		\line {Transcription by Joel Spadin}
		\line \teeny {http://chaosinacan.com}}
}

\include "english.ly"

Intro = \relative c'' {
	a4\mp b d c | \time 6/4 b g e1 |
	\time 4/4 a4 b d c | \time 6/4 b g a b2. | 
	\time 4/4 f4 c' g' a | \time 6/4 e d c b2. |
	\time 4/4 <e, a b a' b>1\arpeggio\fermata
}

Melody = \relative c'' {
	\override Score.MetronomeMark #'transparent = ##t
	\tempo 4 = 56
	a4^\markup { \italic "piu mosso" } b d c | b g e2 | a4 b d c | b g a b |
	f c' g' a | e d c b |
	\override TextSpanner #'(bound-details left text) = "rall."
	a1\startTextSpan | a1-\fermata\stopTextSpan
}

Bass = \relative c, {
	f8--^\markup \italic "ten." c' g' a b2 ~ | b1 |
	a,8 e' b' c d2 | e f |
	d,,8 a' e' f c'2 | g'4 f e d |
	a,8 e' <a b c d>2. |
	a,8 e' <a b c d>2.-\fermata
}

Pedal = \relative c, {
	\set Dynamics.pedalSustainStyle = #'mixed
	R1\sustainOn | R1. | R1 | R1. | R1 | R1. | s2 s4 s4\sustainOff |
	R1\sustainOn | R1 |
	R1\sustainOff\sustainOn | R1 |
	R1\sustainOff\sustainOn | R1 |
	R1\sustainOff\sustainOn | R1\sustainOff\sustainOn
}


UpperStaff = {
	%\override Score.MetronomeMark #'transparent = ##t
	%#(set-accidental-style 'piano-cautionary)
	#(override-auto-beam-setting '(end 1 8 * *) 4 8)
	\override DynamicLineSpanner #'staff-padding = #2.0
  	\override DynamicLineSpanner #'Y-extent = #'(-1.5 . 1.5)

	\tempo 4 = 48
	\tempo \markup \concat { \fontsize #-2 \general-align #Y #DOWN
		\note #"4" #1 " = ca. 48 (Tempo rubato)" }

	\key c \major
 	\Intro | \bar "||" \Melody
	\bar "|."
}

LowerStaff = {
	%#(set-accidental-style 'piano-cautionary)
	#(override-auto-beam-setting '(end 1 8 * *) 4 8)
	\set Staff.pedalSustainStyle = #'mixed

	\key c \major
	\clef bass
 	R1 | R1. | R1 | R1. | R1 | R1. | R1 |
 	\bar "||"
	\Bass
	\bar "|."
}



\score
{
	\new PianoStaff
	{
		\set PianoStaff.midiInstrument = #"acoustic grand"
		<<
			\new Staff = "upper" \UpperStaff
			\new Staff = "lower" \LowerStaff
			\new Dynamics = "pedal" \Pedal
		>>
	}
	\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
		}
	}
}