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

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

\header {
  filename =    "grieg_op54_no2.ly"
  title = "Lyric Pieces"
  subtitle =       "Gangar"
  subsubtitle = "(Norwegischer Bauernmarsch)"
  composer =    "Edvard Grieg"
  dedication = "Herrn Julius Röntgen gewidmet."
  opus = "Op. 54 No. 2"
  enteredby =   "KSW 2004/08/30"
  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 \override #'edge-height = #'(0 . 1.5)
	\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
}
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"

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

global = \notes {
	% \property Staff.TimeSignature \set #'style = #'()
	\time 6/8
	\key c \major
	\repeat volta 2 {
		\repeat unfold 6 { s2. } | \originalBreak
% 7
		s2. |
	}
	\alternative {
		{
			s2. |
		}
		{
			s2. |
			s2. |
		}
	}
	\repeat volta 2 {
		s2. |
		s2. | \originalBreak
%13
		\repeat unfold 6 {s2.} | \originalBreak
% 19
		\repeat unfold 5 {s2.} | \originalBreak
% 24
		\repeat unfold 6 {s2.} | \originalBreak
% 30
		\repeat unfold 7 {s2.} | \originalBreak
% 37
		\repeat unfold 7 {s2.} | \originalBreak
% 44
		\repeat unfold 7 {s2.} | \originalBreak
% 51
		\repeat unfold 7 {s2.} | \originalBreak
% 58
		\repeat unfold 6 {s2.} | \originalBreak
% 64
		\repeat unfold 7 {s2.} | \originalBreak
% 71
		\repeat unfold 6 {s2.} | 
	}
	\alternative {
		{
			s2. | \originalBreak
		}
		{
			s2. | \originalBreak
% 79
			\repeat unfold 8 {s2.} | 
		}
	}
	\bar "|."
}

Tempo = \notes {
	\property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextScript \set #'font-series = #'bold
	\repeat volta 2 {
		s4.^" "^" "^"Allegretto marcato." s4. |
		\repeat unfold 5 { s2. } |
% 7
		s2. |
	}
	\alternative {
		{
			s2. |
		}
		{
			s2. |
			s2. |
		}
	}
	\repeat volta 2 {
		s2. |
		s2. | 
%13
		\repeat unfold 6 {s2.} | 
% 19
		\repeat unfold 5 {s2.} | 
% 24
		\repeat unfold 6 {s2.} | 
% 30
		\repeat unfold 7 {s2.} | 
% 37
		\repeat unfold 7 {s2.} | 
% 44
		\repeat unfold 7 {s2.} | 
% 51
		\repeat unfold 7 {s2.} | 
% 58
		\repeat unfold 6 {s2.} | 
% 64
		\repeat unfold 7 {s2.} | 
% 71
		\repeat unfold 6 {s2.} | 
	}
	\alternative {
		{
			s2. | 
		}
		{
			s2. | 
% 79
			\repeat unfold 8 {s2.} | 
		}
	}
	\bar "|."
}

