%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%									         %%

%% Copyright of edition © 2020 by Andreas Stenberg using the CPDL-license			  %%

%%										  %%

%% This edition can be fully distributed, duplicated, performed, and recorded 	  %%

%% Any subsequent use of the source files should be under the same thermes	  %%

%%									         %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\version "2.20.0"

%% The edition uses the following templates


%% http://lsr.di.unimi.it/LSR/Item?id=368

%% see also http://www.lilypond.org/doc/v2.18/Documentation/snippets/paper-and-layout

%% see also http://nicolas.sceaux.free.fr/


%%% book-titling.ily  -- a titling stylesheet for use in books
%%%

%%% Author: Nicolas Sceaux <nicolas.sceaux@free.fr>
%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% Utility markups


%% vertical space skip

#(define-markup-command (vspace layout props amount) (number?)

   "This produces a invisible object taking vertical space."

   (let ((amount (* amount 3.0)))

     (if (> amount 0)

         (ly:make-stencil "" (cons -1 1) (cons 0 amount))

         (ly:make-stencil "" (cons -1 1) (cons amount amount)))))


#(define-markup-command (when-property layout props symbol markp) (symbol? markup?)

   (if (chain-assoc-get symbol props)

       (interpret-markup layout props markp)

       (ly:make-stencil '()  '(1 . -1) '(1 . -1))))


#(define-markup-command (line-width-ratio layout props width-ratio arg) (number? markup?)

   (interpret-markup layout props

     (markup #:override (cons 'line-width (* width-ratio (chain-assoc-get 'line-width props)))

       arg)))


%%% Guile does not deal with accented letters

#(use-modules (ice-9 regex))

%%;; actually defined below, in a closure

#(define-public string-upper-case #f)

#(define accented-char-upper-case? #f)

#(define accented-char-lower-case? #f)


%%;; an accented character is seen as two characters by guile

#(let ((lower-case-accented-string "éèêëáàâäíìîïóòôöúùûüçœæ")

       (upper-case-accented-string "ÉÈÊËÁÀÂÄÍÌÎÏÓÒÔÖÚÙÛÜÇŒÆ"))

   (define (group-by-2 chars result)

     (if (or (null? chars) (null? (cdr chars)))

         (reverse! result)

         (group-by-2 (cddr chars)

           (cons (string (car chars) (cadr chars))
             result))))

   (let ((lower-case-accented-chars

          (group-by-2 (string->list lower-case-accented-string) (list)))
         (upper-case-accented-chars

          (group-by-2 (string->list upper-case-accented-string) (list))))

     (set! string-upper-case
           (lambda (str)

             (define (replace-chars str froms tos)

               (if (null? froms)
                   str

                   (replace-chars (regexp-substitute/global #f (car froms) str

                                    'pre (car tos) 'post)

                     (cdr froms)
                     (cdr tos))))

             (string-upcase (replace-chars str

                              lower-case-accented-chars
                              upper-case-accented-chars))))

     (set! accented-char-upper-case?

           (lambda (char1 char2)

             (member (string char1 char2) upper-case-accented-chars string=?)))

     (set! accented-char-lower-case?

           (lambda (char1 char2)

             (member (string char1 char2) lower-case-accented-chars string=?)))))


#(define-markup-command (smallCaps layout props text) (markup?)

   "Turn @code{text}, which should be a string, to small caps.

@example

\\markup \\small-caps \"Text between double quotes\"

