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

[music] / do-you-know.ly

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

% Good sizes are 16, 18, & 20
staffSize = #18
#(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 "Do You Know" }
%       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
        arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
        tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
}


%
% Song's structure
%
Global =
{
        \key a \major
        \numericTimeSignature
        \time 4/4

        % Intro

        s1^\markup { \italic { Light ballad } } |   % 1
        s1*3 |   % 2-4

        \repeat volta 4
        {
                % Verse

                \once \override Score.RehearsalMark #'self-alignment-X = #left
                \mark \markup { \override #'(font-family . sans) { \box { A } } \small \italic { Solo 3rd time } }

                s1*8 \bar "||"   % 5-12

                % Refrain

                \time 2/4
                \mark \markup { \musicglyph #"scripts.segno" }

                s4^\markup { \hspace #0.0 \raise #1.0 \italic { end solo } } s \bar "||"   % 13

                \time 4/4

                \once \override Score.RehearsalMark #'self-alignment-X = #left
                \mark \markup { \override #'(font-family . sans) { \box { B } } \small \italic { No groove on D.S. } }

                s1*5 |   % 14-18
        }
        \alternative
        {
                {
                        \time 2/4

                        s2 |   % 19

                        \time 4/4

                        s1*2 |   % 20-21
                }
                {
                        s2 s^\markup { \hspace #1.8 \raise #0.6 { D.S. } } \bar "||"   % 22
                }
                {
                        s1 \bar "|."   % 23
                }
        }
}


%
% Lead vocal
%
LeadVox = \relative c'
{
        \clef G

        % Intro

        R1*3 |   % 1-3
        r2 r4. cs16 [ d ] |   % 4

        % Verse

        e8 [ e e fs ] ~ fs4 fs |   % 5
        e4 d cs r8 cs16 [ d ] |   % 6
%\break
        e8 [ e e fs ] ~ fs4 fs |   % 7
        e4 b' a r8 a16 [ b ] |   % 8
        cs2 b4 r8 b16 [ cs ] |   % 9
        d4. cs8 cs4 r8 a16 [ gs ] |   % 10
        fs8 [ gs a a ] ~ a4 b |   % 11
        cs4 gs a2 |   % 12

        % Refrain

        r4 a8 [ b ] |   % 13

        cs2 b4 b8 [ cs ] |   % 14
        d2 cs4 r8 e, |   % 15
        fs8 [ gs a cs ] ~ cs [ a ] a4 |   % 16
        fs8 [ gs a cs ] ~ cs [ a ] a4 |   % 17
%\break
        fs8 [ gs a cs ] ~ cs [ a ] a4 |   % 18

        b8 [ cs ] gs8. ([ a16 ]) |   % 19

        a2 r |   % 20
        r2 r4. cs,16 [ d ] |   % 21

        b'8 [ cs ] gs8. ([ a16 ]) a2 |   % 22

        b8 [ cs ] gs8. ([ a16 ]) a2-\fermata |   % 23
}

LeadVoxText = \lyricmode
{
        Do you know what the blood _ has done for me,
        Do you know what the blood _ has done for me?
        It has cleansed me, it has set me free
        Do you know what the blood _ has done for me?

        Thank you Je -- sus, thank you Sa -- vior
        for com -- ing and wash -- _ ing me
        com -- ing and cleans -- _ ing me
        com -- ing and set -- _ ting me set -- ting me __ _ free.

        Do you

        set -- ting me __ _ free

        set -- ting me __ _ free.
}


%
% Riff/rhythm figures
%
StaffRiffs = \relative c'
{
        \key a \major
        \numericTimeSignature
        \time 4/4

        % Intro

        <e b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 1
        <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 2
        <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 3
        <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 4
\stopStaff

        s1*8 |   % 5-12

        s2 |   % 13

        s1*5 |   % 14-18

        s2 |   % 19

\startStaff
        <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 20
        <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 21
\stopStaff
}


%
% Chord names
%
Chords = \chordmode
{
        % Intro

        a1:sus2 |   % 1
        d1:6.9 |   % 2
        a1:sus2 |   % 3
        d2:6.9 e:sus4 |   % 4

        % Verse

        a2 d |   % 5
        a4/e e:7 a2 |   % 6
        a2 d |   % 7
        a4/e f:dim7 fs2:m7 |   % 8
        a2/e e |   % 9
        b2:m7 fs:m7 |   % 10
        b2:m7 a/cs |   % 11
        d4:maj7 e a2 |   % 12

        % Refrain

        e2/gs |   % 13

        fs2:m7 e |   % 14
        b2:m7 fs:m7 |   % 15
        d4. a8/cs s2 |   % 16
        b4.:m7 fs8:m7 s2 |   % 17
        d4. a8/cs s2 |   % 18

        b4:m7 e |   % 19

        a1:sus2 |   % 20
        d2:6.9 e:sus4 |   % 21

        b4:m7 e a2 |   % 22

        b4:m7 e a2 |   % 23
}


%
% Chord rhythms
%

% Use a RhythmicStaff on the chords instead of this?
% It almost works, but not quite. Doesn't collapse chords above to single notes...

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

        % Intro

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

        % Verse

        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

        % Refrain

        c4 c |   % 13

        c4 c c c |   % 14
        c4 c c c |   % 15
        c4. c8 ~ c2 |   % 16
        c4. c8 ~ c2 |   % 17
        c4. c8 ~ c2 |   % 18

        c4 c |   % 19

        c4 c c c |   % 20
        c4 c c c |   % 21

        c4 c c c |   % 22

        c4-\markup { \italic { rit. } } c c2-\fermata |   % 23
}


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

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

                \new Staff \with
                {
                        \remove "Time_signature_engraver"
                        \remove "Clef_engraver"
%Hmm, removing this screws up the formatting...
%                       \remove "Key_engraver"
                        fontSize = #-3.0
                        \override StaffSymbol #'staff-space = #(magstep -3.0)
                }
                \StaffRiffs

                \new ChoirStaff = "Rhythm"
                <<
                        \new ChordNames \Chords
                        \new RhythmicStaff \StaffC
                >>

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


\paper
{
  #(define fonts (make-pango-font-tree
    "Times New Roman"
    "JazzText"
    "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
}