upperOne = \notes\relative c'' {
	\clef G\voiceOne
	\repeat volta 2 {
		r4 r8 r c( d |
		e c e ~ [ e \grace{[d16 e]} d8 b ] |
		)d4^. d8^>( ~ d8 c a |
		c a c b g b |
		)a4^. a8^>( ~ a8 g e |
		g d g ~ [ g \grace{[e16 fs]} e8 d ] |
% 7
		g d g ~ [ g \grace{[e16 fs]} e8 d ] |
	}
	\alternative {
		{
			<)g4^. b,>  <g8^> b,> ~ <g4. b,> |
		}
		{
			<g4 b,> <g8 b,> ~ <g4. b,> ~ |
			<g4 b,> <g8 b,> ~ <g b,> r r |
		}
	}
	\repeat volta 2 {
		<b'4. gs> <c a> |
		\oneVoice <b4^. gs> <b8^> gs> ~ <b8 gs> [ b( cs ] |
%13
		\voiceOne ds b ds ~ [ds \grace{[cs16 ds]} cs8 a] |
		<)b4^. gs e> <b8^> gs e> ~ <b gs e> r r |
		\oneVoice <d4. b> <ef c> |
		<d4^. b> <d8^> b> ~ <d b> d( e |
		\voiceOne fs d fs ~ [fs \grace{[e16 fs]} e8 c] |
		\oneVoice <)d4^. b g> <d8^> b g> ~ <d b g> d16( e <)fs8 c a> |
% 19
		<d4^. b g> <d8^> b g> ~ <d b g> d16( e <)fs8 c a> |
		\repeat unfold 2 { r [d16( e] <)fs8^. c a>   r [d16( e] <)f8^. c a> } |
		r [f16( g] <)a8^. d, c>   r [f16( g] <)a8^. d, b> |
		\repeat unfold 2 { r8 [e16( f] <)g8^. c, b> } |
% 24
		\repeat unfold 2 { r8 [e16( f] <)g8^. c, a> } |
		\repeat unfold 2 { r8 [d16( e] <)f8^. b, a> } |
		\repeat unfold 2 { r8 [d16( e] <)f8^. b, g> } |
		\repeat unfold 2 { r8 [c16( d] <)e8^. a, g> } |
				   r8 [c16( d] <)e8^. a, f> r4. |
		R2. |
% 30
		r8 [b16( c] <)d8^. a f> r4. |
		R2. \clef F |
		<d,,4-. g,> r8 r4. \clef G |
		<d''4-. g,> r8 r c'( d |
		e c e-> ~ [e \grace{[d16 e]} d8 c] |
		)e4-. e8->( ~ e c d |
		e c e-> ~ [e \grace{[d16 e]} d8 c] |
% 37
		)e4-. e8-> ~ e8 r r |
		\ottavaSetup <c'4.\ottava a f> <b g f> |
		<b g e> <a f e> |
		<a f d> <g e d> |
		<g e c> <f d c> |
		<f d b> <e c b> |
		<e c a> <d b a> |
% 44
		<d b g> <c a g> |
		<c a f> <b g f> |
		\locoSetup <c\loco a f> <b g f> |
		<b g e> <a f e> |
		<a f d> <g e d> |
		<g e c> <f d c> |
		<f d b> <e c b> |
% 51
		<e c a> <d b a> |
		<e b g> <c a g> |
		<c a f> <b g f> |
		<c^> a f> <b^> g f> |
		<b^> g e> <a^> f e> |
		<a^> f d> <g^> e d> |
		<g^> e c> <f^> d c> |
% 58
		<f^> d b> <e^> c b> |
		<e^> c a> <d^> b a> |
		<d^> b g> <c^> a g> |
		<c^> a f> <b8^> g f> \clef F [c-. df-.] |
		<ef-. c af ef> <c-. c,> <ef^> ef,> ~ <ef af, f ef> <df-. df,> <c-. c,> |
		<ef4-. c af ef> <ef8^> ef,> ~ <ef af, f ef> <c-. c,> <df-. df,> |
% 64
		<ef-. c af ef> <c-. c,> <ef^> ef,> ~ <ef af, f ef> <df-. df,> <c-. c,> |
		<ef4-. c af ef> <ef8^> ef,> ~ <ef af, f ef> <c-. c,> <d-. d,> |
		\repeat unfold 2 {
		<e-. c g e> <c-. c,> <e^> e,> ~ <e a, f e> <d-. d,> <c-. c,> |
		<e4-. c g e> <e8^> e,> ~ <e a, f e> <c-. c,> <d-. d,> |
		}
		R2. |
% 71
		r4 e,8-> ~ e c-. d-. |
		R2. \clef G |
		r4. \voiceOne r8 c'( d |
		e c e^> ~ [e \grace{[d16 e]} d8 b] |
		)c4-. c8^> ~ c c( d |
		e c e^> ~ [e \grace{[d16 e]} d8 b] |
	}
	\alternative {
		{
			)c4-. c8-> ~ c r r |
		}
		{
			c4-. c8-> ~ c d e |
% 79
			c4-. c8-> ~ c b g |
			c4-. c8( ~ c d e |
			)c4-. c8( ~ c b g |
			)c4-. \oneVoice <c8^> e,> ~ <c4. e,> |
			<c'4-. e,> <c8^> e,> ~ <c4. e,> |
			<c'4-. e,> <c8^> e,> ~ <c4. e,> ~ |
			<c2. e,> ~ |
			<c4 e,> r8 r4. |
		}
	}
	\bar "|."
}

