\version "1.6.12"
\paper{ papersize = "letter" }
\include "paper20.ly"

#(set-point-and-click! 'line-column)

\header {
  filename =    "grieg_op54_no5.ly"
  title = "Lyric Pieces"
  subtitle =       "Scherzo."
  % subsubtitle = "(Zug der Trolle.)"
  composer =    "Edvard Grieg"
  dedication = "Herrn Julius R\\\"ontgen gewidmet."
  opus = "Op. 54 No. 5"
  enteredby =   "KSW 2004/09/16"
  copyright =   "public domain"
}

\include "english.ly"

staffUp = {\translator Staff = upper}
staffDown = {\translator Staff = lower}
ottavaSetup = {
	\property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
	\property Voice.TextSpanner \revert #'type
	\property Voice.TextSpanner \override #'type = #'dotted-line
	\property Voice.TextSpanner \set #'padding = #2
	\property Voice.TextSpanner \set #'padding = #-1
	\property Voice.TextSpanner \override #'edge-height = #'(0 . 3)
	\property Staff.centralCPosition = #-13
}
ottavaBasso = {
	\property Staff.centralCPosition = #+13
	\property Voice.TextSpanner \override #'direction = #-1
}
ottava = \spanrequest\start "text"
loco = \spanrequest\stop "text"
locoSetup = {
	\property Staff.centralCPosition = #-6
}
followOn = {
	\property PianoStaff.followVoice = ##t
}
followOff = {
	\property PianoStaff.followVoice = ##f
}
bOn = {
	\property Staff.autoBeaming = ##t
}
bOff = {
	\property Staff.autoBeaming = ##f
}
originalBreak = {
	% \break
}
newBreak = {
	\break
}
Up = \sustainUp
Down = \sustainDown
trStart = \spanrequest\start "text"
trStop = \spanrequest\stop "text"
trSetup = {
	\property Voice.TextSpanner \set #'type = #'trill
	\property Voice.TextSpanner \set #'edge-height = #'(0 . 0)
	\property Voice.TextSpanner \set #'edge-text = #'((line (music "scripts-trill") " ") . "")
}
tupletEighth = {
     \property Voice.tupletSpannerDuration = #(make-moment 1 8)
}
tupletQuarter = {
     \property Voice.tupletSpannerDuration = #(make-moment 1 4)
}
tupletDottedQuarter = {
     \property Voice.tupletSpannerDuration = #(make-moment 3 8)
}
restartMeasure = {
	\property Timing.measurePosition = #(make-moment 6 8)
}
ffp = \dynamicscript #"ffp"
ffz = \dynamicscript #"ffz"

slurHeadHead = {
	\property Voice.Slur \set #'attachment = #'(head . head)
}
slurStemHead = {
	\property Voice.Slur \set #'attachment = #'(stem . head)
}
slurStemStem = {
	\property Voice.Slur \set #'attachment = #'(stem . stem)
}
slurRevert = {
	\property Voice.Slur \set #'attachment = #'(#f . #f)
}

%{
startGraceMusic = \sequential {
	\startGraceMusic
	\slurUp
%	\slurStemHead
}
stopGraceMusic = \sequential {
%	\slurRevert
	\slurBoth
	\stopGraceMusic
}
%}

invisible = {
	\property Voice.NoteHead \override #'transparent = ##t
	\property Voice.Stem \override #'transparent = ##t
}
visible = {
	\property Voice.NoteHead \revert #'transparent
	\property Voice.Stem \revert #'transparent
}
shiftRight = {
%	\property Voice.NoteColumn \set #'horizontal-shift = #-3
	\property Voice.NoteColumn \set #'horizontal-shift = #-1
}
longStem = {
	\property Voice.Stem \override #'length = #19.5
}
normalStem = {
	\property Voice.Stem \revert #'length
}

