Shamusworld >> Repos - music/blob - there's-a-sweet-sweet-spirit.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 = #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 %Let's bump up the title size and switch to the chord font. :-)
  16
  17         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "There’s A Sweet, Sweet Spirit" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Doris Akers" }
  19 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  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.5 (ly:music-property arg 'tweaks))) arg)
  30
  31
  32 %
  33 % Song's structure
  34 %
  35 Global =
  36 {
  37         \key g \major
  38         \override Staff.TimeSignature #'style = #'()
  39         \time 4/4
  40
  41         % Intro
  42
  43 %       \once \override TextScript #'padding = #2.0
  44 %       s1*0^\markup { \large \bold { Moderately fast pop } }
  45 %%Capo 3 version
  46 %%      s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
  47 %       s1*13 \bar "||:"   % 1-13
  48
  49         s1 |   % 1
  50
  51         \repeat volta 3
  52         {
  53                 % A section
  54
  55                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  56
  57 %               s1*7 |   % 2-8
  58                 s1*2 |   % 2-3
  59 s2 s^\markup { \fret-diagram-terse #"x;2;3;2;3;x;" }
  60                 s1*4 |   % 5-8
  61
  62                 s1 \bar "||"   % 9
  63                 s1*7 |   % 10-16
  64                 s1 \bar "||"   % 17
  65
  66                 % B section
  67
  68                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  69
  70                 s1*17 |   % 18-34
  71         }
  72 }
  73
  74
  75 %
  76 % Lead vocal
  77 %
  78 LeadVox = \relative c'
  79 {
  80         \clef G
  81         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  82
  83         % Lead in
  84
  85         r2 b4 c |   % 1
  86
  87         % A section
  88
  89         d2 g |   % 2
  90         e4 d g a |   % 3
  91         b1 ~ |   % 4
  92         b2 b4 d |   % 5
  93         c4. c8 b4 a |   % 6
  94         g8 ( e ) d4 fs8 ( g ) a4 |   % 7
  95         g1 ~ |   % 8
  96         g2 b,4 c |   % 9
  97
  98         d2 g |   % 10
  99         e4 d g a |   % 11
 100         b1 ~ |   % 12
 101         b2 b4 d |   % 13
 102         c4. c8 b4 a |   % 14
 103         g8 ( e ) d4 fs8 ( g ) a4 |   % 15
 104         g1 ~ |   % 16
 105         g1 |   % 17
 106
 107         % B section
 108
 109         d'2 b4 e |   % 18
 110         d4 d2 r4 |   % 19
 111         d2 b8 b e4 |   % 20
 112         d2. r4 |   % 21
 113         b2 b4 a |   % 22
 114         b8 ( a ) g2. |   % 23
 115         b8 a g4 b8 ( a ) g4 |   % 24
 116         a2. r4 |   % 25
 117
 118         d2 b4 e |   % 26
 119         d4 d2 g,4 |   % 27
 120         b4 b b a |   % 28
 121         g2 ~ g8 e g a |   % 29
 122         b4 a8 g ~ g e g a |   % 30
 123         b4 a8 g ~ g4 a4 |   % 31
 124         b4 g g a |   % 32
 125         g1 ~ |   % 33
 126         g4 r b, c |   % 34
 127 }
 128
 129 LeadVoxText = \lyricmode
 130 {
 131         There’s a sweet, sweet spir -- it in this place, _
 132         And I know that it’s the spir -- _ it of _ the Lord; _
 133         There are sweet ex -- pres -- sions on each face, _
 134         And I know they feel the pres -- _ ense of _ the Lord. _
 135
 136         Sweet Ho -- ly Spir -- it, Sweet hea -- ven -- ly dove,
 137         Stay right here with _ us, Fill -- ing us with _ your love;
 138         And for these bless -- ings We lift our hearts in praise; _
 139         With -- out a doubt we’ll know _
 140         that we have been re -- vived, _
 141         When we shall leave this place. _
 142
 143         There are
 144 }
 145
 146 LeadVoxTextB = \lyricmode
 147 {
 148         _ _
 149
 150         bless -- ings you can -- not re -- ceive _
 151         ’Til you know him in his full -- _ ness and _ be -- lieve; _
 152         You’re the one to prof -- it when you say, _
 153         “I am going to walk with Je -- _ sus all _ the way.” _
 154
 155         _ _ _ _ _ _ _ _ _ _
 156         _ _ _ _ _ _ _ _ _ _ _ _ _
 157         _ _ _ _ _ _ _ _ _ _ _ _
 158         _ _ _ _ _ _ _
 159         _ _ _ _ _ _ _
 160         _ _ _ _ _ _ _
 161
 162         If you
 163 }
 164
 165 LeadVoxTextC = \lyricmode
 166 {
 167         _ _
 168
 169         say he saved you from your sin, _
 170         Now you’re weak you’re bound and can -- _ not en -- _ ter in; _
 171         You can make it right if you will yield, _
 172         You’ll en -- joy the Ho -- ly Spir -- _ it that _ we feel.
 173 }
 174
 175
 176 %
 177 % Riffs
 178 %
 179 Riffs = \relative c''
 180 {
 181 %{
 182         % Intro
 183
 184         \tiny
 185         R1 |   % 1
 186         R1 |   % 2
 187         R1 |   % 3
 188         R1 |   % 4
 189
 190         c8 ( f ) ~ f2. |   % 5
 191         e2 ~ e8 a4. |   % 6
 192         d,1 ( |   % 7
 193         c1 ) |   % 8
 194         bf4 ( df2. ) |   % 9
 195         df4 ( e2. ) |   % 10
 196         ef1 |   % 11
 197         d8 ef4 f8 ~ f4 bf-. |   % 12
 198         d,2 s2 |   % 13
 199
 200         s1*36 |   % 14-49
 201         s2 |   % 50
 202         s1*32 |   % 51-82
 203         r8 df df df df ( c ) bf4 |   % 83
 204         R1*8 |   % 84-91
 205         \normalsize
 206 %}
 207 }
 208
 209
 210 %
 211 % Chord names
 212 %
 213 Chords = \chordmode
 214 {
 215 %Bah, can't we set this globally?
 216 %       \popChords
 217
 218         % Lead in
 219
 220         s1 |   % 1
 221
 222         % A section
 223
 224         g1 |   % 2
 225         c1 |   % 3
 226         g2 b:m7.5-/f |   % 4
 227         e1:7 |   % 5
 228         a2:m a4:m/b a:m/c |   % 6
 229         g2/d d:7 |   % 7
 230         g2 c |   % 8
 231         g1 |   % 9
 232
 233         g1 |   % 10
 234         c1 |   % 11
 235         g2 b:m7.5-/f |   % 12
 236         e1:7 |   % 13
 237         a2:m a4:m/b a:m/c |   % 14
 238         g2/d d:7 |   % 15
 239         g2 c |   % 16
 240         g1 |   % 17
 241
 242         % B section
 243
 244         g2 c/g |   % 18
 245         g1 |   % 19
 246         g2 c/g |   % 20
 247         g1 |   % 21
 248         g2 b:7 |   % 22
 249         e1:m7 |   % 23
 250         a2:7 a:7/cs |   % 24
 251         d2 d:7 |   % 25
 252
 253         g2 c/g |   % 26
 254         g1 |   % 27
 255         g2 b:7 |   % 28
 256         e1:m7 |   % 29
 257         g4. e2:m7 s8 |   % 30
 258         g4. e2:m7 s8 |   % 31
 259         a2:9 c/d |   % 32
 260         g1 |   % 33
 261         s1 |   % 34
 262 }
 263
 264
 265 %
 266 % Chord rhythms
 267 %
 268
 269 % Use a RhythmicStaff on the chords instead of this?
 270 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 271
 272 Rhythm =
 273 {
 274         \override Staff.TimeSignature #'style = #'()
 275         \override NoteHead #'style = #'slash
 276
 277         % Lead in
 278
 279         r1 |   % 1
 280
 281         % A section
 282
 283         c4 c c c |   % 2
 284         c4 c c c |   % 3
 285         c4 c c c |   % 4
 286         c4 c c c |   % 5
 287         c4 c c c |   % 6
 288         c4 c c c |   % 7
 289         c4 c c c |   % 8
 290         c4 c c c |   % 9
 291
 292         c4 c c c |   % 10
 293         c4 c c c |   % 11
 294         c4 c c c |   % 12
 295         c4 c c c |   % 13
 296         c4 c c c |   % 14
 297         c4 c c c |   % 15
 298         c4 c c c |   % 16
 299         c4 c c c |   % 17
 300
 301         % B section
 302
 303         c4 c c c |   % 18
 304         c4 c c c |   % 19
 305         c4 c c c |   % 20
 306         c4 c c c |   % 21
 307         c4 c c c |   % 22
 308         c4 c c c |   % 23
 309         c4 c c c |   % 24
 310         c4 c c c |   % 25
 311
 312         c4 c c c |   % 26
 313         c4 c c c |   % 27
 314         c4 c c c |   % 28
 315         c4 c c c |   % 29
 316         c4 c8 c ~ c4 c |   % 30
 317         c4 c8 c ~ c4 c |   % 31
 318         c4 c c c |   % 32
 319         c4 c c c |   % 33
 320         c4 c c c |   % 34
 321 }
 322
 323 Dynamics =
 324 {
 325 %{
 326         % Intro
 327         s4_\markup { \italic { Ac. gtr only } } s2. |   % 1
 328
 329         s1*3 |   % 2-4
 330
 331         s4_\markup { \italic { Band in } } s2. |   % 5
 332 %}
 333 }
 334
 335
 336 \score
 337 {
 338         <<
 339                 \Global                                         % The "roadmap" that everything else depends on
 340
 341                 \context Staff
 342                 <<
 343                         \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
 344                         \new Lyrics \lyricsto "lead" \LeadVoxText
 345                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 346                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 347                 >>
 348
 349                 \new ChoirStaff
 350                 <<
 351                         \new ChordNames \Chords
 352 %Capo 3 edition
 353 %                       \new ChordNames \transpose f d \Chords
 354                         \new RhythmicStaff << \Rhythm \Dynamics >>
 355                 >>
 356
 357                 \set Score.skipBars = ##t
 358                 \set Score.melismaBusyProperties = #'()
 359         >>
 360 }
 361
 362
 363 \paper
 364 {
 365         #(define fonts (make-pango-font-tree
 366                 "Times New Roman"
 367                 "DomCasual BT"
 368                 "Luxi Mono"
 369                 (/ staffSize 20)))
 370
 371 % Spread staves vertically across last page (default: t)
 372 %       ragged-last-bottom = ##f
 373 % Don't spread staves vertically across the page (default: f)
 374 %       ragged-bottom = ##t
 375 % Allow partial line for last stave (default: f)
 376 %       ragged-last = ##t
 377
 378 % To find out what's eating the space at the top...
 379 %       annotate-spacing = ##t
 380 %let's try this: [It works! Huzzah!]
 381         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 382 }