Shamusworld >> Repos - music/blob - come-thou-fount-of-every-blessing.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 = #24
   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 "Come Thou Fount Of Every Blessing" }
  16 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Roger Freeland" }
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25 LeadVox = \relative c'
  26 {
  27         \clef G
  28         \key d \major
  29         \numericTimeSignature
  30         \time 3/4
  31
  32         % Intro
  33
  34         \partial 4*1 s4 |   % pickup
  35
  36         \repeat volta 3
  37         {
  38                 s2. |   % 1
  39                 s2. |   % 2
  40                 s2. |   % 3
  41                 s2 fs8 e \bar "||"   % 4
  42
  43                 % Verse
  44
  45                 d4 d fs8 a |   % 5
  46                 e4 e fs8 a |   % 6
  47                 b4 a fs8 e |   % 7
  48                 d2 fs8 e |   % 8
  49                 d4 d fs8 a |   % 9
  50                 e4 e fs8 a |   % 10
  51                 b4 a fs8 e |   % 11
  52                 d2 a'8 b16 ( cs ) |   % 12
  53                 d4 cs b8 a |   % 13
  54                 b8 a fs4 a8 b16 ( cs ) |   % 14
  55                 d4 cs b8 a |   % 15
  56                 d2 fs,8 e |   % 16
  57                 d4 d fs8 a |   % 17
  58                 e4 e fs8 a |   % 18
  59                 b4 a fs8 e |   % 19
  60         }
  61         \alternative
  62         {
  63                 {
  64                         d2 s4 |   % 20
  65                 }
  66                 {
  67                         d2 s4 |   % 21
  68                 }
  69         }
  70
  71         % Outro
  72
  73         s2. |   % 22
  74         s2. |   % 23
  75         s2. |   % 24
  76         s2. \bar "|."   % 25
  77 }
  78
  79 LeadVoxText = \lyricmode
  80 {
  81         Come thou fount of ev -- ery bless -- ing
  82         tune my heart to sing thy grace;
  83         Streams of mer -- cy nev -- er ceas -- ing
  84         call for songs of loud -- est praise.
  85         Teach me _ some me -- lo -- dious son -- _ net
  86         sung by _ fla -- ming tongues a -- bove;
  87         Praise the mount! I’m fixed u -- pon it,
  88         mount of thy re -- deem -- ing love.
  89 }
  90
  91 LeadVoxTextB = \lyricmode
  92 {
  93         This my glad com -- mem -- o -- ra -- tion
  94         that ’til now I’ve safe -- ly come;
  95         And I hope, by thy good pleas -- ure,
  96         safe -- ly to ar -- rive at home.
  97         Je -- sus _ sought me when a stran -- _ ger,
  98         Wan -- dering _ from the fold of God;
  99         He to res -- cue me from dan -- ger,
 100         in -- ter -- posed his pre -- cious blood.
 101 }
 102
 103 LeadVoxTextC = \lyricmode
 104 {
 105         O to grace how great a debt -- or
 106         dai -- ly I’m con -- strained to be!
 107         Let thy good -- ness, like a fet -- ter,
 108         bind my wan -- dering heart to thee:
 109         Prone to _ wan -- der, Lord, I feel _ it,
 110         Prone to _ leave the God I love:
 111         Here’s my heart, O take and seal it,
 112         seal it for thy courts a -- _ bove.
 113 }
 114
 115
 116 Riffs = \relative c'
 117 {
 118         % Intro
 119
 120         \partial 4*1 \tiny fs8 e |   % partial
 121
 122         \repeat volta 3
 123         {
 124                 d4 d fs8 a |   % 1
 125                 e4 e fs8 a |   % 2
 126                 b4 a fs8 e |   % 3
 127                 d2 s4 |   % 4
 128                 s2.*15 |   % 5-19
 129         }
 130         \alternative
 131         {
 132                 {
 133                         s2 fs8 e |   % 20
 134                 }
 135                 {
 136                         s2 fs8 e |   % 21
 137                 }
 138         }
 139
 140         % Outro
 141
 142         d4 d fs8 a |   % 22
 143         e4 e fs8 a |   % 23
 144         b4 a fs8 e |   % 24
 145         d2.^\fermata |   % 25
 146         \normalsize
 147 }
 148
 149
 150 %
 151 % Chord names
 152 %
 153 Chords = \chordmode
 154 {
 155         % Intro
 156
 157         s4 |   % pickup
 158
 159         \repeat volta 3
 160         {
 161                 d2. |   % 1
 162                 a2. |   % 2
 163                 g2 a4 |   % 3
 164                 d2. \bar "||"   % 4
 165
 166                 % Verse
 167
 168                 d2. |   % 5
 169                 a2 d4 |   % 6
 170                 g2 a4 |   % 7
 171                 d2. |   % 8
 172                 b2:m d4/fs |   % 9
 173                 a2 d4 |   % 10
 174                 g2 a4 |   % 11
 175                 d2. |   % 12
 176                 d2. |   % 13
 177                 g4 d2 |   % 14
 178                 b2:m d4 |   % 15
 179                 g2 a4 |   % 16
 180                 b2:m d4/fs |   % 17
 181                 a2 d4 |   % 18
 182                 g2 a4 |   % 19
 183         }
 184         \alternative
 185         {
 186                 {
 187                         d2. |   % 20
 188                 }
 189                 {
 190                         d2.|   % 21
 191                 }
 192         }
 193
 194         % Outro
 195
 196         d2. |   % 22
 197         a2 d4 |   % 23
 198         g2 a4 |   % 24
 199         d2. |   % 25
 200 }
 201
 202
 203 %
 204 % Chord rhythms
 205 %
 206
 207 % Use a RhythmicStaff on the chords instead of this?
 208 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 209
 210 StaffC = \relative c
 211 {
 212         \numericTimeSignature
 213         \time 3/4
 214         \override NoteHead #'style = #'slash
 215         \teeny
 216
 217         % Intro
 218
 219         \partial 4*1 s4 |   % pickup
 220
 221         \repeat volta 3
 222         {
 223                 c4 c c |   % 1
 224                 c4 c c |   % 2
 225                 c4 c c |   % 3
 226                 c4 c c \bar "||"   % 4
 227
 228                 % Verse
 229
 230                 c4 c c |   % 5
 231                 c4 c c |   % 6
 232                 c4 c c |   % 7
 233                 c4 c c |   % 8
 234                 c4 c c |   % 9
 235                 c4 c c |   % 10
 236                 c4 c c |   % 11
 237                 c4 c c |   % 12
 238                 c4 c c |   % 13
 239                 c4 c c |   % 14
 240                 c4 c c |   % 15
 241                 c4 c c |   % 16
 242                 c4 c c |   % 17
 243                 c4 c c |   % 18
 244                 c4 c c |   % 19
 245         }
 246         \alternative
 247         {
 248                 {
 249                         c4 c c |   % 20
 250                 }
 251                 {
 252                         c4 c c |   % 21
 253                 }
 254         }
 255
 256         % Outro
 257
 258         c4 c c |   % 22
 259         c4 c c |   % 23
 260         c4 c c |   % 24
 261         c2.^\fermata |   % 25
 262 }
 263
 264
 265 Dynamics =
 266 {
 267 %{
 268         s4_\markup { \italic { snare pat. } } s2 |   % 1
 269         s4_\markup { \italic { simile } } s2 |   % 2
 270         s2.*19
 271         s4_\markup { \italic { spacy } } s2 |   % 22
 272         s2.*5
 273         s4 s \< s \! |   % 28
 274         s2.*22
 275         s4_\markup { \italic { Last time } } s2 |   % 51
 276 %}
 277 }
 278
 279
 280 \score
 281 {
 282         <<
 283                 \context Staff
 284                 <<
 285                         \new Voice = "lead" \LeadVox
 286                         \new Voice = "riffs" \Riffs
 287                         \new Lyrics \lyricsto "lead" \LeadVoxText
 288                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 289                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 290                 >>
 291
 292                 \new ChoirStaff
 293                 <<
 294                         \new ChordNames \Chords
 295                         \new RhythmicStaff << \StaffC \Dynamics >>
 296                 >>
 297
 298                 \set Score.skipBars = ##t
 299                 \set Score.melismaBusyProperties = #'()
 300         >>
 301 }
 302
 303
 304 \paper
 305 {
 306   #(define fonts (make-pango-font-tree
 307     "Times New Roman"
 308     "JazzText"
 309     "Luxi Mono"
 310     (/ staffSize 20)))
 311
 312 % Don't spread staves vertically across last page (default: t)
 313 %       ragged-last-bottom = ##f
 314 % Don't spread staves vertically across the page (default: f)
 315 %       ragged-bottom = ##t
 316 % Allow partial line for last stave (default: f)
 317         ragged-last = ##t
 318
 319 % To find out what's eating the space at the top...
 320 %       annotate-spacing = ##t
 321 }
 322