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

%%									         %%

%% 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 #6

}

}

}

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)))


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

%% Kyrie I

\header {

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

  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"

%}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%									         %%

%% 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"

\include "deutsch.ly"

ficta = \once \set suggestAccidentals =##t


%% Comment in or out as needed

\chapter "7. Communio"

\section "Lux æterna luceat eis"


tenorInton =  \relative c' {


  \override Staff.TimeSignature.transparent =##t


  \override Slur.transparent = ##t


  \set Score.tempoHideNote = ##t

  \tempo \breve = 86


  a\breve^\markup \smallCaps"Tenore"

  \[g\longa(

  f\longa)\]

  \[g\breve(

  a\breve)\]

  g\longa

  \bar "|"


}


intonVords = \lyricmode {


  LVx æ -- ter -- na


}


transcription =  \relative c {


  \set Score.timing = ##f


  \clef "G_8"


  \key c \major


  \override Staff.BarLine.transparent =##t


  \set Score.tempoHideNote = ##t


  \tempo 4 = 86


  a'4 \[g4( f)\] \[g4( a)\] g2


  \revert Staff.BarLine.transparent


  \bar  "||"


}




\markup {


  \column {


    \fill-line {


      \score {


        <<


          \new Staff  {


            %      \set Staff.instrumentName = #"Tenor "


            \override NoteHead.style = #'blackpetrucci


            \override Rest.style = #'neomensural


            \override Staff.TimeSignature.style = #'mensural


            \cadenzaOn


            \clef "petrucci-c4"


            \key c \major


            \time 2/2


            \tenorInton


          }


          \addlyrics {


            \intonVords


          }


        >>


        \layout {


          \context {


            \Voice


            \remove "Ligature_bracket_engraver"


            \consists "Mensural_ligature_engraver"


          }


          line-width = 5.0\cm


        }


      }


    }


    \fill-line {


      \score {


        \new Staff \with {


          instrumentName = \markup {
            \italic


            \center-column { "Transcrip -" "tion" }


          }


        }


        <<


          \new Voice = "melody" \transcription


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


        >>


        \layout {


          \context {


            \Staff


            \remove "Time_signature_engraver"


            \hide Stem


          }


          \context {


            \Voice


            \override Stem.length = #0


          }


          \context {


            \Score


            barAlways = ##t


          }


        }


      }



    }


  }


}




global = {

  \override Staff.TimeSignature.style = #'mensural

  \key c \major

}

%% PDF p.32.

sopMusic = \relative c' {


  \set Score.tempoHideNote = ##t

  \tempo 2 = 86

  \time 2/2

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

  \override Staff.BarLine.transparent = ##t

  R\breve*2

  r2 d1 f2~

  f2 e2 f1

  d1 e2.( d8 e8

  f2 d1) \ficta cis2

  d1 r2 d2~

  d2 f1 e2

  f2 d2 e2 f2			%% end of first line in orig.

  d1 c1

  r1 c2.( d4

  e2) e2 d2.( c4

  h4 a4 h2) c1

  a1 h2 e2~(

  e4 d4 d1) \ficta cis2

  d1 e1

  a,2 c2.( d4 e4 c4		%% end of second line.

  d2) d2 e1

  \[d1( e1~

  e2)\] c2 d2 d2

  \cadenzaOn

  d\breve

  \revert Staff.BarLine.transparent

  \bar "||"

  \cadenzaOff

}

sopWords = \lyricmode {

  %Lux æ -- ter -- na

  lu -- ce -- at e -- is, Do -- mi -- ne:

  Cum Sanc -- tis tu -- is in æ -- ter -- num,

  in æ -- ter -- num:

  qui -- a pi -- us es,

  qui -- a pi -- us es,

  qui -- a pi -- us es.

}

%% PDF p.64.

altoMusic = \relative c' {

  \clef "G_8"

  \override Staff.BarLine.transparent = ##t

  r2 a1 c2~

  c2 a2 h1

  c2 a1( g4 f4

  g2) g2 a1

  r2 g2 e2 g2

  f1 g1

  a2. a4 h1			%% end of first line in orig.

  r2 a1 c2~

  c2 h2 c2 a2

  f2.( g4 a2) g2

  a2( g4 f4 g2 a2~

  a4 g4 g1 \ficta fis2)

  g\breve

  r2 f2 g1

  a1 g1

  r1 e1				%% end of second line.

  f2 a2.( g4 g2~

  g2) \ficta f!2 g2 c2~(

  c2 h4 a4 h2) c2~(

  c4 h4 a4 g4 a2) a2

  \cadenzaOn

  h\breve

  \revert Staff.BarLine.transparent

  \cadenzaOff

}

