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

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

\header {
  filename =    "grieg_op54_no1.ly"
  title = "Lyric Pieces"
  subtitle =       "Gj\ae{}tergut."
  composer =    "Edvard Grieg"
  dedication = "Herrn Julius R\\\"ontgen gewidmet."
  opus = "Op. 54 No. 1"
  enteredby =   "KSW 2004/08/25"
  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 = #6
	% \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)
}

global = \notes {
	% \property Staff.TimeSignature \set #'style = #'()
	\time 6/8
	\key g \minor
	\repeat volta 2 {
		\partial 8 s8 |
% 1
		\repeat unfold 5 { s4. * 2 } |
		\repeat unfold 2 { s4. * 2 } |
		s4. s4 % \bar ":|:"
		}
	\repeat volta 2 {
		s8 |
% 9
		\repeat unfold 2 { s4. * 2 } | \originalBreak
% 11
		\repeat unfold 5 { s4. * 2 } | \originalBreak
% 16
		\repeat unfold 4 { s4. * 2 } | \originalBreak
% 20
		\repeat unfold 6 { s4. * 2 } | \originalBreak
% 26
		\repeat unfold 6 { s4. * 2 } | \originalBreak
% 32
		\repeat unfold 4 { s4. * 2 } |
		s4. * 2 |
	}
% 37 - 38
	\alternative { { s4. s4 \originalBreak } {\restartMeasure s4. s4 s8 |} }
% 39
	\repeat unfold 4 { s4. * 2 } | \originalBreak
	\repeat unfold 5 { s4. * 2 } | \originalBreak
	\repeat unfold 7 { s4. * 2 } | \originalBreak
	\bar "|."
}

Tempo = \notes {
	\property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextScript \set #'font-series = #'bold
	s8^" "^" "^"Andante espressivo." |
	\repeat unfold 7 { s4. * 2 } |
% 9
	s4. s4 s8^"poco mosso" |
	\repeat unfold 7 { s4. * 2 } |
% 16
	s4. s4 s8^"cresc. e stretto" |
	\repeat unfold 12 { s4. * 2 } |
	s4. s4 s8^" "^" "^"Tempo I." |
	s4. * 2 |
	s4. * 2 |
% 32
	
}

upperOne = \notes\relative c' {
	\clef G
	\repeat volta 2 {
	d'8( |
% 1
	cs4 bf8 \grace{[a16 bf]} a4 g8 |
	d4.-> ~ )d4 d'8( |
	ef d cs [ bf \grace{[a16 bf]} a8 g ] |
	\slurUp )d4.->( ~ d8 ef e |
	g4 f8 bf,4 )a8 |
% 6
	g'4\arpeggio( f8 af,4 )g8 ~ |
	<{f'8( g ef} g,4.> d8 ef cs |
	\tieUp d4.  ~ )d4
	}
	\repeat volta 2 {
		  r8 |
% 9
	\tieUp\slurBoth
	d2. ~ |
	d4. ~ d4 d8^> ~ |
% 11
	\times 3/4 { d8-. df-.( c-. d-. } \times 6/8 {
		c16-. b-. c-. b-. bf-. cf-. )bf-. a-> } \tieDown\slurUp ~ |
	a8( gs b )e4-. r8 |
	\tieUp\slurBoth e2. ~ |
	e4. ~ e4 e8^> ~ |
% 15
	\times 3/4 { e8-. ef-.( d-. ef-. } \times 6/8 {
		d16-. cs-. d-. df-. c-. df-. )c-. b-> } ~ |
% 16
	b8( as cs )fs4-. fs8-> ~ |
	\times 3/4 { fs8-. f-.( e-. f-. } \times 6/8 {
		e16-. ds-. e-. ef-. d-. ef-. )d-. cs-> } ~ |
	cs8( bs ds )gs4-. af8-> ~ |
	\times 3/4 { af8-. aff-.( gf-. aff-. } \times 6/8 {
		gf16-. f-. gf-. f-. e-. f-. )e-. ef-> } ~ |
% 20
	ef8( d f )bf4 r8 |
	r d,_"dim. e" ( f )bf4 r8 |
	r ef,_"rallent."( gf )bf4 r8 |
	r ef,( gf )bf4 r8 |
	r ef,( gf_"pi\\`u dim. e" )cf4 r8 |
	r ef,( af_"ritard." )c4 r8 |
% 26
	r fs,_"molto"( a )cs4 r8 |
	r fs,( a )d4 d8 ~ |
	d4 d8 ~ d4 d8 ~ |
	d4 d8 ~ d4 d8( |
	\stemUp cs4 bf8 \grace{[a16 bf]} a4 g8 |
	\dynamicUp\slurUp d4.^> ~ )d4 d'8(\< |
% 32
	\!ef\> \!d cs [ bf \grace{[a16 bf]} a8 g ] |
	)d4.( ~ d8 ef e | 
	g4 f8 bf,4 )a8 |
	g'4\arpeggio( f8 af,4 )g8 ~ |
	<{f'8( g ef} g,4.> d8 ef cs |
	}
