Shamusworld >> Repos - music/blob - i-will-praise-him-still.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 = #18
   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 "I Will Praise Him Still" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Fernando Ortega" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. John Wierick" }
  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.0 (ly:music-property arg 'tweaks))) arg)
  30
  31
  32 %
  33 % Lead vocal
  34 %
  35
  36 LeadVox = \relative c''
  37 {
  38 %       \set Voice.autoBeaming = ##f
  39 %       \set Staff.instrumentName = #"Lead vox"
  40         \clef G
  41         \key g \major
  42         \override Staff.TimeSignature #'style = #'()
  43         \time 4/4
  44 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  45
  46         % Intro
  47
  48         s1 | % 1
  49         s1 | % 2
  50         s1 | % 3
  51         s1 | % 4
  52         \time 2/4 s2 \time 4/4 | % 5
  53         r2 r4 g8 fs | % 6
  54
  55         \repeat volta 2
  56         {
  57                 % Verse
  58
  59 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  60
  61                 e4 e d d8 g | % 7
  62                 a4 a b b8 a | % 8
  63                 g4 e d d8 g | % 9
  64                 \time 2/4 a4 a \time 4/4 | % 10
  65                 g2 r4 g8 fs | % 11
  66
  67                 e4 e d d8 g | % 12
  68                 a4 a b b8 a | % 13
  69                 g4 e d d8 g | % 14
  70                 \time 2/4 a4 a \time 4/4 | % 15
  71                 g2 r4 b8 d \bar "||" % 16
  72
  73                 % Chorus
  74
  75 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  76
  77                 <d \hn fs>4 <d \hn fs> <d \hn g>4 b8 ( a16 g ) | % 17
  78                 <a \hn d>4 <a \hn d> <b \hn d> b8 d | % 18
  79                 <e \hn g>4 <e \hn g> <d \hn fs> b8 a | % 19
  80                 \time 2/4 g4 b \time 4/4 | % 20
  81         }
  82         \alternative
  83         {
  84                 {
  85                         a2 r4 g8 fs \bar "||" % 21
  86                         e4 e d d8 g | % 22
  87                         a4 a b b8 a | % 23
  88                         g4 e d d8 g | % 24
  89                         \time 2/4 a4 a \time 4/4 | % 25
  90                         g2. r4 | % 26
  91                         r2 r4 g8 fs | % 27
  92                 }
  93                 {
  94                         a2 r4 e'8 e | % 28
  95                         d4 d d b8 ( a16 g ) | % 29
  96                 }
  97         }
  98
  99         a4 a b b8 d | % 30
 100         e4 e d b8 a | % 31
 101         \time 2/4 g4 b \time 4/4 | % 32
 102         a2 r4 g8 fs \bar "||" % 33
 103
 104         % Verse
 105
 106         e4 e d d8 g | % 34
 107         a4 a b b8 a | % 35
 108         g4 e d d8 g | % 36
 109         \time 2/4 a4 a \time 4/4 | % 37
 110         g2. r4 | % 38
 111         R1 | % 39
 112
 113         \repeat volta 2
 114         {
 115                 % Interlude
 116
 117 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 118
 119                 s1 | % 40
 120                 s1 | % 41
 121                 s1 | % 42
 122                 \voiceOne s2. <e' \hn g>8 <e \hn fs> \oneVoice | % 43
 123         }
 124
 125         % Chorus
 126
 127 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 128
 129         d4 d d b8 ( a16 g ) | % 44
 130         a4 a b b8 d | % 45
 131         e4 e d b8 a | % 46
 132         \time 2/4 g4 b \time 4/4 | % 47
 133         a2 r4 e'8 e | % 48
 134
 135         d4 d d b8 ( a16 g ) | % 49
 136         a4 a b b8 d | % 50
 137         e4 e d b8 a | % 51
 138         \time 2/4 g4 b \time 4/4 | % 52
 139         a2 r4  g8 fs \bar "||" % 53
 140
 141         % Verse outro
 142
 143 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 144
 145         e4 e d d8 g | % 54
 146         a4 a b b8 a | % 55
 147         g4 e d d8 g | % 56
 148         \time 2/4 a4 a \time 4/4 | % 57
 149         g1 ~ | % 58
 150         g1^\fermata \bar "|." % 59
 151 }
 152
 153 LeadVoxText = \lyricmode
 154 {
 155         When the mor- ning falls on the far- thest hill
 156         I will sing his name, I will praise him still
 157
 158         When dark tri- als come and my heart is filled
 159         with the weight of doubt, I will praise him still
 160
 161         For the Lord our God is __ _ _ strong to save,
 162         from the arms of death, from the deep- est grave
 163
 164         And he gave us life in his per- fect will
 165         and by his good grace, I will praise him still.
 166
 167         When the
 168         grave
 169
 170         For the Lord our God is __ _ _ strong to save,
 171         from the arms of death, from the deep- est grave
 172
 173         And he gave us life in his per- fect will
 174         and by his good grace, I will praise him still.
 175
 176         For the Lord our God is __ _ _ strong to save,
 177         from the arms of death, from the deep- est grave
 178
 179         For the Lord our God is __ _ _ strong to save,
 180         from the arms of death, from the deep- est grave
 181
 182         And he gave us life in his per- fect will
 183         and by his good grace, I will praise him still.
 184 }
 185
 186
 187 Riffs = \relative c'''
 188 {
 189         \clef G
 190         \key g \major
 191         \override Staff.TimeSignature #'style = #'()
 192         \time 4/4
 193 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 194
 195         % Intro
 196
 197 \tiny
 198         r2. g8 fs | % 1
 199         e4 e d d8 g | % 2
 200         a4 a b b16 c32 b a16 g | % 3
 201         g4 e d d8 g | % 4
 202         \time 2/4 a4 a \time 4/4 | % 5
 203         g1 | % 6
 204
 205         \repeat volta 2
 206         {
 207                 % Verse
 208
 209                 s1 | % 7
 210                 s1 | % 8
 211                 s1 | % 9
 212                 \time 2/4 s2 \time 4/4 | % 10
 213                 s1 | % 11
 214
 215                 s1 | % 12
 216                 s1 | % 13
 217                 s1 | % 14
 218                 \time 2/4 s2 \time 4/4 | % 15
 219                 s1 | % 16
 220
 221                 % Chorus
 222
 223                 s1 | % 17
 224                 s1 | % 18
 225                 s1 | % 19
 226                 \time 2/4 s2 \time 4/4 | % 20
 227         }
 228         \alternative
 229         {
 230                 {
 231                         s1 | % 21
 232                         s1 | % 22
 233                         s1 | % 23
 234                         s1 | % 24
 235                         \time 2/4 s2 \time 4/4 | % 25
 236                         s1 | % 26
 237                         s1 | % 27
 238                 }
 239                 {
 240                         s1 | % 28
 241                         s1 | % 29
 242                 }
 243         }
 244
 245         s1 | % 30
 246         s1 | % 31
 247         \time 2/4 s2 \time 4/4 | % 32
 248         s1 | % 33
 249
 250         % Verse
 251
 252         s1 | % 34
 253         s1 | % 35
 254         s1 | % 36
 255         \time 2/4 s2 \time 4/4 | % 37
 256         s1 | % 38
 257         s1 | % 39
 258
 259         \repeat volta 2
 260         {
 261                 % Interlude
 262
 263                 << { \tiny e4 e d d8 g } \\ { \tiny <c, g>2 <b g> } >> | % 40
 264                 << { a'4 a b b8 a } \\ { <a, fs>2 b16 c b a g8 fs } >> | % 41
 265                 << { g'4 e d d8 g } \\ { e,4. g16 a b8 g d b' } >> | % 42
 266                 << { a'4 a b16 c b a s4 } \\ { a,4. g16 fs g4 b8 g } >> | % 43
 267         }
 268
 269         % Chorus
 270
 271         s1 | % 44
 272         s1 | % 45
 273         s1 | % 46
 274         \time 2/4 s2 \time 4/4 | % 47
 275         s1 | % 48
 276         s1 | % 49
 277         s1 | % 50
 278         s1 | % 51
 279         \time 2/4 s2 \time 4/4 | % 52
 280         s1 | % 53
 281
 282         % Verse outro
 283
 284         s1 | % 54
 285         s1 | % 55
 286         s1 | % 56
 287         \time 2/4 s2 \time 4/4 | % 57
 288         s1 | % 58
 289         s1 \bar "|." % 59
 290 \normalsize
 291 }
 292
 293
 294 %
 295 % Chord names
 296 %
 297
 298 Chords = \chordmode
 299 {
 300 %Bah, can't we set this globally?
 301 %       \popChords
 302
 303         % Intro
 304
 305         s1 | % 1
 306         c2/g g | % 2
 307         d2/fs e:m | % 3
 308         a2:m g/b | % 4
 309         \time 2/4 d2 \time 4/4 | % 5
 310         g1 | % 6
 311
 312         \repeat volta 2
 313         {
 314                 % Verse
 315
 316                 c2 g/b | % 7
 317                 d2 g | % 8
 318                 a2:m g/b | % 9
 319                 \time 2/4 d2 \time 4/4 | % 10
 320                 g1 | % 11
 321
 322                 c2/g g | % 12
 323                 d2/fs e:m | % 13
 324                 a2:m g/b | % 14
 325                 \time 2/4 d2 \time 4/4 | % 15
 326                 g1 | % 16
 327
 328                 % Chorus
 329
 330                 d2 g | % 17
 331                 d2/fs g | % 18
 332                 e2:m b:m | % 19
 333                 \time 2/4 c \time 4/4 | % 20
 334         }
 335         \alternative
 336         {
 337                 {
 338                         d1 | % 21
 339                         c2 g/b | % 22
 340                         d2 e:m | % 23
 341                         a2:m g/b | % 24
 342                         \time 2/4 d2 \time 4/4 | % 25
 343                         g1 | % 26
 344                         s1 | % 27
 345                 }
 346                 {
 347                         d1 | % 28
 348                         d2 g | % 29
 349                 }
 350         }
 351
 352         d2/fs g | % 30
 353         e2:m b:m | % 31
 354         \time 2/4 c2 \time 4/4 | % 32
 355         d1 | % 33
 356
 357         % Verse
 358
 359         c2 g/b | % 34
 360         d2 e:m | % 35
 361         a2:m7 g/b | % 36
 362         \time 2/4 d2 \time 4/4 | % 37
 363         g1 | % 38
 364         s1 | % 39
 365
 366         \repeat volta 2
 367         {
 368                 % Interlude
 369
 370                 c2/g g | % 40
 371                 d2/fs g | % 41
 372                 c2/g g | % 42
 373                 d2/fs g | % 43
 374         }
 375
 376         % Chorus
 377
 378         d2 g | % 44
 379         d2:/fs g | % 45
 380         e2:m b:m7 | % 46
 381         \time 2/4 c2 \time 4/4 | % 47
 382         d1 | % 48
 383         d2 g | % 49
 384         d2/fs g | % 50
 385         e2:m b:m7 | % 51
 386         \time 2/4 c2 \time 4/4 | % 52
 387         d1 | % 53
 388
 389         % Verse outro
 390
 391         c2 g/b | % 54
 392         d2 e:m | % 55
 393         a2:m g/b | % 56
 394         \time 2/4 d2 \time 4/4 | % 57
 395         g1 | % 58
 396         s1 | % 59
 397 }
 398
 399
 400 %
 401 % Chord rhythms
 402 %
 403
 404 % Use a RhythmicStaff on the chords instead of this?
 405 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 406
 407 StaffC = \relative c
 408 {
 409 %       \set Voice.autoBeaming = ##f
 410 %       \set Staff.instrumentName = #"Rhythm"
 411         \override Staff.TimeSignature #'style = #'()
 412         \time 4/4
 413         \override NoteHead #'style = #'slash
 414
 415         % Intro
 416
 417         s1 | % 1
 418         c4 c c c | % 2
 419         c4 c c c | % 3
 420         c4 c c c | % 4
 421         \time 2/4 c4 c \time 4/4 | % 5
 422         c4 c c c | % 6
 423
 424         \repeat volta 2
 425         {
 426                 % Verse
 427
 428                 c4 c c c | % 7
 429                 c4 c c c | % 8
 430                 c4 c c c | % 9
 431                 \time 2/4 c4 c \time 4/4 | % 10
 432                 c4 c c c | % 11
 433
 434                 c4 c c c | % 12
 435                 c4 c c c | % 13
 436                 c4 c c c | % 14
 437                 \time 2/4 c4 c \time 4/4 | % 15
 438                 c4 c c c | % 16
 439
 440                 % Chorus
 441
 442                 c4 c c c | % 17
 443                 c4 c c c | % 18
 444                 c4 c c c | % 19
 445                 \time 2/4 c4 c \time 4/4 | % 20
 446         }
 447         \alternative
 448         {
 449                 {
 450                         c4 c c c | % 21
 451                         c4 c c c | % 22
 452                         c4 c c c | % 23
 453                         c4 c c c | % 24
 454                         \time 2/4 c4 c \time 4/4 | % 25
 455                         c4 c c c | % 26
 456                         c4 c c c | % 27
 457                 }
 458                 {
 459                         c4 c c c | % 28
 460                         c4 c c c | % 29
 461                 }
 462         }
 463
 464         c4 c c c | % 30
 465         c4 c c c | % 31
 466         \time 2/4 c4 c \time 4/4 | % 32
 467         c4 c c c | % 33
 468
 469         % Verse
 470
 471         c4 c c c | % 34
 472         c4 c c c | % 35
 473         c4 c c c | % 36
 474         \time 2/4 c4 c \time 4/4 | % 37
 475         c4 c c c | % 38
 476         c4 c c c | % 39
 477
 478         \repeat volta 2
 479         {
 480                 % Interlude
 481
 482                 c4 c c c | % 40
 483                 c4 c c c | % 41
 484                 c4 c c c | % 42
 485                 c4 c c c | % 43
 486         }
 487
 488         % Chorus
 489
 490         c4 c c c | % 44
 491         c4 c c c | % 45
 492         c4 c c c | % 46
 493         \time 2/4 c4 c \time 4/4 | % 47
 494         c4 c c c | % 48
 495         c4 c c c | % 49
 496         c4 c c c | % 50
 497         c4 c c c | % 51
 498         \time 2/4 c4 c \time 4/4 | % 52
 499         c1 | % 53
 500
 501         % Verse outro
 502
 503         c2 c | % 54
 504         c2 c | % 55
 505         c2 c | % 56
 506         \time 2/4 c4 c \time 4/4 | % 57
 507         c1 ~ | % 58
 508         c1^\fermata \bar "|." % 59
 509 }
 510
 511
 512 Dynamics =
 513 {
 514         s1*31 s2*7 |   % 1-38
 515         s4 \> s s s \! |   % 39
 516         s1*11 s2*2 |   % 40-52
 517         s4 \> s s s \! |   % 53
 518 }
 519
 520
 521 \score
 522 {
 523         <<
 524                 <<
 525                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 526                         \new Lyrics \lyricsto "lead" \LeadVoxText
 527                 >>
 528
 529                 \new ChoirStaff = "Rhythm"
 530                 <<
 531                         \new ChordNames = "chords" \Chords
 532                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 533                 >>
 534
 535                 \set Score.skipBars = ##t
 536                 \set Score.melismaBusyProperties = #'()
 537         >>
 538 }
 539
 540
 541 \paper
 542 {
 543         #(define fonts (make-pango-font-tree
 544                 "Times New Roman"
 545                 "DomCasual BT"
 546                 "Luxi Mono"
 547                 (/ staffSize 20)))
 548
 549 % Don't spread staves vertically across last page (default: t)
 550 %       ragged-last-bottom = ##f
 551 % Don't spread staves vertically across the page (default: f)
 552 %       ragged-bottom = ##t
 553 % Allow partial line for last stave (default: f)
 554         ragged-last = ##t
 555
 556 % To find out what's eating the space at the top...
 557 %       annotate-spacing = ##t
 558 %let's try this: [It works! Huzzah!]
 559         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 560 }