altoWords = \lyricmode {

  %Lux æ -- ter -- na

  Lu -- ce -- at e -- is, Do -- mi -- ne:

  Lu -- ce -- at e -- is, Do -- mi -- ne:

  Cum Sanc -- tis tu -- is in æ -- ter -- num:

  qui -- a pi -- us es,

  qui -- a pi -- us es,

  qui -- a pi -- us es.

}

%% PDF p.96

tenorMusic = \relative c {

  \clef "G_8"

  \override Staff.BarLine.transparent = ##t

  R\breve*2

  r1 a'1

  c\breve

  h1 c1

  a2 h2.( a4 g2~

  g2) \ficta fis2 g1

  R\breve*2

  r2 a1 c2~

  c2 h2 c2 a2			%% end of first line.

  h2 c2 a1

  g1 e1

  f2 a2.( g4 g2~

  g2) \ficta fis2 g1

  a2.( h4 c1~

  c2) c2 a2( c2~

  c2) h2 c2 g2~

  g2 g2 e2.( f4

  g4 a4 g1) \ficta fis2

  \cadenzaOn

  g\breve

  \revert Staff.BarLine.transparent

  \cadenzaOff

}

tenorWords = \lyricmode {

  %Lux æ -- ter -- na

  lu -- ce -- at e -- is, Do -- mi -- ne:

  Cum Sanc -- tis tu -- is in æ -- ter -- num:

  qui -- a pi -- us es,

  qui -- a pi -- us es,

  qui -- a pi -- us es.

}

%% PDF p.128.

bassMusic = \relative c {

  \override Staff.BarLine.transparent = ##t

  d1 f1

  e2 f2 d2 e2~(

  e2 d4 c4 d2) d2

  c1 f1

  g1 c,1

  \[d1( e1)\]

  d1				%% end of first line.

  \[g,1(

  \tuplet 3/2 { d'1\] e2 } f2 c2)

  d1 c2 d2~

  d2 f1 e2
  f2 d2 c2 f2

  e2( c2 d1)

  g,1 \[c1(

  d1)\] g,2 c2~(

  c2 d2 e1)

  d1 c1				%% end of second line.

  r2 f1 e2

  d1 c1

  g2 g'2.( f4 e4 d4

  c2) e2 d2 d2

  \cadenzaOn

  g,\breve

  \revert Staff.BarLine.transparent

  \cadenzaOff

}

bassWords = \lyricmode {

  %Lux æ -- ter -- na

  lu -- ce -- at e -- is, Do -- mi -- ne:

  lu -- ce -- at e -- is, Do -- mi -- ne:

  Cum Sanc -- tis tu -- is in æ -- ter -- num:

  qui -- a pi -- us es,

  qui -- a pi -- us es,

  qui -- a pi -- us es.

}

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 c \major

      \time 2/2

      r\longa^\markup { \smallCaps"Canto"}

      r2 d'1_"Luceat"

      f'1 e'2

    }

    \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 c \major

      \time 2/2

      r2^\markup \smallCaps"Alto"

      a1_"Luceat"

      c'1 a2

    }

    \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

      \override Staff.Clef.transparent =##t

      \clef "petrucci-c4"

      \key c \major

      \time 2/2

      r\longa^\markup \smallCaps"Tenore"

      r1 a1_"Luceat"

      c'\breve

    }

    \layout {

      \context {

        \Voice

        \remove "Ligature_bracket_engraver"

        \consists "Mensural_ligature_engraver"

      }

      line-width = 5.0\cm

    }

  }

}

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


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

      d1^\markup \smallCaps"Basso"

      _"Luceat"

      f1 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

  }


}


%% Comment in or out as needed

%\chapter "1. Kyrie"

\section "Requiem eternam - Et lux perpetuam"


tenorIntonII =  \relative c' {


  \override Staff.TimeSignature.transparent =##t


  \override Slur.transparent = ##t


  \set Score.tempoHideNote = ##t

  \tempo \breve = 86


  g\breve^\markup \smallCaps"Tenore"

  a\breve

  \repeat unfold 6 { c\breve }

  h\breve

  c\breve

  d\breve

  d\breve

  c\breve

  \bar "|"


}


intonVordsII = \lyricmode {

Re -- qui -- em æ -- ter -- nam do -- na e -- is, Do -- mi -- ne:

}


transcriptionII =  \relative c {


  \set Score.timing = ##f


  \clef "G_8"


  \key c \major


  \override Staff.BarLine.transparent =##t


  \set Score.tempoHideNote = ##t


  \tempo 2 = 86

  g'4 a4 \repeat unfold 6 { c4 }

  h4 c4 d4 d4 c4*2


  \revert Staff.BarLine.transparent


  \bar  "||"


}




