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