\version "2.12.0"
\include "english.ly"

\include "../mrlUtil.ly"
\include "../mrlSwash.ly"

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

#(ly:set-option 'point-and-click #f)

headerMarkup = \markup \fromproperty #'header:headerMarkup

#(set-global-staff-size 18)

\paper {
  #(set-paper-size "letter")
  top-margin = .4\in
  bottom-margin = .4\in
  left-margin = .75\in
  line-width = 7\in
  between-system-padding = 0.1\in
  page-top-space = 0.0\in
  %ragged-last-bottom = ##t
  
      oddHeaderMarkup = \markup
    \fill-line {
      ""
      \on-the-fly #not-first-page \headerMarkup
      \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
    }

    evenHeaderMarkup = \markup
    \fill-line {
      \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
      \on-the-fly #not-first-page \headerMarkup
      ""
    }
    
    bookTitleMarkup = \markup {
      \override #'(baseline-skip . 3.5)
      \column {
        \fill-line { \fromproperty #'header:dedication }
        \override #'(baseline-skip . 3.5)
        \column {
          \huge \larger \bold
          \fill-line {
            \larger \fromproperty #'header:title
          }
          \fill-line {
            \large \smaller \bold
            \larger \fromproperty #'header:subtitle
          }
          \override #'(baseline-skip . 3) \column {
          \larger \fill-line {
            \fromproperty #'header:poet
            { \large \bold \fromproperty #'header:instrument }
            \fromproperty #'header:composer
          }
          \larger \fill-line {
            \fromproperty #'header:meter
            \fromproperty #'header:arranger
          }
          \larger \fill-line {
            \fromproperty #'header:piece
            \fromproperty #'header:opus
          }
        }
        }
      }
    }
    scoreTitleMarkup = \markup { }
    
    myStaffSize = #18
  #(define fonts
    (make-pango-font-tree "Adobe Garamond Pro"
                          "Sans"
                          "Mono"
                           (/ myStaffSize 20)))
}

makeIncipit =
#(define-music-function (parser location n m) (string? ly:music?)
#{
    \set Staff.instrumentName = \markup {
    \score { 
        {
            \set Staff.instrumentName = $n
            \override Staff.TimeSignature #'style = #'mensural
            \override NoteHead #'style = #'neomensural
            \key f \major
            \time 4/4
            $m
            \override Rest #'transparent = ##t
            \bar ""
        }
        \layout {
            indent = 0
            line-width = 0.4\in 
            \context {
              \Staff
              \override KeySignature #'glyph-name-alist = 
                    #alteration-mensural-glyph-name-alist
              \override InstrumentName #'padding = #1
              \override InstrumentName #'font-size = #1
              \override InstrumentName #'self-alignment-X = #1
            }
        }
    }}
#}
)

global = {
    \numericTimeSignature
    \key f \major
    \time 2/2
    s1*15
    \bar "||"
    s1*24
    \bar "||"
    s1*12
    \bar "|."
}

sopranoNotes = {
    %\set Staff.instrumentName = \sopranoIncipit
    \makeIncipit #"Cantus 1" { \clef "neomensural-c1" c''1 }
    \clef treble
    \relative c'' {
        R1*3
        c1 |
    %5
        c,2 f |
        c'1~ |
        c2 bf4( a) |
        bf2 a |
        g2 e2~ |
    %10
        e4 f4 g2 |
        a2 f2 |
        f1 |
        f2 c'~ |
        c4 bf4( g2) |
    %15
        a1 |
        bf1 |
        a2 g |
        fs1 |
        g2 g~ |
    %20
        g2 g |
        e1 |
        e2 e2~ |
        e4 f e2 |
        r2 c2 |
    %25
        c'2. bf4 |
        a2 g |
        bf2 a~ ( |
        a2 g ) |
        a1 |
    %30
        R1 |
        r2 d,2 |
        a'2 bf |
        a2 d~ |
        d4 c8( bf a4 bf |
    %35
        c4 a bf g |
        a4 bf c2~ |
        c2 ) bf |
        a2. d,4 |
        d1 |
    %40
        f2.( e4)
        g2 c, |
        c2 c'2~ |
        c4 bf8( a g4 a|
        g4 f f2~ |
    %45
        f2) e |
        f1 |
        r2 c2~ |
        c2 d |
        c2 c |
    %50
        c'2. bf4 |
        a1 |
    }
}

