Shamusworld >> Repos - music/blob - forever.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 "Forever" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Chris Tomlin/Jesse Reeves" }
  19 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 % Let's try a chord dictionary
  22 %       subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } "       " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } "       " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" }  "       " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" }  "       " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" }  "       " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" }  }
  23 }
  24
  25 % Useful tweak abbreviations (hn = harmony note)
  26
  27 hn = #(define-music-function (parser location arg) (ly:music?)
  28 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  29
  30   (set! (ly:music-property arg 'tweaks)
  31     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  32
  33
  34 %
  35 % Song's structure
  36 %
  37 Global =
  38 {
  39         \key g \major
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 4/4
  42
  43         % Intro
  44
  45         \once \override TextScript #'padding = #2.0
  46         s1*0^\markup { \large \bold { 8th Note Rock } }
  47 % Capo 4 version
  48 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  49
  50         s1*8 \bar "||:"    % 1-8
  51
  52         % Verse
  53
  54         \repeat volta 2
  55         {
  56                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  57                 s1*11 |   % 9-19
  58         }
  59         \alternative
  60         {
  61                 {
  62                         s1 |   % 20
  63                 }
  64                 {
  65                         s1 |   % 21
  66                 }
  67         }
  68
  69         % Prechorus
  70
  71         s1*4 \bar "||"   % 22-25
  72
  73         % Chorus
  74
  75         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  76         s1*10 \bar "||"   % 26-
  77
  78         % Verse
  79
  80         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  81         s1*8 \bar "||"   % -
  82
  83         % Prechorus
  84
  85         \mark \markup { \override #'(font-family . sans) { \box { D } } }
  86         s1*8 \bar "||:"   % -
  87
  88         % Chorus
  89
  90         \repeat volta 2
  91         {
  92                 \mark \markup { \override #'(font-family . sans) { \box { E } } }
  93                 s1*10 |   % -
  94         }
  95
  96         % Bridge
  97
  98         \mark \markup { \override #'(font-family . sans) { \box { F } } }
  99         s1*7 |   % -
 100 %       s1*0^\markup { \large \bold { "Repeat at [D], end at [F]" } }
 101         \mark \markup { \large \bold { "Repeat at [D], end at [F]" } }
 102         s1*1 \bar "||"   % -
 103 %       \once \override Score.RehearsalMark #'self-alignment-X = #right
 104 }
 105
 106
 107 %
 108 % Lead vocal
 109 %
 110 LeadVox = \relative c'
 111 {
 112 %       \set Staff.instrument = #"Lead vox"
 113         \clef G
 114         \override Staff.TimeSignature #'style = #'()
 115 %Hm. Needed anymore?
 116 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 117
 118         % Intro
 119
 120         r1 |   % 1
 121         r1 |   % 2
 122         r1 |   % 3
 123         r1 |   % 4
 124         r1 |   % 5
 125         r1 |   % 6
 126         r1 |   % 7
 127         r2 r4 d |   % 8
 128
 129         % Verse
 130
 131         b8 d d d ~ d d4 e8 ~ |   % 9
 132         e8 d4 d8 ~ d4 r8 d8 |   % 10
 133         b'4 b b a8 a ( |   % 11
 134         g8 ) g ~ g2 g8 g |   % 12
 135         e8 g4 g8 ~ g g g g |   % 13
 136         a8 b4 g8 ~ g4 r8 d8 |   % 14
 137         b'4 b b a8 a ( |   % 15
 138         g8 ) g ~ g2 g4 |   % 16
 139
 140         a1 ~ |   % 17
 141         a2 ~ a8 b4. |   % 18
 142         g1 ~ |   % 19
 143
 144         g2. c,8 c |   % 20
 145
 146         g'2 ~ g8 g4. |   % 21
 147
 148         a1 ~ |   % 22
 149         a2 ~ a8 b4. |   % 23
 150         g1 ~ |   % 24
 151         g2. d'8 d ~ |   % 25
 152
 153         % Chorus
 154
 155         d8 b4 a8 ~ a g4 a8 ~ |   % 26
 156         a8 b2 ~ b8 d8 d ~ |   % 27
 157         d8 b4 a8 ~ a b4 g8 ~ |   % 28
 158         g2. d'8 d ~ |   % 29
 159         d8 b4 a g a8 ~ |   % 30
 160         a8 b ~ b2 a8 a ( |   % 31
 161         g8 ) g ~ g2. |   % 32
 162         r2 r4 a8 a ( |   % 33
 163         g8 ) g ~ g2. |   % 34
 164         r2 r4 d8 d |   % 35
 165
 166         % Verse
 167
 168         b8 d d d ~ d d4 e8 ~ |   % 36
 169         e8 d4 d8 ~ d4 r8 d8 |   % 37
 170         b'4 b b a8 a ( |   % 38
 171         g8 ) g ~ g2 g8 g |   % 39
 172         e8 g4 g8 ~ g g g g |   % 40
 173         a8 b4 g8 ~ g4 r8 d8 |   % 41
 174         b'4 b b a8 a ( |   % 42
 175         g8 ) g ~ g2 g4 |   % 43
 176
 177         % Prechorus
 178
 179         a1 ~ |   % 44
 180         a2 ~ a8 b4. |   % 45
 181         g1 ~ |   % 46
 182         g2 ~ g8 g4. |   % 47
 183         a1 ~ |   % 48
 184         a2 ~ a8 b4. |   % 49
 185         g1 ~ |   % 50
 186         g2. d'8 d ~ |   % 51
 187
 188         % Chorus
 189
 190         d8 b4 a8 ~ a g4 a8 ~ |   % 52
 191         a8 b2 ~ b8 d8 d ~ |   % 53
 192         d8 b4 a8 ~ a b4 g8 ~ |   % 54
 193         g2. d'8 d ~ |   % 55
 194         d8 b4 a g a8 ~ |   % 56
 195         a8 b ~ b2 a8 a ( |   % 57
 196         g8 ) g ~ g2. |   % 58
 197         r2 r4 a8 a ( |   % 59
 198         g8 ) g ~ g2. |   % 60
 199         r2 r4 r8 d |   % 61
 200
 201          % Bridge
 202
 203         b'4 b b a8 a ( |   % 62
 204         g8 ) g ~ g2 r8 d |   % 63
 205         b'4 b b a8 a ( |   % 64
 206         g8 ) g ~ g2 r8 d |   % 65
 207         b'4 b b a8 a ( |   % 66
 208         g8 ) g ~ g2 r8 d |   % 67
 209         b'4 b b a8 a ( |   % 68
 210         g8 ) g ~ g2 g4 |   % 69
 211
 212          |   %
 213 }
 214
 215 LeadVoxText = \lyricmode
 216 {
 217         Give thanks to the Lord, _ our God _ and King, _
 218         His love en -- dures for -- e -- _ ver _
 219         For _ he is good, _ he is a -- bove all things, _
 220         His love en -- dures for -- e -- _ ver _
 221
 222         Sing praise, __ _ _ sing praise __ _
 223
 224         With a
 225         _ _
 226
 227         Sing praise, __ _ _ sing praise __ _
 228
 229         For -- e -- _ ver God _ is faith -- _ ful _
 230         For -- e -- _ ver God _ is strong _
 231         For -- e -- _ ver God is with _ us _
 232         For -- e -- _ ver _
 233         For -- e -- _ ver _
 234
 235         From the ris -- ing _ to _ the set -- _ ting sun, _
 236         His love en -- dures for -- e -- _ ver _
 237         By the grace of God, _ we will car -- _ ry on, _
 238         His love en -- dures for -- e -- _ ver _
 239
 240         Sing praise, __ _ _ sing praise __ _ _
 241         Sing praise, __ _ _ sing praise __ _
 242
 243         For -- e -- _ ver God _ is faith -- _ ful _
 244         For -- e -- _ ver God _ is strong _
 245         For -- e -- _ ver God is with _ us _
 246         For -- e -- _ ver _
 247         For -- e -- _ ver _
 248
 249         His love en -- dures for -- e -- _ ver _
 250         His love en -- dures for -- e -- _ ver _
 251         His love en -- dures for -- e -- _ ver _
 252         His love en -- dures for -- e -- _ ver _
 253
 254         Sing
 255 }
 256
 257 LeadVoxTextB = \lyricmode
 258 {
 259         _ might -- y _ hand _ and out -- _ stretched arm, _
 260         His love en -- dures for -- e -- _ ver _
 261         _ _ For the life _ _ _ that’s been re -- born, _
 262         His love en -- dures for -- e -- _ ver _
 263 }
 264
 265 LeadVoxTextC = \lyricmode
 266 {
 267 }
 268
 269
 270 Riffs = \relative c''
 271 {
 272         \clef G
 273 %Hm. Needed anymore?
 274 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 275
 276         % Intro
 277
 278 %{
 279         \tiny
 280         \normalsize
 281 %}
 282 }
 283
 284
 285 %
 286 % Chord names
 287 %
 288 Chords = \chordmode
 289 {
 290 %Bah, can't we set this globally?
 291 %       \popChords
 292
 293         % Intro
 294
 295         g1:sus2 |   %
 296         s1 |   %
 297         e1:m7 |   %
 298         s1 |   %
 299         d1 |   %
 300         s1 |   %
 301         c1:sus2 |   %
 302         s1 |   %
 303
 304         % Verse
 305
 306         g1:sus2 |   %
 307         s1 |   %
 308         s1 |   %
 309         s1 |   %
 310         c1 |   %
 311         s1 |   %
 312         s1 |   %
 313         g1:sus2 |   %
 314         d1 |   %
 315         s1 |   %
 316         e1:m7 |   %
 317
 318         c1:sus2 |   %
 319
 320         c1:sus2 |   %
 321
 322         % Prechorus
 323
 324         d1 |   %
 325         s1 |   %
 326         e1:m7 |   %
 327         c1 |   %
 328
 329         % Chorus
 330
 331         g1:sus2 |   %
 332         s1 |   %
 333         e1:m7 |   %
 334         s1 |   %
 335         d1 |   %
 336         s1 |   %
 337         c1:sus2 |   %
 338         s1 |   %
 339         g1:sus2 |   %
 340         s2 c:sus2 |   %
 341
 342         % Verse
 343
 344         g1:sus2 |   %
 345         s1 |   %
 346         s1 |   %
 347         s1 |   %
 348         c1 |   %
 349         s1 |   %
 350         s1 |   %
 351         g1:sus2 |   %
 352
 353         % Prechorus
 354
 355         d1 |   %
 356         s1 |   %
 357         e1:m7 |   %
 358         c1:sus2 |   %
 359         d1 |   %
 360         s1 |   %
 361         e1:m7 |   %
 362         c1 |   %
 363
 364         % Chorus
 365
 366         g1:sus2 |   %
 367         s1 |   %
 368         e1:m7 |   %
 369         s1 |   %
 370         d1 |   %
 371         s1 |   %
 372         c1:sus2 |   %
 373         s1 |   %
 374         g1:sus2 |   %
 375         s1 |   %
 376
 377         % Bridge
 378
 379         g1 |   %
 380          |   %
 381 }
 382
 383
 384 %
 385 % Chord rhythms
 386 %
 387 % Use a RhythmicStaff on the chords instead of this?
 388 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 389 %
 390 Rhythm = \relative c
 391 {
 392 %%      \set Voice.autoBeaming = ##f
 393 %%      \set Staff.instrument = #"Rhythm"
 394         \override Staff.TimeSignature #'style = #'()
 395         \override NoteHead #'style = #'slash
 396
 397         r4 r8 c c4 |   % 0
 398         c4 c c |   % 1
 399         c4 c c |   % 2
 400         c4 c4. c8 |   % 3
 401         c4 c c |   % 4
 402
 403         c4 c c |   % 5
 404         c4 c c |   % 6
 405         c4 c4. c8 |   % 7
 406         c4 c c |   % 8
 407
 408         c4 c c |   % 9
 409         c4 c c8 c |   % 10
 410         c4 c c |   % 11
 411         c4 c c |   % 12
 412
 413         c4 c c |   % 13
 414         c4 c c |   % 14
 415         c4 c4. c8 |   % 15
 416         c4. r |   % 16
 417 }
 418
 419
 420 Dynamics =
 421 {
 422 %{
 423         s4_\markup { \italic { snare pat. } } s2 |   % 1
 424         s4_\markup { \italic { simile } } s2 |   % 2
 425         s2.*19
 426         s4_\markup { \italic { spacey } } s2 |   % 22
 427         s2.*5
 428         s4 s \< s \! |   % 28
 429         s2.*22
 430         s4_\markup { \italic { Last time } } s2 |   % 51
 431 %}
 432 }
 433
 434
 435 \score
 436 {
 437         <<
 438                 \set Score.skipBars = ##t
 439                 \set Score.melismaBusyProperties = #'()
 440
 441 %               \new Staff
 442                 <<
 443                         \new ChordNames \Chords
 444 %Capo 4 edition
 445 %                       \new ChordNames \transpose b g \Chords
 446 %                       \new RhythmicStaff << \Rhythm \Dynamics >>
 447                 >>
 448
 449                 \new Staff
 450                 <<
 451                         \Global                                         % The "roadmap" that everything else depends on
 452                         \new Voice = "lead" \LeadVox
 453                         \new Voice \Riffs
 454                         \new Lyrics \lyricsto "lead" \LeadVoxText
 455                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 456 %                       \new Lyrics \lyricsto "lead" \LeadVoxTextC
 457 %                       \new Lyrics \lyricsto "lead" \LeadVoxTextD
 458                 >>
 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
 471 % Spread staves vertically across last page (default: t)
 472         ragged-last-bottom = ##f
 473 % Don't spread staves vertically across the page (default: f)
 474 %       ragged-bottom = ##t
 475 % Allow partial line for last stave (default: f)
 476 %       ragged-last = ##t
 477
 478 % To find out what's eating the space at the top...
 479 %       annotate-spacing = ##t
 480 %let's try this: [It works! Huzzah!]
 481         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 482 }