\version "2.24.4"
\include "bmusicdefinitions.ily"

#(define-markup-command (oval layout props arg)
 (markup?)
 #:properties ((thickness 0.9)
               (font-size 0)
               (oval-padding 0.7))
 (let ((th (* (ly:output-def-lookup layout 'line-thickness)
              thickness))
       (pad (* (magstep font-size) oval-padding))
       (m (interpret-markup layout props (markup #:hcenter-in 1.5 arg))))
   (oval-stencil m th pad (* pad 1.5))))

#(define (format-oval-barnumbers barnum measure-pos alt-number context)
 (make-oval-markup
  (robust-bar-number-function barnum measure-pos alt-number context)))

\header {
  dedication = \markup { \override #'(font-name . "Didot Italic") { 
    \override #'(font-size . 0.25) {
      \column {"To Alan Gray and the Choir of Trinity College, Cambridge" 
       \vspace #0.5 }}}}
  title = \markup { \override #'(font-name . "Didot Bold") \override #'(font-size . 8) \column {
    "Beati quorum via"
                    \vspace #0.5 }}
  composer = "Charles Villiers Stanford (1852 - 1924)"
  opus = "Op. 38, No. 3."
  poet = "Psalm CXIX,1."
  % Remove default LilyPond tagline
  tagline = "Typeset by ZH. 🄯 CC BY-SA where applicable."
}

#(set-global-staff-size 19.5)

\paper {
  left-margin = 16
  right-margin = 16
  %annotate-spacing = ##t
  bottom-margin = 9
  top-margin = 12
  page-breaking-system-system-spacing = #'(minimum-distance . 15)
  last-bottom-spacing = #'((minimum-distance . 10))
  top-markup-spacing =
    #'((basic-distance . 1) 
       (minimum-distance . 1)
       (padding . 0)
       (stretchability . 100)) 
  top-system-spacing = 
    #'((minimum-distance . 10))
  markup-system-spacing =
    #'((basic-distance . 10) 
       (minimum-distance . 0)
       
       (padding . 0)
       (stretchability . 1)) 
  markup-markup-spacing =
  #'((basic-distance . 5) 
     (minimum-distance . 0)   
     (padding . 0)
     (stretchability . 10))
  system-system-spacing =
    #'((basic-distance . 10) 
       (minimum-distance . 1)
       (padding . 4)
       (stretchability . 40)) 
  #(define fonts
    (set-global-fonts
     #:music "BMusicFont"
     #:brace "haydn"
     #:roman "Theano Didot"
   ))
  %#(set-paper-size "letter")
  paper-height = 11\in
  paper-width = 8.5\in
  system-count = #16
  page-count = #8
  
}

\layout {
  \context {
    \Staff
    \consists Custos_engraver
    \override Custos.style = #'mensural
    \bravuraOn
    \consists "Melody_engraver"
    
    \override BarNumber.font-size = #-5
    \override BarNumber.self-alignment-X = #LEFT
    
  }
  \context {
    \Score
    \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/12)
  }
}

