% Beethoven Sonata Op. 27 no. 1
% Matthew Neeley, 12.2004

\version "2.2.5"

\header {
	title = "Sonata XIII"
	subtitle = "Sonata quasi una Fantasia"
	opus = "Op. 27 No. 1"
	composer = "Ludwig van Beethoven"
	piece = "Allegro molto vivace"
}

global = \notes {
	\key c \minor
	\time 3/4
}

dynamics = \notes {
	s2.\p s2.*11 s2.\f s2.*3 s2.\p s2. s2.\p
	
	s2.*9 \setTextCresc s4\< s2\! s2.*9 s2.\f s2.*3 s2.\p s2. s2 s4\p
	
	s2.*2 s2 \setTextCresc s2.*5\< s4\! s2.\ff s2. \setTextCresc s2\> s4\! s2. s2.\p s2. s2.\p s2
	
	s4\pp s2.*2 s4 s2\pp s2.*7 \setTextCresc s4\< s2\! s2.*5 s2.\p s2. s2.\p s2.
	
	s2.*10 s2 s2.\f s2.*3 s2.\p s2.*11 s2.\f s2.*3 s2.\p s2.*9 \setTextCresc s4\< s2\! s2.*9
	s2.\f s2.*6 s2.\ff s2.*8
}

righthand = \notes\relative c'{
	
	s4 s s
	\repeat volta 2 {
		c( es g) g'( es c) g'( d b)
		g( d b) g'( d bes) g''( d bes) f'( c a)
		f( c a) f'( c aes) f''( c a) es'( c g)	
		<es es'>-| a-| g-|
		<d d'>-| bes'-| g-|
		<d d'>-| a'-| fis-|
	}
	\alternative { { g r r s s s } { g r r s s s } }
	
	\repeat volta 2 {
		s s s bes( g c,) aes'( f c)
		s s s s s s f'( d g,) es'( c g)
		s s s c,( es g) aes'( es c) aes'( d, b)
		aes( d, b) g'( d bes) g''( d bes) g'( c, a)
		g( c, a) f'( c aes) f''( c aes) es'( c g)
		<c, c'>-| a'-| es-|
		<c c'>-| g'-| es-|
		<b b'>-| g'-| d-|
	}
	\alternative {
		{ <c es c'> r r s s s }
		{ <c c'>-| g'-| es-| c-| r s }
	}
	
	\repeat volta 2 {
		s s s s s s s s s r c_| r
		r es-| r r aes-| r r c-| r
		r es-| r ges2.~-\trill ges2. g4-| es-|
		bes~( bes aes) f-|
	}
	\alternative {
		{ <g, es'>-| bes-| g-| r r s }
		{ <g es'>-| bes-| g-| s s }
	}
	
	\repeat volta 2 {
		r r2. r
		r4 f''-| es-| r des-| c-|
		r bes-| aes-| r g-| aes-|
		r bes-| c-| r des-| es-|
		r f-| es-| r des-| c-|
		r bes-| aes-| r g-| f-|
		r es-| des-| r c-| b-|
		r bes-| c-| r des-| g,-|
	}
	\alternative {
		{ <g bes>2.\( \partial 2 aes4\) r }
		{ aes-| s s s s s }
	}
	
	c( es g) g'( es c) g'( d b)
	g( d b) g'( d bes) g''( d bes) f'( c a)
	f( c a) f'( c aes) f''( c aes) es'( c g)
	<es es'>-| a-| g-| <d d'>-| bes'-| g-| <d d'>-| a'-| fis-| g-| r r
	s^\markup { \italic "sempre legato" } s s s8 c,4( es g8) r g'4( es c8) r g'4( d b8)
	r g4( d b8) r g'4( d bes8) r g''4( d bes8) r f'4( c a8)
	r f4( c a8) r f'4( c aes8) r f''4( c aes8) r es'4( c g8)
	r <es es'>4( a g8) r <d d'>4( bes' g8) r <d d'>4( a' fis8) g4 r r
	s s s s s s
	r8 bes4( g c,8) r aes'4( f c8) 
	s4 s s s s s r8 f'4( d g,8) r es'4( c g8)
	s4 s s r8 c,4( es g8) r aes'4( es c8) r aes'4( d, b8)
	r aes4( d, b8) r g'4( d bes8) r g''4( d bes8) r g'4( c, a8)
	r g4( c, a8) r f'4( c aes8) r f''4( c aes8) r es'4( c g8)
	
	r <c, c'>4( a' es8) r <c c'>4( g' es8) r <b b'>4( g' d8)
	r <c c'>4( g' e8) r <c c'>4( aes' f8) r <c c'>4( bes' g8) r <c, c'>4( aes' f8)
	r <c' c'>4( e g8) r <c, c'>4( f aes8) r <c, c'>4( g' bes8) r <c, c'>4( f aes8)
	r <c, c'>4( g' e8~ e8 c4 g e8~ e8 c4 \clef bass g e8~ e8 c4 g' e8~ e4 c2)\sf \fermata  
	\bar "||"
}

