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 "Doxology" }
16 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Old 100th" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
18 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
26 LeadVox = \relative c''
28 \set Staff.instrumentName = #"Sop."
31 \override Staff.TimeSignature #'style = #'()
33 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
38 \time 6/4 g4 fs e d g a | % 1
39 \time 4/4 b2. b4 | % 2
41 \time 6/4 b4 b a g c b | % 3
42 \time 4/4 a2. g4 | % 4
44 \time 6/4 a4 b a g d fs | % 5
45 \time 4/4 g2. d'4 | % 6
47 \time 6/4 b4 g a c b a | % 7
50 g2-\fermata g-\fermata \bar "|." % 9
53 AltoVox = \relative c'
55 \set Staff.instrumentName = #"Alto"
58 \override Staff.TimeSignature #'style = #'()
60 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
65 \time 6/4 d4 d b b b d | % 1
66 \time 4/4 d2. d4 | % 2
68 \time 6/4 ds4 e fs g g g | % 3
69 \time 4/4 fs2. e4 | % 4
71 \time 6/4 d4 d d d e ds | % 5
72 \time 4/4 e2. d4 | % 6
74 \time 6/4 d4 e fs e8 fs g4 fs | % 7
77 e2-\fermata d-\fermata \bar "|." % 9
80 TenorVox = \relative c'
82 \set Staff.instrumentName = #"Tenor"
85 \override Staff.TimeSignature #'style = #'()
87 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
92 \time 6/4 b4 a g fs g fs | % 1
93 \time 4/4 g2. g4 | % 2
95 \time 6/4 a4 g b b e d | % 3
96 \time 4/4 d2. b4 | % 4
98 \time 6/4 a4 g fs g g b | % 5
99 \time 4/4 b2. a4 | % 6
101 \time 6/4 g4 b d e d d8 c | % 7
104 c2-\fermata b-\fermata \bar "|." % 9
107 BassVox = \relative c
109 \set Staff.instrumentName = #"Bass"
112 \override Staff.TimeSignature #'style = #'()
114 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
118 \partial 4*1 g4 | % 0
119 \time 6/4 g'4 d e b e d | % 1
120 \time 4/4 g,2. g'4 | % 2
122 \time 6/4 fs4 e ds e c g | % 3
123 \time 4/4 d'2. e4 | % 4
125 \time 6/4 fs4 g d b c b | % 5
126 \time 4/4 e2. fs4 | % 6
128 \time 6/4 g4 e d a b8 c d4 | % 7
131 c,2-\fermata g-\fermata \bar "|." % 9
134 LeadVoxText = \lyricmode
136 Praise God from whom all bles -- sings flow;
137 Praise Him all crea -- tures here be -- low;
138 Praise Him a -- bove ye heaven -- ly host;
139 Praise Fa -- ther, Son, and Ho -- ly Ghost.
150 % \override SeparatingGroupSpanner #'padding = #'2.0
151 %Bah, can't we set this globally?
154 \partial 4*1 g4 | % 0
155 \time 6/4 s4 d e2.:m d4 | % 1
156 \time 4/4 g2. g4 | % 2
158 \time 6/4 b2:7 e:m c4 g | % 3
159 \time 4/4 d2. e4:m | % 4
161 \time 6/4 d4 g2. c4 b:7 | % 5
162 \time 4/4 e2.:m d4 | % 6
164 \time 6/4 g2 d4 a:m g d | % 7
175 % Use a RhythmicStaff on the chords instead of this?
176 % It almost works, but not quite. Doesn't collapse chords above to single notes...
178 %Slash = { \override NoteHead #'style = #'slash }
179 %Cross = { \override NoteHead #'style = #'cross }
183 \override Staff.TimeSignature #'style = #'()
185 \override NoteHead #'style = #'slash
189 \partial 4*1 c4 | % 0
190 \time 6/4 c4 c c c c c | % 1
191 \time 4/4 c2. c4 | % 2
193 \time 6/4 c4 c c c c c | % 3
194 \time 4/4 c2. c4 | % 4
196 \time 6/4 c4 c c c c c | % 5
197 \time 4/4 c2. c4 | % 6
199 \time 6/4 c4 c c c c c | % 7
202 c2-\fermata c-\fermata \bar "|." % 9
209 s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1
212 s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29
216 s2. s8 \> s \! | % 40
217 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41
222 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57
231 \new ChoirStaff = "Rhythm"
233 \new ChordNames = "chords" \Chords
234 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
238 \new Staff = UpperStaffA { \new Voice = "lead" \LeadVox }
239 \new Lyrics \lyricsto "lead" \LeadVoxText
240 \new Staff = UpperStaffB { \new Voice = "alto" \AltoVox }
241 \new Staff = LowerStaffA { \new Voice = "tenor" \TenorVox }
242 \new Staff = LowerStaffB { \new Voice = "bass" \BassVox }
245 \set Score.skipBars = ##t
246 \set Score.melismaBusyProperties = #'()
253 #(define fonts (make-pango-font-tree
259 % Spread staves vertically across last page (default: t)
260 ragged-last-bottom = ##f
261 % Don't spread staves vertically across the page (default: f)
262 % ragged-bottom = ##t
263 % Allow partial line for last stave (default: f)
266 % To find out what's eating the space at the top...
267 % annotate-spacing = ##t
268 %let's try this: [It works! Huzzah!]
269 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)