% title: Jargon
% composer: William Billings
% editor: Michael Lauer

\version "2.14.0"

\include "english.ly"
\include "../mrlUtil.ly"
\include "../mrlbillingsdefs.ly"

#(define GlobalStaffSize 17.5)
#(set-global-staff-size GlobalStaffSize)

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

\paper{
    top-margin = .5\in
    bottom-margin = .5\in
    ragged-last-bottom = ##f
    
    myStaffSize = #GlobalStaffSize
  #(define fonts
    (make-pango-font-tree "Baskerville1757"
                          "Sans"
                          "Mono"
                           (/ myStaffSize 20)))
}


global = {
  % main
  
  \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3)
  \override  Voice.TextScript #'staff-padding = #1.5
  \override Voice.TextScript #'font-size = #1
  
  \set Staff.midiInstrument = "recorder"

  \key g \major
  \autoBeamOff

  \tsAllegro
  s1*14 \bar "|."
}

commonLyrics = \lyricmode {
    Let hor -- rid Jar -- gon fill the Air
    And rive the Nerves a -- sun -- der.
    Let hate -- ful Dis -- cord greet the Ear __
    As ter -- ri -- ble as Thun -- der.
}

sopranoNotes = {
    \relative g' {
        \set Staff.instrumentName = "Treble"
        \clef "treble"
        r2 g2^\markup { Forte } |
        b4 a g2 |
        c2 c4 b |
        c2. b4 |
        a2. b4 |
        d2. d4 |
        d4 d2. |
        c2 c4 b |
        a2 a |
        c4^\markup { Fortissimo } b a2~ |
        a2. a4 |
        b2 a |
        g2 g |
        d'4 d2. |
    }
}

sopranoLyrics = \lyricmode {
    \keepWithTag #'soprano \commonLyrics
}

altoNotes = {
    \relative d' {
        \set Staff.instrumentName = \markup "Counter"
        \clef "treble"
        % Original clef:
        %\clef "neomensural-c3"
        r2 d2 |
        d4 d e2 |
        g2 a4 fs |
        g2. g4 |
        fs2. e4 |
        a2. fs4 |
        g4 g2. |
        g2 g4 g |
        a2 g |
        g4 fs e2~ |
        e2. d4 |
        d2 e |
        g2 fs |
        e4 e2. |
    }
}

altoLyrics = \lyricmode {
    \keepWithTag #'alto \commonLyrics
}


tenorNotes = {
    \relative g {
        \set Staff.instrumentName = "Tenor"
        \clef "treble_8"
        
        r2 g2 |
        e'4 c b2 |
        e2 d4 g, |
        e'2. e4 |
        d2. g4 |
        b,2. g'4 |
        b,4 e2. |
        e2 e4 e |
        d2 d |
        e4 g fs2~ |
        fs2. e4 |
        g2 fs |
        e2 d |
        c4 c2. |
    }
}

tenorLyrics = \lyricmode {
    \keepWithTag #'tenor \commonLyrics
}

bassNotes = {
    \relative g {
        \set Staff.instrumentName = "Bass"
        \clef "bass"
        
        r2 g2 |
        d4 g fs2 |
        d2 e4 a |
        d,2. d4 |
        e2. d4 |
        c2. a'4 |
        fs4 d2. |
        d2 d4 d |
        e2 e |
        d4 d <g, g'>2~ |
        <g g'>2. <b b'>4 |
        <a a'>2 <g g'>2 |
        <fs fs'>2 <g e'> |
        <g g'>4 b2. |
    }
}

bassLyrics = \lyricmode {
    \keepWithTag #'bass \commonLyrics
}

#(define engravedLine (string-append 
    "Engraved by LilyPond (version "
    (lilypond-version)
    ")" ))
 
\header {
	composer = \markup { \larger { \basCaps "William Billings" (1746–1800) }}
    opus = \markup { \larger {\italic 
        { The Singing-Master’s Assistant } (1778) }}
    title = \markup { \larger \medium \italic "Jargon" }
    %poet = \markup { \larger { "“Words from Scripture" \italic "&" "Dr. Young”" }}
    %piece = \markup { \larger { Edward Young (1681–1765), 
    %    \italic { Night-Thoughts } (1742–1745) }}
    %poet = "William Billings"
    copyright = \markup { \center-column {
        "Edition copyright © 2012 by Michael Lauer."
        "This edition may be freely distributed, duplicated, performed, or recorded."
        \engravedLine
    } }
    tagline=""
        
    headerMarkup = \markup { "Billings:" \italic "Jargon" } 

}
            
allWords = \markup { \fontsize #1
    \fill-line {
         
        \line { \hspace #3 "2."
            \column \addBLigsList
            {
            }
        }
         
    }
}

theMusic = 
  \context ChoirStaff = choir <<
      \new Staff {
        \context Voice =
          sopranoNotes << \global \sopranoNotes >>
      }
      \lyricsto sopranoNotes \new Lyrics { \sopranoLyrics }
      \new Staff {
        \context Voice =
          altoNotes << \global \altoNotes >>
      }
      \lyricsto altoNotes \new Lyrics { \altoLyrics }
      \new Staff {
        \context Voice =
          tenorNotes << \global \tenorNotes >>
      }
      \lyricsto tenorNotes \new Lyrics { \tenorLyrics }
      \new Staff {
        \context Voice =
          bassNotes << \global \bassNotes >>
      }
      \lyricsto bassNotes \new Lyrics { \bassLyrics }
  >>
  
\book {
\score {
    \theMusic
}
\markup \fill-line {
    \override  #`(line-width . ,(* 4 72 (/ 1 GlobalStaffSize) 5))
        \justify  { \addBLigs { In order to do this peice ample justice, 
    the Concert must be made of
    vocal and instrumental Music. Let it be performed in the following manner,
    viz. Let an ass bray the Bass, let the fileing of a saw carry the Tenor, let a
    hog who is extream hungry squeal the Counter, and let a cart-wheel, which is
    heavy loaded, and that has been long without grease, squeek the Treble ; and
    if the Concert should appear to be too feeble you may add the cracking of
    a crow, the howling of a dog, the squalling of a cat ; and what
    would grace the Concert yet more, would be the rubbing of a wet finger upon a
    window glass, This last mentioned instrument no sooner salutes the drum of 
    the ear, but it instantly conveys the sentations to the teeth; and if all
    these in conjunction should not reach the cause you may add the most inharmonical
    of all sounds, } \italic \addBLigs  { “pay me that thou owest.” } } }
\markup { \vspace #3 }

}

%\allWords

\score {
    
    \unfoldRepeats \theMusic
  
    \midi {    }


}