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         \override Staff.TimeSignature #'style = #'()
  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         \override Staff.TimeSignature #'style = #'()
 127         \override NoteHead #'style = #'slash
 128
 129         % Verse
 130
 131         c4 c c c c c |   % 1
 132         c4 c c c c c |   % 2
 133         c4 c c c c c |   % 3
 134         c4 c c c c c |   % 4
 135
 136         c4 c c c c c |   % 5
 137         c4 c c c c c |   % 6
 138         c4 c c c c c |   % 7
 139         c4 c c c c c \bar "|."   % 8
 140 }
 141
 142
 143 Dynamics =
 144 {
 145 %{
 146         s4_\markup { \italic { snare on 4, bass 8th notes } } s2. |   % 1
 147         s1*26 |   % 2-27
 148         s2 s4 \< s |   % 28
 149         s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 |   % 29
 150         s1*8 |   % 30-37
 151         s2 s4 \< s \! |   % 38
 152         s1 |   % 39
 153         s2. s8 \> s \! |   % 40
 154         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. |   % 41
 155         s1*8 |   % 42-49
 156         s4 \< s2. |   % 50
 157         s4_\f s2. |   % 51
 158         s1*5 |   % 52-56
 159         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. |   % 57
 160         s2 s4 \< s \! |   % 58
 161 %}
 162 }
 163
 164
 165 \score
 166 {
 167         <<
 168                 \Global                                         % The "roadmap" that everything else depends on
 169
 170                 \context Staff
 171                 <<
 172                         \new Voice = "lead" \LeadVox
 173 %                       \new Voice \Riffs
 174                         \new Lyrics \lyricsto "lead" \LeadVoxText
 175                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 176                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 177                         \new Lyrics \lyricsto "lead" \LeadVoxTextD
 178                 >>
 179
 180                 \new ChoirStaff
 181                 <<
 182                         \new ChordNames \Chords
 183 %Capo 4 edition
 184 %                       \new ChordNames \transpose b g \Chords
 185                         \new RhythmicStaff << \Rhythm \Dynamics >>
 186                 >>
 187
 188                 \set Score.skipBars = ##t
 189                 \set Score.melismaBusyProperties = #'()
 190         >>
 191 }
 192
 193
 194 \paper
 195 {
 196   #(define fonts (make-pango-font-tree
 197     "Times New Roman"
 198     "DomCasual BT"
 199     "Luxi Mono"
 200     (/ staffSize 20)))
 201
 202 % Spread staves vertically across last page (default: t)
 203 %       ragged-last-bottom = ##f
 204 % Don't spread staves vertically across the page (default: f)
 205 %       ragged-bottom = ##t
 206 % Allow partial line for last stave (default: f)
 207 %       ragged-last = ##t
 208
 209 % To find out what's eating the space at the top...
 210 %       annotate-spacing = ##t
 211 %let's try this: [It works! Huzzah!]
 212         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 213 }