\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 = "Heralds in Love"
  poet = "Heather Rose Jones, 1990"
  subtitle = \markup \italic "Longways for 4 couples, 2nd and 4th couples improper"
  meter = "AB x 3"
  composer = "arr. Paul Butler"
  tagline = ""
}

global= {
  \key c \major
  \time 12/8

  \partial 4.
  \repeat unfold 4 {
    \repeat unfold 3 { s1 \noBreak } s1 \break
  }
}

chordLine = \chordmode {
  \set chordChanges = ##t

  \partial 4. r4. |
  % A
  c1. c2. a2.:m | g1. g2. g2.:7 | c1. c2. c4 a2:m |
  g1. c2. c2. |

  % B
  c1. | c2. e2.:m | f2. e2.:m | f2. g2. | c1. | f1. | c2. g2. c2. c4.

}

cantusMusic = \relative c' {
  \partial 4. g''4^\markup{\box A} f8 | e4. d c g'4 f8 | e4 f8 d4 e8 c4 a8 b4 c8 | d4. g,4. g4. b4 c8 | d4 c8 d4 e8 f4. g4 f8 | 
  e4. d4. c4. g'4 f8 | e4 f8 d4 e8 c4 a8 b4 c8 | d4. g,4. g a4 b8 c2. c4. \bar "||" g4.^\markup{\box B}  |

  c4. g g a4 b8 | c4 b8 c4 d8 e4. d4 e8 | f4 e8 d4 c8 e4 c8 b4 a8 | c4 b8 a4. g4. a4 b8 | 
  c4 g8 e4 g8 c4. d4 e8 | f4 c8 a4 c8 f4. g4 f8 | e4. d4 c8 b4 c8 d4 b8 | c2. c4.  \bar "|."
}

altoOneMusic = \relative c' {
  \partial 4. c4 d8 | g4. f4. e4. e4 e8 | c4 d8 f4 g8 a4 e8 e4 a8 | b4 a8 d,4. g4. g4 a8 | g4 a8 b4 a8 g4. b4 b8 |
  c4. d4. e4. e4 d8 | c4 d8 g,4 c8 a4 e8 e4 a8 | b8 a g d4. d d | g4 e g4 g4. e4. | 
  
  g8 f e c4. c e4 g8 | g4 e8 g4 f8 b4. a4 g8 | f4 g8 a4 g8 g4 e8 g4 d'8 | a4 g8 f4. b4. c4 d8 | 

  g,4 e8 c4 e8 g4. f4 e8 | a4 a8 f4 a8 a4. b4 a8 | g4. f4 e8 g4 a8 b4 b8 | <g e>2. <g e>4.
}

bassOneMusic = \relative c {
  \partial 4. r4. | c1 c8 g'4. | c,2. a'2. | g g | g4. g b d, | 
  c1 c8 g'4. | c,2. a'2. | g2. b2. | c4 g e c4. c4. | 
  
  e4. c2. c4. | e4. c4. e4. b'4. | c4. f,4. b4. e,4. | c'4. f,4. d'4. g,4. |
  g4. c,4. c2. | f2. f4. f4. | e4. c4. d4. g4. | c4 g e c4.

}

\score {
  \context ChoirStaff <<
    \context ChordNames = chordcontext << \global \chordLine >>
    \context Staff = cantusStaff <<
      \context Voice = cantus {
	<< \global \cantusMusic >> 
      }
    >>

    \context Staff = altusStaff <<

      \context Voice = altus { 
	<< \global \altoOneMusic >> 
      }
    >>

    \context Staff = tenorStaff << 
      \context Voice = tenor{ 
	<< \global \clef "G_8" \bassOneMusic >>
      }
    >>

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

  >>

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

  \layout { 
    indent = 0\mm
  }
}


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