+\version "2.19.48"
+\include "pop-chords.ly"
+\include "english.ly"
+
+% Good sizes are 16, 18, & 20
+staffSize = #20
+#(set-default-paper-size "letter")
+#(set-global-staff-size staffSize)
+#(ly:set-option (quote no-point-and-click))
+
+%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
+
+\header
+{
+%Let's bump up the title size and switch to the chord font. :-)
+
+ title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Here I Am To Worship" }
+ composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "T. Hughes" }
+ arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
+ tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
+}
+
+% Useful tweak abbreviations (hn = harmony note)
+
+hn = #(define-music-function (parser location arg) (ly:music?)
+;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
+
+ (set! (ly:music-property arg 'tweaks)
+ (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
+
+%
+% Song's structure
+%
+
+Global =
+{
+ \key a \major
+ % \override Staff.TimeSignature #'style = #'()
+ \time 4/4
+
+ % Intro
+
+% \once \override TextScript #'padding = #2.0
+% s1*0^\markup { \large \italic { Piano only } }
+ \partial 4*2 s2 | % 0
+ s1*5 \bar "||" % 1-5
+
+ \repeat volta 2
+ {
+ % Verse
+
+ \mark \markup { \override #'(font-family . sans) { \box { A } } }
+ s1*9 \bar "||" % 6-14
+
+ % Chorus
+
+% \mark \markup { \override #'(font-family . sans) { \box { B } } }
+\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*7 | % 15-21
+ }
+ \alternative
+ {
+ {
+\once \override Score.RehearsalMark #'self-alignment-X = #right
+\once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
+\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
+ s1*2 | % 22-23
+ }
+ {
+ s1 | % 24
+ }
+ }
+
+ \repeat volta 2
+ {
+ \mark \markup { \override #'(font-family . sans) { \box { C } } }
+ s1*3 | % 25-27
+ }
+ \alternative
+ {
+ {
+ s1 | % 28
+ }
+ {
+ s1 | % 29
+ }
+ }
+
+ s1 | % 30
+
+ \once \override Score.RehearsalMark #'self-alignment-X = #right
+ \mark \markup { \italic { D.S. al Coda } }
+
+ % blank measure between last measure and coda
+ \stopStaff s1 \startStaff
+ \set Score.currentBarNumber = #31
+
+ % Coda
+
+ \once \override Score.RehearsalMark #'self-alignment-X = #left
+ \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
+ s1 \bar "||" % 31
+
+ \mark \markup { \override #'(font-family . sans) { \box { D } } }
+ s1*8 \bar "||" % 32-39
+
+ \mark \markup { \override #'(font-family . sans) { \box { E } } }
+ s1*8 \bar "|." % 40-47
+}
+
+
+%
+% Lead vocal
+%
+
+LeadVox = \relative c''
+{
+ \clef G
+ \override Score.SpacingSpanner #'average-spacing-wishes = ##f
+
+ % Intro
+
+ s2 | % 0
+ s1 | % 1
+ s1 | % 2
+ s1 | % 3
+ s1 | % 4
+ s1 | % 5
+
+ % Verse
+
+ <gs \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn b> | % 6
+ <a \hn e \hn cs>4 <gs \hn e \hn cs>8 <fs \hn e \hn cs> <fs \hn cs \hn a> e <cs \hn a>4 | % 7
+ <gs' \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn b> ~ | % 8
+ <gs \hn e \hn b>8 <e \hn b \hn a> ~ <e \hn b \hn a>2 r4 | % 9
+ <gs \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn b> | % 10
+ <a \hn fs \hn cs>4 <a \hn fs \hn cs>8 <gs \hn e \hn cs> <fs \hn cs \hn a> e <e \hn cs \hn a>4 | % 11
+ <gs \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn cs> ~ | % 12
+ <gs \hn e \hn cs>8 <e \hn b \hn a> ~ <e \hn b \hn a>2 r4 | % 13
+ r4 r8. cs16 <a' \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn b> | % 14
+
+ % Chorus
+
+ <gs \hn e \hn b>4 <gs \hn e \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <fs \hn ds \hn b> <e \hn b \hn gs> | % 15
+ <fs \hn ds \hn b>4 <fs \hn ds \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn a> | % 16
+ <gs \hn e \hn b>4 <gs \hn e \hn b> <gs \hn e \hn b>8 <b \hn gs \hn e>4 <e, \hn cs \hn a>8 ~ | % 17
+ <e \hn cs \hn a>4 r8 cs16 <a' \hn fs> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn b> | % 18
+ <gs \hn e \hn b>4 <gs \hn e \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn cs \hn gs> | % 19
+ <fs \hn ds \hn b>4 <fs \hn ds \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn gs,> | % 20
+ <gs \hn e \hn b>4 <gs \hn e \hn b> <gs \hn e \hn b>8 <b \hn gs \hn e>4 <e, \hn cs \hn a>8 ~ | % 21
+
+ <e \hn cs \hn a>2 s | % 22
+ s1 | % 23
+
+ <e \hn cs \hn a>2-\repeatTie r8 b gs' fs ~ | % 24
+
+ % Bridge
+
+ fs4 <fs \hn ds \hn b>8 <gs \hn e \hn b> ~ <gs \hn e \hn b>4 <b \hn gs \hn e>8 <a \hn e \hn cs> ~ | % 25
+ <a \hn e \hn cs>8 <gs \hn e \hn b>4 <fs \hn e \hn b>8 ~ <fs \hn e \hn b>4 <gs \hn e \hn b>8 <fs \hn ds \hn b>8 ~ | % 26
+ <fs \hn ds \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn cs> ~ <gs \hn e \hn cs>4 <b \hn fs \hn e>8 <a \hn e \hn cs> ~ | % 27
+
+ a8 gs4 fs8 ~ fs b, <gs' \hn e> <gs \hn ds \hn b> | % 28
+
+ <a \hn e \hn cs>8-\repeatTie <gs \hn e \hn cs>4 <fs \hn e \hn b>8 ~ <fs \hn e \hn b>2 ~ | % 29
+
+ <fs \hn e \hn b>4 r8. cs16 <a' \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn b> | % 30
+
+ s1 % blank bar for coda
+
+ % Coda
+
+ <e \hn cs>4.-\repeatTie ~ <e \hn cs>16 cs <a' \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn ds> | % 31
+
+ <gs \hn e>4 <gs \hn e> <a \hn fs>8 <gs \hn e> <fs \hn ds> <e \hn b> | % 32
+ <fs \hn ds>4 <fs \hn ds> <a \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn ds> | % 33
+ <gs \hn e>4 <gs \hn e> <gs \hn e>8 <b \hn gs>4 <e, \hn cs>8 ~ | % 34
+ <e \hn cs>4. cs16 <a' \hn fs> <a \hn fs>8 <fs \hn e> <gs \hn e> <fs \hn ds> | % 35
+ <gs \hn e>4 <gs \hn e> <a \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn cs> | % 36
+ <fs \hn ds>4 <fs \hn ds> <a \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn ds> | % 37
+ <gs \hn e>4 <gs \hn e> <gs \hn e>8 <b \hn gs>4 <e, \hn cs>8 ~ | % 38
+ <e \hn cs>2 r8 b gs' fs ~ | % 39
+
+ fs4 fs8 gs ~ gs4 b8 a ~ | % 40
+ a8 gs4 fs8 ~ fs4 e8 fs ~ | % 41
+ fs4 fs8 gs ~ gs4 b8 a ~ | % 42
+ a8 gs4 fs8 ~ fs8 e ~ e4 ~ | % 43
+ e1 | % 44
+ s1 | % 45
+ s1 | % 46
+ s1 | % 47
+}
+
+
+LeadVoxTextA = \lyricmode
+{
+ Light of the world, you stepped down in -- to dark -- _ ness,
+ O -- pened my eyes, let me _ see, _
+ Beau -- ty that made this _ heart _ a -- dore _ you,
+ Hope of a life spent with _ you. _
+
+ So here I am to wor -- ship,
+ here I am to bow down,
+ here I am to say that you’re my God, _
+ And you’re al -- to -- geth -- er love -- ly,
+ al -- to -- geth -- er wor -- thy,
+ al -- to -- geth -- er won -- der -- ful to me. _ _
+
+ And I’ll ne -- _ ver know _
+ how much _ it cost _
+ to see _ my sin _ u -- pon _ that cross _
+
+ And I’ll ne
+ _ that cross. _ _
+
+ So here I am to
+
+ _ _ So here I am to wor -- ship,
+ here I am to bow down,
+ here I am to say that you’re my God, _
+ and you’re al -- to -- geth -- er love -- ly,
+ al -- to -- geth -- er wor -- thy,
+ al -- to -- geth -- er won -- der -- ful to me, _
+
+ And I’ll ne -- _ ver know _
+ how much _ it cost _
+ to see _ my sin _ u -- pon _ that cross _ _ _ _
+}
+
+
+LeadVoxTextB = \lyricmode
+{
+ King of all days, oh so high -- ly ex -- al -- _ ted,
+ glo -- rious in hea -- ven a -- _ bove, _
+ Hum -- bly you came to the Earth you cre -- a -- _ ted,
+ all for love’s sake be -- came _ poor. _
+}
+
+
+Riffs = \relative c''
+{
+ \tiny
+ a8 gs gs fs | % 0
+ gs4 gs a8 gs fs e | % 1
+ fs4 fs a8 gs gs fs | % 2
+ gs4 gs gs8 b4 e,8 ~ | % 3
+ e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 4
+ e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, | % 5
+
+ s1*16 | % 6-21
+
+ r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 22
+ e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, | % 23
+
+ s1*7 | % 24-30
+
+ s1 % blank bar for Coda
+
+ s1*13 | % 31-43
+
+ r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 44
+ e a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 45
+ e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, | % 46
+ <a b e>1-\fermata | % 47
+ \normalsize
+}
+
+
+%
+% Chord names
+%
+
+Chords = \chordmode
+{
+ % Intro
+
+ s2 | % 0
+ e1 | % 1
+ b1/ds | % 2
+ cs2:m cs:m/b | % 3
+ a1:sus2 | % 4
+ s1 | % 5
+
+ % Verse
+
+ e2 b4:sus4 b | % 6
+ fs2:m a | % 7
+ e2 b4:sus4 b | % 8
+ a1:sus2 | % 9
+ e2 b4:sus4 b | % 10
+ fs2:m a | % 11
+ e2 b4:sus4 b | % 12
+ a1:sus2 | % 13
+ a1:sus2 | % 14
+
+ % Chorus
+
+ e1 | % 15
+ b1/ds | % 16
+ cs2:m cs:m/b | % 17
+ a1:sus2 | % 18
+ e1 | % 19
+ b1 | % 20
+ e1/gs | % 21
+
+ a1:sus2 | % 22
+ s1 | % 23
+
+ a1:sus2 | % 24
+
+ % Bridge
+
+ b2/ds e | % 25
+ a1:sus2 | % 26
+ b2 cs:m | % 27
+
+ a1:sus2 | % 28
+
+ a1:sus2 | % 29
+ b1:sus4 | % 30
+
+ % Coda
+
+ s1 % blank
+
+ a1:sus2 | % 31
+ e1 | % 32
+ b1/ds | % 33
+ cs2:m cs:m/b | % 34
+ a1:sus2 | % 35
+ e1 | % 36
+ b1 | % 37
+ e1/gs | % 38
+ a1:sus2 | % 39
+
+ b2/ds e | % 40
+ a1:sus2 | % 41
+ b2 cs:m | % 42
+ a1:sus2 | % 43
+ a1:sus2 | % 44
+ s1 | % 45
+ s1 | % 46
+ a1:sus2 | % 47
+}
+
+
+%
+% 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...
+
+Rhythm = \relative c
+{
+ \override NoteHead #'style = #'slash
+ \teeny
+
+ % Intro
+
+ s2 | % 0
+ c1 | % 1
+ c1 | % 2
+ c2 c | % 3
+ c1 | % 4
+ c1 | % 5
+
+ % Verse
+
+ 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
+ c1 | % 14
+
+ % Chorus
+
+ 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
+ c4 c c c | % 21
+
+ c1 | % 22
+ c1 | % 23
+
+ c4 c c c | % 24
+
+ % Bridge
+
+ c4 c c c | % 25
+ c4 c c c | % 26
+ c4 c c c | % 27
+ c4 c c c | % 28
+
+ c4 c c c | % 29
+ c4 c c c | % 30
+
+ % Coda
+
+ % blank measure between last measure and coda
+%hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!!
+ \stopStaff s1 \startStaff
+
+ c4 c c c | % 31
+ c4 c c c | % 32
+ c4 c c c | % 33
+ c4 c c c | % 34
+ c4 c c c | % 35
+ c4 c c c | % 36
+ c4 c c c | % 37
+ c4 c c c | % 38
+ c4 c c c | % 39
+
+ c2 c | % 40
+ c2 c | % 41
+ c2 c | % 42
+ c2 c4 c | % 43
+ c1 | % 44
+ c1 | % 45
+ c1 | % 46
+ c1^\fermata | % 47
+}
+
+
+Dynamics =
+{
+%{
+ s1*12 | % 1-12
+ s4_\markup { \italic { Add bass, pad } } s2. | % 13
+ s1*7 | % 14-20
+ s4_\markup { \italic { Add perc, Ac. gtrs. } } s2. | % 21
+ s1*28 | % 22-49
+ s4_\markup { \italic { Piano only, like intro } } s2. | % 50
+ s1*2 | % 51-52
+ s4_\markup { \italic { Full band } } s2. | % 53
+%}
+ s2_\mf | % 0
+ s1*3 | % 1-3
+ s4_\markup { \italic { add cymbal colors } } s2. | % 5
+ s2 s16 s \> s4 s16 s \! | % 5
+
+ % Verse
+
+ s4_\markup { \italic { Unison 1st X } } s2. | % 6
+ s1*8 | % 7-14
+
+ % Chorus
+
+ s4_\markup { \italic { snare on D.S. } } s2. | % 15
+ s1*9 | % 16-24
+
+ % Bridge
+
+ s4_\markup { \italic { Unison 1st X } } s2. | % 25
+ s1*4 | % 26-29
+ s4.. s16_\markup { \italic { big fill } } \< s4. s8-\f | % 30
+
+ s1 % blank bar for coda
+
+ % Coda
+
+ s2 s8 \< s4 s8 \! | % 31
+ s4_\ff s2. | % 32
+ s1*6 | % 33-38
+ s2 s8 \> s4 s8-\mp | % 39
+
+ s4_\markup { \italic { floating } } s2. | % 40
+}
+
+
+\score
+{
+%{
+ <<
+ <<
+% \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
+ \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
+ \new Lyrics \lyricsto "lead" \LeadVoxText
+ >>
+
+ \new ChoirStaff = "Rhythm"
+ <<
+ \new ChordNames = "chords" \Chords
+ \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
+ >>
+
+ \set Score.skipBars = ##t
+ \set Score.melismaBusyProperties = #'()
+ >>
+%}
+ <<
+ \set Score.skipBars = ##t
+ \set Score.melismaBusyProperties = #'()
+
+ \new Staff
+ <<
+ \Global % The "roadmap" that everything else depends on
+ \new Voice = "lead" \LeadVox
+ \new Voice \Riffs
+ \new Lyrics \lyricsto "lead" \LeadVoxTextA
+ \new Lyrics \lyricsto "lead" \LeadVoxTextB
+ >>
+
+% \new Staff
+ <<
+ \new ChordNames \Chords
+ \new RhythmicStaff << \Rhythm \Dynamics >>
+ >>
+ >>
+}
+
+
+\paper
+{
+ #(define fonts (make-pango-font-tree
+ "Times New Roman"
+ "JazzText"
+ "Luxi Mono"
+ (/ staffSize 20)))
+
+% 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
+%let's try this: [It works! Huzzah!][nope... :-/]
+% obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
+}
+