New charts "How Great Thou Art" and "In The Garden".

[music] / the-church's-one-foundation.ly

\version "2.19.0"
\include "pop-chords.ly"
\include "english.ly"

% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
staffSize = #20
#(set-default-paper-size "letter")
#(set-global-staff-size staffSize)
#(ly:set-option (quote no-point-and-click))

%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}

\header
{
        title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "The Church’s One Foundation" }
        composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Samuel S. Wesley/Samuel J. Stone" }
        arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons/S. Dannemiller" }
        tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
}


%
% Song's structure
%
Global =
{
        \clef G
        \key d \major
        \numericTimeSignature
        \time 4/4

        % Verse

        \partial 4*1 s4 |   % 0
        s1*15 |   % 1-15
        \partial 4*3 s2. \bar "|."   % 16
}


%
% Lead vocal
%
LeadVox = \relative c'
{
        % Verse

        fs4 |   % 0
        fs4 fs g fs |   % 1
        fs2 e4 d |   % 2
        d4 b' a g |   % 3
        fs2. g4 |   % 4

        a4 d d cs |   % 5
        cs2 b4 a |   % 6
        g4 a fs d |   % 7
        e2. e4 |   % 8

        fs4 g a b |   % 9
        b2 a4 d |   % 10
        d4. cs8 b4 fs |   % 11
        g2. d4 |   % 12

        fs4 fs g fs |   % 13
        fs2 e4 d |   % 14
        d4 e d cs |   % 15
        d2. |   % 16
}


LeadVoxText = \lyricmode
{
        The Church -- ’s one foun -- da -- tion is Je -- sus Christ her Lord,
        She is His new cre -- a -- tion by wa -- ter and the word;
        From heav’n He came and sought her to be His ho -- ly bride;
        With His own blood He bought her, and for her life He died.
}

LeadVoxTextB = \lyricmode
{
        E -- lect from e -- vr’y na -- tion, yet one o’er all the earth,
        Her char -- ter of sal -- va -- tion, one Lord, one faith, one birth;
        One ho -- ly name she bless -- es, par -- takes one ho -- ly food,
        And to one hope she press -- es, with e -- vr’y grace en -- dured.
}

LeadVoxTextC = \lyricmode
{
        ’Mid toil and tri -- bu -- la -- tion, and tu -- mult of her war,
        She waits the con -- sum -- ma -- tion of peace for e -- ver -- more;
        Till with the vi -- sion glo -- rious, her long -- ing eyes are blest,
        And the great Church vic -- to -- rious shall be the Church at rest.
}

LeadVoxTextD = \lyricmode
{
        Yet she on earth hath un -- ion with God, the Three in One,
        And mys -- tic sweet com -- mu -- nion with those whose rest is won;
        O hap -- py ones and ho -- ly! Lord, give us grace that we
        Like them, the meek and low -- ly, on high may dwell with Thee.
}


%
% Chord names
%
Chords = \chordmode
{
        s4 |   % 0
        d2 g4 d |   % 1
        d2 g |   % 2
        e2:m7 a:7 |   % 3
        d1 |   % 4

        d2 fs:7 |   % 5
        g1 |   % 6
        e2:m7 d |   % 7
        a1 |   % 8

        d2. g4 |   % 9
        s2 d |   % 10
        b2:m b:7 |   % 11
        e1:m |   % 12

        d2 g |   % 13
        e1:m |   % 14
        g2 a:7 |   % 15
        d2. |   % 16
}


%
% Chord rhythms
%

%Slash = { \override NoteHead #'style = #'slash }
%Cross = { \override NoteHead #'style = #'cross }

StaffC = \relative c
{
        \numericTimeSignature
        \override NoteHead #'style = #'slash
        \teeny

        % Verse

        r4 |   % 0
        c4 c c c |   % 1
        c4 c c c |   % 2
        c4 c c c |   % 3
        c4 c c c |   % 4

        c4 c c c |   % 5
        c4 c c c |   % 6
        c4 c c c |   % 7
        c4 c c c |   % 8

        c4 c c c |   % 9
        c4 c c c |   % 10
        c4 c c c |   % 11
        c4 c c c |   % 12

        c4 c c c |   % 13
        c4 c c c |   % 14
        c4 c c c |   % 15
        c2. |   % 16
}


Dynamics =
{
%{
        s4_\markup { \italic { snare on 4, bass 8th notes } } s2. |   % 1
        s1*26 |   % 2-27
        s2 s4 \< s |   % 28
        s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 |   % 29
        s1*8 |   % 30-37
        s2 s4 \< s \! |   % 38
        s1 |   % 39
        s2. s8 \> s \! |   % 40
        s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. |   % 41
        s1*8 |   % 42-49
        s4 \< s2. |   % 50
        s4_\f s2. |   % 51
        s1*5 |   % 52-56
        s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. |   % 57
        s2 s4 \< s \! |   % 58
%}
}


\score
{
        <<
                \Global         % The "roadmap" that everything else depends on

                \context Staff
                <<
                        \new Voice = "lead" \LeadVox
                        \new Lyrics \lyricsto "lead" \LeadVoxText
                        \new Lyrics \lyricsto "lead" \LeadVoxTextB
                        \new Lyrics \lyricsto "lead" \LeadVoxTextC
                        \new Lyrics \lyricsto "lead" \LeadVoxTextD
                >>

                \new ChoirStaff
                <<
                        \new ChordNames \Chords
                        \new RhythmicStaff << \StaffC \Dynamics >>
                >>

                \set Score.skipBars = ##t
                \set Score.melismaBusyProperties = #'()
        >>
}


\paper
{
        #(define fonts (make-pango-font-tree
                "Times New Roman"
                "LilyJAZZText"
                "Luxi Mono"
                (/ staffSize 20)))

% Don't spread staves vertically across last page (default: t)
%       ragged-last-bottom = ##f
% Don't spread staves vertically across the page (default: f)
%       ragged-bottom = ##t
% Allow partial line for last stave (default: f)
        ragged-last = ##t

% To find out what's eating the space at the top...
%       annotate-spacing = ##t
}