\version "2.24.1"

\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 {
  title = \markup { \override #'(font-name . "Didot Bold") \override #'(font-size . 5) "Chorale Prelude"}
  subtitle = "On the Melody “Quem Pastores”"
  composer = "Healey Willan"
  tagline = "CC BY-SA"
}

\paper {
  left-margin = 15.5
  right-margin = 15.0
  %annotate-spacing = ##t
  bottom-margin = 10
  top-margin = 10
  page-breaking-system-system-spacing = #'(minimum-distance . 20)
  last-bottom-spacing = #'((minimum-distance . 11))
  top-markup-spacing =
    #'((basic-distance . 1) 
       (minimum-distance . 1)
       (padding . 0)
       (stretchability . 100)) 
  top-system-spacing = 
    #'((minimum-distance . 10))
  markup-system-spacing =
    #'((basic-distance . 20) 
       (minimum-distance . 14)
       
       (padding . 2.5)
       (stretchability . 70)) 
  system-system-spacing =
    #'((basic-distance . 14) 
       (minimum-distance . 12)
       (padding . 3)
       (stretchability . 50)) 
  #(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
  
}

\layout {
  \context {
    \Score
    \bravuraOn
    \consists "Melody_engraver"
    \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/10)
    barNumberFormatter = #format-oval-barnumbers
    \override BarNumber.font-size = #-5
    \override BarNumber.self-alignment-X = #LEFT
  }
}

global = {
  \key f \major
  \numericTimeSignature
  \time 3/4
  \tempo \markup { \override #'(font-name . "Didot Bold") "Moderato quasi pastorale"}
}

swell = \markup Sw.
great = \markup Gt.

msize = 0.965

right = \relative c'' {
  \global
  { 
    <<
    \new Voice = "first"
      \relative c'' 
        { \voiceOne 
          \magnifyMusic \msize {
          f,8(_\markup{\swell \dynamic p} g a <g c> <bes f'> <a d> |
          c4.) d8( f d |
          c4.) d8( f d |
          c a g f bes4~ |
          8)( a8 g f a4~ |
          8 g8 f e f-- g--) |
          a bes c4 f |
          e8 d c4 e8 c |
          d g f e d f |
          e c d f e4~ |
          8 f e d c f |
          d c d a bes4~ |
          8 a d c b4 |
          c8 d e g f d |
          e g f d e g |
          c4. a8 g e |
          d e d4 c4~ |
          8 d c4. d8 | f d c4. d8 |
          f d c a g f | g4. a8 g f | 
          d bes'4 a g8 | a c4 a8 d e | 
          f e d c bes a | g4 e' d8 e |
          cis a f' e d c | d4 g8 e d f |
          e4 d8 bes a c | d4 g,8 a bes c |
          a4. c8 a c | ees c d f ees c | 
          d f ees c d f | ees c d f bes4~ |
          8 g4 e c8~ | 8 bes4 g e8 |
          g2 f4~ | 2. \bar "|."
        }
        }
    \new Voice= "second"
      \relative 
        { \voiceTwo 
          \magnifyMusic \msize {
          \hideNotes r2. | \unHideNotes
          g'8 a g a bes a |
          g a g a bes a |
          g e d4. f8 |
          e4 d e |
          d4. c8 d e |
          f g a bes a f |
          g f e g a4 |
          g a bes~ |
          8 a bes4. g8 |
          a4 g8 e f4~ |
          8 e f e d e |
          f2~ 8 d |
          c g' c b a b |
          c b a b c b |
          g' f e d c b |
          a g f a g f |
          e f a g bes a | bes a g f e a |
          bes a g e d4 | d8 c d e d c~ |
          8 bes d e d e | d e f a4 g8 |
          f4 bes8 a g f | e d e g4 e8~ |
          8 g f2~ | 8 a bes4 a8 g |
          c a d,4 e | d2~ 8 c |
          d c d e f4 | g8 a bes a g a |
          bes a g a bes a |
          g a bes c d f | e d c bes a g |
          f_\markup {\override #'(font-name . "Didot Italic") {\magnify #1.02 { "dim. e rall." }}} e d c bes c | d4 e8 d c d | c bes c2 
          }
        }
  >> }  
  
}

left = \relative c' {
  \global
  { \magnifyMusic \msize {
    a8 bes c e d c |
    bes c bes c d c |
    bes c bes c d c |
    bes c bes a bes4 |
    c bes c |
    bes a8 g c4 |
    f,2(_\markup {\great Solo 8'} a4 | c2 a4 | bes c d | c g2) |
    a4( bes c | bes a g | f2 d4 | e c2~ | 4) r4 c'8_\swell e |
    <<   { \voiceOne a4 g8 f e d }
       \new Voice 
         { \voiceTwo \magnifyMusic \msize { c4 b a~ | <a c>8 b a c b a }}
    >> \oneVoice
    \pageBreak
    g a c bes 
    <<   { \voiceOne d4~ | 8 f e d c bes }
       \new Voice 
         { \voiceTwo \magnifyMusic \msize {d8 bes | a bes4 a8 g bes }}
    >> \oneVoice
    <a d> <bes f'> <a e'> <g c> <e bes'> <f a> |
    bes a bes c bes a~ | 8 g bes c bes g |
    a2(_\great bes4 | c2 d4 | c2 g4 | a f2) | 
    bes2( bes4 | a g a | f d e | f2.~ | 2.~ | 4) r4 \clef treble bes8_\swell d |
    c ees d ees f <e a> | <d g> <f bes> <e a> <d g> <c f> <bes e> |
    \clef bass <a d> <c g> <f, bes> <e a> <d g> <c a'> | 
    <<   { \voiceOne bes'4 c8 bes a bes | a g a2 \bar "|." }
       \new Voice 
         { \voiceTwo c,2.~ 2. }
    >> \oneVoice
  }  
  }
}

pedal = \relative c {
  \global
  {
    \magnifyMusic \msize {
    f,2.~ |
    2.~ |
    2 g4 |
    a d g, |
    a bes a8 f |
    g4 bes a8 g |
    f2.~ |
    2. |
    d'4 c bes |
    c2. |
    f,4 g a | bes2 c4 |
    d d, g | c,2.~ |
    2.~ | 2.~ | 2.~ | 2.~ | 2.~ | 2 d4 |
    g2 a4 | bes g c | f,2 d'4 | a2 bes4 | c2 bes4 | a d8 c bes a |
    g2. | a4 bes c~ | 8 bes4 a8 g4 | f2.~ 2.~ 2.~ 2.~ 2.~ 2.~ 2.~ 2. \bar "|."
    
  }  
  }
}

\score {
  <<
    \new PianoStaff \with {
      \override StaffGrouper.staff-staff-spacing.padding = #2.7
      \override StaffGrouper.staff-staff-spacing.basic-distance = #5
      \override StaffGrouper.staff-staff-spacing.minimum-distance = #3.25
      \override StaffGrouper.staffgroup-staff-spacing.basic-distance = #8
      \override StaffSymbol.thickness = #0.875
      \override Beam.beam-thickness = #0.45
      instrumentName = ""
    } <<
      \new Staff = "right" \with {
        midiInstrument = "church organ"
      } \right
      \new Staff = "left" \with {
        midiInstrument = "church organ"
      } { \clef bass \left }
    >>
    \new Staff = "pedal" \with {
      \override StaffSymbol.thickness = #0.9
      midiInstrument = "church organ"
    } { \clef bass \pedal }
  >>
  \layout { }
  \midi {
    \tempo 4=66
  }
}