\header {
  title = "Woodworth"
  composer = "William B. Bradbury, 1849"
  copyright = "Public Domain"
  date = "1849"
  tagline = "Last update: 2009-04-03"
}
\version "2.10.10"
% #(set-default-paper-size "letter")

melody = { \time 6/4 \partial 4  { \key d \major d'8 e' fis'2 fis'4 a'4. g'8 fis'4 e'4. fis'8 g'4 fis'2 a'4 a' e' fis' g'2 b'4 b'2 a'4 fis'2 d'8 e' fis'2 fis'4 a'4. g'8 fis'4 b'2 b'4 d''4. cis''8 b'4 a'2 a'4 a'4. g'8 fis'4 e'2. a' fis' ( fis'2 ) s4
  \bar "|."
  }
}
alto = {
  { \key d \major d'8 e' d'2 d'4 fis'4. e'8 d'4 cis'4. d'8 e'4 d'2 fis'4 e'2 d'4 e'2 g'4 g'2 fis'4 d'2 d'8 e' d'2 d'4 fis'4. e'8 d'4 g'2 g'4 g'2 g'4 fis'2 fis'4 fis'4. e'8 d'4 cis'2. cis' d' ( d'2 ) s4
  \bar "|."
  }
}
tenor = {
  { \key d \major fis8 g a2 a4 a2 a4 a2 a4 a2 d'4 cis'2 a4 a2 cis'4 d'2 d'4 a2 fis8 g a2 a4 a2 d'4 d'2 d'4 b4. cis'8 d'4 d'2 d'4 a2 a4 a2. a a ( a2 ) s4
  \bar "|."
  }
}
bass = {
  { \key d \major d4 d2 d4 d2 d4 a,2 a,4 d2 d4 a2 a4 a2 a,4 d2 d4 d2 d4 d2 d4 d4. e8 fis4 g2 g4 g2 g4 d2 d4 d2 d4 a2. a, d ( d2 ) s4
  \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 60 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 { }