Shamusworld >> Repos - music/blob - there-is-a-rock.ly

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