\header {
  title = "Old 113th"
  composer = "Matthaus Greiter (1500-1552), 1525"
  copyright = "Public Domain"
  date = "1525"
  tagline = "Last update: 2009-04-03"
}
\version "2.10.10"
% #(set-default-paper-size "letter")

melody = { \time 4/4  { \key d \major d'2 d'4 e' fis' d' fis' g' a'2 a' g'4 fis' e' d' fis' gis' a'2 b' a'4 g' fis' d' e' e' d'1 d''2 d''4 d'' cis'' a' b' b' a'2 d'' d''4 d'' cis'' a' b' b' a'2 d' e'4 fis' g' fis' e' e' d'1
  \bar "|."
  }
}
alto = {
  { \key d \major a2 b4 cis' d' d' d' d' cis'2 d' d'4 d' cis' b a d' cis'2 d' cis'4 b a d' d' cis' d'1 fis'2 fis'4 d' e' d' d' g' fis'2 fis' fis'8 g' a' e' e'4 cis' fis' e'8 d' cis'2 d' cis'4 d' d' d' d' cis' d'1
  \bar "|."
  }
}
tenor = {
  { \key d \major fis2 fis4 a a a a d e2 fis g4 a a fis fis d e2 g e4 d8 e fis4 fis b a8 g fis1 a2 a4 a a d' d' d' d'2 a a4 a8 b a4. a8 a4 gis a2 fis a4 a b b b a8 g fis1
  \bar "|."
  }
}
bass = {
  { \key d \major d2 b,4 a, d fis d b, a,2 d b,4 d a, b, d b, a,2 g, a,4 b,8 cis d4 b, g, a, d1 d2 d4 fis a fis g g, d2 d d8 e fis gis a4. fis8 d4 e a,2 b, a,4 d g, b, g, a, d1
  \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 63 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 { }