\paper {
  oddFooterMarkup = \markup {
    \fill-line { \line {
      \italic \fromproperty #'header:title
      " - Page "
      \fromproperty #'page:page-number-string
      " of 1"
    } }
  }
  top-margin=0.5\in
  evenFooterMarkup = \oddFooterMarkup
}
#(set-default-paper-size "letter")
#(set-global-staff-size 18)

\include "english.ly"
\header{
  title = "Contrapasso in Due"
  subtitle = \markup \italic "For couples"
  poet = "Caroso, 1581"
  composer = "arr. Paul Butler"
  meter = "AAA BBB AA BBB"
  tagline = ""
}

global= {
  \key f \major
  \time 3/2
}

chordLine = \chordmode {
  r2 f1 c2 f1. bf1 c2 f1. s1 c2 f1. bf1 c2 f1
  s2 f1. bf1. s1 c2 f1  
  s2 f1. bf1. s1 c2 f1 s2 
  f1. bf1. c1:m f2 c1. bf1. bf2 c f c1. f1
}

cantusMusic = \relative c' {

  \repeat volta 2 { \partial 2 d4^\markup{\box "A"} e | f2 f g | a2 a4 g f ef | d2 f g | a a d,4 e | f g a f g e | f bf a g f ef | 
  d4 e f2 g4 e | f2 f }

  \repeat volta 3 {  a4^\markup{\box "B"} bf | c2 c4 f, g a | bf2 bf bf | bf bf4 a g2 | a2 a 
  a4 bf | c2 c4 f, g a | bf2 bf bf | bf bf4 a g2 | a2 a
  f2 | f4 g a f g a | bf2 bf a | g g f | g g g4 bf | a bf a g f ef | d2 e4 g f a |
  g f g1 | a2 a }

}

altusMusic = \relative c' {
  \repeat volta 2 { \partial 2 r2 | c c e | f f4 g f ef | bf2 bf e | f f d4 e | c g'a f g e | c bf' a g f ef |
  bf e f2 g4 e | c2 c }

  \repeat volta 3 { a'4 bf | f2 f4 f g a | d,2 d d | d d4 a' e2 | f2 f 
  a4 bf | f2 f4 f g a | d,2 d d | d d4 a' e2 | f2 f 
  f2 | c4 g' f c g' a | d,2 d f | ef ef a | e e e4 bf' | a bf a g f ef | bf2 e4 g f a |
  g f f2 e | f2 f }

}

tenorMusic = \relative c {
  \repeat volta 2 { \partial 2 r2 | f2 f c | c c4 g' f ef | d2 f c | c a' d,4 e | f g a f g e | c bf' a g f ef | 
  d e f2 g4 e | c2 f }

  \repeat volta 3 { a4 bf | c2 f,4 f g a | bf2 bf bf | bf bf4 a c2 | c,2 f 
  a4 bf | c2 f,4 f g a | bf2 bf bf | bf bf4 a c2 | c,2 f 
  a2 | f4 g a f g a | bf2 bf c, | g' g a | c c c4 bf | a bf a g f ef | d2 e4 g f a |
  g4 f g1 | c2 a }

}

bassusMusic = \relative c {
  \repeat volta 2 { \partial 2 r2 | r1 c2 | f2 f1 | bf,2 bf c | f1 r2 | f1 c2 | f1. |
  bf,2. d4 c2 | f1 }

  \repeat volta 3 { r2 | f2 f1 | bf,2. bf | bf2 bf c | f1 
  r2 | f2 f1 | bf,2. bf | bf2 bf c | f1 
  f2  | f1. | bf,1 f'2 | ef1 f2 | c2. c | f1. | bf,2 c d |
  bf2 c1 | f,2. f4 }
}

\score {
  \context ChoirStaff <<
    \context ChordNames = chordcontext << \global \chordLine >>

    \context Staff = cantusStaff <<
      \context Voice = cantus {
	<< \global \cantusMusic >> 
      }
    >>

    \context Staff = altusStaff <<

      \context Voice = altus { 
	<< \global \clef "G_8" \altusMusic >> 
      }
    >>

    \context Staff = tenorStaff <<

      \context Voice = tenor { 
	<< \global \clef "G_8" \tenorMusic >> 
      }
    >>
    \context Staff = bassusStaff << \context Voice = bassus { 
      << \global \clef bass \bassusMusic >>
    }
  >>

>>

\midi {
  \context {
    \Score
    tempoWholesPerMinute = #(ly:make-moment 240 2)
  }
}



\layout { 
  indent = 0\mm
}
}


\version "2.10.10"  % necessary for upgrading to future LilyPond versions.