lefthand = \notes\relative c, {
	<< { c'4( es g) } \\ { c,,4( es g) } >>
	\repeat volta 2 {
		c( es g) \clef treble c( es g) b,( d g)
		\clef bass b,,( d g) bes,( d g) \clef treble bes( d g) a,( c f)
		\clef bass a,,( c f) aes,( c f) aes( c f) g,( c es)
		<c,, c'>-| g'-| a-|
		<d, d'>-| g-| bes-|
		<d, d'>-| fis-| a-|
	}
	\alternative {
		{ << { s s s c( es g) } \\ { <g,, g'>( es' d c es g) } >> }
		{ << { s s s bes'( f des) } \\ { <g,, g'>( f' e des f bes) } >> }
	}
	
	\repeat volta 2 {
	    << { bes'( e, c) } \\ { c,( e bes') } >> e,( g c) f,( aes c)
	    << { aes'( es c) g'( d b) } \\ { c,( es aes) b,( d g) } >>
	    b( d g) c,( es g)
	    << { c,( es g) } \\ { c,,( es g) } >>
	    c( es g) \clef treble c( es g) b,( d aes')
	    \clef bass b,,( d aes') bes,( d g) \clef treble bes( d g) a,( c g')
	    \clef bass a,,( c g') aes,( c f) aes( c f) g,( c es)
		<fis,, fis'>-| c'-| es-|
		<g, g'>-| c-| es-|
		<g, g'>-| b-| d-|
	}
	\alternative {
		{ << { s s s bes'( f des) } \\ { <c, c'>( b c des f bes) } >> }
		{ <c, c'>-| es-| g-| c-| r << { es-| } \\ { <aes, c>-| } >> }
	}
	
	\repeat volta 2 {
	    << { es'-| } \\ { <aes, c>-| } >> r << { es'-| } \\ { <aes, c>-| } >>
	    << { es'-| } \\ { <aes, c>-| } >> r << { es'-| } \\ { <aes, c>-| } >>
	    << { es'-| } \\ { <aes, c>-| } >> r <aes c es>-|
	    <aes c es>-| r <aes c es>
	    <aes c es> r <aes c es> <aes c es> r <aes c es>
	    <aes c es> r <aes c es> <aes c es> r <aes c es>
	    <a c es ges> r <a c es ges> <a c es ges> r <a c es ges>
	    <bes es g> r <bes es g>
	    <bes d aes'> r <bes d aes'>
	    
	}
	\alternative {
		{ <es, es'> r r << { s s es'-| } \\ { es^| des^| bes-| } >> }
		{ <es, es'> r r << { es'-| r } \\ { r r } >> }
	}
	
	\repeat volta 2 {
	    <es bes' des>-|
		<es bes' des>-| r <es bes' des>-|
		<es bes' des>-| r <es bes' des>-|
		<es bes' des>-| r <es bes' des>-|
		<es bes' des>-| r <es bes' des>-|
		<es bes' des>-| r <es bes' des>-|
		<es bes' des>-| r <es bes' des>-|
		<es bes' des>-| r <es bes' des>-|
		<es bes' des>-| r <es bes' des>-|
		<es bes' des>-| r <es bes' des>-|
		<es bes' des>-| r <es bes' des>-|
		<es, bes' des> r <es bes' des>
		<es bes' des> r <es bes' des>
		<es bes' des> r <es bes' des>
		<es bes' des> r <es bes' des>
		<es bes' des> r <es bes' des>
		<es bes' des> r <es bes' des>
	}
	\alternative {
		{ <aes des es>2.\( \partial 2 <aes c es>4\) r }
		{ << { s fis'( g c, es g) } \\ { <aes, c>-| fis( g c, es g) } >> }
	}
	
	c( es g) \clef treble c( es g) b,( d g) \clef bass b,,( d g) bes,( d g)
	\clef treble bes( d g) a,( c f) \clef bass a,,( c f) aes,( c f)
	aes( c f) g,( c es) <c,, c'>-| g'-| a-| <d, d'>-| g-| bes-| <d, d'>-| fis-| a-|
	<g, g'>-|
	<< { s s r8 c'4( es g8~) g s s2 } \\ { es,4( d c)-|_\markup { \italic "sempre staccato" } es-| g-| c-| es-| g-| } >>
	\clef treble c-| es-| g-| b,-| d-| g-|
	\clef bass b,,-| d-| g-| bes,-| d-| g-|
	\clef treble bes-| d-| g-| a,-| c-| f-|
	\clef bass a,,-| c-| f-| aes,-| c-| f-|
	aes-| c-| f-| g,-| c-| es-|
	<c,, c'>-| g'-| a-| <d, d'>-| g-| bes-| <d, d'>-| fis-| a-|
	<< { s2. r8 bes'4( f des8) r bes'4( e, c8) } \\ { <g, g'>4( f' e des)-| f-| bes-| c,-| e-| bes'-| } >>
	e,-| g-| c-| f,-| aes-| c-|
	<< { r8 aes'4( es c8) r g'4( d b8) } \\ { c,4-| es-| aes-| b,-| d-| g-| } >>
	b-| d-| g-| c,-| es-| g-|
	<< { r8 c,4( es g8) } \\ { c,,4-| es-| g-| } >>
	c-| es-| g-| \clef treble c-| es-| aes-| b,-| d-| aes'-|
	\clef bass b,,-| d-| aes'-| bes,-| d-| g-|
	\clef treble bes-| d-| g-| a,-| c-| g'-|
	\clef bass a,,-| c-| g'-| aes,-| c-| f-| aes-| c-| f-| g,-| c-| es-|
	<fis,, fis'>-| c'-| es-| <g, g'>-| c-| es-| <g, g'> b-| d-|
	<c, c'>-|\sf e-| g-| <c, c'>-|\sf f-| aes-| <c, c'>-|\sf g'-| bes-| <c, c'>-|\sf f-| aes-|
	<g' g'>-|\sf <e e'>-| <c c'>-| <aes' aes'>-|\sf <f f'>-| <c c'>-|
	<bes' bes'>-|\sf <g g'>-| <c, c'>-| <aes' aes'>-|\sf <f f'>-| <c c'>-|
	<c c'>-| g''-| e-| c-| g-| e-| c-| g-| e-| c-| g'-| e-| c2.\sf \fermata
}


\score {
	% #(set-accidental-style 'piano)

	\context PianoStaff <<
		% create staves	
		\context Staff = up { \skip 2 * 220 }
		\context Dynamics = dyn \dynamics
		\context Staff = down { \skip 2 * 220 }
	
		% fill in notes
		\context Staff = up { 
			\clef treble
			\global
			\context Voice = rh \righthand
		}
		\context Staff = down {
			\clef bass
			\global
			\context Voice = lh \lefthand
		}
	>>
	
	\paper {
    \context {
      \type "Engraver_group_engraver"
      \name Dynamics
      \alias Voice % So that \cresc works, for example.
      \consists "Output_property_engraver"
      
      minimumVerticalExtent = #'(-1 . 1)
      pedalSustainStrings = #'("Ped." "*Ped." "*")
      pedalUnaCordaStrings = #'("una corda" "" "tre corde")
      
      \consists "Piano_pedal_engraver"
      \consists "Script_engraver"
      \consists "Dynamic_engraver"
      \consists "Text_engraver"

      \override TextScript #'font-size = #2
      \override TextScript #'font-shape = #'italic
      \override DynamicText #'extra-offset = #'(0 . 2.5)
      \override Hairpin #'extra-offset = #'(0 . 2.5)

      \consists "Skip_event_swallow_translator"

      \consistsend "Axis_group_engraver"
    }
    \context {
      \PianoStaffContext
      \accepts Dynamics
      \override VerticalAlignment #'forced-distance = #7
    }
  }
  \midi {
    \context {
      \type "Performer_group_performer"
      \name Dynamics
      \consists "Piano_pedal_performer"
      \consists "Span_dynamic_performer"
      \consists "Dynamic_performer"
    }
    \context {
      \PianoStaffContext
      \accepts Dynamics
    }
  }
}