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