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