global = \notes {
	% \property Staff.TimeSignature \set #'style = #'()
	\time 3/4
	\key e \minor
% 1
	s2. * 6 | \originalBreak
% 7
	s2. * 6 | \originalBreak
% 13
	s2. * 4 | \bar "||" \newBreak s2. * 2 | \originalBreak
% 19 
	s2. * 7 | \originalBreak
% 26
	s2. * 8 | \originalBreak
% 34
	s2. * 8 | \originalBreak
% 42
	s2. * 8 | \originalBreak
% 50
	s2. * 8 | \originalBreak
% 58
	s2. * 6 \time 2/4 | s2 * 2 | \originalBreak
% 66
	s2 * 6 \time 3/4 | s2. * 3 \key e \major \bar "|." \originalBreak \newBreak
% 75
	s2. * 8 | \originalBreak
% 83
	s2. * 8 | \originalBreak \newBreak
% 91
	\repeat volta 2 {
		s2. * 12 | \originalBreak
% 103
		s2. * 12 | \originalBreak
% 115
		s2. * 12 | \originalBreak
% 127
		s2. * 12 | \originalBreak
	}
% 139
% D.C.
}

Tempo = \notes {
	\property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextScript \set #'font-series = #'bold
% 1
	s2.^" "^" "^" "^" "^"Presto Leggiero." |
	s2. * 5 |
% 7
	s2. * 6 |
% 13
	s2. * 4 | s2. * 2 |
% 19
	s2. * 7 |
% 26
	s2. * 8 |
% 34
	s2. * 8 |
% 42
	s2. * 8 |
% 50
	s2. * 8 |
% 58
	s2. * 6 | s2 * 2 |
% 66
	s2 * 6 | s2. * 3 
% 75
	s2.^" "^" "^" "^" "^"Molto tranquillo."
	s2. * 7 |
% 83
	s2. * 8 |
% 91
	\repeat volta 2 {
		s2. * 12 |
% 103
		s2. * 12 |
% 115
		s2. * 12 |
% 127
		s2. * 10 |
		s2.^#'(italic (font-relative-size . -2) "D.C. al Fine.") |
		s |
% 139
	}
% D.C.
}

upperOne = \notes\relative c''{
	\clef G\voiceOne\oneVoice\tupletQuarter
% 1
	\stemUp\slurUp
	r4 \times 2/3 { [e8( g c] [b g )e] } |
	r4 \times 2/3 { [e8( g c] [b g )e] } |
	r4 \times 2/3 { [b8( ds g] [fs ds )b] } |
	\stemBoth\slurBoth
	r4 \times 2/3 { [e,8( g c] [b g )e] } |
	r4 \times 2/3 { [e8( g c] [b g )e] } |
	r4 \times 2/3 { [e8( g c] [b g )e] } |
% 7
	r4 \times 2/3 { [b8( ds g] [fs ds )b] } |
	r4 <e2 b> |
	r4 \times 2/3 { [e8( g c] [b g )e] } |
	r4 \times 2/3 { [e8( g c] [b g )e] } |
	r4 \times 2/3 { [b8( ds g] [fs ds )b] } |
	r4 \clef F \times 2/3 { [e,8( g c] [b g )e] } |
% 13
	r4 \times 2/3 { [e8( g c] [b g )e] } |
	r4 \times 2/3 { [e8( g c] [b g )e] } |
	r4 \times 2/3 { [b8( ds g] [fs ds )b] } |
	r4 <e2 b> |
	R2. |
	b4-> c8 d e f \clef G |
% 19
	<f'2-> b,> <f4 b,> |
	<b2.-> f> |
	<f^> d b af> ~ |
	<f d b af> |
	f4-> g8 af bf c |
	df4->( c8 af )f4-. |
	R2. \clef F |
% 26
	d,4-> e8 f g af \clef G |
	<af'2^> d,> <af4 d,> |
	<d2.^> af> |
	<af^> f d cf> ~ |
	<af f d cf> |
	af4^> bf8 cf df ef |
	ff4->( ef8 cf )af4-. |
	R2. |
% 34
	b'4->( a8 fs )c4-. |
	R2. |
	b''4->( a8 fs )c4-. |
	R2. |
	fs,4->( e8 cs )g4-. |
	R2. |
	fs''4->( e8 cs )g4-. |
	R2. |
% 42
	\slurUp
	<c,4^>\arpeggio( e,> b8 g )e4-. |
	R2. |
	<g4^>\arpeggio( ds a> fs8 ds )b4-. |
	\slurBoth
	R2. |
	R2. |
	R2. |
	e'4 fs8 g a b |
	c4->( b8 g )e4-. |
% 50
	g4->( fs8 ds )b4-. |
	R2. |
	e,4 fs8 g a b |
	c4->( b8 g )e4-. |
	\slurUp
	g4->( fs8 ds )b4-. |
	R2. \clef F |
	e,4 fs8 g a b |
	c4->( b8 g )e4-. |
% 58
	R2. |
	R2. |
	c'4->( b8 g )e4-. |
	R2. |
	c'4->( b8 g )e4-. |
	R2. |
	c'4->( b8 g |
	)e4-. r |
