\paper {
  oddFooterMarkup = \markup {
    \fill-line { \line {
      \italic \fromproperty #'header:title
      " - Page "
      \fromproperty #'page:page-number-string
      " of 1"
    } }
  }
  evenFooterMarkup = \oddFooterMarkup
}
%#(set-global-staff-size 17)

\include "english.ly"
\header{
  title = "Amoroso"
  poet = \markup { Ambrosio (Guglielmo), 1475}
  subtitle = \markup \italic "For couples"
  composer = "arr. Monica Cellio"
  meter = "AAA BB CC DD"
  tagline = ""
}

global= {
  \key d \dorian
  \time 4/4
}

chordLine = \chordmode {
 \set chordChanges = ##t 
  d1:m | g1 d1:m | d4:m e4:m | d2:m 

  d2:m g4 c4 | d2:m g2 | c2 a4:m g4 | a2:m 

  d2:m a2:m | a2:m g2 | c2 a4:m g4 | a2:m 

  d2:m g4 c4 | d2:m g2 | d2:m g4 d4:m | e2:m e4:m d4:m | d2:m a4:m e4:m | e2:m e4:m  d4:m | a1:m  | d2.:m g4 | d2:m
}

cantusMusic = \relative c' {
  \repeat volta 3 { d8^\markup{\box A} e f e d4 e8 f | g8 a g f e4 d | d8 e f e d4 a'8 g | f8 d e4 d2^\markup{\translate #(cons 4 0) "(3)" } }
  \repeat volta 2 { a'4^\markup{\box B} a g c a a g a8 b | c4 e8 d c a b4 | \partial 2 a2 }
  \repeat volta 2 { d8^\markup{\box C} d c b16 a a4 a8 b | c4. b16 a g4 a8 b | c4 e8 d c a b4 | \partial 2 a2 }
  \repeat volta 2 { a4^\markup{\box D}  a g c | a a g g | a a g8 e f4 | e e e f | f8 e f g a g16 f e4 | e4 e e16 e e e f8. g16 | a4 a a a8 g f4. d8 f4 e d2 }
}

altusMusic = \relative c' {
  \repeat volta 3 { a2 a4 b8 a | d2 b4 d | a2 a4 f | f g a2 }
  \repeat volta 2 { a2 d4 e | a,2 d4 d | g,  g a d e2 }
  \repeat volta 2 { a,4 e' a, e' | a,2 d2 | g,4 g a d | e2 }
  \repeat volta 2 { a,2 d4 e | a,2 d4 d | d a g a | b b b d | a d e b | b2 b4 d | e2 e4 e | a,2 a4 b a2 }
}

bassusMusic = \relative c {
  \repeat volta 3 { d2 d4 g8 d | g2 g4 a | d2 d4 a8 c | a4 b d2 }
  \repeat volta 2 { d,2 g4 g | d2 g4 d' | c c, e g a2 }
  \repeat volta 2 { d,4 a' e' a, | e2 g4 d | c' c, e g a2 }
  \repeat volta 2 { d,2 g4 g d2 g2 | d2 b'4 d, | e2 e4 d | d2 a'4 e | e2 e4 d | a'2 a4 e | d2 d4 g d2 }
}

\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" \bassusMusic >> 
      }
    >>

    \context Staff = bassusStaff << 
      \context Voice = bassus { 
	<< \global \clef bass \bassusMusic >>
      }
    >>

  >>

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


  \layout { 
    indent = 0\mm
  }
}


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