\version "2.14.2"

\header {
  title = "Sure on this shining night"
  composer = "Samuel Barber"
  poet = "James Agee"
  opus = "Op. 13, No. 3"
}

\paper {
  #(set-paper-size "letter")
  ragged-last-bottom = ##f
}

global = {
  \mark \markup \bold "Andante"
  \tempo 4 = 50
  \key d \phrygian
  \time 3/4
}

melody = \relative c'' {
  \global
  \dynamicUp
  \autoBeamOff
  R2. |
  d4\p c8 d bes a |
  c4. bes8 a bes | \break
  g8 f a2 |
  r4 r4 bes4 ~ |
  bes4 a8 bes g f |
  a2 g4 | \break
  ees4. f8 d4 ~ |
  \time 2/4 d2 |
  \time 3/4 r4 r4 d'4\mf |
  f4 e8 f d c | \pageBreak
  e2. |
  g2\f ~ g8 e8 |
  e2. | \break
  e2\< d4 |
  f2. |
  \time 4/4 r4\! f4\p e8 d c d | \break
  \time 3/4 bes2. |
  \time 4/4 r4 d2\< ~ d8\! g,8-- |
  \time 3/4 g2.-- | \pageBreak
  R2. |
  f'4\mf ees8 f d c |
  ees4. d8 c-- d |
  bes([\> a)] c2\! ~ | \break
  c4 r4 d4 ~ |
  d4 c8([ d)] bes a |
  c2 bes4 |
  g4. a8 f4 ~ |
  f4 g2 | \break
  d2. ~ |
  d4 r4 r4 |
  R2. |
  R2. |
  R2. \fermataMarkup |
}

verse = \lyricmode {
  Sure on this shin- ing night
  Of star- made shad- ows round,
  Kind- ness must watch for me
  This side the ground.

  The late year lies down the north.
  All is healed, all is health.
  High sum- mer holds the earth.
  Hearts all whole.

  Sure on this shin- ing night
  I weep for won- der
  Wan- d'ring far a- lone
  Of shad- ows on the stars.
}

pianoRightOne = \relative c' {
  \global
  \set PianoStaff.connectArpeggios = ##t
  \oneVoice <d f bes d>4.\p( \arpeggio <bes d>8 <bes d> <bes d> |
  <bes d>2.) |
  f''4\( ees8 f d c |
  ees4. d8 c d |
  bes8 a c2\) |
  r4 r4 d4\( ~ |
  d4 c8 d bes a |
  <ees c'>2 <d bes'>4 |
  \time 2/4 \voiceOne g4. a8 |
  \time 3/4 f4 ~ <a, d f>8\) \< <a d f>\( <a d f> <a d f> |
  \oneVoice <a d f>8 <a d f> <a d f> <a d f> <a d f> <a d f>\) \! |
  \voiceOne c'4\mf\( b8 c a g |
  \oneVoice <b, e g b>8 <b e g b> <b e g b> <b e g b> <b e g b> <b e g b> |
  <cis e a cis> <cis e a cis> <cis e a cis> <cis e a cis> <cis e a cis> <cis e a cis> |
  <cis e a cis>\< <cis e a cis> <cis e a cis> <cis e a cis> <b e a b>-- <b e a b> |
  <d f a d>-- <d f a d>\! <d f a d> <d f a d> <d f a d> <d f a d>\) |
  \time 4/4 <d f bes d>\( <d f bes d> <d f bes d>\p <d f bes d> <d f bes d> <d f bes d> <d f bes d> <d f bes d> |
  \time 3/4 <d g bes d>\< <d g bes d> <d g bes d> <c g' bes c>-- <ees g bes ees>-- <ees g bes ees>\) \! |
  \time 4/4 <d bes g>\(\p\< <d bes g> <d bes g> <d bes g> <d bes g> <d bes g> <d bes g> <c bes g>--
  \time 3/4 <ees bes g>--\! <ees bes g> <ees bes g> <ees bes g> <ees bes g> <ees bes g>\) |
  \set PianoStaff.connectArpeggios = ##f
  \voiceOne d'4\mf\( c8 d bes a |
  c4. bes8 a bes |
  g8 f a2\) |
  r4 r4 bes4--\( ~ |
  bes4 a8 bes g f |
  a2 g4 |
  ees4. f8 d4 ~ |
  d2 ees4-- |
  bes2.-- ~ |
  bes2.\) |
  s2. * 4 |
}