% 66
	c'4->( b8 g |
	)e4-. r \clef G |
	c'''4->( b8 g |
	)e4-. r |
	c'4->( b8 g |
	)e4-. r |
	R2. |
	<e4-. b g e> r r |
	\staffDown\stemUp e,,-. \staffUp\stemBoth r r\fermata
% 75
	\voiceOne
	e''2( fs4 | gs a b | cs b gs | )e2. |
	gs4( fs ds | b2. | cs4 b gs |  )e2. |
% 83
	e2( fs4 | gs a b | cs\arpeggio b gs | )e2. |
	gs4(\arpeggio fs ds | b2 ds4 | e2. ~ | )e2 r4 |
	\repeat volta 2 {
% 91
		r4 r cs'( |
		ds b ds |
		cs fs cs |
		\grace { [ ds16 e ] } ds4 b )ds |
		r r cs( |
		ds b ds |
		cs2 fs4 |
		)fs,2. |
		r4 r fs'( |
		gs e gs |
		fs b fs |
		\grace { [ gs16 a ] } gs4 e )gs |
% 103
		r4 r fs( |
		gs e gs |
		fs2 b4 |
		)b,2. |
		g'2( a4 |
		b c d |
		e g e |
		\grace { [ fs16 g ] } fs4 d fs |
		e d cs |
		cs2. |
		b ~ |
		)b |
% 115
		g,2( a4 |
		b c d |
		e g e |
		\grace { [ fs16 g ] } fs4 d fs |
		e d cs |
		cs2. |
		b ~ |
		)b |
		\voiceOne
		e2( fs4 | gs a b | cs b gs | )e2. |
% 127
		gs4( fs ds | )b2. | cs4( b gs |  )e2. |
		e2( fs4 | gs a b | cs\arpeggio b gs | )e2. |
		gs4^-(\arpeggio fs^- )ds^- |
		\slurStemStem b2( )ds4 |
		e2. ~ |
		e2 r4 |
% 139
	}
% D.C.
}

upperTwo = \notes\relative c'' {
	\voiceTwo
% 1
	s2. * 6 |
% 7
	s2. * 6 |
% 13
	s2. * 4 | s2. * 2 |
% 19
	s2. * 7 |
% 26
	s2. * 8 |
% 34
	s2. * 8 |
% 42
	s2. * 8 |
% 50
	s2. * 8 |
% 58
	s2. * 6 | s2 * 2 |
% 66
	s2 * 6 | s2. * 3 
% 75
	e2. ~ | e | e | s |
	cs | b | <a ds,> | d, |
% 83
	<e cs> ~ | <e b> | <ds\arpeggio a> | gs, |
	\staffDown\voiceOne <as\arpeggio e> | <a ds,> | 
	\longStem <gs e> ~ | <gs2 e> s4 \normalStem |
% 91
	\staffUp\voiceTwo
	\repeat volta 2 {
		fs'2. ~ | fs ~ | fs ~ | fs |
		fs ~ | fs ~ | fs | s |
		b ~ | b ~ | b ~ | b |
% 103
		b ~ | b ~ | b | s |
		g' ~ | g | g ~ | g |
		b | a2 g4 | <fs2.  ds> ~ | <fs ds> |
% 115
		g, ~ | g | g ~ | g |
		b | a2 g4 | <fs2.  ds> ~ | <fs ds> |
		e'2. ~ | e | e | s |
% 127
		cs | b | <a ds,> | d, |
		<e cs> ~ | <e b> | <ds\arpeggio a> | gs, |
		\staffDown\voiceOne <as\arpeggio e> | <a ds,> | 
		\longStem <gs e> ~ | <gs2 e> s4 \normalStem |
% 139
	}
% D.C.
}

lowerOne = \notes\relative c' {
	\voiceOne\oneVoice
% 1
	\staffUp\stemDown\slurDown
	e4 [ fs8 g a b ] |
	c4_>( b8 g )e4_. |
	g_>( fs8 ds )b4_. |
	\staffDown\stemBoth\slurBoth
	c4^>( b8 g )e4^. |
	e4 [ fs8 g a b ] |
	c4^>( b8 g )e4^. |
% 7
	g^>( fs8 ds )b4_. |
	e^>( b )e,_. |
	e'4 [ fs8 g a b ] |
	c4->( b8 g )e4-. |
	g->( fs8 ds )b4-. |
	c4->( b8 g )e4-. |
% 13
	e4 [ fs8 g a b ] |
	c4^>( b8 g )e4^. |
	g^>( fs8 ds )b4_. |
	e^>( b )e,_. |
	b'4-> c8 d e f |
	R2. |
% 19
	<f'2-> b,> <f4 b,> |
	<b2.-> f> |
	b,4-> c8 d e f |
	g4->( f8 d )b4- |
	<af'2.\arpeggio c, f,> ~ |
	<af4 c, f,> r r |
	d,,-> e8 f g af |
% 26
	R2. |
	<af'2-> d,> <af4 d,> |
	<d2.-> af> |
	d,4-> e8 f g af |
	bf4->( af8 f )d4-. |
	<cf'2.\arpeggio ef, af,> ~ |
	<cf4 ef, af,> r r |
	R2. |
% 34
	<fs2.\arpeggio c ds,> \clef G |
	b4->( a8 fs )c4-. |
	R2. |
	R2. \clef F |
	<cs2.\arpeggio g as,> |
	fs4->( e8 cs )g4-. |
	R2. |
	R2. |
% 42
	<b4\arpeggio g b,> r r |
	R2. |
	<b,4\arpeggio b,> r r |
	R2. |
	\voiceOne\repeat unfold 11 { b4^>( c )b | } 
	R2. |
% 58
	\oneVoice
	e,4 fs8 g a b |
	c4->( b8 g )e4-. |
	R2. |
	c'4->( b8 g )e4-. |
	R2. |
	c'4->( b8 g )e4-. |
	R2 |
	c'4->( b8 g |
% 66
	)e4-. r \clef G|
	c'''4->( b8 g |
	)e4-. r |
	c'4->( b8 g |
	)e4-. r |
	\ottavaSetup c'''4->(\ottava b8 g |
	)e4-.\loco r r \clef F |
	<b,,4-. g e b> r r |
	\stemDown <e,,_. e,> r r\fermata |
% 75
	\voiceOne\slurDown
	\clef G <b'''2.( gs e> ~ | <b gs e ds> |
	\slurBoth <gs e cs> ~ | <gs e cs )b> \clef F |
	<ds( a> | <e b gs> | <b fs> | <)gs e> |