\markup {


  \column {


    \fill-line {


      \score {


        <<


          \new Staff  {


            %      \set Staff.instrumentName = #"Tenor "


            \override NoteHead.style = #'blackpetrucci


            \override Rest.style = #'neomensural


            \override Staff.TimeSignature.style = #'mensural


            \cadenzaOn


            \clef "petrucci-c4"


            \key c \major


            \time 2/2


            \tenorIntonII


          }


          \addlyrics {


            \intonVordsII


          }


        >>


        \layout {


          \context {


            \Voice


            \remove "Ligature_bracket_engraver"


            \consists "Mensural_ligature_engraver"


          }


          line-width = 5.0\cm


        }


      }


    }


    \fill-line {


      \score {


        \new Staff \with {


          instrumentName = \markup {
            \italic


            \center-column { "Transcrip -" "tion" }


          }


        }


        <<


          \new Voice = "melody" \transcriptionII


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


        >>


        \layout {


          \context {


            \Staff


            \remove "Time_signature_engraver"


            \hide Stem


          }


          \context {


            \Voice


            \override Stem.length = #0


          }


          \context {


            \Score


            barAlways = ##t


          }


        }


      }



    }


  }


}



globalII= {

  \override Staff.TimeSignature.style = #'mensural

  \key c \major

}

%% PDF p.32.

sopMusicII= \relative c' {


  \set Score.tempoHideNote = ##t

  \tempo 2 = 86

  \time 2/2

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

  \override Staff.BarLine.transparent = ##t

  e\breve

  e1 e1

  f1. f2

  e2 a,4( h4 c4 d4 e2)

  c2 c2				%% end of first line in orig.

  \[d1(

  e1.\] d4 c4

  \[d1 e1)\]

  d1 r2 d2~

  d2 f1 e2
  f2 d2 e2 f2

  d1 c1

  r1 c2.( d4

  e2) e2 d2.( c4

  h4 a4 h2) c1			%% end of second line.

  a1 h2 e2~(

  e4 d4 d1) \ficta cis2

  d1 e1

  a,2 c2.( d4 e4 c4

  d2) d2 e1

  \[d1( e1~

  e2)\] c2 d2 d2

  \cadenzaOn

  d\longa

  \revert Staff.BarLine.transparent

  \bar "||"

  \cadenzaOff

}

sopWordsII = \lyricmode {

Et lux per -- pe -- tu -- a lu -- ce -- at e -- is.

Cum Sanc -- tis tu -- is in æ -- ter -- num,

in æ -- ter -- num:

qui -- a pi -- us es,

qui -- a pi -- us es,

qui -- a pi -- us es.

}

altoMusicII= \relative c' {

  \clef "G_8"

  \override Staff.BarLine.transparent = ##t

  g\breve

  g1 g1

  a1. a2				%% endof first line in orig.

  g2 a1 g2

  a1 f1

  g1 r2 c2~

  c2 h2 c1

  a1 g1

  r2 a1 c2~

  c2 h2 c2 a2

  f2.( g4 a2) g2

  a2( g4 f4 g2 a2~

  a4 g4					%% end of second line.

  g1 \ficta fis2)

  g\breve

  r2 f2 g1

  a1 g1

  r1 e1

  f2 a2.( g4 g2~

  g2) \ficta f!2 g2 c2~

  c2 h4( a4 h2) c2~(

  c4 h4 a4 g4 a2) a2

  \cadenzaOn

  h\longa

  \revert Staff.BarLine.transparent

  \cadenzaOff

}

altoWordsII = \lyricmode {

Et lux per -- pe -- tu -- a lu -- ce -- at e -- is,

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

Cum Sanc -- tis tu -- is in æ -- ter -- num,

in æ -- ter -- num:

qui -- a pi -- us es,

qui -- a pi -- us es.

}

tenorMusicII= \relative c' {

  \clef "G_8"

  \override Staff.BarLine.transparent = ##t

  c\breve

  c1 c1

  c1. c2

  c\breve

  r2 c1 h2

  c1 a1

  g1 r2 g2~

  g2 f2				%% end of first line in orig.

  h1

  a2( f4 g4 a4 f4 g2)

  f1 r1

  r2 a1 c2~

  c2 h2 c2 a2

  h2 c2 a1

  g1 e1

  f2 a2.( g4 g2~

  g2 ) f2 g1

  a2.( h4			%% end of second line.

  c1~)

  c2 c2 a2( c2~

  c2 ) h2 c2 g2~

  g2 g2 e2.( f4

  g4 a4 g1) \ficta fis2

  \cadenzaOn

  g\longa

  \revert Staff.BarLine.transparent

  \cadenzaOff

}