upperTwo = \notes\relative c' {
	\voiceTwo
	\repeat volta 2 {
		s2. |
		f4. g |
		e f |
		d c |
		b c |
		b a |
% 7
		b a |
	}
	\alternative {
		{
			s2. |
		}
		{
			s2. |
			s2. |
		}
	}
	\repeat volta 2 {
		s2. |
		s2. | 
%13
		e'4. ds |
		s2. |
		s2. |
		s2. |
		g4. fs |
		s2. |
% 19
		\repeat unfold 5 {s2.} | 
% 24
		\repeat unfold 6 {s2.} | 
% 30
		\repeat unfold 7 {s2.} | 
% 37
		\repeat unfold 7 {s2.} | 
% 44
		\repeat unfold 7 {s2.} | 
% 51
		\repeat unfold 7 {s2.} | 
% 58
		\repeat unfold 6 {s2.} | 
% 64
		\repeat unfold 7 {s2.} | 
% 71
		s2. |
		s2. |
		s2. |
		f,4. g |
		s2. |
		f4. g |
	}
	\alternative {
		{
			s2. | 
		}
		{
			s2. | 
% 79
			s2. |
			s4. f( |
			e d |
			)e4 s8 s4. |
			s2. |
			s2. |
			s2. |
			s2. |
		}
	}
	\bar "|."
}