@end example"

   (define (string-list->markup strings lower)

     (let ((final-string (string-upper-case

                          (apply string-append (reverse strings)))))

       (if lower

           (markup #:fontsize -2 final-string)

           final-string)))

   (define (make-small-caps rest-chars currents current-is-lower prev-result)

     (if (null? rest-chars)

         (make-concat-markup (reverse! (cons (string-list->markup

                                              currents current-is-lower)

                                         prev-result)))

         (let* ((ch1 (car rest-chars))

                (ch2 (and (not (null? (cdr rest-chars))) (cadr rest-chars)))

                (this-char-string (string ch1))

                (is-lower (char-lower-case? ch1))

                (next-rest-chars (cdr rest-chars)))

           (cond ((and ch2 (accented-char-lower-case? ch1 ch2))

                  (set! this-char-string (string ch1 ch2))

                  (set! is-lower #t)

                  (set! next-rest-chars (cddr rest-chars)))

             ((and ch2 (accented-char-upper-case? ch1 ch2))

              (set! this-char-string (string ch1 ch2))

              (set! is-lower #f)

              (set! next-rest-chars (cddr rest-chars))))

           (if (or (and current-is-lower is-lower)

                   (and (not current-is-lower) (not is-lower)))

               (make-small-caps next-rest-chars

                 (cons this-char-string currents)

                 is-lower

                 prev-result)

               (make-small-caps next-rest-chars

                 (list this-char-string)

                 is-lower

                 (if (null? currents)

                     prev-result

                     (cons (string-list->markup

                            currents current-is-lower)

                       prev-result)))))))

   (interpret-markup layout props

     (if (string? text)

         (make-small-caps (string->list text) (list) #f (list))

         text)))

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% Title page
%%%

\paper {

  bookTitleMarkup = \markup \when-property #'header:title \column {

  \combine \null \vspace #'1

  \fill-line { \box \pad-markup #0.2 \box \pad-markup #0.5 \box %\pad-markup #-1

  \column {

  \vspace #'4

  \fill-line { \fontsize #8 \bold \italic \fromproperty #'header:composer }

\combine \null \vspace #1

\fill-line { \fontsize #8 \italic \fromproperty #'header:poet }

\combine \null \vspace #2

\fill-line { \fontsize #10 \fromproperty #'header:title }

\vspace #'2

\fill-line { \box \box \pad-markup #2.5


                 \epsfile #X #44 #"Canto-frontpage-of-print-cutout.eps"

}



\fill-line { \postscript "-20 0 moveto 40 0 rlineto stroke" }

\combine \null \vspace #3

\fill-line { \fontsize #5 \fromproperty #'header:date }

\combine \null \vspace #1

\fill-line {

  \when-property #'header:arrangement \column {

    \combine \null \vspace #2

    \fill-line { \fontsize #3 \fromproperty #'header:arrangement }

  }

}

\vspace #7

}

}

}

scoreTitleMarkup = \markup \null

}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% Table of contents
%%%

#(define-markup-command (paper-prop layout props name default)

   (symbol? markup?)

   "Get the value of a \\paper property, or defaults to some value"

   (let ((val (ly:output-def-lookup layout name)))

     (interpret-markup layout props (if (markup? val)

                                        val

                                        default))))

\paper {

  tocTitleMarkup = \markup \column {

    \combine \null \vspace #2

    \fontsize #6 \fill-line { \paper-prop #'tocTitle "TABLE OF CONTENTS" }

    \combine \null \vspace #2

  }

  tocPieceMarkup = \markup \fill-line {

    \line-width-ratio #0.7 \fill-line {

      \line { \fromproperty #'toc:text  }

      \fromproperty #'toc:page

    }

  }

  tocSectionMarkup = \markup \italic \column {

    \fill-line { \line { \fromproperty #'toc:text "..." \fromproperty #'toc:page } }

  }

  tocChapterMarkup = \markup \large \italic \column {

    \combine \null \vspace #1

    \fontsize #2 \fill-line { \line { \fromproperty #'toc:text %{ " ..." \fromproperty #'toc:page %} }}

    \combine \null \vspace #1

  }

}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% Markup commands for page headers
%%%

#(define-public add-odd-page-header-text #f)

#(define-public add-even-page-header-text #f)

#(define header-markup-aux #f)

#(let ((odd-label-header-table (list))

       (odd-page-header-table (list))

       (even-label-header-table (list))

       (even-page-header-table (list)))

   (set! header-markup-aux

         (lambda (layout props odd)

           (define (page-text page-number table)

             (if (null? table)

                 ""

                 (let* ((elment (car table))
                        (p (car elment))

                        (text (cadr elment))

                        (display-1st (caddr elment)))

                   (cond ((and (= page-number p) (not display-1st)) #f)

                     ((>= page-number p) text)

                     (else (page-text page-number (cdr table)))))))

           (ly:make-stencil

            `(delay-stencil-evaluation

              ,(delay (ly:stencil-expr

                       (begin

                        (if (or (and odd (null? odd-page-header-table))

                                (and (not odd) (null? even-page-header-table)))

                            (let ((page-header-table (list)))

                              (for-each (lambda (label-header)

                                          (let* ((label (car label-header))

                                                 (text-disp (cdr label-header))

                                                 (table (ly:output-def-lookup layout 'label-page-table))

                                                 (label-page (and (list? table) (assoc label table)))

                                                 (page-number (and label-page (cdr label-page)))

                                                 (prev-value (and page-number (assoc page-number page-header-table))))

                                            (if (not prev-value)

                                                (set! page-header-table (cons (cons page-number text-disp)

                                                                          page-header-table))

                                                (set! page-header-table

                                                      (assoc-set! page-header-table

                                                        page-number

                                                        (list (car text-disp) (caddr prev-value)))))))

                                (reverse (if odd odd-label-header-table even-label-header-table)))

                              (if odd

                                  (set! odd-page-header-table page-header-table)

                                  (set! even-page-header-table page-header-table))))

                        (interpret-markup layout props

                          (let* ((page-number (chain-assoc-get 'page:page-number props -1))

                                 (text (page-text page-number (if odd odd-page-header-table even-page-header-table)))

                                 (text-markup (markup #:italic (or text "")))

                                 (page-number-markup (number->string page-number)))

                            (cond ((or (= 1 page-number) (not text)) (markup #:null))

                              (odd (markup #:fill-line (#:null text-markup page-number-markup)))

                              (else (markup #:fill-line (page-number-markup text-markup #:null))))))))))

            (cons 0 0)

            (ly:stencil-extent (interpret-markup layout props "XXX") Y))))

   (set! add-odd-page-header-text

         (lambda (parser text display-1st)

           (let ((label (gensym "header")))

             (set! odd-label-header-table

                   (cons (list label text display-1st)
                     odd-label-header-table))

             (collect-music-for-book

               (make-music 'Music

                 'page-marker #t

                 'page-label label)))))

   (set! add-even-page-header-text

         (lambda (parser text display-1st)

           (let ((label (gensym "header")))

             (set! even-label-header-table

                   (cons (list label text display-1st)

                     even-label-header-table))

             (collect-music-for-book

               (make-music 'Music

                 'page-marker #t

                 'page-label label))))))


#(define-markup-command (odd-header layout props) ()

   (header-markup-aux layout props #t))


#(define-markup-command (even-header layout props) ()

   (header-markup-aux layout props #f))


\paper {

  evenHeaderMarkup = \markup \even-header

  oddHeaderMarkup = \markup \odd-header

}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% Utilities for adding (no-)page breaks, toplevel markups
%%%

#(define (add-page-break parser)

   (collect-music-for-book

     (make-music 'Music

       'page-marker #t

       'line-break-permission 'force

       'page-break-permission 'force)))


#(define (add-no-page-break parser)

   (collect-music-for-book

     (make-music 'Music

       'page-marker #t

       'page-break-permission 'forbid)))


#(define (add-toplevel-markup parser text)

   (collect-scores-for-book (list text)))


#(define (add-toc-item parser markup-symbol text)

   (collect-music-for-book

     (add-toc-item! markup-symbol text)))

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% Commands
%%%


#(use-modules (srfi srfi-39))

#(define *book-title* (make-parameter ""))



bookTitle =

#(define-music-function (title) (string?)

   (*book-title* title)

   (make-music 'Music 'void #t))


chapter =

#(define-music-function (title) (string?)

   (add-page-break (*parser*))
   (add-toc-item (*parser*) 'tocChapterMarkup title)

   (add-even-page-header-text (*parser*) (string-upper-case (*book-title*)) #f)

   (add-odd-page-header-text (*parser*) (string-upper-case title) #f)

   (add-toplevel-markup (*parser*) (markup #:chapter-title (string-upper-case title)))

   (add-no-page-break (*parser*))

   (make-music 'Music 'void #t))


section =

#(define-music-function (title) (string?)
   (add-toc-item (*parser*) 'tocSectionMarkup title)

   (add-toplevel-markup (*parser*) (markup #:section-title (string-upper-case title)))

   (add-no-page-break (*parser*))

   (make-music 'Music 'void #t))


piece =

#(define-music-function (title) (markup?)
   (add-toc-item (*parser*) 'tocPieceMarkup title)

   (add-no-page-break (*parser*))

   (if (*use-rehearsal-numbers*)

       (add-toplevel-markup (*parser*) (markup #:rehearsal-number (rehearsal-number))))

   (add-no-page-break (*parser*))

   (make-music 'Music 'void #t))


titledPiece =

#(define-music-function (title) (markup?)
   (add-toc-item (*parser*) 'tocPieceMarkup title)

   (if (*use-rehearsal-numbers*)

       (add-toplevel-markup (*parser*)

         (markup #:piece-title-with-number (rehearsal-number) (string-upper-case title)))

       (add-toplevel-markup (*parser*) (markup #:piece-title (string-upper-case title))))

   (add-no-page-break (*parser*))

   (make-music 'Music 'void #t))


#(define-markup-command (chapter-title layout props title) (markup?)

   (interpret-markup layout props

     (markup #:column (#:vspace 3

                        #:pad-markup 3 #:fill-line (#:fontsize 5 title)))))


#(define-markup-command (section-title layout props title) (markup?)

   (interpret-markup layout props

     (markup #:column (#:vspace 1

                        #:fill-line (#:fontsize 3 title)

                        #:vspace 1))))


#(define-markup-command (piece-title layout props title) (markup?)

   (interpret-markup layout props

     (markup #:fill-line (#:override '(line-width . 80) title))))


#(define-markup-command (rehearsal-number layout props number) (markup?)

   (interpret-markup layout props

     (markup #:huge #:bold number)))


#(define-markup-command (piece-title-with-number layout props number title)

   (markup? markup?)

   (interpret-markup layout props

     (markup #:rehearsal-number number

       #:hspace 1

       #:huge title)))


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



\include "deutsch.ly"

ficta = \once \set suggestAccidentals =##t

#(append! supported-clefs '(("mensural-f3" . ("clefs.mensural.f" 0 0))))

\header {

  title = \markup \center-column {
    "Missa pro defunctis:"
    \fontsize #-1.5
    "1. Introitus"
  }

  composer = "Gio. Matteo Asola Veronese:"

  poet = \markup \center-column { "Messa à Quatro voci pari ..."  "Secondo libro"}

  date = \markup \center-column {
    \fontsize #-1 \italic "Impresso Giacomo Vincenzi, & Ricciardo Amadino compagni"
    \fontsize #-1 \italic "In Veneto 1586"
  }

  arrangement = "Edited by Andreas Stenberg"

  copyright = ##f

}

\paper {
oddFooterMarkup = \markup \fill-line { "Copyright for the edition © 2020 by Andreas Stenberg under the CPDL-license" }
evenFooterMarkup =  \markup \fill-line { "Copyright for the edition © 2020 by Andreas Stenberg under the CPDL-license" }
  %% Translate the TOC title

  tocTitle = "TABLE OF CONTENTS"

page-breaking = #ly:minimal-breaking
}

%%  \include "book-titling.ily"


\bookTitle "G.M. Asola: Missa pro defunctis"


%% Comment in or out as needed

\chapter "1. Introitus: "

\section "Requiem Eternam"

%\include "gregorian.ly"


chant = \relative {

  \set Score.tempoHideNote = ##t

  \tempo 2 = 86

  \clef "G_8"

  \key f \major

  \cadenzaOn

  f4 f4\melisma g\melismaEnd f\melisma g4*2\melismaEnd s2

  \cadenzaOff

  \bar "||"

}


verba = \lyricmode {

  Re -- qui -- em

}


\markup {

  \fill-line {

    \vspace #0.2

  \score {

    {

      %      \set Staff.instrumentName = #"Tenor "

      \override NoteHead.style = #'blackpetrucci

      \override Rest.style = #'neomensural

      \override Staff.TimeSignature.style = #'mensural

      \cadenzaOn

      \clef "petrucci-c4"

      \key f \major

      \time 2/2

      f\breve ^\markup "Missa pro defunctis"

      _"REquiem"

      \[f\breve g\breve\] \[f\breve g\breve\]

      \bar "|"

    }

    \layout {

      \context {

        \Voice

        \remove "Ligature_bracket_engraver"

        \consists "Mensural_ligature_engraver"

      }

      line-width = 5.0\cm

    }

  }


    \score {

      \new Staff <<

        \new Voice = "melody" \chant

        \new Lyrics = "one" \lyricsto melody \verba

      >>

      \layout {

        \context {

          \Staff

          \remove "Time_signature_engraver"

          %      \remove "Bar_engraver"

        }

        \context {

          \Voice

          \remove "Stem_engraver"

        }

      }

    }

    \vspace #0.2

  }

}



global = {

  \override Staff.TimeSignature.style = #'mensural

  \key f \major

}

%% PDF p.22.

sopMusic = \relative c' {


  \set Score.tempoHideNote = ##t

  \tempo 1 = 86

  \clef "G_8"

  \time 2/2

  \set Timing.measureLength = #(ly:make-moment 4/2)

%  \override Staff.BarLine.transparent = ##t

  c\breve

  d\breve

  \parenthesize c2 c2 d2( f2~

  f2 e4 d4 \[e1

  f1.\] e2

  d1) c1

  R\breve

  f1 e2 d2~

  d2 \ficta cis2 d1~(

  d2 c2) c1~

  c1 				%% end of first line in orig.

  r2 c2~

  c2 \ficta h2 c1
  a2 c1 c2

  d\breve

  R\breve

  d1 d1~(

  d2 \ficta cis4 \ficta h4 \ficta cis!1)

  d2.( c4 d4 e4 f2

  e2) d1 \ficta cis2
  d1 r2 a2

  g2 a2.( g4			%% end of second line

  f2~

  f2 e2) f4( g4 a4 f4

  g2) g2 f1

  \[c'1( d1~

  d2)\] d2 c1

  a1 g1

  r1 b1~

  b2 b2 c1

  d\breve

  c2 c2 a2 b2

  c\breve

  \cadenzaOn

  c\longa

  \revert Staff.BarLine.transparent

  \bar "||"

  \cadenzaOff

}

sopWords = \lyricmode {

  E -- ter -- nam,

  e -- ter -- nam do -- na eis Do -- mi -- ne,

  do -- na e -- is Do -- mi -- ne,

  Et lux per -- pe -- tu -- a,

  Et lux per -- pe -- tu -- a,

  lu -- ce -- at e -- is,

  lu -- ce -- at e -- is,
  lu -- ce -- at e -- is.

}

%% PDF p.58

altoMusic = \relative c {

  \clef "G_8"

  \override Staff.BarLine.transparent = ##t

  f1. g2(

  \[a1 b1\]

  a2 c1 \ficta h2)

  c1 r2 c2~

  c2 c2 a4( g4 c2~

  c2) \ficta h2 c2.( b4

  a4 g4 f1)			%% end of first line in orig.
  e2

  f2 c'2.( b4 a4 g4

  f2 e1) d2

  e1  \[f1(

  g1)\] f2 e2
  d2 f1 e2
  f1 a1

  a2.( g4 f4 e4 f2~)

  f2 e4( d4) e2) e2 			%% end of second line.
  d1 r1

  a'1  a2.( g4

  f4 e4 f1) d2

  e2( f2. e4 e2~

  e2) d2 e2 f2

  f2 e2 f2. f4
  c2 c2 f2 f2

  e2. e4			%% end of third line
  f1

  r1 \[a1(

  g1)\] \[a1(

  c1.)\] b2

  a1 g1~

  g1 a1

  b1. a2

  \[g1( f1\]

  g\breve)

  a\longa

  \revert Staff.BarLine.transparent

}

altoWords = \lyricmode {

  E -- ter -- nam do -- na e -- is Do -- mi -- ne,

  Do -- mi -- ne,

  do -- na e -- is Do -- mi -- ne,

  Et lux per -- pe -- tu -- a,

  Et lux per -- pe -- tu -- a,

  [Et lux per -- pe -- tu -- a,]

  Et lux per -- pe -- tu -- a,

  lu -- ce -- at e -- is,
  lu -- ce -- at e -- is.

}

%% PDF p.90.

tenorMusic = \relative c {

  \clef "G_8"

  \override Staff.BarLine.transparent = ##t

  r\breve

  f1. g2(

  \[a1 f1

  g\breve)\]

  f\breve

  R\breve

  \[f1( g1

  a\breve)\]

  \[a1( g1)\]

  a1( \[a1

  \tuplet 3/2 { c1\] b2 } a2) g2

  f1 				%% End of first line in orig.

  g1

  f\breve
  r1 a1

  a1.( g4 f4

  g2) f1( e4 d4)
  f1 e1

  d1 a'1

  a1 b2 a2~

  a2 g2 a1

  r1 \[a1(

  g1)\] \[a1(

  c1.\] b2)			%% end of second line

  a2.( g4 f2. e4

  d1) e2 e2

  f1 e2 g2~

  g2 f2 g1

  r1 \[e1(

  f1.)\] f2

  e1 d2( f2~

  f2 e4 d4 e1)

  f\longa

  \revert Staff.BarLine.transparent

}

tenorWords = \lyricmode {

  E -- ter -- nam do -- na e -- is Do -- mi -- ne,

  Et lux per -- pe -- tu -- a,

  Et lux per -- pe -- tu -- a,

  lu -- ce -- at e -- is,

  lu -- ce -- at e -- is,
  lu -- ce -- at e -- is.

}

%% PDF p.122.

bassMusic = \relative c {

  \override Staff.BarLine.transparent = ##t

  f1. e2(

  d2 c2 \[b1

  \tuplet 3/2 { f'1\] e2 } d1)

  c\breve

  r1 \[f1(

  g\] a2. g4

  f4 e4 d2) c1

  f2.( e4)			%% end of first line in orig.

  c2 d2~(

  d4 c4 a2 b2) b2

  a1 r2 f'2~
  f2 e2 f2 c2
  d1 c1

  f,1 r1

  d'1 d1~(

  d2 c4 b4 c1)

  b2 b1 b2

  a\breve

  d1 d1 			%% end of second line.

  c2 d2.( c4 a2

  \[b1 \tuplet 3/2 { a1\] b2 }

  c2) c2 f,1

  r1 \[d'1

  c1)\] \[d1( \tuplet 3/2 { f1\] e2) } d2.( c4

  b1) a1
  r1 c1

  d1 es1~(

  es2 d2) c1

  b1 b1
  c1 d1

  c\breve

  f,\longa

  \revert Staff.BarLine.transparent

}

bassWords = \lyricmode {

  E -- ter -- nam do -- na e -- is Do -- mi -- ne,

  do -- na e -- is Do -- mi -- ne,

  Et lux per -- pe -- tu -- a,

  Et lux per -- pe -- tu -- a,

  lu -- ce -- at e -- is,

  lu -- ce -- at e -- is,
  lu -- ce -- at e -- is.

}

incipitDiscantus = \markup {

  \score {

    {

      %      \set Staff.instrumentName = #"Tenor "

      \override NoteHead.style = #'neomensural

      \override Rest.style = #'neomensural

      \override Staff.TimeSignature.style = #'mensural

      \cadenzaOn

      \clef "petrucci-c3"

      \key f \major

      \time 2/2


      c'\breve^\markup { \smallCaps"Canto"} _"Eternam"

      d'\breve

    }

    \layout {

      \context {

        \Voice

        \remove "Ligature_bracket_engraver"

        \consists "Mensural_ligature_engraver"

      }

      line-width = 4.5\cm

    }

  }

}



incipitAltus = \markup {

  \score {

    {

      %      \set Staff.instrumentName = #"Tenor "

      \override NoteHead.style = #'neomensural

      \override Rest.style = #'neomensural

      \override Staff.TimeSignature.style = #'mensural

      \cadenzaOn

      \clef "petrucci-c4"

      \key f \major

      \time 2/2

      f1.^\markup \smallCaps"Alto"_"Eter"

      g2 \[a1 b1\]

    }

    \layout {

      \context {

        \Voice

        \remove "Ligature_bracket_engraver"

        \consists "Mensural_ligature_engraver"

      }

      line-width = 4.5\cm

    }

  }

}



incipitTenor = \markup {

  \score {

    {

      %      \set Staff.instrumentName = #"Tenor "

      \override NoteHead.style = #'neomensural

      \override Rest.style = #'neomensural

      \override Staff.TimeSignature.style = #'mensural

      \cadenzaOn

      \clef "petrucci-c4"

      \key f \major

      \time 2/2

      r\breve ^\markup \smallCaps"Tenore"

      f1. _"Eternam"

      g2

    }

    \layout {

      \context {

        \Voice

        \remove "Ligature_bracket_engraver"

        \consists "Mensural_ligature_engraver"

      }

      line-width = 5.0\cm

    }

  }

}


incipitBassus = \markup {

  \score {

    {

      %      \set Staff.instrumentName = #"Tenor "

      \override NoteHead.style = #'neomensural

      \override Rest.style = #'neomensural

      \override Staff.TimeSignature.style = #'mensural

      \cadenzaOn

      \clef "petrucci-f"

      \key f \major

      \time 2/2

      f1.^\markup \smallCaps"Basso"_"ETer"
      e2

    }

    \layout {

      \context {

        \Voice

        \remove "Ligature_bracket_engraver"

        \consists "Mensural_ligature_engraver"

      }

      line-width = 4.5\cm

    }

  }

}



\score {

  <<

    \new StaffGroup \with {

      \override VerticalAxisGroup.staff-staff-spacing = #'((basic-distance . 12))

    } <<

      \new Staff = treble <<

        \set Staff.instrumentName = \incipitDiscantus

        \new Voice = "sopranos" {

          \set  Staff.midiInstrument ="choir aahs"

          %	\voiceOne

          << \global \sopMusic >>

        }

      >>

      \new Lyrics = sopranos { s1 }


      \new Staff = "medius" <<

        \set Staff.instrumentName = \incipitAltus


        \new Voice = "altos" {

          %	\voiceTwo

          \set  Staff.midiInstrument ="choir aahs"

          << \global \altoMusic >>

        }

      >>


      \new Lyrics = "altos" { s1 }

      \new Staff = tenors <<

        \set Staff.instrumentName = \incipitTenor


        \clef "treble"

        \new Voice = "tenors" {

          \set  Staff.midiInstrument ="choir aahs"

          %	\voiceOne

          << \global \tenorMusic >>

        }

      >>

      \new Lyrics = "tenors" { s1 }


      \new Staff ="basses" {

        \set Staff.instrumentName = \incipitBassus


        \new Voice = "basses" {

          \set  Staff.midiInstrument ="choir aahs"

          \clef "bass"

          %	\voiceTwo

          << \global \bassMusic >>

        }

      }

    >>

    \new Lyrics = basses { s1 }


    \context Lyrics = sopranos \lyricsto sopranos \sopWords

    \context Lyrics = altos \lyricsto altos \altoWords

    \context Lyrics = tenors \lyricsto tenors \tenorWords

    \context Lyrics = basses \lyricsto basses \bassWords

  >>

  \layout {

    \context {

      \Score

      % no bars in staves

      %      \override BarLine.transparent = ##t


    }

    % the next three instructions keep the lyrics between the bar lines

    \context {

      \Lyrics

      \consists "Bar_engraver"

      \override BarLine.transparent = ##t

    }

    \context {

      \StaffGroup

      \consists "Separating_line_group_engraver"

    }

    \context {

      \Voice
      % no slurs

      \override Slur.transparent = ##t

      % Comment in the below "\remove" command to allow line

      % breaking also at those barlines where a note overlaps

      % into the next bar.  The command is commented out in this

      % short example score, but especially for large scores, you

      % will typically yield better line breaking and thus improve

      % overall spacing if you comment in the following command.

      %\remove "Forbid_line_break_engraver"

    }

    indent = 4.5\cm

  }


}

\pageBreak
%% Second part
%% Comment in or out as needed
%\chapter "1. Kyrie"
\section "Te decet hymnus/ Et tibi reddetur"

chantII = \relative {
  \set Score.tempoHideNote = ##t
  \tempo 2 = 86
  \clef "G_8"
  \key f \major
  \cadenzaOn
  f4\melisma g\melismaEnd g\melisma f\melismaEnd
  g4\melisma a4\melismaEnd
  a4 a4 a4 a4
  a4 g4 a4*2 s2
  \cadenzaOff
  \bar "||"
}

verbaII = \lyricmode {
  TE de -- cet hym -- nus De -- us in Si -- on.
}
mensuralII = {
      \[f\breve\melisma g\breve\melismaEnd \]
      \[g\longa*1/2\melisma f\longa*1/2\melismaEnd \]
      \[g\breve\melisma a\breve\melismaEnd \]
      a\breve
      a\breve
      a\breve
      a\breve
      a\breve
      g\breve
      a\breve
      \bar "|"
}

\markup {
  \fill-line {
    \vspace #0.2
  \score {
    \new Staff <<
    \new Voice = Mensural {
      %      \set Staff.instrumentName = #"Tenor "
      \override NoteHead.style = #'blackpetrucci
      \override Rest.style = #'neomensural
      \override Staff.TimeSignature.style = #'mensural
      \cadenzaOn
      \clef "petrucci-c4"
      \key f \major
      \time 2/2
      \mensuralII
    }
    \new Lyrics = "One" \lyricsto  Mensural \verbaII
    >>
    \layout {
      \context {
        \Voice
        \remove "Ligature_bracket_engraver"
        \consists "Mensural_ligature_engraver"
      }
      line-width = 5.0\cm
    }
  }

    \score {
      \new Staff <<
        \new Voice = "melody" \chantII
        \new Lyrics = "one" \lyricsto melody \verbaII
      >>
      \layout {
        \context {
          \Staff
          \remove "Time_signature_engraver"
          %      \remove "Bar_engraver"
        }
        \context {
          \Voice
          \remove "Stem_engraver"
        }
      }
    }
    \vspace #0.2
  }
}


globalII= {
  \override Staff.TimeSignature.style = #'mensural
  \key f \major
}

sopMusicII= \relative c' {
  \clef "G_8"
  \set Score.tempoHideNote = ##t
  \tempo 2 = 86
  \time 2/2
  \set Timing.measureLength = #(ly:make-moment 4/2)
  \override Staff.BarLine.transparent = ##t
  c1 d1
  e1 r2 c2
  d1. \ficta cis2
  d1 e1
  f1. e2
  d1. d2
  cis\breve
  d\breve
  e\breve
  f1 d1
  d2 d2 d1~
  d2 d2 b2 c2
  d1 c1~
  c2 c2 d1
  e1( f1~
  f1) f2 f2~(
  f2 e4 d4 e2) e2
  \cadenzaOn
  f\longa
  \revert Staff.BarLine.transparent
  \bar "||"
  \cadenzaOff
}
sopWordsII = \lyricmode {
  Et ti -- bi red -- de -- tur vo -- tum in Ie -- ru -- sa -- lem
  Ex -- au -- di o -- ra -- ti -- o -- nem me -- am
  ad te om -- nis ca -- ro ve -- ni  et.
}
%% PDF p. 58.
altoMusicII= \relative c' {
  \clef "G_8"
  \override Staff.BarLine.transparent = ##t
  a1.( b2)
  c1 c1
  f,1. a2~
  a2 b2 c1
  c1 c1
  b2 a1 g2
  a\breve
  a\breve
  c1 c1
  r2 f,2 f1~
  f2 f2 g1
  f1
  g1
  a1 a1
  a2 c1 b2
  c\breve
  d1 a2.( b4
  c1.) c2
  \cadenzaOn
  c\longa
  \revert Staff.BarLine.transparent
  \cadenzaOff
}
altoWordsII = \lyricmode {
  Et ti -- bi red -- de -- tur vo -- tum in Ie -- ru -- sa -- lem
  Ex -- au -- di o -- ra -- ti -- o -- nem me -- am
  ad te om -- nis ca -- ro ve -- ni  et.

}
%% PDF p.90.
tenorMusicII= \relative c {
  \clef "G_8"
  \override Staff.BarLine.transparent = ##t
  r1 f1
  g1 a1~
  a2 a2 a2 a2
  f1 g1
  a1. g2
  f2.( e4 d2) d2
  e\breve
  f\breve
  \[g1( a1)\]
  a1. a2
  a2 a2 b1
  a2 b1( a4 g4)
  f1 r1
  f1. f2
  g1 a1
  b1 f1
  g1. g2
  \cadenzaOn
  f\longa
  \revert Staff.BarLine.transparent
  \cadenzaOff
}
tenorWordsII = \lyricmode {
  Et ti -- bi red -- de -- tur vo -- tum in Ie -- ru -- sa -- lem
  Ex -- au -- di o -- ra -- ti -- o -- nem me -- am
  ad te om -- nis ca -- ro ve -- ni  et.
}
bassMusicII= \relative c {
  \override Staff.BarLine.transparent = ##t
  f1 d1
  c1 f1
  d1. a2
  d1 c1
  f1. c2
  d2. c4 b2 b2
  a\breve
  d\breve
  c1 a1
  d1 d1~
  d2 d2				%% end of first line in orig.
  g,1
  d'1 es1
  d1 f1~
  f2 e2 d1
  c1 f1
  b,2.( c4 d1)
  c1. c2
  \cadenzaOn
  f,\longa
  \revert Staff.BarLine.transparent
  \cadenzaOff
}
bassWordsII = \lyricmode {
  Et ti -- bi red -- de -- tur vo -- tum in Ie -- ru -- sa -- lem
  Ex -- au -- di o -- ra -- ti -- o -- nem me -- am
  ad te om -- nis ca -- ro ve -- ni  et.
}
incipitDiscantus = \markup {
  \score {
    {
      %      \set Staff.instrumentName = #"Tenor "
      \override NoteHead.style = #'neomensural
      \override Rest.style = #'neomensural
      \override Staff.TimeSignature.style = #'mensural
      \cadenzaOn
      \clef "petrucci-c3"
      \key f \major
      \time 2/2

      c'1 ^\markup { \smallCaps"Canto"} _"ET tibi"
      d'1 e'1
    }
    \layout {
      \context {
        \Voice
        \remove "Ligature_bracket_engraver"
        \consists "Mensural_ligature_engraver"
      }
      line-width = 4.5\cm
    }
  }
}


incipitAltus = \markup {
  \score {
    {
      %      \set Staff.instrumentName = #"Tenor "
      \override NoteHead.style = #'neomensural
      \override Rest.style = #'neomensural
      \override Staff.TimeSignature.style = #'mensural
      \cadenzaOn
      \clef "petrucci-c3"
      \key f \major
      \time 2/2
      a1.^\markup \smallCaps"Alto"_"ET tibi"
      b2 c'1
    }
    \layout {
      \context {
        \Voice
        \remove "Ligature_bracket_engraver"
        \consists "Mensural_ligature_engraver"
      }
      line-width = 4.5\cm
    }
  }
}


incipitTenor = \markup {
  \score {
    {
      %      \set Staff.instrumentName = #"Tenor "
      \override NoteHead.style = #'neomensural
      \override Rest.style = #'neomensural
      \override Staff.TimeSignature.style = #'mensural
      \cadenzaOn
      \clef "petrucci-c4"
      \key c \major
      \time 2/2
      r1 ^\markup \smallCaps"Tenore"
      f1_"et tibi"
      g1 a1
    }
    \layout {
      \context {
        \Voice
        \remove "Ligature_bracket_engraver"
        \consists "Mensural_ligature_engraver"
      }
      line-width = 5.0\cm
    }
  }
}

incipitBassus = \markup {
  \score {
    {
      %      \set Staff.instrumentName = #"Tenor "
      \override NoteHead.style = #'neomensural
      \override Rest.style = #'neomensural
      \override Staff.TimeSignature.style = #'mensural
      \cadenzaOn
      \clef "petrucci-f"
      \key c \major
      \time 2/2
      f1^\markup \smallCaps"Basso"_"KYrie"
      d1 c1
    }
    \layout {
      \context {
        \Voice
        \remove "Ligature_bracket_engraver"
        \consists "Mensural_ligature_engraver"
      }
      line-width = 4.5\cm
    }
  }
}


\score {
  <<
    \new StaffGroup \with {
      \override VerticalAxisGroup.staff-staff-spacing = #'((basic-distance . 12))
    } <<
      \new Staff = treble <<
        \set Staff.instrumentName = \incipitDiscantus
        \new Voice = "sopranos" {
          \set  Staff.midiInstrument ="choir aahs"
          %	\voiceOne
          << \globalII\sopMusicII>>
        }
      >>
      \new Lyrics = sopranos { s1 }

      \new Staff = "medius" <<
        \set Staff.instrumentName = \incipitAltus

        \new Voice = "altos" {
          %	\voiceTwo
          \set  Staff.midiInstrument ="choir aahs"
          << \globalII\altoMusicII>>
        }
      >>

      \new Lyrics = "altos" { s1 }
      \new Staff = tenors <<
        \set Staff.instrumentName = \incipitTenor

        \clef "treble"
        \new Voice = "tenors" {
          \set  Staff.midiInstrument ="choir aahs"
          %	\voiceOne
          << \globalII\tenorMusicII>>
        }
      >>
      \new Lyrics = "tenors" { s1 }

      \new Staff ="basses" {
        \set Staff.instrumentName = \incipitBassus

        \new Voice = "basses" {
          \set  Staff.midiInstrument ="choir aahs"
          \clef "bass"
          %	\voiceTwo
          << \globalII\bassMusicII>>
        }
      }
    >>
    \new Lyrics = basses { s1 }

    \context Lyrics = sopranos \lyricsto sopranos \sopWordsII
    \context Lyrics = altos \lyricsto altos \altoWordsII
    \context Lyrics = tenors \lyricsto tenors \tenorWordsII
    \context Lyrics = basses \lyricsto basses \bassWordsII
  >>
  \layout {
    \context {
      \Score
      % no bars in staves
      %      \override BarLine.transparent = ##t

    }
    % the next three instructions keep the lyrics between the bar lines
    \context {
      \Lyrics
      \consists "Bar_engraver"
      \override BarLine.transparent = ##t
    }
    \context {
      \StaffGroup
      \consists "Separating_line_group_engraver"
    }
    \context {
      \Voice
      % no slurs
      \override Slur.transparent = ##t
      % Comment in the below "\remove" command to allow line
      % breaking also at those barlines where a note overlaps
      % into the next bar.  The command is commented out in this
      % short example score, but especially for large scores, you
      % will typically yield better line breaking and thus improve
      % overall spacing if you comment in the following command.
      %\remove "Forbid_line_break_engraver"
    }
    indent = 4.5\cm
  }

}

%% For midi

\score {

  <<

    \new StaffGroup <<

      \new Staff = treble <<

        \set Staff.instrumentName = \incipitDiscantus

        \new Voice = "sopranos" {

          \set  Staff.midiInstrument ="choir aahs"

          %	\voiceOne

          << \global { s4*8 \sopMusic s1 s4*16 \sopMusicII } >>

        }

      >>

      \new Lyrics = sopranos { s1 }


      \new Staff = "medius" <<

        \set Staff.instrumentName = \incipitAltus


        \new Voice = "altos" {

          %	\voiceTwo

          \set  Staff.midiInstrument ="choir aahs"

          << \global { s4*8 \altoMusic s1 s4*16 \altoMusicII } >>

        }

      >>


      \new Lyrics = "altos" { s1 }

      \new Staff = tenors <<

        \set Staff.instrumentName = \incipitTenor


        \clef "treble"

        \new Voice = "tenors" {

          \set  Staff.midiInstrument ="choir aahs"

          %	\voiceOne

          << \global { \chant \tenorMusic s1 \chantII \tenorMusicII } >>

        }

      >>

      \new Lyrics = "tenors" { s1 }


      \new Staff ="basses" {

        \set Staff.instrumentName = \incipitBassus


        \new Voice = "basses" {

          \set  Staff.midiInstrument ="choir aahs"

          \clef "G_8"

          %	\voiceTwo

          << \global { s4*8 \bassMusic s1 s4*16  \bassMusicII } >>

        }

      }

    >>

    \new Lyrics = basses { s1 }


    \context Lyrics = sopranos \lyricsto sopranos \sopWords

    \context Lyrics = altos \lyricsto altos \altoWords

    \context Lyrics = tenors \lyricsto tenors {\chant \tenorWords \chantII \tenorWordsII }

    \context Lyrics = basses \lyricsto basses \bassWords

  >>

  \midi {}

}

\paper {


  ragged-bottom = ##t

  ragged-last-bottom = ##t

  ragged-last = ##t

}


%{

convert-ly.py (GNU LilyPond) 2.18.2  convert-ly.py: Processing `'...

Applying conversion: 2.15.7, 2.15.9, 2.15.10, 2.15.16, 2.15.17,

2.15.18, 2.15.19, 2.15.20, 2.15.25, 2.15.32, 2.15.39, 2.15.40,

2.15.42, 2.15.43, 2.16.0, 2.17.0, 2.17.4, 2.17.5, 2.17.6, 2.17.11,

2.17.14, 2.17.15, 2.17.18, 2.17.19, 2.17.20, 2.17.25, 2.17.27,

2.17.29, 2.17.97, 2.18.0

%}
  <script>parent.window.postMessage('ixistenz.url:https://www.cpdl.org/wiki/images/8/87/G-M-Asola-Missa-Pro-Defunctis-Introitus-titled.ly', '*'); </script> <div id='browserdiffcontainer' style='position: fixed; right: 10px; top: 10vh; min-width: 60px;  border: 1px solid white; background: rgb(251, 189, 0);; opacity: 0.9; font-family: helvetica, arial, sans serif;  font-size: 12px; z-index: 20001; padding-bottom: 20px;'><div onclick="toggle('browserdiffcontainerlist'); return false;" style='background: rgb(151, 89, 0);; color: white; '><strong>&nbsp; <span class='glyphicon glyphicon-minus'></span> NODES</strong></div><div id='browserdiffcontainerlist' style='padding-left: 10px; padding-right: 5px; max-height: 50vh; overflow: auto; '><div><a href='#diffid878' style='color: white;' onClick="parent.window.postMessage('ixistenz.opendiff:878', '*');; return false;" style='text-decoration: none; '>Note </a> <a style='color: white;' href='#diffid878'><sup>15</sup></a></div></div></div>
<script>
function toggle( divname ) {
  var x = document.getElementById( divname );
  if (x.style.display === 'none') {
    x.style.display = 'block';
  } else {
    x.style.display = 'none';
  }
} </script>