% 37
	\alternative {
		{	\tieUp d4.  ~ )d4
		}
% 38
		{
			\restartMeasure < { d4. ~ d4 } \\ {\voiceThree s4. [c!8 b]} >
			s8 |
		}
	}
% 39
	\bOn\voiceOne fs'8^- f^- e^- \grace{[ef16( g]} ef4 )d8 |
	\tieBoth <g,4.^> ef> ~ <g4 ef> s8 |
	\bOn cs^- c^- b^- \grace{[bf16( d]} bf4 )a8 |
	<d,4.^> bf> ~ <d4 bf> af'8^>\arpeggio( |
% 43
	g^. fs^. f^. \times 3/4 { e8^. ef^. d^. )df^. } \clef F |
	\tieUp g,4. ~ g4 s8 |
	d'8^.( cs^. c^. \times 3/4 { b^. bf^. a^. )af^. } |
	d,4. ~ d4 af'8^-( |
	)d,4. ~ d4 af'8( |
% 48
	d,4 af'8 d,4 af'8 |
	d,4 af'8 d,4 )af'8 |
	r4. r4 \clef G d'8^"cantabile"( |
	cs4\arpeggio bf8 \grace{[a16 bf]} a4 g8 |
	)d2.^> |
	<g'' d bf g> ~ |
	<g4 d bf g> r8 r4. |
}

upperTwo = \notes\relative c' {
	\repeat volta 2 {
	\stemDown
	s8 |
% 1
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	bf4. s |
% 6
	af\arpeggio s |
	\slurDown\tieDown s g ~ |
	g4 fs8 ~ fs 4 
	}
	\repeat volta 2 {
		s8 |
% 9
	a4. g( ~ |
	g4 fs8 )a4 r8 |
% 11
	s4. * 2 |
	s4. * 2 |
	\slurDown b4. a( ~ |
	a4 gs8 )b4 r8 |
	s4. * 2 |
% 16
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 20
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 26
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	r4 d8( cs4 bf8 |
	\grace{[a16 bf]} a4 g8 <)bf4. d,> |
% 32
	r8 d8(\<  \!ef\> \!d cs bf |
	\grace{[a16 bf]} a8 g d ~ < bf'4. )d,> |
	bf s |
	af\arpeggio s |
	s g ~ |
	}
	\alternative {
		{
			g4 fs8 ~ fs4
		}
% 38
		{
			\dynamicDown\restartMeasure g8\< fs! f~ \!f4 \bOff <g''8^> b, f> ~ |
		}
	}
	\bOn <b'2. f> |
	s4. s4 <d8^> fs, c> ~ |
	<fs,2. c> |
	s4. s4 <b,8\arpeggio f> ~ |
% 43
	<b2. f> |
	g8 fs f e ef \bOff <ef'^>\arpeggio fs, c> ~ |
	\bOn <fs,2. c> |
	d8 cs c b bf c |
	d cs c b bf c ~ |
% 48
	c b c ~ c b c ~ |
	c b c ~ c b c |
	s4. * 2 |
	d'2.\arpeggio |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 55
}