% 83
	s2. * 2 |
	b,2.\arpeggio ~ | b |
	s2. * 4 |
% 91
	\repeat volta 2 {
		\voiceOne <cs'2.( as> |
		<ds b> |
		<cs as> |
		<)b gs> |
		<cs( as> |
		<ds b> |
		<cs as> |
		<b2 gs> <)cs4 as> |
		<fs2.( ds> |
		<gs e> |
		<fs ds> |
		<)e cs> |
% 103
		<fs( ds> |
		<gs e> |
		<fs ds> |
		<e2 cs> <)fs4 ds> \clef G |
		<d'2. b g> ~ |
		<d b g> |
		<e( b g> ~ |
		<)d b g> |
		<e b> |
		e |
		s |
		s \clef F |
% 115
		s |
		s |
		s |
		s |
		s |
		e, |
		s |
		s |
		\voiceOne\slurDown
		\clef G <b'2.( gs e> ~ | <b gs e ds> |
		\slurBoth <gs e cs> ~ | <gs e cs )b> \clef F |
% 127
		<ds( a> | <)e b gs> | <b( fs> | <)gs e> |
		s2. * 2 |
		b,2.\arpeggio ~ | b |
		s2. * 4|
% 139
	}
% D.C.
}

lowerTwo = \notes\relative c, {
	\voiceTwo
% 1
	s2.\unaCorda
	s2. * 5 |
% 7
	s2. * 6 |
% 13
	s2. * 4 | s2. * 2 |
% 19
	s2. * 7 |
% 26
	s2. * 8 |
% 34
	s2. * 8 |
% 42
	s2. * 4 |
	\repeat unfold 11 { e2. | }
	s2. * 1 |
% 58
	s2. * 6 | s2 * 2 |
% 66
	s2 * 6 | s2. * 3 
% 75
	s2. * 8 |
% 83
	\voiceOne\slurDown <e'2. a,(> ~ | 
	<e gs,> |
	\voiceTwo fs,\arpeggio |
	e2 )ds4 |
	<fs2.\arpeggio cs> |
	<b b,> |
	<b e,(> ~ |
	<b2 )e,,> r4 |
