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