Shamusworld >> Repos - music/blob - all-creatures-of-our-god-and-king.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20
   6 staffSize = #20
   7 #(set-default-paper-size "letter")
   8 #(set-global-staff-size staffSize)
   9 #(ly:set-option (quote no-point-and-click))
  10
  11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  12
  13 \header
  14 {
  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))
  19 }
  20
  21
  22 %
  23 % Song's structure
  24 %
  25 Global =
  26 {
  27         \key d \major
  28         \numericTimeSignature
  29         \time 6/4
  30
  31         s1.*8 \bar "|."   % 1-16
  32 }
  33
  34
  35 %
  36 % Lead vocal
  37 %
  38 LeadVox = \relative c'
  39 {
  40         \clef G
  41         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  42
  43         % Verse
  44
  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
  49
  50         d4 d8 a a g fs g a2 |   % 5
  51         g8 ( fs ) e4 d g8 ( fs ) e4 d |   % 6
  52 %bleh
  53 \break
  54         d'8 cs b4 a d8 cs b4 a |   % 7
  55         g8 fs e2. d2 |   % 8
  56 }
  57
  58 LeadVoxText = \lyricmode
  59 {
  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!
  67 }
  68
  69 LeadVoxTextB = \lyricmode
  70 {
  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!
  76 }
  77
  78 LeadVoxTextC = \lyricmode
  79 {
  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,
  85 }
  86
  87 LeadVoxTextD = \lyricmode
  88 {
  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!
  94 }
  95
  96
  97 %
  98 % Chord names
  99 %
 100 Chords = \chordmode
 101 {
 102 %Bah, can't we set this globally?
 103 %       \popChords
 104
 105         d2. b4:m a2 |   % 1
 106         d2. b4:m a2 |   % 2
 107         d4/fs g d b:m e a |   % 3
 108         d2. b4:m a2 |   % 4
 109
 110         d2. b4:m a2 |   % 5
 111         g2 d4 e2:m b4:m |   % 6
 112         b4:m e a b:m e a |   % 7
 113         g4 a2. d2 |   % 8
 114 }
 115
 116
 117 %
 118 % Chord rhythms
 119 %
 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 }
 124 Rhythm = \relative c
 125 {
 126         \numericTimeSignature
 127         \override NoteHead #'style = #'slash
 128         \teeny
 129
 130         % Verse
 131
 132         c4 c c c c c |   % 1
 133         c4 c c c c c |   % 2
 134         c4 c c c c c |   % 3
 135         c4 c c c c c |   % 4
 136
 137         c4 c c c c c |   % 5
 138         c4 c c c c c |   % 6
 139         c4 c c c c c |   % 7
 140         c4 c c c c c |   % 8
 141 }
 142
 143
 144 Dynamics =
 145 {
 146 %{
 147         s4_\markup { \italic { snare on 4, bass 8th notes } } s2. |   % 1
 148         s1*26 |   % 2-27
 149         s2 s4 \< s |   % 28
 150         s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 |   % 29
 151         s1*8 |   % 30-37
 152         s2 s4 \< s \! |   % 38
 153         s1 |   % 39
 154         s2. s8 \> s \! |   % 40
 155         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. |   % 41
 156         s1*8 |   % 42-49
 157         s4 \< s2. |   % 50
 158         s4_\f s2. |   % 51
 159         s1*5 |   % 52-56
 160         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. |   % 57
 161         s2 s4 \< s \! |   % 58
 162 %}
 163 }
 164
 165
 166 \score
 167 {
 168         <<
 169                 \Global         % The "roadmap" that everything else depends on
 170
 171                 \context Staff
 172                 <<
 173                         \new Voice = "lead" \LeadVox
 174 %                       \new Voice \Riffs
 175                         \new Lyrics \lyricsto "lead" \LeadVoxText
 176                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 177                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 178                         \new Lyrics \lyricsto "lead" \LeadVoxTextD
 179                 >>
 180
 181                 \new ChoirStaff
 182                 <<
 183                         \new ChordNames \Chords
 184 %Capo 4 edition
 185 %                       \new ChordNames \transpose b g \Chords
 186                         \new RhythmicStaff << \Rhythm \Dynamics >>
 187                 >>
 188
 189                 \set Score.skipBars = ##t
 190                 \set Score.melismaBusyProperties = #'()
 191         >>
 192 }
 193
 194
 195 \paper
 196 {
 197         #(define fonts (make-pango-font-tree
 198                 "Times New Roman"
 199                 "JazzText"
 200                 "Luxi Mono"
 201                 (/ staffSize 20)))
 202
 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)
 208 %       ragged-last = ##t
 209
 210 % To find out what's eating the space at the top...
 211 %       annotate-spacing = ##t
 212 }
 213