Shamusworld >> Repos - music/blob - i-see-the-lord.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 "I See The Lord" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Chris Falson" }
  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-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 \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 { Moderately } }
  47 % Capo 4 version
  48 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  49
  50         % Intro
  51
  52         s1*4 \bar "||:"   % 1-4
  53
  54         \repeat volta 2
  55         {
  56                 % Verse
  57
  58                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  59
  60                 s1*8 \bar "||"   % 5-12
  61                 s1*8 \bar "||"   % 13-20
  62
  63                 % Chorus
  64
  65                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  66
  67                 s1*14 |   % 21-34
  68         }
  69         \alternative
  70         {
  71                 {
  72                         s1*2 |   % 35-36
  73                 }
  74                 {
  75                         s1 \bar "||"   % 37
  76                 }
  77         }
  78
  79         % Outro Chorus
  80
  81         s1*15 \bar "|."   % 38-52
  82 }
  83
  84
  85 %
  86 % Lead vocal
  87 %
  88 LeadVox = \relative c'
  89 {
  90 %       \set Staff.instrument = #"Lead vox"
  91         \clef G
  92         \override Staff.TimeSignature #'style = #'()
  93 %Hm. Needed anymore?
  94 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  95
  96         % Intro
  97
  98         s1 |   % 1
  99         s1 |   % 2
 100         s1 |   % 3
 101         s1 |   % 4
 102
 103         % Verse
 104
 105         e8 e e fs ~ fs4 r |   % 5
 106         a4 a8 gs ~ gs e4 cs8 ~ |   % 6
 107         cs2 r4 r8 e |   % 7
 108         e4. ( fs8 ) fs4 r8 b,16 b |   % 8
 109         e8 e e fs ~ fs2 |   % 9
 110         a4 a8 gs ~ gs fs e4 |   % 10
 111         cs'1 |   % 11
 112         cs2 r4 e,8 e |   % 12
 113
 114         b'4. gs8 ~ gs e4 fs8 ~ |   % 13
 115         fs2 r4 e8 e |   % 14
 116         b'4. gs8 ~ gs e4 fs8 ~ |   % 15
 117         fs2. e8 e |   % 16
 118         b'4. a8 ~ a gs4 fs8 ( |   % 17
 119         e2. ) cs8 e |   % 18
 120         fs1 |   % 19
 121         e1 |   % 20
 122
 123         % Chorus
 124
 125         <e \hn b \hn gs>4. <e \hn b \hn gs>8 ~ <e \hn b \hn gs>2 |   % 21
 126         <fs \hn cs \hn a>4. <fs \hn cs \hn a>8 ~ <fs \hn cs \hn a>2 |   % 22
 127         <gs \hn e \hn b>4. <gs \hn e \hn b>8 ~ <gs \hn e \hn b>2 |   % 23
 128         <a \hn fs \hn cs>4. <a \hn fs \hn cs>8 ~ <a \hn fs \hn cs>2 |   % 24
 129         b4. ( e,8 ) e2 |   % 25
 130         a2. gs4 |   % 26
 131         fs1 ~ |   % 27
 132         fs2 r |   % 28
 133
 134         <e \hn b \hn gs>4. <e \hn b \hn gs>8 ~ <e \hn b \hn gs>2 |   % 29
 135         <fs \hn cs \hn a>4. <fs \hn cs \hn a>8 ~ <fs \hn cs \hn a>2 |   % 30
 136         <gs \hn e \hn b>4. <gs \hn e \hn b>8 ~ <gs \hn e \hn b>2 |   % 31
 137         <a \hn fs \hn cs>4. <a \hn fs \hn cs>8 ~ <a \hn fs \hn cs>2 |   % 32
 138         b4. ( e,8 ) e2 |   % 33
 139         a2 ( gs4 ) fs |   % 34
 140
 141         e1 |   % 35
 142         r1 |   % 36
 143
 144         e1 |   % 37
 145
 146         <e \hn b \hn gs>4. <e \hn b \hn gs>8 ~ <e \hn b \hn gs>2 |   % 38
 147         <fs \hn cs \hn a>4. <fs \hn cs \hn a>8 ~ <fs \hn cs \hn a>2 |   % 39
 148         <gs \hn e \hn b>4. <gs \hn e \hn b>8 ~ <gs \hn e \hn b>2 |   % 40
 149         <a \hn fs \hn cs>4. <a \hn fs \hn cs>8 ~ <a \hn fs \hn cs>2 |   % 41
 150         b4. ( e,8 ) e2 |   % 42
 151         a2. gs4 |   % 43
 152         fs1 ~ |   % 44
 153         fs2 r |   % 45
 154
 155         <e \hn b \hn gs>4. <e \hn b \hn gs>8 ~ <e \hn b \hn gs>2 |   % 46
 156         <fs \hn cs \hn a>4. <fs \hn cs \hn a>8 ~ <fs \hn cs \hn a>2 |   % 47
 157         <gs \hn e \hn b>4. <gs \hn e \hn b>8 ~ <gs \hn e \hn b>2 |   % 48
 158         <a \hn fs \hn cs>4. <a \hn fs \hn cs>8 ~ <a \hn fs \hn cs>2 |   % 49
 159         b4. ( e,8 ) e2 |   % 50
 160         a2 ( gs4 ) fs |   % 51
 161         e1-\fermata |   % 52
 162 }
 163
 164 LeadVoxText = \lyricmode
 165 {
 166         I see the Lord, _ seat -- ed on _ the throne, _
 167         ex -- al -- _ ted,
 168         and the train of his robe, _ fills the tem -- _ ple
 169         with glo -- ry;
 170
 171         And the whole earth _ is filled, _
 172         and the whole earth _ is filled, _
 173         and the whole earth _ is filled _
 174         with his glo -- ry.
 175
 176         Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _
 177         Ho -- _ ly is the Lord, _
 178         Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _
 179         Ho -- _ ly is _ the Lord.
 180
 181         Lord.
 182
 183         Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _
 184         Ho -- _ ly is the Lord, _
 185         Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _
 186         Ho -- _ ly is _ the Lord.
 187 }
 188
 189
 190 Riffs = \relative c
 191 {
 192         \clef G
 193 %Hm. Needed anymore?
 194 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 195
 196         % Intro
 197
 198         \tiny
 199         \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } |   % 1-4
 200         \normalsize
 201 }
 202
 203
 204 %
 205 % Chord names
 206 %
 207 Chords = \chordmode
 208 {
 209         % Intro
 210
 211         s4. e8 s2 |   % 1
 212         s4. fs8:m7/e s2 |   % 2
 213         s4. e8 s2 |   % 3
 214         s4. fs8:m7/e s2 |   % 4
 215
 216         % Verse
 217
 218         e4. b8/ds s2 |   % 5
 219         fs4.:m7 e2/gs a8 |   % 6
 220         s1 |   % 7
 221         b2:sus4 b |   % 8
 222         e4. b8/ds s2 |   % 9
 223         fs4.:m7 e8/gs s2 |   % 10
 224         a1 |   % 11
 225         fs1:7/as |   % 12
 226
 227         e2../b fs8:m7/b |   % 13
 228         s1 |   % 14
 229         e2../b fs8:m7/b |   % 15
 230         s1 |   % 16
 231         e4./gs cs2:m7 a8 |   % 17
 232         s1 |   % 18
 233         fs1:m7 |   % 19
 234         e4. a8/b s2 |   % 20
 235
 236         % Chorus
 237
 238         e1 |   % 21
 239         fs1:m7/e |   % 22
 240         e1 |   % 23
 241         fs1:m7 |   % 24
 242         e2/gs cs:m7 |   % 25
 243         fs2.:m7 cs4:m7 |   % 26
 244         b1:sus4 |   % 27
 245         b1 |   % 28
 246
 247         e1 |   % 29
 248         fs1:m7/e |   % 30
 249         e1 |   % 31
 250         fs1:m7 |   % 32
 251         e2/gs cs:m7 |   % 33
 252         fs2:m7 e4/b b |   % 34
 253
 254         e1 |   % 35
 255         fs4.:m7 a8/b s2 |   % 36
 256
 257         e4. a8/b s2 |   % 37
 258
 259         % Outro Chorus
 260
 261         e1 |   % 38
 262         fs1:m7/e |   % 39
 263         e1 |   % 40
 264         fs1:m7 |   % 41
 265         e2/gs cs:m7 |   % 42
 266         fs2.:m7 cs4:m7 |   % 43
 267         b1:sus4 |   % 44
 268         b1 |   % 45
 269
 270         e1 |   % 46
 271         fs1:m7/e |   % 47
 272         e1 |   % 48
 273         fs1:m7 |   % 49
 274         e2/gs cs:m7 |   % 50
 275         fs2:m7 e4/b b |   % 51
 276         e1 |   % 52
 277 }
 278
 279
 280 %
 281 % Chord rhythms
 282 %
 283 % Use a RhythmicStaff on the chords instead of this?
 284 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 285 %
 286 Rhythm = \relative c
 287 {
 288 %%      \set Voice.autoBeaming = ##f
 289 %%      \set Staff.instrument = #"Rhythm"
 290         \override Staff.TimeSignature #'style = #'()
 291         \override NoteHead #'style = #'slash
 292
 293         % Intro
 294
 295         \tiny
 296         r4. c8 ~ c2 |   % 1
 297         r4. c8 ~ c2 |   % 2
 298         r4. c8 ~ c2 |   % 3
 299         r4. c8 ~ c2 |   % 4
 300
 301         % Verse
 302
 303         c4. c8 ~ c4 c |   % 5
 304         c4. c8 ~ c4. c8 ~ |   % 6
 305         c4 c c c |   % 7
 306         c4 c c c |   % 8
 307         c4. c8 ~ c4 c |   % 9
 308         c4. c8 ~ c2 |   % 10
 309         c4 c c c  |   % 11
 310         c4 c c c |   % 12
 311
 312         c4. c8 ~ c4. c8 ~ |   % 13
 313         c4 c c c |   % 14
 314         c4. c8 ~ c4. c8 ~ |   % 15
 315         c4 c c c |   % 16
 316         c4. c8 ~ c4. c8 ~ |   % 17
 317         c4 c c c |   % 18
 318         c4 c c c |   % 19
 319         c4. c8 ~ c2 |   % 20
 320
 321         % Chorus
 322
 323         c4. c8 ~ c2 |   % 21
 324         c4. c8 ~ c2 |   % 22
 325         c4. c8 ~ c2 |   % 23
 326         c4. c8 ~ c2 |   % 24
 327         c4 c c c |   % 25
 328         c4 c c c |   % 26
 329         c4 c c c |   % 27
 330         c4 c c c |   % 28
 331
 332         c4. c8 ~ c2 |   % 29
 333         c4. c8 ~ c2 |   % 30
 334         c4. c8 ~ c2 |   % 31
 335         c4. c8 ~ c2 |   % 32
 336         c4 c c c |   % 33
 337         c4 c c c |   % 34
 338
 339         c4. c8 ~ c2 |   % 35
 340         c4. c8 ~ c2 |   % 36
 341
 342         c4. c8 ~ c2 |   % 37
 343
 344         % Outro Chorus
 345
 346         c4. c8 ~ c2 |   % 38
 347         c4. c8 ~ c2 |   % 39
 348         c4. c8 ~ c2 |   % 40
 349         c4. c8 ~ c2 |   % 41
 350         c4 c c c |   % 42
 351         c4 c c c |   % 43
 352         c4 c c c |   % 44
 353         c4 c c c |   % 45
 354
 355         c4. c8 ~ c2 |   % 46
 356         c4. c8 ~ c2 |   % 47
 357         c4. c8 ~ c2 |   % 48
 358         c4. c8 ~ c2 |   % 49
 359         c4 c c c |   % 50
 360         c4 c c c |   % 51
 361         c1-\fermata |   % 52
 362         \normalsize
 363 }
 364
 365
 366 Dynamics =
 367 {
 368 %{
 369         s4_\markup { \italic { snare pat. } } s2 |   % 1
 370         s4_\markup { \italic { simile } } s2 |   % 2
 371         s2.*19
 372         s4_\markup { \italic { spacey } } s2 |   % 22
 373         s2.*5
 374         s4 s \< s \! |   % 28
 375         s2.*22
 376         s4_\markup { \italic { Last time } } s2 |   % 51
 377 %}
 378 }
 379
 380
 381 \score
 382 {
 383         <<
 384                 \set Score.skipBars = ##t
 385                 \set Score.melismaBusyProperties = #'()
 386
 387 %               \new Staff
 388                 <<
 389                         \new ChordNames \Chords
 390 %Capo 4 edition
 391 %                       \new ChordNames \transpose b g \Chords
 392                         \new RhythmicStaff << \Rhythm \Dynamics >>
 393                 >>
 394
 395                 \new Staff
 396                 <<
 397                         \Global                                         % The "roadmap" that everything else depends on
 398                         \new Voice = "lead" \LeadVox
 399                         \new Voice \Riffs
 400                         \new Lyrics \lyricsto "lead" \LeadVoxText
 401                 >>
 402         >>
 403 }
 404
 405
 406 \paper
 407 {
 408   #(define fonts (make-pango-font-tree
 409     "Times New Roman"
 410     "DomCasual BT"
 411     "Luxi Mono"
 412     (/ staffSize 20)))
 413
 414 % Spread staves vertically across last page (default: t)
 415         ragged-last-bottom = ##f
 416 % Don't spread staves vertically across the page (default: f)
 417 %       ragged-bottom = ##t
 418 % Allow partial line for last stave (default: f)
 419 %       ragged-last = ##t
 420
 421 % To find out what's eating the space at the top...
 422 %       annotate-spacing = ##t
 423 %let's try this: [It works! Huzzah!]
 424         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 425 }