global = {
  \key f \minor
  \time 3/4
  \set Score.barNumberFormatter = #format-oval-barnumbers
  \tempo \markup { \override #'(font-name . "Didot Bold") \override #'(font-size . 1.5) "Con moto tranquillo ma non troppo lento"}
  \dynamicUp
  \override DynamicTextSpanner.style = #'none
  \crescTextCresc
  \set crescendoText = \markup { \override #'(font-name . "Didot Italic") { \override #'(font-size . 2) { cresc. } }}
  \override ChoirStaff.SpanBar.stencil = ##f
}

msize = 0.965
ficta = { \once \set suggestAccidentals = ##t }



vone = {\relative c'' {
  \global
  \set Staff.instrumentName = "S"
  \dynamicUp
  aes2.\p bes2. ees2.( ees4) des ees c2.( c4) bes aes g4. g8 aes4 bes2. c R2.*7 c2. f2 f4( f4) ees f d( c) bes d c bes ees2.( ees)( ees4) bes g aes g f ees2.
  R2.*4 des'4 ees des ges2 ges,4 ees'4( des) ces bes4. ces8 des4( des4) r4 r R2.*3 ees4(\< f ges)\! ges(\f f) ees ees( des4.) des8 c2.
  \crescHairpin
  \override Hairpin.to-barline = ##f
  c\p\< c\> c\! R2. c\pp c c R2. aes
  bes ees( ees4) des ees c( bes) aes aes4. g8 f4 bes2. R2.*3 c2.\mf\< d2. g2.(\!\f g4) f g ees( d) ees c bes c aes2.( aes4) aes\p bes c( bes) aes r aes bes c( bes) aes
  r r c( c2.) bes2 aes4 aes2. R2.*8 ees'2.\p ees4( f) ees des( ees) c bes( c) aes g( aes) f ees2.( ees) aes(\pp aes2) bes4 ees2.\fermata
  
} \addlyrics {
  Be -- a -- ti quo -- rum vi -- _ a in -- te -- gra est: __ _
  Be -- a -- ti __ quo -- rum vi -- a  in -- te -- gra est, __ vi -- a in -- te -- gra est:
  Qui am -- bu -- lant in le -- ge Do -- mi -- ni, in le -- ge Do -- mi -- ni. Be -- a -- ti, Be -- a -- ti, Be -- a -- ti __ quo -- rum
  vi -- a in -- te -- gra est: Be -- a -- ti __ quo -- rum vi -- a in -- te -- gra est, __ quo -- rum vi -- a, quo -- rum vi -- a, in -- te -- gra est:
  Qui am -- bu -- lant in le -- ge Do -- mi -- ni, Do -- mi -- ni.
}}

vtwo = {\relative c' {
  \global
  \set Staff.instrumentName = "S"
  \dynamicUp
  aes'2.\p bes2( aes4 g aes bes) c aes bes c( bes aes g2) aes4 c4. bes8 aes4 aes( g f~ f ees2) R2.*7 c'2. c2 c4( c4) c d bes2 bes4 bes bes bes bes bes aes
  g2.( g2) ees4 f ees d ees2. R2.*4 bes'4 bes bes des( aes) bes ces( bes) aes ges4. aes8 bes4( bes) r r R2.*2 bes4 c des ees2.\< ees4(\f des) c c( bes4.) bes8
  a2. 
  \crescHairpin
  \override Hairpin.to-barline = ##f
  a\p\< a\> a\! R2. aes!2.\pp aes aes R2.*2 r4 r bes bes( aes bes) c aes bes aes( ees) ees des4. des8 des4 des2. R2.*5 g4(\f a b) c2.( c2.) g4 g g g( f ees) f aes\p
  aes aes2 aes4 r aes aes aes( g) f r r aes( aes2.) g2 ees4 ees2. R2.*6 des'2.\p des4( ees) des c( des) bes aes2.( bes4) c aes g( aes) ees des( ees) des
  c2.( c) aes'2.(\pp aes2) aes4 aes2.\fermata
  
} \addlyrics {
  
  Be -- a -- ti quo -- rum vi -- a in -- te -- gra est: __ Be -- a -- ti __ quo -- rum vi -- a in -- te -- gra est, quo -- rum vi -- a in -- te -- gra est:
  Qui am -- bu -- lant in le -- ge Do -- mi -- ni, in  le -- ge Do -- mi -- ni, Do -- mi -- ni. Be -- a -- ti, Be -- a -- ti, Be -- a -- ti quo -- rum
  vi -- a in -- te -- gra est: Be -- a -- ti quo -- rum vi -- a, quo -- rum vi -- a, quo -- rum vi -- a, in -- te -- gra est:
  Qui am -- bu -- lant in le -- ge, in le -- ge Do -- mi -- ni, Do -- mi -- ni.
}}

vthree = {\relative c {
  \global
  \set Staff.instrumentName = "A"
  \dynamicUp
  r4 r aes''\p aes( g f ees f g) aes f g aes( g f ees2) f4 ees4. ees8 f4 ees2( des4 c2.) R2.*7 r4 c'( bes) aes2 aes4( aes4) g aes f( ees) d f ees d ees d c bes2.(
  bes2) bes4 bes c d bes2. R2.*4 f'4 ges f ges2 des'4 ges,( f) des des4. des8 des4( des) r r R2. f4 g a bes(\< a)\! bes bes2 bes4 c(\f des) f, f2( f8) f\noBeam f2.
  \crescHairpin
  \override Hairpin.to-barline = ##f
  f\p\< f\!\> f\!
  R2. f\pp f f R2.*2 r4 r bes,4 bes( f' g) aes f g ees( des) c bes4. bes8 aes4 g2. R2. f'2.\mf\< g c(\! c4) b(\f a) b( c d) g,2.( g4) f g ees( des?) 
  ees ees des c des des\p des
  c( des) ees r f f f( c) c r r des( des2.) des2 c4 c2. R2.*4 aes'2.\p aes4( bes) aes g?( aes) f g2 g4 g2 g4 aes2. r4 r ees4 des( ees) c bes( c) g aes2.( aes) aes(\pp f'2)
  f4 ees2.\fermata
  \override ChoirStaff.SpanBar.stencil = ##t
  \bar "|."
} \addlyrics {
  Be -- a -- ti quo -- rum vi -- a in -- te -- gra est: __ Be -- a -- ti __ quo -- rum vi -- a in -- te -- gra est, quo rum vi -- a in -- te -- gra est: Qui am -- bu -- lant
  in le -- ge Do -- mi -- ni, in le -- ge Do -- mi -- ni, in le -- ge Do -- mi -- ni. Be -- a -- ti, Be -- a -- ti, Be -- a -- ti quo -- rum vi -- a in -- te -- gra
  est: Be -- a -- ti, Be -- a -- ti __ quo -- rum vi -- a in -- te -- gra est, quo -- rum vi -- a, quo -- rum vi -- a, in -- te -- gra est: Qui am -- bu -- lant in
  le -- ge Do -- mi -- ni, in le -- ge Do -- mi -- ni, Do -- mi -- ni.
}}
vfour = {\relative c {
  \global
  \clef "treble_8"
  \set Staff.instrumentName = "T"
  \dynamicUp
  R2.*8 aes'2.\p bes ees( ees4) des ees c2.~( c4 bes4) aes g4. g8 aes4 bes2.( c) r4 aes4 c c2( bes4 d ees) f d ees f ees2.( ees)( ees4) g, bes d ees f bes,2. ees,4
  f ees bes'2 bes4 c( bes) c des4. c8 bes4( bes2.)( bes4) ees( des) ces( des) aes des4. ces8 bes4( bes) r r ees f ges f2.(\< f2)\! f4 ges4( f) ees ees(\f f) f, f2(
  f8) g\noBeam a2.  R2.*2 
  \crescHairpin
  \override Hairpin.to-barline = ##f
  c2.\p\< c\> c\! R2. c\pp c( c) des2.( des4) ees( des) c ees r aes,2.\mf bes\< ees(\! ees4) des ees c2.~( c4 bes) c aes4. bes8 c4 f2.(\f f4) ees d c2.( c2) ees4 ees2 c4
  c des? ees des aes\p aes aes( bes) c r aes aes aes( bes) c r r aes( aes2.) bes2 c4 c2. R2.*2 ees2.\p ees4( f) ees des( ees) c bes2.~( bes4 aes) c bes2.( c4 bes) des c2.
  R2.*3 r4 c( ees) aes,( c) ees, f2.(\pp des'2) des4 c2.\fermata
  
} \addlyrics {
  Be -- a -- ti __ quo -- rum vi -- a in -- te -- gra est: __ quo -- rum vi -- a in -- te -- gra est, __ vi -- a in -- te -- gra est: Qui am -- bu -- lant
  in le -- ge Do -- mi -- ni, __ in le -- ge Do -- mi -- ni, in le -- ge Do -- mi -- ni, in le -- ge Do -- mi -- ni. 
  Be -- a -- ti, Be -- a -- ti, Be -- a -- ti, Be -- a -- ti quo -- rum vi -- a in -- te -- gra est, __ quo -- rum vi -- a, vi -- a in -- te -- gra est,
  quo -- rum vi -- a, quo -- rum vi -- a in -- te -- gra est: Qui am -- bu -- lant in
  le -- ge Do -- mi -- ni, in le -- ge Do -- mi -- ni.
}}

vfive = {\relative c {
  \global
  \clef bass
  \set Staff.instrumentName = "B"
  \dynamicUp
  R2.*8 r4 r aes'\p aes( g aes g aes bes) c aes bes c( bes aes g2) aes4 c4. bes8 aes4 aes( g f~ f e2) r4 aes4 g f( g f aes bes) bes aes bes bes bes2 r4 r g ees
  bes( ees) g f g aes g2. ees4 f ees f( ges) f ees( f8 g!8) a4 bes4. a8 bes4( bes2.)( bes4) ces( bes) aes( bes) des bes4. aes8 ges4~ ges r r ges aes\< bes\!
  a bes c bes( f) f ees( bes') bes a(\f bes) c c( des4.) bes8 c2. R2.*2 
  \crescHairpin
  \override Hairpin.to-barline = ##f
  a2.\p\< a\> aes!2.\! R2. aes\pp aes~ aes~ aes4 g( f g) c( bes) aes ees2 R2.*2 r4 g(\mp bes) c( aes bes)
  \crescTextCresc
  \set crescendoText = \markup { \override #'(font-name . "Didot Italic") { \override #'(font-size . 2) { cresc. } }}
  c bes\< aes 
  \crescHairpin
  g2\< g4 f4. g8 aes4 g2.(\f g4) g g g2.~( g4 aes) g g g g aes2.( aes4) f\p f ees2 ees4 r f f f( g) aes r r f( f2.) g2 aes4 aes2. r4 r aes\p aes( bes) aes
  ges( aes) ges f2. f2 ees4 des2.~( des4 c) ees des2( bes4 ees2) ees4 ees2. R2.*3 r4 aes2 aes aes4 aes2.(\pp aes2) aes4 aes2.\fermata
} \addlyrics {
  Be -- a -- ti quo -- rum vi -- a in -- te -- gra est: __ quo -- rum vi -- a in -- te -- gra est, quo -- rum vi -- a in -- te -- gra est: Qui am -- bu -- lant
  in le -- ge Do -- mi -- ni, __ in le -- ge Do -- mi -- ni, in le -- ge Do -- mi -- ni, Do -- mi -- ni, in le -- ge Do -- mi -- ni. 
  Be -- a -- ti, Be -- a -- ti, Be -- a -- ti, Be -- a -- ti quo -- rum vi -- a in -- te -- gra est, __ quo -- rum vi -- a in -- te -- gra est, __
  quo -- rum vi -- a, quo -- rum vi -- a in -- te -- gra est: Qui am -- bu -- lant in
  le -- ge, in le -- ge Do -- mi -- ni, in le -- ge Do -- mi -- ni.
}}

vsix = {\relative c {
  \global
  \clef bass
  \set Staff.instrumentName = "B"
  
  R2.*8 r4 r aes'\p aes( g f ees f g) aes f g aes( g f e2) f4 e4. e8 f4 f( ees! des c2.) r4 f ees d( ees d f g) aes f g aes g2 r4 r g, aes bes2 bes4 bes bes bes
  ees2. ees4 f ees des!( ees) des c( des) c bes4. f'8 bes4~ bes2.~ bes4 r r r des,( f) ges4. ges8 ges4 ges aes bes ees,2.~\< ees2 ees4 des2. c f,4(\f g) a bes2~ bes8
  des\noBeam f2. R2.*2 
  \crescHairpin
  \override Hairpin.to-barline = ##f
  f2.\p\< f\> f\! R2. f\pp f( fes)( ees) ees~ ees R2.*2 r4 ees(\mp g) aes( f g) aes 
  \crescTextCresc
  \set crescendoText = \markup { \override #'(font-name . "Didot Italic") { \override #'(font-size . 2) { cresc. } }}
  g\< f 
  \crescHairpin
  e2\< e4 f4. f8 f4\! d2.~\f d4 g f ees( d ees c2) c4 ees ees ees f2.~ f4 r r 
  ees2.\p des c bes bes ees2 aes,4 aes2. aes\p aes~ aes2 aes4 aes2.~ aes aes aes aes aes2 aes4 aes2. R2.*3 r4 aes'4( g) f( ees) c des2.~\pp des2 des4 aes2.\fermata
}\addlyrics {
  Be -- a -- ti quo -- rum vi -- a in -- te -- gra est: __ quo -- rum vi -- a in -- te -- gra est, quo -- rum vi -- a in -- te -- gra est: Qui am -- bu -- lant
  in le -- ge Do -- mi -- ni, __ Qui am -- bu -- lant in le -- ge Do -- mi -- ni, in le -- ge Do -- mi -- ni.
  Be -- a -- ti, Be -- a -- ti, Be -- a -- ti quo -- rum vi -- a in -- te -- gra est, __ quo -- rum vi -- a in -- te -- gra est, __
  quo -- rum vi -- a in -- te -- gra est: Qui am -- bu -- lant in
  le -- ge Do -- mi -- ni, in le -- ge Do -- mi -- ni.
}}

\score {
  \new ChoirStaff \with {\consists Span_bar_engraver} << 
  \override StaffGroup.SystemStartBracket.collapse-height = 100 <<
  \new Staff \vone
  \new Staff \vtwo
  \new Staff \vthree
  \new Staff \vfour
  \new Staff \vfive
  \new Staff \vsix  >>
>>
  \layout { }
  \midi {
    \tempo 2=50
  }
}