2 \include "pop-chords.ly"
5 % Good sizes are 16, 18, & 20
7 #(set-default-paper-size "letter")
8 #(set-global-staff-size staffSize)
9 #(ly:set-option (quote no-point-and-click))
11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
15 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "The Church’s One Foundation" }
16 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Samuel S. Wesley/Samuel J. Stone" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Hammons/Dannemiller" }
18 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
26 LeadVox = \relative c'
28 % \set Voice.autoBeaming = ##f
29 % \set Staff.instrument = #"Lead vox"
32 \override Staff.TimeSignature #'style = #'()
34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
38 \partial 4*1 fs4 | % 0
57 \partial 4*3 d2. \bar "|." % 16
60 LeadVoxText = \lyricmode
62 The Church -- ’s one foun -- da -- tion is Je -- sus Christ her Lord,
63 She is His new cre -- a -- tion by wa -- ter and the word;
64 From heav’n He came and sought her to be His ho -- ly bride;
65 With His own blood He bought her, and for her life He died.
68 LeadVoxTextB = \lyricmode
70 E -- lect from e -- vr’y na -- tion, yet one o’er all the earth,
71 Her char -- ter of sal -- va -- tion, one Lord, one faith, one birth;
72 One ho -- ly name she bless -- es, par -- takes one ho -- ly food,
73 And to one hope she press -- es, with e -- vr’y grace en -- dured.
76 LeadVoxTextC = \lyricmode
78 ’Mid toil and tri -- bu -- la -- tion, and tu -- mult of her war,
79 She waits the con -- sum -- ma -- tion of peace for e -- ver -- more;
80 Till with the vi -- sion glo -- rious, her long -- ing eyes are blest,
81 And the great Church vic -- to -- rious shall be the Church at rest.
84 LeadVoxTextD = \lyricmode
86 Yet she on earth hath un -- ion with God, the Three in One,
87 And mys -- tic sweet com -- mu -- nion with those whose rest is won;
88 O hap -- py ones and ho -- ly! Lord, give us grace that we
89 Like them, the meek and low -- ly, on high may dwell with Thee.
99 \override SeparatingGroupSpanner #'padding = #'2.0
100 %Bah, can't we set this globally?
103 \partial 4*1 s4 | % 0
130 % Use a RhythmicStaff on the chords instead of this?
131 % It almost works, but not quite. Doesn't collapse chords above to single notes...
133 %Slash = { \override NoteHead #'style = #'slash }
134 %Cross = { \override NoteHead #'style = #'cross }
138 \override Staff.TimeSignature #'style = #'()
140 \override NoteHead #'style = #'slash
144 \partial 4*1 r4 | % 0
170 s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1
173 s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29
177 s2. s8 \> s \! | % 40
178 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41
183 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57
193 \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
194 \new Lyrics \lyricsto "lead" \LeadVoxText
195 \new Lyrics \lyricsto "lead" \LeadVoxTextB
196 \new Lyrics \lyricsto "lead" \LeadVoxTextC
197 \new Lyrics \lyricsto "lead" \LeadVoxTextD
200 \new ChoirStaff = "Rhythm"
202 \new ChordNames = "chords" \Chords
203 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
206 \set Score.skipBars = ##t
207 \set Score.melismaBusyProperties = #'()
212 % \context { \Staff \RemoveEmptyStaves }
213 % ragged-last-bottom = ##t
221 #(define fonts (make-pango-font-tree
227 % top-margin = -0.25 \in