Shamusworld >> Repos - music/blob - there-is-a-rock.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 "There Is A Rock" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Tommy Walker" }
  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 e \minor
  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 { Unison } }
  47 % Capo 4 version
  48 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  49
  50         \repeat volta 2
  51         {
  52                 s1*4 |   % 1-4
  53         }
  54
  55         \repeat volta 2
  56         {
  57                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  58                 s1*8 \bar "||"   % 5-12
  59
  60                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  61                 s1*8 \bar "||"   % 13-20
  62
  63                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  64                 s1*16 |   % 21-36
  65         }
  66
  67         s1*4 |   % 37-40
  68
  69         % Guitar Solo
  70
  71         \repeat volta 2
  72         {
  73                 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  74                 s1*4 |   % 41-44
  75         }
  76
  77         % Sax Solo
  78
  79         \repeat volta 2
  80         {
  81                 \mark \markup { \override #'(font-family . sans) { \box { E } } }
  82                 s1*4 |   % 45-48
  83         }
  84
  85         % Outro chorus
  86
  87         \repeat volta 2
  88         {
  89                 \mark \markup { \override #'(font-family . sans) { \box { F } } }
  90                 s1*7 |   % 49-55
  91         }
  92         \alternative
  93         {
  94                 {
  95                         s1 |   % 56
  96                 }
  97                 {
  98                         s1 |   % 57
  99                 }
 100         }
 101
 102         \repeat volta 2
 103         {
 104                 s1*4 |   % 58-61
 105         }
 106
 107         s1 \bar "|."   % 62
 108 }
 109
 110
 111 %
 112 % Lead vocal
 113 %
 114 LeadVox = \relative c'
 115 {
 116 %       \set Staff.instrument = #"Lead vox"
 117         \clef G
 118         \override Staff.TimeSignature #'style = #'()
 119 %Hm. Needed anymore?
 120 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 121
 122         % Intro
 123
 124         s1*4 |   % 1-4
 125
 126         % Verse
 127
 128         r4. \teeny e8 \normalsize \times 2/3 { e4 fs g } |   % 5
 129         fs4. \teeny fs8 \normalsize \times 2/3 { fs4 g a } |   % 6
 130         g2 \times 2/3 { g4 a b } |   % 7
 131         b4 a8 a ~ a g4 e8 ~ |   % 8
 132         e4. e8 \times 2/3 { e4 fs g } |   % 9
 133         fs4. fs8 \times 2/3 { fs4 g a } |   % 10
 134         g4. \teeny g8 \normalsize \times 2/3 { g4 a b } |   % 11
 135         b4 a8 a ~ a g4 e8 ~ |   % 12
 136
 137         % Prechorus
 138
 139         e4. e8 \times 2/3 { e4 fs g } |   % 13
 140         g4. fs8 ~ fs4 r |   % 14
 141         r4 r8 fs \times 2/3 { fs4 g a } |   % 15
 142         a4 g8 g ~ g fs4 e8 ~ |   % 16
 143         e4. e8 \times 2/3 { e4 fs g } |   % 17
 144         g4. fs8 ~ fs4. a8 ~ |   % 18
 145         a8 g a4 a a8 ( g ) |   % 19
 146         b4 b b r |   % 20
 147
 148         % Chorus
 149
 150         r4 b a b8. b16 |   % 21
 151         r4 b a b8. b16 |   % 22
 152         r4 b a b |   % 23
 153         c4 b a b8. b16 |   % 24
 154         r4 b a b8. b16 |   % 25
 155         r4 b a b8. b16 |   % 26
 156         r4 b a b |   % 27
 157         c4 b a b8. b16 |   % 28
 158
 159         r4 b a b8. b16 |   % 29
 160         r4 b a b8. b16 |   % 30
 161         r4 b a b |   % 31
 162         c4 b a b8. b16 |   % 32
 163         r4 b a b8. b16 |   % 33
 164         r4 b a b8. b16 |   % 34
 165         r4 b a b |   % 35
 166         c4 b a b8. b16 |   % 36
 167
 168         % Midtro
 169
 170         s1*4 |   % 37-40
 171
 172         % Guitar Solo
 173
 174         r1 |   % 41
 175         r1 |   % 42
 176         r1 |   % 43
 177         r1 |   % 44
 178
 179         % Sax Solo
 180
 181         r1 |   % 45
 182         r1 |   % 46
 183         r1 |   % 47
 184         r1 |   % 48
 185
 186         % Outro chorus
 187
 188         r4 b a b8. b16 |   % 49
 189         r4 b a b8. b16 |   % 50
 190         r4 b a b |   % 51
 191         c4 b a b8. b16 |   % 52
 192         r4 b a b8. b16 |   % 53
 193         r4 b a b8. b16 |   % 54
 194         r4 b a b |   % 55
 195
 196         c4 b a b8. b16 |   % 56
 197
 198         c4 b a b8. b16 |   % 57
 199
 200         % Outro
 201
 202         s1 |   % 58
 203         s1 |   % 59
 204         s1 |   % 60
 205         s1 |   % 61
 206
 207         r1-\fermata |   % 62
 208 }
 209
 210 LeadVoxText = \lyricmode
 211 {
 212         _ Light of the world, _ light of all truth,
 213         sal -- va -- tion comes from on -- _ ly you. _
 214         Our shel -- ter and strength, through all a -- ges past,
 215         _ your awe -- some pow -- er has _ been seen. _
 216
 217         The na -- tions are search -- ing _
 218         for some -- thing that’s ab -- so -- lute -- _ ly true. _
 219         So we now de -- clare it: _
 220         Je -- _ sus  all truth is _ found in you.
 221
 222         There is a rock, a sol -- id rock,
 223         a rock we’ve built our lives u -- pon.
 224         There is a hope, a bless -- ed hope,
 225         so we now shout it to the world.
 226
 227         There is a rock, a sol -- id rock,
 228         a rock we’ve built our lives u -- pon.
 229         There is a hope, a bless -- ed hope,
 230         so we now shout it to the world.
 231
 232         There is a rock, a sol -- id rock,
 233         a rock we’ve built our lives u -- pon.
 234         There is a hope, a bless -- ed hope,
 235         so we now shout it to the world.
 236
 237         shout it to the world.
 238 }
 239
 240 LeadVoxTextB = \lyricmode
 241 {
 242         Re -- ject -- ed by men but cho -- sen by God,
 243         you are the pre -- cious cor -- _ ner -- stone. _
 244         You’re build -- ing your church through -- out all the earth,
 245         for -- e -- ver it’s pow -- er will _ be shown. _
 246 }
 247
 248
 249 Riffs = \relative c'
 250 {
 251         \clef G
 252 %Hm. Needed anymore?
 253 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 254
 255         % Intro
 256
 257         \tiny
 258         r16 d8 ds16 ~ ds e r8 d ds e r |   % 1
 259         r16 g8 gs16 ~ gs a r8 g gs a r |   % 2
 260         r16 e8 f16 ~ f fs r8 e f fs r |   % 3
 261         r16 a8 bf16 ~ bf b r8 a bf b r |   % 4
 262
 263         s1*32 |   % 5-36
 264
 265         r16 d,8 ds16 ~ ds e r8 d ds e r |   % 37
 266         r16 g8 gs16 ~ gs a r8 g gs a r |   % 38
 267         r16 e8 f16 ~ f fs r8 e f fs r |   % 39
 268         r16 a8 bf16 ~ bf b r8 a bf b r |   % 40
 269
 270         s1*17 |   % 41-57
 271
 272         r16 d,8 ds16 ~ ds e r8 d ds e r |   % 58
 273         r16 g8 gs16 ~ gs a r8 g gs a r |   % 59
 274         r16 e8 f16 ~ f fs r8 e f fs r |   % 60
 275         r16 a8 bf16 ~ bf b r8 a bf b r |   % 61
 276         \normalsize
 277 }
 278
 279
 280 %
 281 % Chord names
 282 %
 283 Chords = \chordmode
 284 {
 285         % Intro
 286
 287         s1 |   % 1
 288         s1 |   % 2
 289         s1 |   % 3
 290         s1 |   % 4
 291
 292         % Verse
 293
 294         e1:m7 |   % 5
 295         b1/ds |   % 6
 296         g1/d |   % 7
 297         a1/cs |   % 8
 298         e1:m7 |   % 9
 299         b1/ds |   % 10
 300         g1/d |   % 11
 301         a1/cs |   % 12
 302
 303         % Prechorus
 304
 305         c1 |   % 13
 306         d4.:sus4 d2 ef8:dim |   % 14
 307         s1 |   % 15
 308         e4:m7 d4.:sus4 d4 c8 |   % 16
 309         s1 |   % 17
 310         d4.:sus4 d2 fs8:m7.5- |   % 18
 311         s1 |   % 19
 312         b2..:7.5+.9+ s16 e:m7 |   % 20
 313
 314         % Chorus
 315
 316         s2.. s16 a:7 |   % 21
 317         s2.. s16 fs:m7.5- |   % 22
 318         s1 |   % 23
 319         b2..:7 s16 e:m7 |   % 24
 320         s2.. s16 a:7 |   % 25
 321         s2.. s16 fs:m7.5- |   % 26
 322         s1 |   % 27
 323         b2..:7 s16 e:m7 |   % 28
 324
 325         s2.. s16 a:7 |   % 29
 326         s2.. s16 fs:m7.5- |   % 30
 327         s1 |   % 31
 328         b2..:7 s16 e:m7 |   % 32
 329         s2.. s16 a:7 |   % 33
 330         s2.. s16 fs:m7.5- |   % 34
 331         s1 |   % 35
 332         b1:7 |   % 36
 333
 334         % Midtro
 335
 336         s1 |   % 37
 337         s1 |   % 38
 338         s1 |   % 39
 339         s1 |   % 40
 340
 341         % Guitar Solo
 342
 343         e1:m7 |   % 41
 344         s1 |   % 42
 345         s1 |   % 43
 346         s1 |   % 44
 347
 348         % Sax Solo
 349
 350         s2.. s16 a:7 |   % 45
 351         s2.. s16 fs:m7.5- |   % 46
 352         s1 |   % 47
 353         b2..:7 s16 e:m7 |   % 48
 354
 355         % Outro chorus
 356
 357         s2.. s16 a:7 |   % 49
 358         s2.. s16 fs:m7.5- |   % 50
 359         s1 |   % 51
 360         b2..:7 s16 e:m7 |   % 52
 361         s2.. s16 a:7 |   % 53
 362         s2.. s16 fs:m7.5- |   % 54
 363         s1 |   % 55
 364
 365         b1:7 |   % 56
 366
 367         b1:7 |   % 57
 368
 369         % Outro
 370
 371         s1 |   % 58
 372         s1 |   % 59
 373         s1 |   % 60
 374         s2.. s16 e:m7 |   % 61
 375
 376         s1 |   % 62
 377 }
 378
 379
 380 %
 381 % Chord rhythms
 382 %
 383 % Use a RhythmicStaff on the chords instead of this?
 384 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 385 %
 386 Rhythm = \relative c
 387 {
 388 %%      \set Voice.autoBeaming = ##f
 389 %%      \set Staff.instrument = #"Rhythm"
 390         \override Staff.TimeSignature #'style = #'()
 391         \override NoteHead #'style = #'slash
 392         \teeny
 393
 394         % Intro
 395
 396         r1 |   % 1
 397         r1 |   % 2
 398         r1 |   % 3
 399         r1 |   % 4
 400
 401         % Verse
 402
 403         c1 |   % 5
 404         c1 |   % 6
 405         c1 |   % 7
 406         c1 |   % 8
 407         c1 |   % 9
 408         c1 |   % 10
 409         c1 |   % 11
 410         c1 |   % 12
 411
 412         % Prechorus
 413
 414         c1 |   % 13
 415         c4. c2 c8 ~ |   % 14
 416         c1 |   % 15
 417         c4 c4. c4 c8 ~ |   % 16
 418         c1 |   % 17
 419         c4. c2 c8 ~ |   % 18
 420         c1 |   % 19
 421         c2.. ~ c16 c ~ |   % 20
 422
 423         % Chorus
 424
 425         c4 c c c8. c16 ~ |   % 21
 426         c4 c c c8. c16 ~ |   % 22
 427         c4 c c c |   % 23
 428         c4 c c c8. c16 ~ |   % 24
 429         c4 c c c8. c16 ~ |   % 25
 430         c4 c c c8. c16 ~ |   % 26
 431         c4 c c c |   % 27
 432         c4 c c c8. c16 ~ |   % 28
 433
 434         c4 c c c8. c16 ~ |   % 29
 435         c4 c c c8. c16 ~ |   % 30
 436         c4 c c c |   % 31
 437         c4 c c c8. c16 ~ |   % 32
 438         c4 c c c8. c16 ~ |   % 33
 439         c4 c c c8. c16 ~ |   % 34
 440         c4 c c c |   % 35
 441         c4 c c c |   % 36
 442
 443         % Midtro
 444
 445         r1 |   % 37
 446         r1 |   % 38
 447         r1 |   % 39
 448         r1 |   % 40
 449
 450         % Guitar Solo
 451
 452         c4 c c c |   % 41
 453         c4 c c c |   % 42
 454         c4 c c c |   % 43
 455         c4 c c c |   % 44
 456
 457         % Sax Solo
 458
 459         c4 c c c8. c16 ~ |   % 45
 460         c4 c c c8. c16 ~ |   % 46
 461         c4 c c c |   % 47
 462         c4 c c c8. c16 ~ |   % 48
 463
 464         % Outro chorus
 465
 466         c4 c c c8. c16 ~ |   % 49
 467         c4 c c c8. c16 ~ |   % 50
 468         c4 c c c |   % 51
 469         c4 c c c8. c16 ~ |   % 52
 470         c4 c c c8. c16 ~ |   % 53
 471         c4 c c c8. c16 ~ |   % 54
 472         c4 c c c |   % 55
 473
 474         c4 c c c8. c16 ~ |   % 56
 475
 476         c4 c c c8. c16 ~ |   % 57
 477
 478         % Outro
 479
 480         r1 |   % 58
 481         r1 |   % 59
 482         r1 |   % 60
 483         r2. r8 r16 c ~ |   % 61
 484
 485         c1-\fermata |   % 62
 486 }
 487
 488
 489 Dynamics =
 490 {
 491 %{
 492         s4_\markup { \italic { snare pat. } } s2 |   % 1
 493         s4_\markup { \italic { simile } } s2 |   % 2
 494         s2.*19
 495         s4_\markup { \italic { spacey } } s2 |   % 22
 496         s2.*5
 497         s4 s \< s \! |   % 28
 498         s2.*22
 499         s4_\markup { \italic { Last time } } s2 |   % 51
 500 %}
 501         s1*40 |   % 1-40
 502         s4_\markup { \bold { Guitar solo } } s2. |   % 41
 503         s1*3 |   % 42-44
 504         s4_\markup { \bold { Sax solo } } s2. |   % 45
 505 }
 506
 507
 508 \score
 509 {
 510         <<
 511                 \set Score.skipBars = ##t
 512                 \set Score.melismaBusyProperties = #'()
 513
 514 %               \new Staff
 515                 <<
 516                         \new ChordNames \Chords
 517 %Capo 4 edition
 518 %                       \new ChordNames \transpose b g \Chords
 519                         \new RhythmicStaff << \Rhythm \Dynamics >>
 520                 >>
 521
 522                 \new Staff
 523                 <<
 524                         \Global                                         % The "roadmap" that everything else depends on
 525                         \new Voice = "lead" \LeadVox
 526                         \new Voice \Riffs
 527                         \new Lyrics \lyricsto "lead" \LeadVoxText
 528                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 529                 >>
 530         >>
 531 }
 532
 533
 534 \paper
 535 {
 536   #(define fonts (make-pango-font-tree
 537     "Times New Roman"
 538     "DomCasual BT"
 539     "Luxi Mono"
 540     (/ staffSize 20)))
 541
 542 % Spread staves vertically across last page (default: t)
 543         ragged-last-bottom = ##f
 544 % Don't spread staves vertically across the page (default: f)
 545 %       ragged-bottom = ##t
 546 % Allow partial line for last stave (default: f)
 547 %       ragged-last = ##t
 548
 549 % To find out what's eating the space at the top...
 550 %       annotate-spacing = ##t
 551 %let's try this: [It works! Huzzah!]
 552         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 553 }