tenorWordsII = \lyricmode {

Et lux per -- pe -- tu -- a lu -- ce -- at e -- is,
lu -- ce -- at e -- is.

Cum Sanc -- tis tu -- is in æ -- ter -- num:

qui -- a pi -- us es,

qui -- a pi -- us es,

qui -- a pi -- us es.

}

%% PDF p.128.

bassMusicII= \relative c {

  \override Staff.BarLine.transparent = ##t

  c\breve

  c1 c1

  f1. f2

  c2				%% end of first line in orig.

  f1 e2

  f1 d1

  c1 r1

  g1 c2 c2

  d1 g,2 g2

  d'2.( e4 f2) c2

  d1 c2 d2~

  d2 f1 e2
  f2 d2 c2 f2

  e2 c2				%% end of second line.

  d1

  g,1 \[c1(

  d1)\] g,2( c2~

  c2 d2 e1)

  d1 c1

  r2 f1 e2

  d1 c1

  g2 g'2.( f4 e4 d4

  c2 e2) d2 d2

  \cadenzaOn

  g,\longa

  \revert Staff.BarLine.transparent

  \cadenzaOff

}

bassWordsII = \lyricmode {

Et lux per -- pe -- tu -- a lu -- ce -- at e -- is,

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

Cum Sanc -- tis tu -- is in æ -- ter -- num:

qui -- a pi -- us es,

qui -- a pi -- us es,

qui -- a pi -- us es.

}

incipitDiscantus = \markup {

  \score {

    {

      %      \set Staff.instrumentName = #"Tenor "

      \override Staff.Clef.transparent =##t

      \override NoteHead.style = #'neomensural

      \override Rest.style = #'neomensural

      \override Staff.TimeSignature.style = #'mensural

      \cadenzaOn

      \clef "petrucci-c3"

      \key c \major

      \time 2/2


      e'\breve ^\markup { \smallCaps"Canto"} _"Et lux"

      e'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 Staff.Clef.transparent =##t

      \override NoteHead.style = #'neomensural

      \override Rest.style = #'neomensural

      \override Staff.TimeSignature.style = #'mensural

      \cadenzaOn

      \clef "petrucci-c4"

      \key c \major

      \time 2/2

      g\breve^\markup \smallCaps"Alto"_"Et lux"

      g1 g1

    }

    \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

      \override Staff.Clef.transparent =##t

      \cadenzaOn

      \clef "petrucci-c4"

      \key c \major

      \time 2/2

      c'\breve^\markup \smallCaps"Tenore" _"Et lux "

      c'1 c'1

    }

    \layout {

      \context {

        \Voice

        \remove "Ligature_bracket_engraver"

        \consists "Mensural_ligature_engraver"

      }

      line-width = 5.0\cm

    }

  }

}

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


incipitBassus = \markup {

  \score {

    {

      %      \set Staff.instrumentName = #"Tenor "

      \override Staff.Clef.transparent =##t

      \override NoteHead.style = #'neomensural

      \override Rest.style = #'neomensural

      \override Staff.TimeSignature.transparent = ##t

      \cadenzaOn
      \clef "mensural-f"

      \key c \major

      \time 2/2

      c\breve^\markup \smallCaps"Basso"_"Et lux"

      c1 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

  }


}


%% Midi

\score {

  <<

    \new StaffGroup <<

      \new Staff = treble <<

        \set Staff.instrumentName = \incipitDiscantus

        \new Voice = "sopranos" {

          \set  Staff.midiInstrument ="choir aahs"

          %	\voiceOne

          << \global { s4*7 s2 \sopMusic s1 s4*14 s2 \sopMusicII } >>

        }

      >>

      \new Lyrics = sopranos { s1 }


      \new Staff = "medius" <<

        \set Staff.instrumentName = \incipitAltus


        \new Voice = "altos" {

          %	\voiceTwo

          \set  Staff.midiInstrument ="choir aahs"

          << \global { s4*7 s2 \altoMusic s1 s4*14 s2 \altoMusicII } >>

        }

      >>


      \new Lyrics = "altos" { s1 }

      \new Staff = tenors <<

        \set Staff.instrumentName = \incipitTenor


        \clef "treble"

        \new Voice = "tenors" {

          \set  Staff.midiInstrument ="choir aahs"

          %	\voiceOne

          << \global { \transcription s2 \tenorMusic s1 \transcriptionII s2 \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*7 s2 \bassMusic s1 s4*14 s2 \bassMusicII } >>

        }

      }

    >>

    \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

  >>

  \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/c/c4/G-M-Asola-Missa-Pro-Defunctis-Communio-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>16</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>