% 91
	\repeat volta 2 {
		\voiceTwo <fs'2. e> ~ | <fs e> ~ | <fs e> ~ | <fs e> |
		<fs e> ~ | <fs e> ~ | <fs e> ~ | <fs e> |
		<b a> ~ | <b a> ~ | <b a > ~ | <b a> |
% 103
		<b a> ~ | <b a> ~ | <b a> ~ | <b a> |
		g'( |
		fs |
		e |
		fs |
		g |
		a |
		b ~ |
		\stemUp\tieUp <b fs )b,>
% 115
		\oneVoice\phrasingSlurDown <d,\( b g> ~ |
		<d b g fs> |
		<e( b g e> ~ |
		<)d b g fs> |
		<e b g> |
		\voiceTwo a, |
		b ~ |
		\stemUp\tieUp <b fs \)b,>
		s2. * 4 |
% 127
		s2. * 4 |
		\voiceOne\slurDown <e,2. a,> ~ | 
		<e gs,> |
		\voiceTwo fs,\arpeggio |
		e2 ds4 |
		<fs2.\arpeggio cs> |
		<b b,> |
		<b e,(> ~ |
		<b2 )e,,> r4 |
% 139
	}
% D.C.
}

lowerThree = \notes\relative c {
	\voiceThree\shiftRight\stemDown
	s2. * 6 |
	s2. * 6 |
	s2. * 4 | s2. * 2 |
	s2. * 7 |
	s2. * 8 |
	s2. * 8 |
	s2. * 8 |
	s2. * 8 |
	s2. * 6 | s2 * 2 |
	s2 * 6 | s2. * 3 
	s2. * 8 |
	s2. * 8 |
	\repeat volta 2 {
		s2. * 12 |
		s2. * 12 |
		s2. * 12 |
		s2. * 12 |
	}
% D.C.
}

dynamics = \notes {
	\property Voice.TupletBracket \override #'bracket-visibility = ##f
% 1
	s2._#'(italic (dynamic "pp") ", ma il basso marcato") |
	s2. * 5 |
% 7
	s2. * 2 |
	s2._#'(italic "sempre  " (dynamic "pp")) |
	s2. * 3 |
% 13
	s2. * 4 |
%	s2.\f^#'(columns (italic (raise . 5) "feroce") ((raise . 5) "boo")) |
%	s2.\f^" "^#'(italic (kern . 8) "feroce")
	s4\f s2^" "^" "^"feroce"
	s2. |
% 19
	s2. * 4 |
	s2.\ffz |
	s2. * 2 |
% 26
	s2. * 5 |
	s2.\ffz
	s2. * 2
% 34
	s2.^#'(italic (dynamic "p") " dolce") |
	s2. * 3 |
	s2.^#'(italic "dim.") |
	s2. * 3 |
% 42
	s2._#'(italic "pi\\`u " (dynamic "p")) |
	s2. |
	s2._#'(italic "dim.") |
	s2. |
	s2.\pp
	s2. * 3 |
% 50
	s2. * 8 |
% 58
	s2. * 4 |
	s2.^#'(italic "morendo") |
	s2. |
	s2 |
	s2\< |
% 66
	s4 s4^#'(italic "poco") |
	\!s2 |
	s2\> |
	s2 * 2 |
	\!s2
	s2. |
	s2.\ppp |
	s2. |
% 75
	s2.^#'(italic (dynamic "p") " cantabile")
	s2. * 4 |
	s2.\< |
	s2. |
	\!s2. |
% 83
	s2._#'(italic "cresc.")
	s2. * 3 |
	s2.^#'(italic "dim.")
	s2. * 3 |
	\repeat volta 2 {
% 91
		s2.\fp | s2. * 3 |
		s2.\fp | s2. * 3 |
		s2.\fp | s2. * 3 |
% 103
		s2.\fp | s2. * 3 |
		s2.\pp | s2.\< | \!s2. | s2. |
		s4 s2\> | s4 \!s4 s4 | s2. | s2. |
% 115
		s2. |
		s\< |
		\!s |
		s |
		s\> |
		\!s |
		s |
		s |
		s\p |
		s2. * 3 |
% 127
		s2. |
		s\< |
		s |
		\!s |
		s_#'(italic "cresc.") |
		s |
		s |
		s |
		s\f |
		s |
		s |
		s |
% 139
	}
% D.C.
}

