Shamusworld >> Repos - music/blob - show-me-your-glory.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 = #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 "Show Me Your Glory" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Third Day" }
  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 d \major
  36         \numericTimeSignature
  37         \time 4/4
  38
  39         % Intro
  40
  41         \once \override TextScript #'padding = #2.0
  42         s1*0^\markup { \large \bold { Lite perc groove w/synth colors, bass tacet } }
  43 % Capo 4 version
  44 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \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 |   % 13-20
  58         }
  59         \alternative
  60         {
  61                 {
  62                         s1*2 |   % 21-22
  63                 }
  64                 {
  65                         s1 |   % 23
  66                 }
  67         }
  68
  69         s1 |   % 24
  70
  71         \repeat volta 2
  72         {
  73                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  74                 s1*4 |   % 25-28
  75         }
  76
  77         \repeat volta 2
  78         {
  79                 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  80                 s1*7 |   % 29-35
  81         }
  82         \alternative
  83         {
  84                 {
  85                         s1 |   % 36
  86                 }
  87                 {
  88                         s1 |   % 37
  89                 }
  90         }
  91
  92         s1*3 \bar "|."   % 38-40
  93 }
  94
  95
  96 %
  97 % Lead vocal
  98 %
  99 LeadVox = \relative c''
 100 {
 101         r1 |   % 1
 102         r1 |   % 2
 103         r1 |   % 3
 104         r1 |   % 4
 105
 106         r4 r8 b16 b b8 a g g |   % 5
 107         fs4 r8 d16 e fs8 e16 e ~ e fs8 d16 ~ |   % 6
 108         d4 r16 b'16 b8 b a16 a ~ a4 |   % 7
 109         fs8 fs16 a ~ a d, e8 ~ e4 r |   % 8
 110         r4 r8 b'16 b b8 a16 a ~ a g g fs ~ |   % 9
 111         fs4 r8. fs16 fs8 e16 e ~ e fs d8 ~ |   % 10
 112         d4 r16 d b'8 a4 r8 \parenthesize <fs>16 fs16 |   % 11
 113         b8 b16 b ~ b a cs8 ( ~ cs4. d8 ~ |   % 12
 114
 115         d4 ) r a8 d a e' ( |   % 13
 116         d8 ) d ~ d4 r2 |   % 14
 117         r8 d d d16 d ( ~ d b ) a8 r8. a16 |   % 15
 118         d16 d d8 d e ( ~ e d16 cs ~ cs8 d ~ |   % 16
 119         d4 ) r a8 d a e' ( |   % 17
 120         d8 ) d ~ d4 r2 |   % 18
 121         d8 d d d ~ d cs16 b ~ b a ( b8 ) |   % 19
 122         r8 d d d d cs16 b ~ b a8. |   % 20
 123
 124         b1 |   % 21
 125         r1 |   % 22
 126
 127         b1 ~ |   % 23
 128
 129         b2 b16 a ~ a8 ~ a g16 fs ~ |   % 24
 130
 131         fs1 |   % 25
 132         r1 |   % 26
 133         r1 |   % 27
 134         r1 |   % 28
 135
 136         r2 a8 d a e' ( |   % 29
 137         d8 ) d ~ d4 r2 |   % 30
 138         r8 d d d16 d ( ~ d b ) a8 r8. a16 |   % 31
 139         d16 d d8 d e ( ~ e d16 cs ~ cs8 d ~ |   % 32
 140         d4 ) r a8 d a e' ( |   % 33
 141         d8 ) d ~ d4 r2 |   % 34
 142         d8 d d d ~ d cs16 b ~ b a ( b8 ) |   % 35
 143
 144         r8 d d d e fs16 e ~ e d8. |   % 36
 145
 146         r8 d d d d cs16 b ~ b a8. |   % 37
 147
 148         b1 |   % 38
 149         r1 |   % 39
 150         r1-\fermata |   % 40
 151 }
 152
 153
 154 LeadVoxText = \lyricmode
 155 {
 156         Caught a glimpse of your splen -- dor
 157         in the cor -- ner of _ my eye _
 158         The most beau -- ti -- ful _ thing I’d e -- _ ver seen _
 159         It was like a flash _ of light -- ning _
 160         re -- flect -- ed off _ the sky _
 161         and I know _ I’ll ne -- ver be _ the same __ _ _ _
 162
 163         Show me your glo -- _ ry, _
 164         send down your pre -- _ _ sence,
 165         I wan -- na see your face. __ _ _ _ _ _ _
 166         Show me your glo -- _ ry, _
 167         ma -- jes -- ty shines _ a -- bout _ you, _
 168         I can’t go on with -- out _ you, Lord.
 169
 170         Lord. __ _ No, __ _ _ _ _ _ _
 171
 172         Show me your glo -- _ ry, _
 173         send down your pre -- _ _ sence,
 174         I wan -- na see your face. __ _ _ _ _ _ _
 175         Show me your glo -- _ ry, _
 176         ma -- jes -- ty shines _ a -- bout _ you, _
 177         I can’t go on with -- out _ you.
 178         I can’t go on with -- out _ you, Lord.
 179 }
 180
 181 LeadVoxTextB = \lyricmode
 182 {
 183         When I climb down the mount -- tain
 184         _ and get back to _ my life _
 185         I won’t set -- tle for _ or -- din -- ar -- _ y things _
 186         gon -- na fol -- low _ you for -- e -- ver _
 187         and for all of _ my days _
 188         I won’t rest ’til I see you _ _ a -- gain __ _ _
 189 }
 190
 191
 192 Riffs = \relative c'
 193 {
 194         % Intro
 195 %{
 196         \tiny
 197         \stemDown e8[ r e] r e[ r e] r |   % 1
 198         e8[ r e] r e[ r e] r \stemNeutral |   % 2
 199         << \override NoteHead #'style = #'cross { r8 b'[ r b] r b[ r b] } \\ \override NoteHead #'style = #'cross { e,8[ r e] r e[ r e] r } >> |   % 3
 200         << { r8 b'[ r b] r b[ r b] } \\ { e,8[ r e] r e[ r e] r } >> |   % 4
 201         \normalsize
 202 %}
 203 }
 204
 205
 206 %
 207 % Chord names
 208 %
 209 Chords = \chordmode
 210 {
 211         g1 |   % 1
 212         b2:m d8. a g8 |   % 2
 213         s1 |   % 3
 214         b2:m d8. a g8 |   % 4
 215
 216         g1 |   % 5
 217         b2:m d8. a g8 |   % 6
 218         s1 |   % 7
 219         b2:m a |   % 8
 220         g1 |   % 9
 221         b2:m d8. a g8 |   % 10
 222         s1 |   % 11
 223         b2:m a |   % 12
 224
 225         d1 |   % 13
 226         b1:m |   % 14
 227         g1 |   % 15
 228         s2 a |   % 16
 229         d1 |   % 17
 230         b1:m |   % 18
 231         g1 |   % 19
 232         s1 |   % 20
 233
 234         g1 |   % 21
 235         b2:m d8. a g8 |   % 22
 236
 237         g1:maj7 |   % 23
 238
 239         s1 |   % 24
 240
 241         d1 |   % 25
 242         b1:m7 |   % 26
 243         g |   % 27
 244         s2 a |   % 28
 245
 246         d1 |   % 29
 247         b1:m7 |   % 30
 248         g1 |   % 31
 249         s2 a |   % 32
 250         d1 |   % 33
 251         b1:m7 |   % 34
 252         g1 |   % 35
 253
 254         s2 a |   % 36
 255
 256         g1 |   % 37
 257
 258         g1:maj7 |   % 38
 259         b2:m d8. a g8 |   % 39
 260         s1 |   % 40
 261 }
 262
 263
 264 %
 265 % Chord rhythms
 266 %
 267 % Use a RhythmicStaff on the chords instead of this?
 268 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 269 %
 270 Rhythm = \relative c
 271 {
 272         \numericTimeSignature
 273         \override NoteHead #'style = #'slash
 274         \teeny
 275
 276         c4 c c c |   % 1
 277         c4 c c8. c16 ~ c8 c ~ |   % 2
 278         c4 c c c |   % 3
 279         c4 c c8. c16 ~ c8 c ~ |   % 4
 280
 281         c4 c c c |   % 5
 282         c4 c c8. c16 ~ c8 c ~ |   % 6
 283         c4 c c c |   % 7
 284         c4 c c c |   % 8
 285         c4 c c c |   % 9
 286         c4 c c8. c16 ~ c8 c ~ |   % 10
 287         c4 c c c |   % 11
 288         c4 c c c |   % 12
 289
 290         c1 |   % 13
 291         c1 |   % 14
 292         c1 ~ |   % 15
 293         c2 c |   % 16
 294         c1 |   % 17
 295         c1 |   % 18
 296         c1 |   % 19
 297         c1 |   % 20
 298
 299         c1 |   % 21
 300         c4 c c8. c16 ~ c8 c ~ |   % 22
 301
 302         c1 ~ |   % 23
 303
 304         c1 |   % 24
 305
 306         c4 c c c |   % 25
 307         c4 c c c |   % 26
 308         c4 c c c |   % 27
 309         c4 c c c |   % 28
 310
 311         c1 |   % 29
 312         c1 |   % 30
 313         c1 ~ |   % 31
 314         c2 c |   % 32
 315         c1 |   % 33
 316         c1 |   % 34
 317         c1 ~ |   % 35
 318
 319         c2 c |   % 36
 320
 321         c1 |   % 37
 322
 323         c1 |   % 38
 324         c4 c c8. c16 ~ c8 c ~ |   % 39
 325         c1-\fermata |   % 40
 326 }
 327
 328
 329 Dynamics =
 330 {
 331         s4_\markup { \italic { Ac. gtr } } s2. |   % 1
 332         s1*11 |   % 2-12
 333         s4_\markup { \italic { bass in; 1X sus, 2X groove } } s2. |   % 13
 334         s1*7 |   % 14-20
 335         s4_\markup { \italic { Ac. gtr cont. rhy } } s2. |   % 21
 336         s2 s4_\markup { \italic \bold { BIG! Full band } } s4 |   % 22
 337         s1*2 |   % 23-24
 338         s4_\markup { \italic { Solos - open } } s2. |   % 25
 339         s1*3 |   % 26-28
 340         s4_\markup { \italic { Chorus - repeat until tired } } s2. |   % 29
 341         s1*8 |   % 30-37
 342         s4_\markup { \italic { Ac. gtr cont. rhy } } s2. |   % 38
 343         s2 s4_\markup { \italic \bold { Full band } } s4 |   % 39
 344         s4_\markup { \italic \teeny { *You just got to sing along with Third Day! } } s2. |   % 40
 345 }
 346
 347
 348 \score
 349 {
 350         <<
 351                 \Global         % The "roadmap" that everything else depends on
 352                 \set Score.skipBars = ##t
 353                 \set Score.melismaBusyProperties = #'()
 354
 355                 \context Staff
 356                 <<
 357                         \new Voice = "lead" \LeadVox
 358                         \new Voice \Riffs
 359                         \new Lyrics \lyricsto "lead" \LeadVoxText
 360                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 361                 >>
 362
 363                 \new ChoirStaff
 364                 <<
 365                         \new ChordNames \Chords
 366 %Capo 4 edition
 367 %                       \new ChordNames \transpose b g \Chords
 368                         \new RhythmicStaff << \Rhythm \Dynamics >>
 369                 >>
 370         >>
 371 }
 372
 373
 374 \paper
 375 {
 376         #(define fonts (make-pango-font-tree
 377                 "Times New Roman"
 378                 "LilyJAZZText"
 379                 "Luxi Mono"
 380                 (/ staffSize 20)))
 381
 382 % Spread staves vertically across last page (default: t)
 383         ragged-last-bottom = ##f
 384 % Don't spread staves vertically across the page (default: f)
 385         ragged-bottom = ##t
 386 % Allow partial line for last stave (default: f)
 387         ragged-last = ##t
 388
 389 % To find out what's eating the space at the top...
 390 %       annotate-spacing = ##t
 391 }
 392