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 "All Creatures Of Our God And King" }
16 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Francis of Assisi/William H. Draper" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" }
18 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
31 s1.*8 \bar "|." % 1-16
38 LeadVox = \relative c'
41 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
45 d4 d8 e fs d fs g a2 | % 1
46 d,4 d8 e fs d fs g a2 | % 2
47 d8 cs b4 a d8 cs b4 a | % 3
48 d4 d8 a a g fs g a2 | % 4
50 d4 d8 a a g fs g a2 | % 5
51 g8 ( fs ) e4 d g8 ( fs ) e4 d | % 6
54 d'8 cs b4 a d8 cs b4 a | % 7
58 LeadVoxText = \lyricmode
60 All crea -- tures of our God and King,
61 Lift up your voice and with us sing,
62 Al -- le -- lu -- ia, al -- le -- lu -- ia!
63 Thou burn -- ing sun with gold -- en beam,
64 Thou sil -- ver moon with soft -- er gleam,
65 O _ praise him, O _ praise him,
66 Al -- le -- lu -- ia, al -- le -- lu -- ia, al -- le -- lu -- ia!
69 LeadVoxTextB = \lyricmode
71 Thou rush -- ing wind that art so strong,
72 Ye clouds that sail in heav’n a -- long,
73 Al -- le -- lu -- ia, al -- le -- lu -- ia!
74 Thou ris -- ing morn, in praise re -- joice,
75 Ye lights of eve -- ning, find a voice!
78 LeadVoxTextC = \lyricmode
80 Thou flow -- ing wa -- ter, pure and clear,
81 Make mu -- sic for thy Lord to hear,
82 Al -- le -- lu -- ia, al -- le -- lu -- ia!
83 Thou fire so mas -- ter -- ful and bright,
84 That giv -- est man both warmth and light,
87 LeadVoxTextD = \lyricmode
89 All crea -- tures, your cre -- a -- tor bless,
90 And wor -- ship God in hum -- ble -- ness,
91 Al -- le -- lu -- ia, al -- le -- lu -- ia!
92 Praise, praise the Fa -- ther, praise the Son,
93 And praise the Spi -- rit, three in one!
102 %Bah, can't we set this globally?
107 d4/fs g d b:m e a | % 3
111 g2 d4 e2:m b4:m | % 6
112 b4:m e a b:m e a | % 7
120 % Use a RhythmicStaff on the chords instead of this?
121 % It almost works, but not quite. Doesn't collapse chords above to single notes...
122 %Slash = { \override NoteHead #'style = #'slash }
123 %Cross = { \override NoteHead #'style = #'cross }
126 \numericTimeSignature
127 \override NoteHead #'style = #'slash
147 s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1
150 s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29
154 s2. s8 \> s \! | % 40
155 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41
160 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57
169 \Global % The "roadmap" that everything else depends on
173 \new Voice = "lead" \LeadVox
175 \new Lyrics \lyricsto "lead" \LeadVoxText
176 \new Lyrics \lyricsto "lead" \LeadVoxTextB
177 \new Lyrics \lyricsto "lead" \LeadVoxTextC
178 \new Lyrics \lyricsto "lead" \LeadVoxTextD
183 \new ChordNames \Chords
185 % \new ChordNames \transpose b g \Chords
186 \new RhythmicStaff << \Rhythm \Dynamics >>
189 \set Score.skipBars = ##t
190 \set Score.melismaBusyProperties = #'()
197 #(define fonts (make-pango-font-tree
203 % Spread staves vertically across last page (default: t)
204 % ragged-last-bottom = ##f
205 % Don't spread staves vertically across the page (default: f)
206 % ragged-bottom = ##t
207 % Allow partial line for last stave (default: f)
210 % To find out what's eating the space at the top...
211 % annotate-spacing = ##t