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

[music] / o-come-o-come-emmanuel.ly

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

% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
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 "O Come, O Come, Emmanuel" }
        composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Thomas Helmore" }
        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 =
{
        \clef G
        \key e \minor
        \numericTimeSignature
        \time 4/4

        % Intro

        s1^\markup { \hspace #0.0 \raise #1.0 { Half time feel } } |   % 1
        s1*7 |   % 2-8

        \repeat volta 3
        {
                % Verse

                \mark \markup { \override #'(font-family . sans) { \box { A } } }
                s1*12 \bar "||"   % 9-20

                % Chorus

                \once \override Score.RehearsalMark #'self-alignment-X = #left
                \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }

                s1*6 |   % 21-26
        }
        \alternative
        {
                {
                        s1*4 |   % 27-30
                }
                {
                        s1*3 |   % 31-33
                        s2. s4^\markup { \hspace #0.0 \raise #0.6 { D.S. } } \bar "||"   % 34
                }
                {
                        s1 |   % 35
                }
        }

        s1 \bar "||"   % 36

        s1*3 \bar "|."   % 37-39
}


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

        s1*7 |   % 1-7
        s2. e4 |   % 8

        % Verse

        g4 b b b |   % 9
        a4 ( c b ) a |   % 10
        g2. a4 |   % 11
        b4 g e g |   % 12
        a4 ( fs e ) d |   % 13
        e2. a4 |   % 14
        a4 e e fs |   % 15
        g2 ( fs4 ) e |   % 16
        d2. g4 |   % 17
        a4 b b b |   % 18
        a4 ( c b ) a |   % 19
        g2. d'4 |   % 20

        % Chorus

        d2. b4 |   % 21
        b2. b4 |   % 22
        a4 ( c b ) a |   % 23
        g2. a4 |   % 24
        b4 g e g |   % 25
        a4 ( fs e ) d |   % 26

        e1 |   % 27
        s1 |   % 28
        s1 |   % 29
        s2. e4 |   % 30

        e1 |   % 31
        s1 |   % 32
        s1 |   % 33
        s2. \stemUp d'4 \stemNeutral |   % 34

        e,1 |   % 35

        s2. a4 |   % 36

        b4 g e g |   % 37
        a4 ( fs e ) d |   % 38
        e1^\fermata |   % 39
}


LeadVoxText = \lyricmode
{
        O come, O come, Em -- ma -- _ _ nu -- el,
        and ran -- som cap -- tive Is -- _ _ ra -- el,
        That mourns in lone -- ly ex -- _ ile here,
        Un -- til the Son of God _ _ ap -- pear.

        Re -- joice! Re -- joice! Em -- ma -- _ _ nu -- el
        shall come to thee, O Is -- _ _ ra -- el!

        O

        el!

        Re --

        el!

        shall come to thee, O Is -- _ _ ra -- el!
}

LeadVoxTextB = \lyricmode
{
        _ come, thou day -- spring, come _ _ and cheer
        Our spi -- rits by thine ad -- _ _ vent here;
        Dis -- perse the gloo -- my clouds _ of night,
        And death’s dark sha -- dows put _ _ to flight.
}


Riffs = \relative c''
{
        % Intro

        \tiny
        r2 <d a g>4. <cs fs, e>8 ~ |   % 1
        <cs fs, e>1 |   % 2
        r2 <d a g>4. <cs fs, e>8 ~ |   % 3
        <cs fs, e>1 |   % 4
        r2 <d a g>4. <cs fs, e>8 ~ |   % 5
        <cs fs, e>1 |   % 6
        r2 <d a g>4. <a fs e d>8 ~ |   % 7
        <a fs e d>2. s4 |   % 8

        s1*18

        r2 <d a g>4. <cs fs, e>8 ~ |   % 27
        <cs fs, e>1 |   % 28
        r2 <d a g>4. <a fs e d>8 ~ |   % 29
        <a fs e d>2. s4 |   % 30

        r2 <d a g>4. <cs fs, e>8 ~ |   % 31
        <cs fs, e>1 |   % 32
        r2 <d a g>4. \stemDown <a fs e d>8 ~ |   % 33
        <a fs e d>8 <a fs e d> <a fs e d> <a fs e d> <a fs e d> <a fs e d> <a fs e d> <a fs e d> \stemNeutral |   % 34

        r2 <d a g>4. <a fs e d>8 ~ |   % 35
        <a fs e d>2. s4 |   % 36

        \normalsize
}


RiffsBass = \relative c
{
        \clef F
        \key e \minor
        \numericTimeSignature
        \time 4/4

        % Intro

        \tiny

        <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 1
        <e b e,>2.. <d a d,>8 |   % 2
        <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 3
        <e b e,>2.. <d a d,>8 |   % 4
        <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 5
        <e b e,>2.. <d a d,>8 |   % 6
        <e b e,>4. b8 <e e,>4. b8 ~ |   % 7
        b2. r4 |   % 8

        s1*18

        <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 27
        <e b e,>2.. <d a d,>8 |   % 28
        <e b e,>4. b8 <e e,>4. b8 ~ |   % 29
        b2. r4 |   % 30

        <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 31
        <e b e,>2.. <d a d,>8 |   % 32
        <e b e,>4. b8 <e e,>4. b8 ~ |   % 33
        b2. r4 |   % 34

        <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 35
        <e b e,>2. r4 |   % 36

        \normalsize
}


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

        s1 |   % 1
        s1 |   % 2
        s1 |   % 3
        s1 |   % 4
        s1 |   % 5
        s1 |   % 6
        s2.. b8:m11 |   % 7
        s1 |   % 8

        % Verse

        e1:m7 |   % 9
        a1:m9 |   % 10
        e1:m7 |   % 11
        c1:maj7 |   % 12
        a2:m7 b:m7 |   % 13
        e1:m7 |   % 14
        a1:m9 |   % 15
        e2:m7 d4/c c |   % 16
        b1:m7 |   % 17
        g2:maj7 e:m7 |   % 18
        a2:m7 c:maj7/d |   % 19
        g2:sus2 g |   % 20

        % Chorus

        d2. e4:m7 |   % 21
        b1:m7 |   % 22
        a2:m7 b:7.9-.13- |   % 23
        e2.:m7 d4 |   % 24
        c2:maj7 a:m7 |   % 25
        fs:m7.5- b:m7 |   % 26

        s1 |   % 27
        s1 |   % 28
        s2.. b8:m11 |   % 29
        s1 |   % 30

        s1 |   % 31
        s1 |   % 32
        s2.. b8:m11 |   % 33
        s1 |   % 34

        s2.. b8:m11 |   % 35

        s1 |   % 36

        c2:maj7 a:m7 |   % 37
        fs:m7.5- b:m7 |   % 38
        e1:m11 |   % 39
}


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

        % Intro

        r1 |   % 1
        r1 |   % 2
        r1 |   % 3
        r1 |   % 4
        r1 |   % 5
        r1 |   % 6
        r2.. c8 ~ |   % 7
        c1 |   % 8

        % Verse

        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
        c4 c c c |   % 16
        c4 c c c |   % 17
        c4 c c c |   % 18
        c4 c c c |   % 19
        c4 c c c |   % 20

        % Chorus

        c4 c c c |   % 21
        c4 c c c |   % 22
        c4 c c c |   % 23
        c4 c c c |   % 24
        c4 c c c |   % 25
        c4 c c c |   % 26

        r1 |   % 27
        r1 |   % 28
        r2.. c8 ~ |   % 29
        c1 |   % 30

        r1 |   % 31
        r1 |   % 32
        r2.. c8 ~ |   % 33
        c8 c c c c c c c |   % 34

        r2.. c8 ~ |   % 35

        c1 |   % 36

        c2 c |   % 37
        c2 c |   % 38
        c1^\fermata |   % 39
}


Dynamics =
{
        s4\mf s2. |   % 1

        s1*7

        s4_\markup { \italic { 1st X colors, 2nd X lite sn. } } s2. |   % 9

        s1*10

        s4\< s2. |   % 20
        s4\f s2. |   % 21

        s1*4

        s4 s \> s s \! |   % 26
        s4\mf s2. |   % 27

        s1*6

        s4 s \< s s \! |   % 34

        s1

        s4 s \> s s \! |   % 36

        s1

        s4_\markup { \italic { rit. } } s2. |   % 38
}


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

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

                <<
                        \new Staff = leadStaffBass { \new Voice = "leadbass" \RiffsBass }
                >>

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

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

        \layout
        {
                \context { \Staff \RemoveEmptyStaves }
        }
}


\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
}