Shamusworld >> Repos - music/blob - as-the-deer.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 %Let's bump up the title size and switch to the chord font. :-)
  16
  17         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "As The Deer" }
  18 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 }
  22
  23 % Useful tweak abbreviations (hn = harmony note)
  24
  25 hn = #(define-music-function (parser location arg) (ly:music?)
  26 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  27
  28   (set! (ly:music-property arg 'tweaks)
  29     (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
  30
  31
  32 %
  33 % Song's structure
  34 %
  35 Global =
  36 {
  37         \key c \major
  38         \numericTimeSignature
  39         \time 4/4
  40
  41         % Intro
  42
  43         \once \override TextScript #'padding = #2.0
  44         s1*0^\markup { \large { Moderate ballad } }
  45         s1*4 |   % 1-4
  46
  47         \repeat volta 2
  48         {
  49                 % A section
  50
  51                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  52
  53                 s1*7 |   % 5-11
  54                 s1 \bar "||"   % 12
  55
  56                 % B section
  57
  58                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  59
  60                 s1*7 |   % 13-19
  61         }
  62         \alternative
  63         {
  64                 {
  65                         s1 |   % 20
  66                 }
  67                 {
  68                         s1 \bar "||"   % 21
  69                 }
  70         }
  71
  72         % A section (modulation)
  73
  74         \key d \major
  75
  76         \once \override Score.RehearsalMark #'padding = #2.0
  77         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  78
  79         s1*8 |   % 22-29
  80
  81         % B section
  82
  83         \repeat volta 2
  84         {
  85                 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  86
  87                 s1*7 |   % 30-36
  88         }
  89         \alternative
  90         {
  91                 {
  92                         s1 |   % 37
  93                 }
  94                 {
  95                         s1 |   % 38
  96                 }
  97         }
  98
  99         % Outro
 100
 101         s1*5 |   % 39-43
 102         s1 \bar "|."   % 44
 103 }
 104
 105
 106 %
 107 % Lead vocal
 108 %
 109 LeadVox = \relative c'
 110 {
 111         \clef G
 112         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 113
 114         s1 |   % 1
 115         s1 |   % 2
 116         s1 |   % 3
 117         s1 |   % 4
 118
 119         % A section
 120
 121         e4 g g e8 d |   % 5
 122         c4. d8 f e d c |   % 6
 123         a'4 a8 a g4. f8 |   % 7
 124         g1 |   % 8
 125         e4 g g e8 d |   % 9
 126         c4. d8 f ( e ) d c |   % 10
 127         c4. e8 d4. c8 |   % 11
 128         c2 ~ c4 r |   % 12
 129
 130         % B section
 131
 132         <c' \hn a \hn e>4 <c \hn a \hn e> <c \hn g \hn e> <c \hn g \hn e>8 <b \hn g \hn e> |   % 13
 133         <a \hn f \hn c>4 <a \hn d, \hn b> <g \hn e \hn c>4. <\hn e c>8 |   % 14
 134         <a \hn f \hn d>4 <a \hn f \hn d> <a \hn f \hn c> <a \hn f \hn c>8 [ <g \hn e \hn c> ] |   % 15
 135         <f \hn d \hn a>4 <f \hn d \hn a>
 136         << { \voiceOne <e \hn b>2 } \new Voice = "v" { \voiceTwo <\hn a,>4 ( <\hn gs> ) } >> \oneVoice |   % 16
 137         e'4 g g e8 d |   % 17
 138         c4. d8 f ( e ) d c |   % 18
 139         c4. e8 d4. c8 |   % 19
 140
 141         c2 r |   % 20
 142
 143         c2 r |   % 21
 144
 145         % A section (modulation)
 146
 147         fs4 a a fs8 e |   % 22
 148         d4. e8 g fs e d |   % 23
 149         b'4. b8 a4. g8 |   % 24
 150         a1 |   % 25
 151         fs4 a a fs8 e |   % 26
 152         d4. e8 g fs e d |   % 27
 153         d4. fs8 e4. d8 |   % 28
 154         d2 ~ d4 r |   % 29
 155
 156         % B section
 157
 158         <d' \hn b \hn fs>4 <d \hn b \hn fs> <d \hn a \hn fs> <d \hn a \hn fs>8 <cs \hn a \hn fs> |   % 30
 159         <b \hn g \hn d>4 <b \hn e, \hn cs> <a \hn fs \hn d>4. <\hn fs d>8 |   % 31
 160         <b \hn g \hn e>4 <b \hn g \hn e> <b \hn g \hn d> <b \hn g \hn d>8 <a \hn fs \hn d> |   % 32
 161         <g \hn e \hn b>4 <g \hn e \hn b>
 162 %       << { \voiceOne <fs \hn cs>2 } \new Voice = "v" { \voiceTwo \override NoteHead #'font-size = #-3.5 b,4 ( as ) \override NoteHead #'font-size = #1.0 } >> \oneVoice |   % 33
 163         << { \voiceOne <fs \hn cs>2 } \new Voice = "v" { \voiceTwo <\hn b,>4 ( <\hn as> ) } >> \oneVoice |   % 33
 164         fs'4 a a fs8 e |   % 34
 165         d4. e8 g fs e d |   % 35
 166         d4. fs8 e4. d8 |   % 36
 167
 168         d1 |   % 37
 169
 170         d2 ~ d4 fs8 e |   % 38
 171
 172         % Outro
 173
 174         d4. fs8 e4. d8 |   % 39
 175         d2 ~ d4 fs8 e |   % 40
 176         d4. fs8 e4. d8 |   % 41
 177         << { \voiceOne d1 } \context Voice = v { \voiceThree s1 } >> \oneVoice |   % 42
 178
 179         s1 |   % 43
 180         s1 |   % 44
 181 }
 182
 183 LeadVoxText = \lyricmode
 184 {
 185         As the deer pant -- eth for the wa -- ter
 186         so my soul long -- eth a -- fter thee,
 187
 188         You a -- lone are my heart’s de -- sire _
 189         and I long to wor -- ship thee. _
 190
 191         You a -- lone are my strength my shield;
 192         To you a -- lone may my spi -- rit yield.
 193
 194         You a -- lone are my heart’s de -- sire _
 195         and I long to wor -- ship thee.
 196
 197         thee.
 198
 199         I want you more than gold or sil -- ver,
 200         on -- ly you can sa -- tis -- fy.
 201
 202         You a -- lone are the real joy gi -- ver
 203         and the ap -- ple of my eye. _
 204
 205         You a -- lone are my strength my shield;
 206         To you a -- lone may my spi -- rit yield.
 207
 208         You a -- lone are my heart’s de -- sire _
 209         and I long to wor -- ship thee.
 210
 211         thee, _
 212
 213         and I long to wor -- ship thee, _
 214         and I long to wor -- ship thee.
 215 }
 216
 217 LeadVoxTextB = \lyricmode
 218 {
 219         You’re my friend and you are my bro -- ther
 220         e -- ven though you _ are a king,
 221
 222         I love you more than a -- ny o -- ther
 223         so much more than a -- ny -- thing. _
 224 }
 225
 226
 227 %
 228 % Riffs
 229 %
 230 Riffs = \relative c'
 231 {
 232         % Intro
 233
 234         \tiny
 235         e4 g g e8 d |   % 1
 236         c4. d8 f e d c |   % 2
 237         c4. e8 d4. c8 |   % 3
 238         c1 |   % 4
 239
 240         s1*37 |   % 5-41
 241
 242         << { \voiceOne s1 } \context Voice = v { \voiceThree \tiny fs4 a a fs8 e \normalsize } >> \oneVoice |   % 42
 243         d4. e8 g fs e d |   % 43
 244         d1^\fermata |   % 44
 245         \normalsize
 246 }
 247
 248
 249 %
 250 % Chord names
 251 %
 252 Chords = \chordmode
 253 {
 254         % Intro
 255
 256         c2 e:m/b |   % 1
 257         a2:m c/g |   % 2
 258         d2:m g4:sus4 g |   % 3
 259         c2 g4/c f/c |   % 4
 260
 261         % A section
 262
 263         c2 e:m/b |   % 5
 264         a2:m c/g |   % 6
 265         f2 g:sus2/f |   % 7
 266         c2 g4/c f/c |   % 8
 267         c2 e:m/b |   % 9
 268         a2:m c/g |   % 10
 269         d2:m7 g4:sus4 g |   % 11
 270         c2. g4/b |   % 12
 271
 272         % B section
 273
 274         a2:m a:m7/g |   % 13
 275         f4 g:sus2/f c2/e |   % 14
 276         d2:m d:m/c |   % 15
 277         d2:m/b e4:sus4 e |   % 16
 278         c2 e:m/b |   % 17
 279         a2:m c/g |   % 18
 280         d2:m g4:sus4 g |   % 19
 281
 282         c2 g4/c f/c |   % 20
 283
 284         c2 g/a |   % 21
 285
 286         % A section (modulation)
 287
 288         d2 fs:m/cs |   % 22
 289         b2:m d/a |   % 23
 290         g2 a:sus2/g |   % 24
 291         d2 a4/d g/d |   % 25
 292         d2 fs:m/cs |   % 26
 293         b2:m d/a |   % 27
 294         e2:m a4:sus4 a |   % 28
 295         d2. a4/cs |   % 29
 296
 297         % B section
 298
 299         b2:m b:m/a |   % 30
 300         g4 a:sus2/g d2/fs |   % 31
 301         e2:m e:m/d |   % 32
 302         e2:m/cs fs4:sus4 fs |   % 33
 303         d2 fs:m/cs |   % 34
 304         b2:m d/a |   % 35
 305         e2:m7 a4:sus4 a |   % 36
 306
 307         d2. a4/cs |   % 37
 308
 309         b2:m b:m/a |   % 38
 310
 311         % Outro
 312
 313         e2:m7 a4:sus4 a |   % 39
 314         b2.:m b4:m/a |   % 40
 315         e2:m7 a4:sus4 a |   % 41
 316         d2 fs:m/cs |   % 42
 317         b2:m g:sus2 |   % 43
 318         d1 |   % 44
 319 }
 320
 321
 322 %
 323 % Chord rhythms
 324 %
 325
 326 % Use a RhythmicStaff on the chords instead of this?
 327 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 328
 329 Rhythm =
 330 {
 331         \numericTimeSignature
 332         \override NoteHead #'style = #'slash
 333         \teeny
 334
 335         % Intro
 336
 337         c4 c c c |   % 1
 338         c4 c c c |   % 2
 339         c4 c c c |   % 3
 340         c4 c c c |   % 4
 341
 342         % A section
 343
 344         c4 c c c |   % 5
 345         c4 c c c |   % 6
 346         c4 c c c |   % 7
 347         c4 c c c |   % 8
 348         c4 c c c |   % 9
 349         c4 c c c |   % 10
 350         c4 c c c |   % 11
 351         c4 c c c |   % 12
 352
 353         % B section
 354
 355         c4 c c c |   % 13
 356         c4 c c c |   % 14
 357         c4 c c c |   % 15
 358         c4 c c c |   % 16
 359         c4 c c c |   % 17
 360         c4 c c c |   % 18
 361         c4 c c c |   % 19
 362
 363         c4 c c c |   % 20
 364
 365         c4 c c c |   % 21
 366
 367         % A section (modulation)
 368
 369         c4 c c c |   % 22
 370         c4 c c c |   % 23
 371         c4 c c c |   % 24
 372         c4 c c c |   % 25
 373         c4 c c c |   % 26
 374         c4 c c c |   % 27
 375         c4 c c c |   % 28
 376         c4 c c c |   % 29
 377
 378         % B section
 379
 380         c4 c c c |   % 30
 381         c4 c c c |   % 31
 382         c4 c c c |   % 32
 383         c4 c c c |   % 33
 384         c4 c c c |   % 34
 385         c4 c c c |   % 35
 386         c4 c c c |   % 36
 387
 388         c4 c c c |   % 37
 389
 390         c4 c c c |   % 38
 391
 392         % Outro
 393
 394         c4 c c c |   % 39
 395         c4 c c c |   % 40
 396         c4 c c c |   % 41
 397         c4 c c c |   % 42
 398         c4 c c c |   % 43
 399         c1-\fermata |   % 44
 400 }
 401
 402 Dynamics =
 403 {
 404         % Intro
 405
 406         s1*17 |   % 1-17
 407
 408         s2 s4_\markup { \italic { rit. } } s |   % 18
 409         s4_\markup { \italic { A tempo } } s2. |   % 19
 410
 411         s1*13 |   % 20-32
 412
 413         s2 s4_\markup { \italic { rit. } } s |   % 33
 414         s4_\markup { \italic { A tempo } } s2. |   % 34
 415
 416         s1*6 |   % 35-40
 417
 418         s2 s4_\markup { \italic { rit. } } s |   % 41
 419
 420         s1*3 |   % 42-44
 421 }
 422
 423
 424 \score
 425 {
 426         <<
 427                 \Global                 % The "roadmap" that everything else depends on
 428
 429                 \context Staff
 430                 <<
 431                         << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
 432                         \new Lyrics \lyricsto "lead" \LeadVoxText
 433                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 434                 >>
 435
 436                 \new ChoirStaff
 437                 <<
 438                         \new ChordNames \Chords
 439                         \new RhythmicStaff << \Rhythm \Dynamics >>
 440                 >>
 441
 442                 \set Score.skipBars = ##t
 443                 \set Score.melismaBusyProperties = #'()
 444         >>
 445 }
 446
 447
 448 \paper
 449 {
 450         #(define fonts (make-pango-font-tree
 451                 "Times New Roman"
 452                 "JazzText"
 453                 "Luxi Mono"
 454                 (/ staffSize 20)))
 455
 456 % Spread staves vertically across last page (default: t)
 457 %       ragged-last-bottom = ##f
 458 % Don't spread staves vertically across the page (default: f)
 459 %       ragged-bottom = ##t
 460 % Allow partial line for last stave (default: f)
 461         ragged-last = ##t
 462
 463 % To find out what's eating the space at the top...
 464 %       annotate-spacing = ##t
 465 }
 466