lowerOne = \notes\relative c' {
	\voiceOne
	\repeat volta 2 {
		\dynamicUp
		c4.\ffp b |
		a b |
		g a |
		f e |
		d e |
		d c |
% 7
		d c |
	}
	\alternative {
		{
			<d g,> <d, g,> |
		}
		{
			<d g,> <d, g,> |
			<d' g,> ~ <d8 g,> \oneVoice [ d' e ] |
		}
	}
	\repeat volta 2 {
		\slurHeadHead
		f' d f^> ~ [ f \grace{[e16( f]} )e8 ds ] |
		\slurRevert
		e4. <b8 e,> r r |
% 13
		\voiceOne gs4. a |
		\oneVoice <b e,> \bOff <b,8 e,> \clef G \bOn f'' g |
		af f af^> ~ [af \grace{[g16( af]} )g8 fs] |
		g4. <d8 g,> r r \clef F |
		\voiceOne b4. c |
		\oneVoice <d g,> <d,4 g,> r8 |
% 19
		<d'4. g,> <d,4 g,> r8 |
		\repeat unfold 2 { <d'4 g,> r8 <d,4 g,> r8 | }
		<d'4-. g,> r8 <d,4-. g,> r8 |
		<g4-. c,> r8 <g,4-. c,> r8 |
% 24
		<c'4-. f,> r8 <c,4-. f,> r8 |
		<f4-. b,> r8 <f,4-. b,> r8 |
		<b'4-. e,> r8 <b,4-. e,> r8 |
		<e4-. a,> r8 <e,4-. a,> r8 |
		\repeat unfold 2 { <a'4-. d,> r8 <a,4-. d,> r8 | }
% 30
		<d4-. g,> r8_" "_" "_"sempre" <d,4-. g,> r8 |
		<d'4-. g,> r8 <d,4-. g,> r8 |
		r4. <d''4-. g,> r8 |
		r4. \clef G <d''4-. g,> r8 |
		\repeat unfold 4 { g,4-. r8 } |
		\repeat unfold 3 { g'4-. r8 }  g c, d |
% 38
		\slurHeadHead
		e c e-> ~ [e \grace{[d16( e]} )d8 b] |
		d4-. c8-> ~ c a b |
		c a c-> ~ [c \grace{[b16( c]} )b8 g] |
		b4-. a8-> ~ a f g |
		a f a-> ~ [a \grace{[g16( a]} )g8 e] |
		g e g-> ~ [g \grace{[f16( g]} )f8 d] |
% 44
		f d f-> ~ [f \grace{[e16( f]} )e8 c] |
		e4-. d8-> ~ d c d |
		e c e-> ~ [e \grace{[d16( e]} )d8 b] |
		d4-. c8-> ~ c a b |
		c a c-> ~ [c \grace{[b16( c]} )b8 g] |
		b4-. a8-> ~ a f g |
		a f a-> ~ [a \grace{[g16( a]} )g8 e] |
% 51
		g e g-> ~ [g \grace{[f16( g]} )f8 d] |
		f d f-> ~ [f \grace{[e16( f]} )e8 c] |
		e4-. d8-> ~ d \clef F [<c c,> <d d,>] |
		<e e,> <c c,> <e-> e,> ~ <e e,> <d d,> <b b,> |
		<d4-. d,> <c8-> c,> ~ <c c,> <a a,> <b b,> |
		<c c,> <a a,> <c-> c,> ~ <c c,> <b b,> <g g,> |
		<b4-. b,> <a8-> a,> ~ <a a,> <f f,> <g g,> |
% 58
		<a a,> <f f,> <a-> a,> ~ <a a,> <g g,> <e e,> |
		<g g,> <e e,> <g-> g,> ~ <g g,> <f f,> <d d,> |
		<f f,> <d d,> <f-> f,> ~ <f f,> <e e,> <c c,> |
		<e4-. e,> <d8 d,> ~ <d d,> [c-. df-.] |
		\repeat unfold 4 { <af4^> ef af,_.> r8 <f4^> af, f_.> r8 | }
% 66
		\repeat unfold 7 { <c'4^> g c,_.> r8 <f,4^> c f,_.> r8 | }
% 73
		c'4. b |
		a b |
		c b |
		a b |
	}
	\alternative {
		{
			<c4. c,> ~ <c8 c,> [d' e] |
		}
		{
% 78
			<c4. c,> \clef G <f''( c a> |
% 79
			<e c g> <d c f,> |
			\voiceOne <)c e,> \clef F a,,( |
			g f |
			)g \oneVoice <g c,> ~ |
			<g c,_" "_" "_"al Fine"> <g' c,> ~ |
			<g c,> <g' c,> ~ 
			<g2. c,> ~ |
			<g4 c,> r8 r4. |
		}
	}
	\bar "|."
}

lowerTwo = \notes\relative c {
	\voiceTwo
	\repeat volta 2 {
		c2. ~ |
		c2. ~ |
		c2. ~ |
		c2. ~ |
		c2.  |
		g ~ |
% 7
		g |
	}
	\alternative {
		{
			s2. |
		}
		{
			s2. |
			s2. |
		}
	}
	\repeat volta 2 {
		s2. |
		s2. | 
%13
		b2. |
		s2. |
		s2. |
		s2. |
		d2. |
		s2. |
% 19
		\repeat unfold 5 {s2.} | 
% 24
		\repeat unfold 6 {s2.} | 
% 30
		\repeat unfold 7 {s2.} | 
% 37
		\repeat unfold 7 {s2.} | 
% 44
		\repeat unfold 7 {s2.} | 
% 51
		\repeat unfold 7 {s2.} | 
% 58
		\repeat unfold 6 {s2.} | 
% 64
		\repeat unfold 7 {s2.} | 
% 71
		s2. |
		s2. |
		c,2. ~ |
		c2. |
		c2. ~ |
		c2. |
	}
	\alternative {
		{
			s2. | 
		}
		{
			s2. | 
% 79
			s2. |
			s4. c4. ~ |
			c2. ~ |
			c4. s4. |
			s2. |
			s2. |
			s2. |
			s2. |
		}
	}
	\bar "|."
}

dynamics = \notes {
	\property Voice.TupletBracket \override #'bracket-visibility = ##f
	\repeat volta 2 {
		s8%{\ffp%} s4 s4. |
		\repeat unfold 5 { s2. } |
% 7
		s4. s8\> s8 s16 \!s |
	}
	\alternative {
		{
			s2. |
		}
		{
			s4.\> s4. |
			\!s4. s8 s8\ff s8 |
		}
	}
	\repeat volta 2 {
		s2. |
		s4. s8 s8\p s8 |
% 13
		s2. |
		s4. s8 s8\ff s8 |
		s2. |
		s4. s8 s8\p s8 |
		s2. |
		s2. |
% 19
		\repeat unfold 4 {s2.} | 
		s4. s8 s8^"dimin." s8 |
% 24
		s2. |
		s4. s8 s8^"sempre" s8 |
		s2. |
		s2. |
		s8\ppp s4 s4. |
		s2. |
% 30
		s2. |
		s2. |
		s2. |
		s8^"sempre" s4  s4 s8\ppp |
		s2. |
		s2. |
		s2. |
% 37
		\repeat unfold 7 {s2.} | 
% 44
		s2. |
		s2. |
		s4.^"cresc." s4. |
		s2. |
		s2. |
		s2. |
		s4.^"molto" s4. |
% 51
		s2. |
		s2. |
		s4. s8 s8\f s8 |
		\repeat unfold 4 {s2.} | 
% 58
		s4^"pi\\`u" s8\f s4. |
		s2. |
		s2. |
		s4. s8 s8\ff s8 |
		s2. |
		s2. |
% 64
		s2. |
		s4. s8 s8\fff s8 |
		s2. |
		s2. |
		s2. |
		s2. |
		s4.^"dimin." s4. |
% 71
		s2. |
		s2. |
		s8\p s2^"tranquillo" s8 |
		s4. s8\< s8 \!s8 |
		s8\> s8 \!s8 s4. |
		s2. |
	}
	\alternative {
		{
			s4. s8 s8\f s8 |
		}
		{
			s2. | 
% 79
			s2. |
			s4._"dim." s4._" e poco" |
			s4._"rit." s4. |
			s4\pp s8 s4. |
			s4 s8\> s4. |
			s4. \!s4. |
			s2. |
			s2. |
		}
	}
	\bar "|."
}

pedal = \notes {
	\repeat volta 2 {
		\repeat unfold 6 { s2. } |
% 7
		s2. |
	}
	\alternative {
		{
			s2.\Down |
		}
		{
			s2.\Up\Down |
			s2. |
		}
	}
	\repeat volta 2 {
		s2. |
		s4.\Down s8 s8\Up s8 | 
%13
		s2. |
		s4.\Down s8 s8\Up s8 | 
		s2. |
		s4.\Down s8 s8\Up s8 | 
		s2. |
		s4.\Down s8 s8\Up s8 | 
% 19
		s4.\Down s8 s8\Up s8 |
		s4.\Down s4.\Up\Down |
		s4.\Up\Down s4.\Up\Down |
		\repeat unfold 2 { s4.\Up\Down s4. | }
% 24
		\repeat unfold 5 { s4.\Up\Down s4. |}
		s2. |
% 30
		s4.\Up\Down s4.
		s2. |
		s2. |
		s4. s4 s8\Up |
		\repeat unfold 3 {s2.} | 
% 37
		\repeat unfold 7 {s2.} | 
% 44
		\repeat unfold 7 {s2.} | 
% 51
		\repeat unfold 7 {s2.} | 
% 58
		\repeat unfold 6 {s2.} | 
% 64
		\repeat unfold 7 {s2.} | 
% 71
		\repeat unfold 6 {s2.} | 
	}
	\alternative {
		{
			s2. | 
		}
		{
			s2. | 
% 79
			\repeat unfold 3 {s2.} | 
			s4. s4.\Down |
			s2. |
			s2. |
			s2. |
			s2. |
		}
	}
	\bar "|."
}

\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 Dynamics=pedal \pedal
  >
  \paper {
    \translator {
      \type "Engraver_group_engraver"
      \name Dynamics
      \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)

      \consists "Skip_req_swallow_translator"

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