pedal = \notes {
% 1
	s2. % \unaCorda
	s2. * 5 |
% 7
	s2. * 6 |
% 13
	s2. * 4 | s2. * 2 |
% 19
	s2. * 4 |
	s4\Down s4\Up s4 |
	s2. * 2
% 26
	s2. * 5 |
	s4\Down s4\Up s4 |
	s2. * 2 |
% 34
	s4\Down s4\Up s4 |
	s2. * 3
	s4\Down s4\Up s4 |
	s2. * 3
% 42
	s2. * 8 |
% 50
	s2. * 8 |
% 58
	s2. * 6 | s2 * 2 |
% 66
	s2 * 6 | s2. * 2 | s2 s4_"Fine." 
% 75
	s2. * 8 |
% 83
	s2. * 8 |
% 91
	\repeat volta 2 {
		s2. * 12 |
% 103
		s2. * 12 |
% 115
		s2. * 12 |
% 127
		s2. * 10 |
		s2.%_"D.C. al Fine." |
		s2. |
% 139
	}
% D.C.
}

\score {
\context PianoStaff <
\pianoAccidentals
\followOn\followOff
\property PianoStaff.connectArpeggios = ##t
\context Staff=upper < \global \Tempo 
%	\outputproperty #(make-type-checker 'staff-symbol-interface) #'staff-space = #0.85
	\context Voice = one \upperOne
	\context Voice = two \upperTwo
	>
\context Dynamics=dynamics \dynamics
\context Staff=lower <
%	\outputproperty #(make-type-checker 'staff-symbol-interface) #'staff-space = #0.85
      \clef bass \global
      \context Voice = three \lowerOne
      \context Voice = four \lowerTwo
      \context Voice = five \lowerThree
    >
    \context Dynamics=pedal \pedal
  >
  \paper {
    textheight = 11.25\in
    \translator {
      \type "Engraver_group_engraver"
      \name Dynamics
      \alias Voice
      \consists "Output_property_engraver"
      
      minimumVerticalExtent = #'(-1 . 1)
      pedalSustainStrings = #'("Ped." "*Ped." "*")
      % pedalSustainStrings = #'("Ped." "Ped." "*")
      pedalUnaCordaStrings = #'("una corda" "" "tre corde")
      
      \consists "Piano_pedal_engraver"
      \consists "Script_engraver"
      \consists "Dynamic_engraver"
      \consists "Text_engraver"

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

      \consists "Skip_req_swallow_translator"

      \consistsend "Axis_group_engraver"
    }
    \translator {
      \PianoStaffContext
      \accepts Dynamics
      VerticalAlignment \override #'forced-distance = #6
    }
  }
  \midi {
    \tempo 4 = 160
    \translator {
      \type "Performer_group_performer"
      \name Dynamics
      \consists "Piano_pedal_performer"
      \consists "Span_dynamic_performer"
      \consists "Dynamic_performer"
    }
    \translator {
      \PianoStaffContext
      \accepts Dynamics
    }
  }
}