% Hello emacs, this is -*- coding:utf-8 -*-
\version "2.18.2"

\include "anglican-chant.ily"
%\include "overlay-markup.ily"

\paper {
  print-all-headers = ##t
  print-page-number = ##f
}

\header {
  % The following fields are centered
  %  dedication = "Day 27, Evening"
  title = "Psalm 148"
  %  subtitle = "Subtitle"
  %  subsubtitle = "In convertendo"
  % The following fields are evenly spread on one line
  % the field "instrument" also appears on following pages
  %  instrument = \markup \with-color #green "Instrument"
  poet = "20"
  composer = \markup "Matthew Camidge (1758–1844)"
  % The following fields are placed at opposite ends of the same line
  %  meter = "Meter"
  %  arranger = "TD 2007"
  % The following fields are centered at the bottom
  tagline = ##f
  %  tagline = "tagline goes at the bottom of the last page"
  %  copyright = "copyright goes at the bottom of the first page"
  % The following fields are placed at opposite ends of the same line
  %  piece = "PRAELUDIUM I"
  %  opus = "BWV 248"
}
%}

keyTime = {
  \key es \major
  \time 2/2
}

SopranoMusic = \relative g' {
  \mark \markup { \circle 1 }
  g1 | as2 g | f1 | \bar "||"
  \mark \markup { \circle 2 }
  es1 | c'2 d | es as, | g f | \bar "||"
  \mark \markup { \circle 3 }
  bes1 | d2 bes | es1 | \bar "||"
  \mark \markup { \circle 4 }
  c1 | bes2 g | f f | es1 | \bar "|."
}

AltoMusic = \relative es' {
  es1 | f2 es | d1 |
  es1 | es2 as | g f | es d |
  f1 | f2 f | es1 |
  es1 | f2 es | es d | es1 |
}

TenorMusic = \relative bes {
  bes1 | bes2 bes | bes1 |
  g1 | as2 as | bes c | bes1 |
  d1 | bes2 bes | bes1 |
  as1 | f2 bes | c bes | g1 |
}

BassMusic =  \relative es {
  es1 | d2 es | bes1 |
  c1 | as2 f' | g as | bes1 |
  bes1 | as2 as | g1 |
  as1 | d,2 es | as, bes | es1 |
}


% Use markup to center the chant on the page
\markup {
  \fill-line {
    \score {
      % centered
      %\transpose e es
      <<
        \new ChoirStaff <<
          \new Staff <<
            \keyTime
            \clef "treble"
            \new Voice = "Soprano" <<
              \voiceOne
              \SopranoMusic
            >>
            \new Voice = "Alto" <<
              \voiceTwo
              \AltoMusic
            >>
          >>
          \new Staff <<
            \clef "bass"
            \keyTime
            \new Voice = "Tenor" <<
              \voiceOne
              \TenorMusic
            >>
            \new Voice = "Bass" <<
              \voiceTwo
              \BassMusic
            >>
          >>
        >>
      >>
      \layout {
        \context {
          \Score
          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/2)
        }
        \context {
          \Staff
          \remove "Time_signature_engraver"
        }
        \context {
          \Voice
          \consists "Horizontal_bracket_engraver"
        }
      }
    }  % End score
  }
}  % End markup

\markup {
  \fill-line {
    \column {
      \center-align { \null \null \line \caps { Psalm 148 } \vspace #0.4 }
    }
  } % \fill-line
} % \markup

#(define-markup-command (row layout props x-offs args)
  (list? markup-list?)
  "Stacks the args horizontally relying on 'x-offs'"
  (let ((stils (interpret-markup-list layout props args)))
   (apply ly:stencil-add
     (map
       (lambda (val stil) (ly:stencil-translate-axis stil val X))
       x-offs stils))))

#(define-markup-command (column-rows layout props y-offs args)
  (list? markup-list?)
  "Stacks the args vertically relying on 'y-offs'"
  (let ((stils (interpret-markup-list layout props args)))
   (apply ly:stencil-add
     (map
       (lambda (val stil) (ly:stencil-translate-axis stil (- val) Y))
       y-offs stils))))

%YPos = 0
YPos = 10
%YOffset = 3.2
%YSpace = 4.4
YOffset = 3.2
YSpace = 4.3

%alignColOne = CENTER
%alignColTwo = RIGHT
%alignColThree = RIGHT
%alignColFour = LEFT
#(define alignColOne   CENTER)
#(define alignColTwo   RIGHT)
#(define alignColThree RIGHT)
#(define alignColFour  LEFT)

XColOne = 11
XColTwo = 22
XColThree = 27
XColFour = 29
XColFourb = 32.5
XColCont = 39

my-four-column-x-off-list =
#(list XColOne XColTwo XColThree XColFour)

my-y-off-list =
%% The number (here: 7) in (iota 7 1 1) should not be less than the number of
%% args for 'column-rows'
%% Probably set it to a very high number
#(map
   (lambda (i)
     (apply + (list-head (cons YPos (circular-list YOffset YSpace)) i)))
   (iota 1000 1 1))