sopranoLyrics = \lyricmode{
    Look down, O Lord, __ on __ me, poor man,
    in __ thee I live, I live, I move, __
    and __ am.
    O clear my soul and con -- sci -- ence,
    and con -- sci -- ence,
    that I in thee my peace may __ find,
    rest to my heart, joy __ to __ my mind, my mind.
    
    Freed __ from my sin and __ mine __ of -- fense,
    from __ my sin and mine of -- fense.
}

altoNotes = {
    \makeIncipit #"Cantus 2" { \clef "neomensural-c1" a'1 }
    \clef treble
    \relative a' {
        R1*4 |
    %5
        R1 |
        a1 |
        g1 ~ |
        g2 f |
        e2 g |
    %10
        c1~ |
        c2 bf4( a) |
        bf2 a~ ( |
        a4 g) f2~ |
        f2 e |
    %15
        f1 |
        d'1 |
        c2 bf |
        a1 |
        b2 c~ |
    %20
        c2 b |
        c1 |
        r2 g2 |
        c2. bf4 |
        a2 g |
    %25
        f2 e |
        f2 r2 |
        d2 f~ |
        f2 e4( d) |
        e2 f |
    %30
        g2 bf |
        a1 |
        r2 d2~ |
        d4 c8( bf a4 g |
        f4 e f) d( |
    %35
        e f) g2~ |
        g4 fs8( g a4 bf |
        a4 g g2~ |
        g2) fs |
        g1 |
    %40
        a2.( c4) |
        bf2 a |
        g1 |
        R1 |
        r2 c2~ |
    %45
        c4 bf8( a g4 bf |
        a4) f( a2) |
        g2 g2~ |
        g4 f8( e d4 f) |
        e4 c f2~ |
    %50
        f2 e2 |
        f1 |
    }
}

altoLyrics = \lyricmode {
    On me, __ poor man, in thee __ I __ live,
    I __ move __ and am.
    O clear my soul and con -- sci -- ence,
    that I in thee my peace may find,
    my peace __ may find,
    rest to my heart,
    joy __ to __ my __ mind, __ to __ my mind.
    
    Freed __ from my sin and __ mine __ of -- fense,
    from __ my __ sind and mine __ of -- fense.
}

tenorNotes = {
    \makeIncipit #"Tenor" { \clef "neomensural-c3" f'1 }
    \clef "treble_8"
    \relative f'
    {
        f1 |
        f,2 c' |
        f1~ |
        f2 e4( d) |
    %5
        e2 d |
        c2 a |
        c1 |
        r2 c2 |
        c2 c~ |
    %10
        c4 d e2 |
        f4.( e8 d4 c |
        d1) |
        c2 c~ |
        c2 c2 |
    %15
        c1 |
        f1 |
        f2 d |
        d1~ |
        d2 e |
    %20
        d2. d4 |
        c2 g |
        c2. bf4 |
        a2 g |
        f2 e |
    %25
        f2 r2 |
        r2 c'2 |
        f2. e4( |
        d1 ) |
        cs1 |
    %30
        d1 |
        d2. d4 |
        d1 |
        f1 |
        r2 d2 |
    %35
        a2 d |
        c1 |
        d2. c8( bf |
        d4) c( a2) |
        b1 |
    %40
        c2.( c4) |
        d2 f |
        e1 |
        e1 |
        d2 c |
    %45
        g'1 |
        r2 c,2~ |
        c4 bf8( a g4 bf) |
        a4 f bf2~ |
        bf2 a( |
    %50
        g1) |
        f1 |
    }
}

tenorLyrics = \lyricmode {
    Look down, O Lord, __ on __ me, poor man,
    on me poor man, in __ thee I live __ I move __ and am.
    O clear my soul __ and con -- sci -- ence,
    that I in thee my peace may find,
    my peace may __ find,
    rest to my heart, joy, joy to my mind,
    joy to __ my __ mind.
    
    Freed __ from my sin and mine of -- fense,
    from __ my __ sin and mine __ of -- fense.
}

