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

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

%{
	Autograph has some bars deleted that remain in the Peters edition.
%}

\header {
  filename =    "grieg_op54_no6.ly"
  title = "Lyric Pieces"
  subtitle =       "Klokkeklang."
  subsubtitle = "(Glockengel\\\"aute.)"
  composer =    "Edvard Grieg"
  dedication = "Herrn Julius R\\\"ontgen gewidmet."
  opus = "Op. 54 No. 6"
  enteredby =   "KSW 2004/09/18"
  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"
ffz = \dynamicscript #"ffz"

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

startGraceMusic = \sequential {
	\startGraceMusic
	\slurUp
}
stopGraceMusic = \sequential {
	\slurBoth
	\stopGraceMusic
}


global = \notes {
	% \property Staff.TimeSignature \set #'style = #'()
	\time 2/4
	\key c \major
	\repeat volta 2 {
		\repeat unfold 7 { s2 } | \originalBreak
% 8
		\repeat unfold 7 { s2 } | \originalBreak
% 15
		\repeat unfold 4 { s2 } | 
	}
	\repeat unfold 4 { s2 } | \originalBreak
% 23
	\repeat unfold 2 { s2 } |
% in Peters:
%	\repeat unfold 4 { s2 } |
	\repeat unfold 1 { s2 } | \originalBreak
% 30
	\repeat unfold 3 { s2 } |
% in Peters:
%	\repeat unfold 4 { s2 } |
		\originalBreak
% 37
	\repeat unfold 4 { s2 } |
% in Peters:
%	\repeat unfold 3 { s2 } |
		\originalBreak
% 44
% in Peters:
%	\repeat unfold 3 { s2 } |
	\repeat unfold 3 { s2 } | \originalBreak
% 50
	\repeat unfold 7 { s2 } | \originalBreak
% 57
	\repeat unfold 8 { s2 } | \originalBreak
% 65
	\repeat unfold 7 { s2 } | \originalBreak
% 72
	\repeat unfold 10 { s2 } | \originalBreak
% 82
	\repeat unfold 9 { s2 } |\originalBreak
	\bar "|."
}

Tempo = \notes {
	\property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextScript \set #'font-series = #'bold
	\repeat volta 2 {
		s2^" "^" "^"Andante" |
		\repeat unfold 6 { s2 } |
% 8
		\repeat unfold 7 { s2 } |
% 15
		\repeat unfold 4 { s2 } | 
	}
	\repeat unfold 4 { s2 } |
% 23
	\repeat unfold 3 { s2 } |
% 30
	\repeat unfold 3 { s2 } |
% 37
	\repeat unfold 4 { s2 } |
% 44
	\repeat unfold 3 { s2 } |
% 50
	\repeat unfold 7 { s2 } |
% 57
	\repeat unfold 4 { s2 } |
	s2^"Tempo I." |
	\repeat unfold 3 { s2 } |
% 65
	\repeat unfold 7 { s2 } |
% 72
	\repeat unfold 10 { s2 } |
% 82
	\repeat unfold 9 { s2 } |
}

upperOne = \notes\relative c''{
	\clef G\voiceOne\oneVoice
	\repeat volta 2 {
		\repeat unfold 2 { R2 } |
		r8_\pp <g'4 c,> <d8 g,> ~ |
		<d g,> <a4. d,> |
		r8 \grace e'8( <)g4^- c,> \grace b,8( <)d8^- g,> ~ |
		<d8 g,> \grace f,8( <)a4.^- d,> |
		r8 <d4 g,> <a8 d,> ~ |
% 8
		<a d,> <e4. a,> |
		r8 \grace b'8( <)d4^- g,> \grace f,8( <)a8^- d,> ~ |
		<a d,> \grace c,8( <)e4.^- a,> |
		r8 <a4 d,> <e8 a,> ~ |
		<e a,> <a4 d,> <e'8 a,> |
		r8 <g,4 c,> <d8 g,> ~ |
		<d g,> <g4 c,> <d'8 g,> |
% 15
		r8 <a4 d,> <g8 b,> ~ |
		<g b,> <g4. b,> |
		r8 <a4 d,> <g8 b,> ~ |
		<g8 b,> <g4. b,> |
	}
	R2 |
	R2 |
	r8 <f4 b,> <a8 d,> ~ |
	<a d,> <c4. f,> |
% 23
	r8 \grace d,8( <)f4^- b,> \grace f8( <)a8^- d,> ~ |
	<a d,> \grace a8( <)c4.^- f,> |
%{ in Peters
	r8 <fs,4 b,> <a8 d,> ~ |
	<a d,> <cs4. fs,> |
	r8 \grace d,8( <)fs4^- b,> \grace fs8( <)a8^- d,> ~ |
	<a d,> \grace a8( <)cs4.^- fs,> |
%}
	r8 <a4 d,> <c8 f,> ~ |
% 30
	<c f,> <e4. a,> |
	r8 \grace f,8( <)a4^- d,> \grace a8( <)c8^- f,> ~ |
	<c f,> \grace c8( <)e4.^- a,> |
%{ in Peters
	r8 <a,4 d,> <cs8 fs,> ~ |
	<cs fs,> <e4. a,> |
	r8 \grace fs,8( <)a4^- d,> \grace a8( <)cs8^- fs,> ~ |
	<cs fs,> \grace cs8( <)e4.^- a,> |
%}
% 37
	r8 <c4 f,> <e8 a,> ~ |
	<e8 a,> <g4 c,> <e8 a,> ~ |
	<e8 a,> \grace a,8( <)c4^- f,> \grace c8( <)e8^- a,> ~ |
	<e8 a,> \grace e8( <)g4^- c,> \grace c,8( <)e8^- a,> ~ |
%{ in Peters
	<e8 a,> <cs4 fs,> <e8 a,> ~ |
	<e8 a,> <gs4 cs,> <e8 a,> ~ |
	<e8 a,> \grace a,8( <)cs4^- fs,> \grace cs8( <)e8^- a,> ~ |
% 44
	<e8 a,> \grace e8( <)gs4^- cs,> \grace cs,8( <)e8^- a,> ~ |
%}
	<e8 a,> \grace e8( <)g4^> c,> \grace c,8( <)e8 a,> ~ |
%{ in Peters
	<e8 a,> \grace e8( <)gs4^> cs,> \grace cs,8( <)e8 a,> ~ |
%}
	<e8 a,> \grace e8( <)g4^> c,> \grace c,8( <)e8 a,> ~ |
%{ in Peters
	<e8 a,> \grace e8( <)gs4^> cs,> \grace cs,8( <)e8 a,> ~ |
%}
	<e8 a,> \grace e8( <)g4^> c,> \grace g8( <)b8^> e,> ~ |
% 50
	<b8 e,> \grace e,8( <)g4 c,> \grace c,8( <)e8 a,> ~ |
	<e8 a,> \grace a,8( <)c4 f,> \grace c8( <)e8 a,> ~ |
	<e8 a,> \grace a,8( <)c4 f,> \grace f,8( <)a8 d,> ~ |
	<a8 d,> \grace d,8( <)f4.^- bf,> ~ |
	<f4 bf,> r |
	r8 \grace bf,8( <)d4.^- g,> ~ |
	<d4 g,> r |
% 57
	r8 \grace a8( <)cs4.^- f,> ~ |
	<cs4 f,> r |
	r8 \grace a8( <)c4.^- f,> ~ |
	<c4 f,> r |
	R2 |
	R2 |
	r8 <g'''4 c,> <d8 g,> ~ |
	<d8 g,> <a4. d,> |
% 65
	r8 \grace e'8( <)g4^- c,> \grace b,8( <)d8^- g,> ~ |
	<d8 g,> \grace f,8( <)a4.^_ d,> |
	r8 <d4 g,> <a8 d,> ~ |
	<a8 d,> <e4. a,> |
	r8 \grace b'8( <)d4^- g,> \grace f,8( <)a8^- d,> ~ |
	<a8 d,> \grace c,8( <)e4.^- a,> |
	r4 r8 \grace f8( <)a8^- d,> ~ |
% 72
	<a8 d,> r r4 |
	r4 r8 \grace c,8( <)e8 a,> ~ |
	<e8 a,> r r4 |
	R2 |
	R2 |
	e,2^- |
	e^- |
	<g^- e> |
	<a^- f d> |
	<c g f c> ~ |
% 82
	<c g f c> |
	<c^- g e c> |
	<c^- f, d c> |
	\staffDown\voiceOne <c, g e c> ~ |
	<c g e c> ~ |
	<c4 g e c> \staffUp\oneVoice r4 |
	R2 |
	R2 |
	R2 |
}

upperTwo = \notes\relative c' {
	\voiceTwo
}

% #(define text-pp '(lines "sempre"))
lowerOne = \notes\relative c {
	\voiceOne\oneVoice
	\repeat volta 2 {
		<g4^\pp c,> <c^"sempre" f,> |
		\repeat unfold 6 { <g4 c,> <c f,> } |
% 8
		\repeat unfold 5 { <g4 c,> <c f,> } |
		\repeat unfold 2 { <e, a,> <a d,> } |
% 15
		\repeat unfold 2 {
			<d, g,> <d' g,> \clef G |
			\grace b''8( ~ <)e4-. b> \clef F <d,, g,> |
		} |
	}
	\repeat unfold 4 { <a d,> <d g,> } |
% 23
	\repeat unfold 3 %{ 7 in Peters %} { <a d,> <d g,> } |
% 30
	\repeat unfold 3 %{ 7 in Peters %} { <a d,> <d g,> } |
% 37
	\repeat unfold 4 %{ 7 in Peters %} { <a d,> <d g,> } |
% 44
	\repeat unfold 3 %{ 6 in Peters %} { <a d,> <d g,> } |
% 50
	\repeat unfold 7 { <a d,> <d g,> } |
% 57
	\repeat unfold 4 { <a d,> <d g,> } |
	\repeat unfold 4 { <g, c,> <c f,> } |
% 65
	\repeat unfold 7 { <g c,> <c f,> } |
% 72
	\repeat unfold 4 { <g c,> <c f,> } |
	R2 |
	< 
		{ \voiceOne\property Voice.Stem \set #'length = #18.5 
			<b'2 gs e> | <cs a e> | <b g!> | a |
		} \\
		{ \voiceTwo
			b,2 | a | <e' b e,> | <d a d,> |
		}
	>
% (81)
	\repeat unfold 2 { <g,,4 c,> <c f,> | <g' c,> <c f,> | }
% (85)
	\voiceTwo \repeat unfold 3 { <g, c,_.> <c f,_.> | }
	\oneVoice <g c,_.> <c f,_.> |
	R2 |
	<g4 c,_.> r |
}

lowerTwo = \notes\relative c {
	\voiceTwo
}

dynamics = \notes {
	\property Voice.TupletBracket \override #'bracket-visibility = ##f
	\repeat volta 2 {
		% s8\pp s8 s4_"sempre" |
		s2 |
		\repeat unfold 6 { s2 } |
% 8
		\repeat unfold 7 { s2 } |
% 15
		s8\< s4 \!s8 |
		s8\> s4 \!s8 |
		s8\< s4 \!s8 |
		s8\> s4 \!s8 |
	}
	s4\pp s4 |
	\repeat unfold 3 { s2 } |
% 23
	\repeat unfold 2 { s2 } |
%{ in Peters
	s4\ppp s4 |
	\repeat unfold 3 { s2 } |
%}
	s4\pp s4 |
% 30
	\repeat unfold 3 { s2 } |
%{ in Peters
	s4\ppp s4 |
	\repeat unfold 3 { s2 } |
%}
% 37
	s2_"cresc. poco a poco" |
	\repeat unfold 3 %{ 6 in Peters %} { s2 } |
% 44
%{ in Peters
	s8 s4._"sempre pi\\`u cresc." |
	s2 |
	s2 |
	s2_"molto" |
	s2 |
%}
	s8 s4._"pi\\`u cresc." |
	s2_"molto" |
	s8\fff\< s4 \!s8 |
% 50
	s4. s8_"dim. molto e poco ritard."
	\repeat unfold 6 { s2 } |
% 57
	\repeat unfold 4 { s2 } |
	s4\pp s4 |
	\repeat unfold 3 { s2 } |
% 65
	\repeat unfold 6 { s2 } |
	s4. s8_"dim."
% 72
	\repeat unfold 5 { s2 } |
	s2\pp |
	s2\< |
	s2^"molto" |
	\!s2 |
	s2\ffz |
% 82
	s8\> s4 \!s8 |
	s4\p s4 |
	s8\> s4 \!s8 |
	s4\pp s4 |
	s4^"morendo" s4 |
	\repeat unfold 4 { s2 } |
}

pedal = \notes {
	\repeat volta 2 {
		s2\Down
		\repeat unfold 6 { s2 } |
% 8
		\repeat unfold 7 { s2 } |
% 15
		\repeat unfold 4 { s2 } | 
	}
	\repeat unfold 4 { s2 } |
% 23
	\repeat unfold 3 %{ 7 in Peters %} { s2 } |
% 30
	\repeat unfold 3 %{ 7 in Peters %} { s2 } |
% 37
	\repeat unfold 4 %{ 7 in Peters %} { s2 } |
% 44
	\repeat unfold 3 %{ 6 in Peters %} { s2 } |
% 50
	\repeat unfold 7 { s2 } |
% 57
	\repeat unfold 8 { s2 } |
% 65
	\repeat unfold 7 { s2 } |
% 72
	\repeat unfold 10 { s2 } |
% 82
	\repeat unfold 9 { s2 } |
}

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