pianoRightTwo = \relative c' {
  \global
  \once \override Voice.DynamicText #'transparent = ##t
  s2.\p |
  s2. * 7 |
  \time 2/4 <d bes>2 |
  \time 3/4 <a d>8 <a d> s2 |
  s2. |
  <c e>8 <c e> <c e> <c e> <c e> <c e> |
  s2. * 4 |
  \time 4/4 s1 |
  \time 3/4 s2. |
  \time 4/4 s1 |
  \time 3/4 s2. |
  <d f>8\arpeggio <d f> <d f> <d f> <bes d> <bes d> |
  <c a'>8 <c a'> <c g'> <c g'> <a d> <a d> |
  <bes ees>8 <bes ees> <a ees'> <a ees'> <a d> <a d> |
  <bes d>8 <bes d> <c g> <c g> \change Staff="left" \stemUp <c g> <c g> |
  <c g>8 <c g> <c g> <c g> \change Staff="right" \stemDown <bes d>8 <bes d> |
  <a d f>8 <a d f> <a d f> <a d f> <bes ees> <bes ees> |
  <c g>8 <c g> <c g> <c g> <bes g> <bes g> |
  <bes g>8 <bes g> <bes g> <bes g> <bes g> <bes g> |
  \change Staff="left" \stemUp <f g>8 <f g> <ees g> <ees g> <ees g> <ees g> |
  <d f>8 \change Staff="right" \stemDown <d' f bes d>8 <d f bes d> <d f bes d> <d f bes d> \< <d f bes d> |
  \oneVoice <d f bes d>8 <d f bes d> <d f bes d> <c g' bes c>-- <ees g bes ees>-- <ees g bes ees> \mf |
  s2. * 3 |
}

pianoLeftOne = \relative c {
  \global
  \dynamicUp
  \override Staff.DynamicText #'transparent = ##t
  \oneVoice <f bes,>2.\p\( \arpeggio ~ |
  <f bes,>8 <f bes,> <f bes,> <f bes,> <d g,> <d g,> |
  \voiceOne <a' c,>8 \arpeggio <a c,> <g c,> <g c,> <f d> <f d> |
  <bes ees,>8 \arpeggio <bes ees,> <a f> <a f> <a f> <a f>\) |
  \oneVoice <g ees>8\( <g ees> <g ees> <g ees> <g ees> <g ees> |
  <g ees> <g ees> <a f> <a f> <a f> <a f> |
  <a g> <a g> <a g> <a g> <bes g> <d g,> |
  \voiceOne g,8 g g g g g |
  \time 2/4 d8 d ees ees |
  \time 3/4 \oneVoice <d d,>2.\) ~ |
  <d d,>2. |
  \voiceOne e8 e e e e e |
  \oneVoice <e e,>2. |
  <e a,>2. |
  <e a,>2. |
  <f a, d,>2. \arpeggio |
  \time 4/4 <f bes,>1 |
  \time 3/4 <g ees>2. |
  \time 4/4 <d g,>1 |
  \time 3/4 <bes ees,>2. |
  <f' bes, bes,>2\arpeggio <d g,>4 |
  <c ees,>2 <d f,>4 |
  <ees g,>4 <f a, d,>2\arpeggio |
  \voiceOne bes,4 c2 |
  s2. |
  \oneVoice <d a d,>2 <bes ees,>4 |
  <c c,>2 d,4 |
  <bes' ees,>2. ~ |
  \stemDown <bes ees,>2. |
  s2. * 2 |
  \override Staff.DynamicText #'transparent = ##f
  \voiceOne r4 <d' bes g>8 \p <d bes g> <d bes g> <d bes g> |
  <d bes g>8 <c bes g>-- <ees bes g>-- <ees bes g> <ees bes g> <d bes g> |
  \dynamicDown
  f2.-- \pp \fermata |
}

pianoLeftTwo = \relative c, {
  \global
  s2.\p |
  s2. |
  ees2 \arpeggio f4 |
  g4 \arpeggio d'2 |
  s2. * 3 |
  c2 g4 ~ |
  \time 2/4 g2 |
  \time 3/4 s2. * 2 |
  a2. |
  s2. * 4 |
  \time 4/4 s1 |
  \time 3/4 s2. |
  \time 4/4 s1 |
  \time 3/4 s2. * 4 |
  ees2. ~ |
  <c' ees,>2 <d g,>4 |
  s2. * 4 |
  <bes f bes,>2. |
  <g' ees>2. |
  r4 <d g,>2 ~ |
  <d g,>4 <bes ees,>2
  r4 <d bes,>2 \fermata |
}

voicePart = \new Staff \with {
  instrumentName = "Voice"
  midiInstrument = "Cello"
  midiMaximumVolume = #0.5
} { \melody }
\addlyrics { \verse }

pianoPart = \new PianoStaff \with {
  instrumentName = "Piano"
  midiInstrument = "Acoustic Grand"
  midiMaximumVolume = #0.5
  \override StaffGrouper #'staff-staff-spacing #'stretchability = #10.5
} <<
  \new Staff = "right" <<
    \new Voice = "R1" { \voiceOne \pianoRightOne }
    \new Voice = "R2" { \voiceTwo \pianoRightTwo }
  >>
  \new Staff = "left" <<
    \clef bass
    \new Voice = "L1" { \voiceOne \pianoLeftOne }
    \new Voice = "L2" { \voiceTwo \pianoLeftTwo }
  >>
>>

\score {
  <<
    \voicePart
    \pianoPart
  >>
  \layout { }
}

\score {
  \unfoldRepeats \transpose d a, {
  <<
    \voicePart
    \pianoPart
  >>
  }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 50 4)
    }
  }
}