\markup
 \column-rows #my-y-off-list {

  \row #my-four-column-x-off-list {
    \halign #alignColOne \dynamic f
    \halign #alignColTwo \italic "Full"
    \halign #alignColThree 1
    \halign #alignColFour \line { O praise the | Lord \emphasize #"*o*f" \vertSep heav'n : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { praise \vertSep ― him \vertSep \emphasize #"*i*n th*e*" \vertSep height. }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo \italic "Full"
    \halign #alignColThree 2
    \halign #alignColFour \line { Praise him, all ye \vertSep \single-hbracket \fontsize #-3 \italic " 3 " \line { angels \dot of } \vertSep his : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { praise \vertSep ― him \vertSep all his \vertSep host. }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo \italic "Full"
    \halign #alignColThree 3
    \halign #alignColFour \line { Praise him, \vertSep sun \emphasize #"*a*nd" \vertSep moon : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { praise him, \vertSep all ye \vertSep stars \emphasize #"*a*nd" \vertSep light. }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo \italic "Full"
    \halign #alignColThree 4
    \halign #alignColFour \line { Praise him, \vertSep all ye \vertSep heav'ns : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { and ye wáters that \vertSep are a- \vertSep bove \emphasize #"th*e*" \vertSep heav'ns. }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo " " %\italic "Full"
    \halign #alignColThree 5
    \halign #alignColFour \line { Let them praise the \vertSep \single-hbracket \fontsize #-3 \italic " 3 " \line { Name of \dot the } \vertSep Lord : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { for he spake the word and they were made, * he com- \vertSep }
  }

  \row #(list XColCont) {
    \halign #alignColFour \line { \single-hbracket \fontsize #-3 \italic " 3 " \line { manded \dot and } \vertSep \single-hbracket \fontsize #-3 \italic " 3 " \line { they were \dot cre- } \vertSep ated. }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo " " %\italic "Full"
    \halign #alignColThree 6
    \halign #alignColFour \line { He hath made them fást for \vertSep \single-hbracket \fontsize #-3 \italic " 3 " \line { ever \dot and } \vertSep ever : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { he hath given them a \vertSep law which \vertSep \single-hbracket \fontsize #-3 \italic " 3 " \line { shall not \dot be } \vertSep broken. }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo " " %\italic "Full"
    \halign #alignColThree 7
    \halign #alignColFour \line { Praise the \vertSep \single-hbracket \fontsize #-3 \italic " 3 " \line { Lord up-on } \vertSep earth : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { \emphasize #"y*e*" \vertSep \single-hbracket \fontsize #-3 \italic " 3 " \line { dragons \dot and } \vertSep all ― \vertSep deeps ; }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo " " %\italic "Full"
    \halign #alignColThree 8
    \halign #alignColFour \line { Fire and hail, \vertSep snow \emphasize #"*a*nd" \vertSep vapours : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { wind and \vertSep storm ful- \vertSep \single-hbracket \fontsize #-3 \italic " 3 " \line { filling \dot his } \vertSep word ; }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo " " %\italic "Full"
    \halign #alignColThree 9
    \halign #alignColFour \line { Mountains \emphasize #"*a*nd" \vertSep all ― \vertSep hills : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { fruitful \vertSep trees \emphasize #"*a*nd" \vertSep all ― \vertSep cedars ; }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo " " %\italic "Full"
    \halign #alignColThree 10
    \halign #alignColFour \line { Beasts \emphasize #"*a*nd" \vertSep all ― \vertSep cattle : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { worms \vertSep ― \emphasize #"*a*nd" \vertSep feath-er'd \vertSep fowls ; }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo " " %\italic "Full"
    \halign #alignColThree 11
    \halign #alignColFour \line { Kings of the earth \emphasize #"*a*nd" \vertSep all ― \vertSep people : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { princes and all \vertSep \emphasize #"judg-*e*s" \vertSep \emphasize #"*o*f th*e*" \vertSep world ; }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo " " %\italic "Full"
    \halign #alignColThree 12
    \halign #alignColFour \line { Young men and maidens, old men and children, * praise the \vertSep }
  }

  \row #(list XColCont) {
    \halign #alignColFour \line { \single-hbracket \fontsize #-3 \italic " 3 " \line { Name of \dot the } \vertSep Lord : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { for his Name only is excellent, * and his \vertSep \single-hbracket \fontsize #-3 \italic " 3 " \line { praise a-bove } \vertSep }
  }

  \row #(list XColCont) {
    \halign #alignColFour \line { heav'n \emphasize #"*a*nd" \vertSep earth. \hspace #4 \bold {[ \concat{2 \super nd} part ➛ ]} }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo \line { \italic {\concat{2 \super nd} part } }
    \halign #alignColThree 13
    \halign #alignColFour \line { He shall exalt the horn of his people, * all his \vertSep saints shall \vertSep praise him : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { even the children of Israel, \vertSep \single-hbracket \fontsize #-3 \italic " 3 " \line { even \dot the } \vertSep \single-hbracket \fontsize #-3 \italic " 3 " \line { people \dot that } \vertSep serveth him. }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo " "
    \halign #alignColThree " "
    \halign #alignColFour \line \italic { Glory \vertSep be \dot to the \vertSep father : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { and to the Son, \vertSep and \dot to the \vertSep Ho-ly \vertSep Ghost ; }
  }

  \row #my-four-column-x-off-list {
    \halign #alignColOne " " %\dynamic f
    \halign #alignColTwo " "
    \halign #alignColThree " "
    \halign #alignColFour \line { As it was in the beginning, * is now, and \vertSep ever \dot shall \vertSep be : }
  }

  \row #(list XColFourb) {
    \halign #alignColFour \line { world without \vertSep end, A- \vertSepDot ― \vertSepDot men. }
  }
 }