\header {
  title = "Savior, Like a Shepherd Lead Us"
  subtitle = "Bradbury"
  composer = "William B. Bradbury (1816-1868), 1859"
  copyright = "Public Domain"
  date = "1859"
 footer = " "
 tagline = " "
}
\version "2.10.10"
#(set-default-paper-size "letter")
#(ly:set-option 'point-and-click #f)
#(ly:set-option 'delete-intermediate-files #t)

melody = { \time 4/4  { \key d \major fis'4 fis' fis'8 e' fis' g' a'4 ( d'' ) a' ( fis' ) e' fis' g'8 b' a' g' fis'1 fis'4 fis' fis'8 e' fis' g' a'4 ( d'' ) a' ( fis' ) e' fis' g'8 b' a' g' fis'1 a'8 a' b'4 d''2 cis''8 b' a'4 fis'2 fis'8 fis' e'4 b' a' g' fis'2. a'8 a' b'4 d''2 cis''8 b' a'4 d''2 d'8 e' fis'4 a' g' e' d'2.
  \bar "|."
  }
}
alto = {
  { \key d \major d'4 d' d'8 cis' d' e' fis'2 fis'4 ( d' ) cis' d' e'8 g' fis' e' d'1 d'4 d' d'8 cis' d' e' fis'2 fis'4 ( d' ) cis' d' e'8 g' fis' e' d'1 fis'8 fis' g'4 b'2 a'8 g' fis'4 d'2 d'8 d' cis'4 g' fis' e' d'2. fis'8 fis' g'4 b'2 a'8 g' fis'4 fis'2 d'8 d' d'4 fis' e' cis' d'2.
  \bar "|."
  }
}
tenor = {
  { \key d \major a4 a a8 a a a a2 d'4 ( a ) a a a8 a a a a1 a4 a a8 a a a a2 d'4 ( a ) a a a8 a a a a1 d'8 d' d'4 d'2 d'8 d' d'4 a2 a8 a a4 a a a a2. d'8 d' d'4 d'2 d'8 d' d'4 a2 fis8 g a4 a a g fis2.
  \bar "|."
  }
}
bass = {
  { \key d \major d4 d d8 g fis e d2 d a,4 a, a,8 a, a, a, d1 d4 d d8 g fis e d2 d a,4 a, a,8 a, a, a, d1 d8 d g4 g2 g8 g d4 d2 d8 d a,4 a, a, a, d2. d8 d g4 g2 g8 g d4 d2 d8 d d4 d a, a, d2.
  \bar "|."
  }
}


  \score {
    \context GrandStaff <<
      \context Staff = upper <<
        \set Staff.printPartCombineTexts = ##f
        \partcombine
        {   #(set-accidental-style 'modern-cautionary) \melody }
        { \alto}
      >>  
      \context Staff = lower <<
        \set Staff.printPartCombineTexts = ##f
        \clef bass
        \partcombine	{  #(set-accidental-style 'modern-cautionary) \tenor }
        { \bass }
      >>  
    >>
\midi { \context { \Score tempWholesPerMinute = #(ly:make-moment 112 4 ) } }
\layout {
  between-system-space = 1\mm
  \context {
    \Score
    % defaults
    % (shortest-duration-space . 2.0)
    % (spacing-increment . 1.2)
    % (base-shortest-duration . ,(ly:make-moment 1 8))
    % tighter spacing
    \override SpacingSpanner #'shortest-duration-space = #2.8
    \override SpacingSpanner #'spacing-increment = #0.6
    \override SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 8)
    \remove "Bar_number_engraver"
  }
  \context { \Staff 
    \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
  }
  }
}
\paper { }