bassNotes = {
    \makeIncipit #"Bass" {  \set Staff.keySignature = #`(((-2 . 6) . ,FLAT)
                               ((-1 . 6) . ,FLAT)) 
                             \override Staff.Clef #'space-alist = 
                                #'((key-signature minimum-space . 2.6))
                             \clef "mensural-f3"
                             f1 }
    \clef bass
    \relative f
    {
        R1*4
    %5
        R1
        f1
        e2. f4 ( |
        g4 e f2) |
        c1 |
    %10
        r2 c2 |
        f1 |
        bf,2 d4( e |
        f4 ) g a( bf |
        c2) c, |
    %15
        f1 |
        bf,1 |
        f'2 g |
        d2 d |
        g4( f e f |
    %20
        g2.) g4 |
        c,1~ |
        c1 |
        r2 c2 |
        c'2. bf4 |
    %25
        a2 g |
        f2 e |
        d1 |
        bf'1 |
        a1 |
    %30
        g1 |
        fs1~ |
        fs2 g2 |
        d1 |
        d'1 |
    %35
        c2 bf |
        a2. g4 |
        fs2 g |
        d1( |
        g1) |
    %40
        f2.( a4) |
        g2 f |
        c1 |
        c'1 |
        bf2 a( |
    %45
        g1) |
        f1 |
        e2 e |
        f2 bf, |
        c1 |
    %50
        c1 |
        f1 |
    }
}

bassLyrics = \lyricmode {
    On me poor __ man, in thee
    I live, __ I move __ and am.
    O clear my soul and con -- sci -- ence, __
    that I in thee my peace may find,
    may find,
    rest to __ my heart, joy to my mind,
    joy to my mind. __
    
    Freed __ from my sin and mine of -- fense,
    from my sin and mine of -- fense.
}


\header {
	composer = \markup { \realCaps "William Byrd" 
        \concat \oldStyleNum { "(" \smaller \italic "c. " "1540–1623)" } }
	opus = \markup { \italic 
        "The Teares or Lamentacions of a Sorrowfull Soule"
        \oldStyleNum "(1614)"  }
	title = \markup { \medium \italic \makeSwashMarkupG "Look Down O Lord" }
    poet = \markup { \oldStyleNum "Sir William Leighton (c. 1565–1622)" }
    %subtitle = ""
    %tagline = ""
    copyright = \markup { \center-column { } }
    headerMarkup = \markup { "Byrd:" \italic "Look Down O Lord" }
    
}

% layout defaults
\layout {
    \context {
      \Score
      \override MetronomeMark #'transparent = ##t
      \override BarNumber #'padding = #2
      \override BarNumber #'stencil = #bar-number-print
    }
    \context {
      \Staff   
      \consists Ambitus_engraver
      \override InstrumentName #'padding = #1
      \override InstrumentName #'font-size = #1
      \override InstrumentName #'self-alignment-X = #1
    }
    \context {
      \Voice
      %\override Slur #'transparent = ##t
    }
    \context {
      \Lyrics
      \override LyricText #'font-series = #'medium
      \override LyricText #'font-size = #1
      \override LyricHyphen #'minimum-distance = #0.5
      \override LyricSpace #'minimum-distance = #0.5  
    }
}

theMusic = \transpose f ef {
    \context ChoirStaff = choir <<
    \context Voice =
      sopranoNotes << \global \sopranoNotes >>
    \context Lyrics =
      sopranoLyrics \lyricsto sopranoNotes { \sopranoLyrics }
    \context Voice =
      altoNotes << \global \altoNotes >>
    \context Lyrics =
      altoLyrics \lyricsto altoNotes { \altoLyrics }
    \context Voice =
      tenorNotes << \global \tenorNotes >>
    \context Lyrics =
      tenorLyrics \lyricsto tenorNotes { \tenorLyrics }
    \context Voice =
      bassNotes << \global \bassNotes >>
    \context Lyrics =
      bassLyrics \lyricsto bassNotes { \bassLyrics }
  >>
}
  
\score {
    \theMusic
  
  \layout {
      indent = 1.2\in
  }

  
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 100 2)
      }
    }



 }