lowerOne = \notes\relative c' {
	\repeat volta 2 {
	r8 |
% 1
	R4.^"cantabile" R4. |
	<bf4. d, g,(> <)d,,4 g,> r8 |
	R4. * 2 |
	<bf''4. d, g,(> <)d,,4 g,> r8 |
	<d'2. f,> |
% 6
	\slurUp <cf\arpeggio( ef,> ~ |
	<)bf4. ef,> \tieUp\slurBoth <a a,(> ~ |
	<a )d,> <a,4 d,> 
	}
	\repeat volta 2 {
		d'8( |
	cs4 c8 b4 bf8 |
	<)a4( d,> d8 )fs4^. r8 |
% 11
	r4. <a4.\arpeggio b, f> |
	e,8( b' e )gs4-. e8(
	\voiceOne ds4 d8 cs4 c8 |
	<)b4( e,> e8 )gs4-. r8
	r4. <b\arpeggio cs, g> |
% 16
	fs,8( cs' fs )as4-. r8 |
	r4. <cs\arpeggio ds, a> |
	gs,8( ds' gs )bs4-. r8 |
	r4. <ef!\arpeggio f,! cf> |
% 20
	bf,8( f' bf )d4 r8 |
	bf,( f' bf )d4 r8 |
	<bf, ef,(> gf' bf )ef4 r8 |
	<bf, ef,(> gf' bf )ef4 r8 |
	<gf,, cf,(> gf' cf )ef4 r8 |
	<ef,, af,(> af' c )ef4 r8 |
% 26
	<cs,, fs,(> a'' cs )fs4 r8 |
	<a,,, d,(> a''d )fs4 r8 |
	R4. * 2 |
	R4. * 2 |
	r4.^"molto tranquillo ed espressivo" r4 d,8( |
	cs4 bf8 \grace{[a16 bf]} a4 )g8 |
% 32
	r4. \slurDown d'8(\< \!ef\> \!d |
	[ cs bf \grace{[a16 bf]} a8 ] )g4. |
	<d'2. f,> |
	<cf\arpeggio ef,> ~ |
	<bf4. ef,> a4. ~ |
	}
	\alternative {
		{
			a4. <a,4 d>
		}
% 38
		{
			\restartMeasure
%			<{a4 af8 ~ af8} {\stemDown d,4. ~ d8}> <\stemBoth g8 g,> \bOff <d' g, c,> ~ |
%			<{a4 af} \\ {d,4. ~ d8} > \bOff <g g,> <d'' g, c,> ~ |
%			<{a4 af} {d,4. ~ d8}> \bOff <g g,> <d'' g, c,> ~ |
			a4 af^"molto" \bOff <g8 g,> d''8 ~ |
		}
	}
	\bOn d'2. ~ |
	\voiceOne [d8 df^- c^- b^- bf^-] a ~ |
	a2. ~ |
	[a8 af^- g^- fs^- f^-] d^"dim." ~ |
% 43
	d4.^"e pi\\'u tranquillo" s4. |
	s4. s4 a8\arpeggio ~ |
	a4. s4. |
	s4. * 2 |
	s4. * 2 |
% 48
	s4. * 2 |
	s4. * 2 |
	R2. |
	<bf'\arpeggio d, g,> ~ |
	<bf4. d, g,> <d,, g,> \clef G |
	<d'''2. bf g> ~ |
	<d4 bf g> r8 r4. |
% 55
}

lowerTwo = \notes\relative c' {
	\repeat volta 2 {
	s8 |
% 1
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 6
	s4. * 2 |
	s4. * 2 |
	s4. s4
	}
	\repeat volta 2 {
	s8 |
% 9
	\voiceTwo fs,,4. g |
	s4. * 2 |
% 11
	s4. * 2 |
	s4. * 2 |
	gs4. a |
	s4. * 2 |
	s4. * 2 |
% 16
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 20
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 26
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 32
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. a,( |
	}
	\alternative {
		{
			)d4. s4
		}
		{
			\restartMeasure d4. ~ d8 s8 <g'8 c,> ~ |
		}
	}
	<g''2. c,> ~ |
	<g4. c,> ~ <g4 c,> <d8 g,> ~ |
	<d2. g,> ~ |
	<d4. g,> ~ <d4 g,> <g,8\arpeggio c,> ~ |
% 43
	<g2. c,> ~ |
	<g4. c,> ~ <g4 c,> <d8\arpeggio g,> ~ |
	<d2. g,> ~ |
	<d2. g,> ~ |
	<d2. g,> ~ |
% 48
	<d2. g,> ~ |
	<d2. g,>  |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 55
}

dynamics = \notes {
	\property Voice.TupletBracket \override #'bracket-visibility = ##f
	\repeat volta 2 {
	s8\p |
% 1
	s4. * 2 |
	s4. s8 s8\< s8 |
	\!s8\> \!s8 s8 s4. |
	s4. s8\< s8 s16 \!s16 |
	s4. * 2 |
% 5
	s4.\pp s4. |
	s8\< s4 \!s8\> s8 \!s8 |
	s4. s4\pp 
	}
	\repeat volta 2 {
		s8\p |
% 9
	s4. * 2 |
	s4. * 2 |
% 11
	s4. s8. s16\< s16 s32 \!s32 |
	s8\> s4 \!s8 s4\p |
	s4. * 2 |
	s4. * 2 |
	s4. s8. s16\< s16 s32 \!s32 |
% 16
	s8\> s16 \!s16 s8 s4. |
	s4. * 2 |
	s8\f s4 s4. |
	s16^"pi\\`u"\f s16 s4 s8. s16\< s16 s32 \!s32 |
% 20
	s8\ff s4 s4. |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 26
	s4. * 2 |
	s8\ppp s4 s4. |
	s4 s8\< s4. |
	s4 \!s8 s4 s8\p |
	s4. * 2 |
	s4. * 2 |
% 32
	s4. * 2 |
	s4. s8\< s8 \!s8 |
	s4. * 2 |
	s4.\pp s4. |
	s8\< s8 \!s8 s8\> s8 \!s8 |
	}
	\alternative {
		{
			s4. s4
		}
% 38
		{
			\restartMeasure s8 s4 s4 s8\ff |
		}
	}
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 43
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4\p s8\dim s4. |
	s4. * 2 |
% 48
	s4. * 2 |
	\enddim s4.\pp s4. |
	s4. s4 s8\p\< |
	\!s4\> \!s8 s4. |
	s4. s4.\pp |
	s4. * 2 |
	s4. * 2 |
% 55
}

pedal = \notes {
	\repeat volta 2 {
	s8 |
% 1
	s4. * 2 |
	s4.\Down s4. |
	s4. * 2 |
	s4.\Up\Down s4. |
	s4. * 2 |
% 6
	s4. * 2 |
	s4. * 2 |
	s4. s4 
	}
	\repeat volta 2 {
		s8 |
% 9
	s4. * 2 |
	s4. * 2 |
% 11
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 16
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 20
	s4. * 2 |
	s4.\Up\Down s4. |
	s4.\Up\Down s4. |
	s4.\Up\Down s4. |
	s4.\Up\Down s4. |
	s4.\Up\Down s4. |
% 26
	s4.\Up\Down s4. |
	s4.\Up\Down s4. |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 32
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	}
	\alternative {
		{
			s4. s4 
		}
% 38
		{
			\restartMeasure s4. s4 s8\Up\Down |
		}
	}
	s4. * 2 |
	s4. s4 s8\Up\Down |
	s4. * 2 |
	s4. * 2 |
% 43
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
% 48
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. * 2 |
	s4. s4.\Up\Down |
	s4. * 2 |
	s4 s8\Up s4. |
}

\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 = 140
    \translator {
      \type "Performer_group_performer"
      \name Dynamics
      \consists "Piano_pedal_performer"
      \consists "Span_dynamic_performer"
      \consists "Dynamic_performer"
    }
    \translator {
      \PianoStaffContext
      \accepts Dynamics
    }
  }
}