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