Shamusworld >> Repos - music/blob - be-still-and-know.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20 (23 & 26 are available too)
   6 staffSize = #23
   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 "Be Still And Know" }
  18 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "???" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Deborah Hammons" }
  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 b \major
  40         \numericTimeSignature
  41         \time 3/4
  42
  43         % Intro
  44
  45 %       \once \override TextScript #'padding = #2.0
  46 %       s1*0^\markup { \large \bold { Not too fast } }
  47 % Capo 4 version
  48 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  49
  50         % Intro
  51
  52         s2.*8 \bar ".|:-||"   % 1-8
  53
  54         \repeat volta 2
  55         {
  56                 % Verse
  57
  58                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  59                 s2.*11 |   % 9-19
  60         }
  61         \alternative
  62         {
  63                 {
  64                         s2.*4 |   % 20-23
  65                 }
  66                 {
  67                         s2.*2 |   % 24-25
  68                 }
  69         }
  70
  71         s2.*2 \bar "||"   % 26-27
  72
  73         % Modulation
  74
  75         \key c \major
  76         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  77         s2.*4 \bar "||"   % 28-31
  78
  79         % Verse
  80
  81         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  82         s2.*16 \bar "||"   % 32-47
  83
  84         % Outro
  85
  86         s2.*5 \bar "|."   % 48-52
  87 }
  88
  89
  90 %
  91 % Lead vocal
  92 %
  93 LeadVox = \relative c'
  94 {
  95         \clef G
  96
  97         % Intro
  98
  99         s2.*7 |   % 1-7
 100         r2 <fs ds>4 |   % 8
 101
 102         % Verse
 103
 104         <fs ds>4 ( <ds b> ) <gs e> |   % 9
 105         <fs ds>2 <fs ds>4 |   % 10
 106         <fs ds>4 ( <cs as> ) <e cs> |   % 11
 107         <ds b>2 <ds b>4 |   % 12
 108         <ds b>4 ( <e cs> ) <fs ds> |   % 13
 109         <gs e>2 <gs e>4 |   % 14
 110         << { \voiceOne gs4 ( as ) } \new Voice = "v" { \voiceTwo e2 } >> \oneVoice <b' e,>4 |   % 15
 111         <as fs>2 <b e,>4 |   % 16
 112         << { \voiceOne b ( fs ) } \context Voice = "v" { \voiceTwo ds2 } >> \oneVoice <gs e>4 |   % 17
 113         << { \voiceOne fs ( ds ) } \context Voice = "v" { \voiceTwo ds2 } >> \oneVoice <e cs>4 |   % 18
 114         << { \voiceOne ds ( b ) } \context Voice = "v" { \voiceTwo b2 } >> \oneVoice <cs as>4 |   % 19
 115
 116 \voiceTwo
 117         b2. ~ |   % 20
 118         b2. |   % 21
 119 \oneVoice
 120         s2. |   % 22
 121         r2 fs'4 |   % 23
 122
 123 \voiceTwo
 124         b,2. ~ |   % 24
 125         b2. |   % 25
 126 \oneVoice
 127
 128         s2. |   % 26
 129         s2. |   % 27
 130
 131         % Modulation
 132
 133         s2. |   % 28
 134         s2. |   % 29
 135         s2. |   % 30
 136         r2 <g' e>4 |   % 31
 137
 138         % Verse
 139
 140         <g e>4 ( <e c> ) <a f> |   % 32
 141         <g e>2 <g e>4 |   % 33
 142         <g e> ( <d b> ) <f d> |   % 34
 143         <e c>2 <e c>4 |   % 35
 144         <e c> ( <f d> ) <g e> |   % 36
 145         <a f>2 <a f>4 |   % 37
 146         << { \voiceOne a4 ( b ) } \context Voice = "v" { \voiceTwo f2 } >> \oneVoice <c' f,>4 |   % 38
 147         <b g>2 <c f,>4 |   % 39
 148         << { \voiceOne c4 ( g ) } \context Voice = "v" { \voiceTwo e2 } >> \oneVoice <a f>4 |   % 40
 149         << { \voiceOne g4 ( e ) } \context Voice = "v" { \voiceTwo e2 } >> \oneVoice <f d>4 |   % 41
 150         << { \voiceOne e4 ( c ) } \context Voice = "v" { \voiceTwo c2 } >> \oneVoice <d b>4 |   % 42
 151         c2. ~ |   % 43
 152         c2 <c' c,>4 |   % 44
 153         << { \voiceOne c4 ( g ) } \context Voice = "v" { \voiceTwo c,2 } >> \oneVoice <a' d,>4 |   % 45
 154         << { \voiceOne g4 ( e ) } \context Voice = "v" { \voiceTwo c2 } >> \oneVoice <f c>4 |   % 46
 155         << { \voiceOne e4 ( c ) } \context Voice = "v" { \voiceTwo c2 } >> \oneVoice <b d>4 |   % 47
 156
 157         % Outro
 158
 159 \voiceTwo
 160         c2. ~ |   % 48
 161         c2. |   % 49
 162 \oneVoice
 163         s2.*3 |   % 50-52
 164 }
 165
 166 LeadVoxText = \lyricmode
 167 {
 168         Be still _ and know that I _ am God,
 169         Be still _ and know that I _ am God,
 170         Be still _ and know _ that I _ am God. __ _
 171
 172         I
 173
 174         thee. __ _
 175
 176         Be still _ and know that I _ am Lord,
 177         Be still _ and know that I _ am Lord,
 178         Be still _ and know _ that I _ am Lord, __ _
 179         Be still _ and know _ that I _ am Lord.
 180 }
 181
 182 LeadVoxTextB = \lyricmode
 183 {
 184         _ am _ the Lord that heal -- _ eth thee,
 185         I am _ the Lord that heal -- _ eth thee,
 186         I am _ the Lord _ that heal -- _ eth
 187 }
 188
 189
 190 Riffs = \relative c''
 191 {
 192         \clef G
 193
 194         % Intro
 195
 196         \tiny
 197         b4. fs8 b fs' |   % 1
 198         fs4 e2 |   % 2
 199         ds4. b8 cs ds |   % 3
 200         b2. |   % 4
 201         b4. fs8 b fs' |   % 5
 202         fs4 e2 |   % 6
 203         ds4. b8 cs ds |   % 7
 204         b2. |   % 8
 205
 206         s2.*11 |   % 9-19
 207
 208 \voiceOne
 209         b4. fs8 b fs' |   % 20
 210         fs4 e2 |   % 21
 211 \oneVoice
 212         ds4. b8 cs ds |   % 22
 213         b2. |   % 23
 214
 215 \voiceOne
 216         b4. fs8 b fs' |   % 24
 217         fs4 e2 |   % 25
 218 \oneVoice
 219         ds4. b8 cs ds |   % 26
 220         b2. |   % 27
 221
 222         c4. g8 c g' |   % 28
 223         g4 f2 |   % 29
 224         e4. c8 d e |   % 30
 225         c2. |   % 31
 226
 227         s2.*16 |   % 32-47
 228
 229 \voiceOne
 230         c4. g8 c g' |   % 48
 231         g4 f2 |   % 49
 232 \oneVoice
 233         e4. c8 d e |   % 50
 234         c2. ~ |   % 51
 235         c2.-\fermata |   % 52
 236         \normalsize
 237 }
 238
 239
 240 %
 241 % Chord names
 242 %
 243 Chords = \chordmode
 244 {
 245         % Intro
 246
 247         b2.:sus2 |   % 1
 248         e2.:5.9 |   % 2
 249         b2.:sus2 |   % 3
 250         e2.:5.9 |   % 4
 251         b2.:sus2 |   % 5
 252         e2.:5.9 |   % 6
 253         gs2:m7 fs4 |   % 7
 254         e2.:5.9 |   % 8
 255
 256         % Verse
 257
 258         b2 e4/b |   % 9
 259         b2. |   % 10
 260         fs2. |   % 11
 261         b2. |   % 12
 262         b4 cs:m7 b/ds |   % 13
 263         e2. |   % 14
 264         cs2. |   % 15
 265         fs2 e4/fs |   % 16
 266         b2 e4/b |   % 17
 267         b2 e4 |   % 18
 268         b2/fs fs4 |   % 19
 269
 270         b2.:sus2 |   % 20
 271         e2.:5.9 |   % 21
 272         gs2:m7 fs4 |   % 22
 273         e2.:5.9 |   % 23
 274
 275         b2.:sus2 |   % 24
 276         e2.:5.9 |   % 25
 277
 278         b2.:sus2 |   % 26
 279         e2.:5.9 |   % 27
 280
 281         % Modulation
 282
 283         c2.:sus2 |   % 28
 284         f2.:5.9 |   % 29
 285         a2:m7 g4 |   % 30
 286         f2.:5.9 |   % 31
 287
 288         % Verse
 289
 290         c2 f4/c |   % 32
 291         c2. |   % 33
 292         g2./c |   % 34
 293         c2. |   % 35
 294         c4 d:m7 c/e |   % 36
 295         f2. |   % 37
 296         d2./fs |   % 38
 297         g2 f4:sus2 |   % 39
 298         c2/e f4 |   % 40
 299         c2/g f4/g |   % 41
 300         c2/g g4 |   % 42
 301         a2.:m7 |   % 43
 302         f2. |   % 44
 303         c2/g f4/g |   % 45
 304         c2/g f4 |   % 46
 305         c2/g g4 |   % 47
 306
 307         % Outro
 308
 309         c2.:sus2 |   % 48
 310         f2.:5.9 |   % 49
 311         a2:m7 g4 |   % 50
 312         f2.:5.9 |   % 51
 313         c2.:sus2 |   % 52
 314 }
 315
 316
 317 %
 318 % Chord rhythms
 319 %
 320 % Use a RhythmicStaff on the chords instead of this?
 321 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 322 %
 323 Rhythm = \relative c
 324 {
 325         \numericTimeSignature
 326         \override NoteHead #'style = #'slash
 327         \teeny
 328
 329         % Intro
 330
 331         c2. |   % 1
 332         c2. |   % 2
 333         c2. |   % 3
 334         c2. |   % 4
 335         c2. |   % 5
 336         c2. |   % 6
 337         c2 c4 |   % 7
 338         c4 c c |   % 8
 339
 340         % Verse
 341
 342         c4 c c |   % 9
 343         c4 c c |   % 10
 344         c4 c c |   % 11
 345         c4 c c |   % 12
 346         c4 c c |   % 13
 347         c4 c c |   % 14
 348         c4 c c |   % 15
 349         c4 c c |   % 16
 350         c4 c c |   % 17
 351         c4 c c |   % 18
 352         c4 c c |   % 19
 353
 354         c4 c c |   % 20
 355         c4 c c |   % 21
 356         c4 c c |   % 22
 357         c4 c c |   % 23
 358
 359         c4 c c |   % 24
 360         c4 c c |   % 25
 361
 362         c4 c c |   % 26
 363         c4 c c |   % 27
 364
 365         % Modulation
 366
 367         c4 c c |   % 28
 368         c4 c c |   % 29
 369         c4 c c |   % 30
 370         c4 c c |   % 31
 371
 372         % Verse
 373
 374         c4 c c |   % 32
 375         c4 c c |   % 33
 376         c4 c c |   % 34
 377         c4 c c |   % 35
 378         c4 c c |   % 36
 379         c4 c c |   % 37
 380         c4 c c |   % 38
 381         c4 c c |   % 39
 382         c4 c c |   % 40
 383         c4 c c |   % 41
 384         c4 c c |   % 42
 385         c4 c c |   % 43
 386         c4 c c |   % 44
 387         c2. ~ |   % 45
 388         c2 c4 |   % 46
 389         c2 c4 |   % 47
 390
 391         % Outro
 392
 393         c4 c c |   % 48
 394         c4 c c |   % 49
 395         c4 c c |   % 50
 396         c4 c c |   % 51
 397         c2.-\fermata |   % 52
 398 }
 399
 400
 401 Dynamics =
 402 {
 403         s4_\mp s2 |   % 1
 404         s2.*7 |   % 2-8
 405         s4_\markup { \italic { (1st X piano, Ac gtr) } } s2 |   % 9
 406         s2.*10 |   % 10-19
 407         s4_\markup { \italic { (Add bass, drums) } } s2 |   % 20
 408         s2.*6 |   % 21-26
 409         s4 \< s2 |   % 27
 410         s4_\mf s2 |   % 28
 411         s2.*15 |   % 29-43
 412         s4 \> s s_\mp |   % 44
 413         s2.*2 |   % 45-46
 414         s4_\markup { \italic { rit. } } s2 |   % 47
 415         s2.*3 |   % 48-50
 416         s4_\markup { \italic { rit. } } s2 |   % 51
 417 }
 418
 419
 420 \score
 421 {
 422         <<
 423                 \set Score.skipBars = ##t
 424                 \set Score.melismaBusyProperties = #'()
 425
 426                 \context Staff
 427                 <<
 428                         \Global                 % The "roadmap" that everything else depends on
 429                         \new Voice = "lead" \LeadVox
 430                         \new Voice \Riffs
 431                         \new Lyrics \lyricsto "lead" \LeadVoxText
 432                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 433                 >>
 434
 435                 \new ChoirStaff
 436                 <<
 437                         \new ChordNames \Chords
 438 %Capo 4 edition
 439 %                       \new ChordNames \transpose b g \Chords
 440                         \new RhythmicStaff << \Rhythm \Dynamics >>
 441                 >>
 442         >>
 443 }
 444
 445
 446 \paper
 447 {
 448   #(define fonts (make-pango-font-tree
 449     "Times New Roman"
 450     "JazzText"
 451     "Luxi Mono"
 452     (/ staffSize 20)))
 453
 454 % Spread staves vertically across last page (default: t)
 455         ragged-last-bottom = ##f
 456 % Don't spread staves vertically across the page (default: f)
 457 %       ragged-bottom = ##t
 458 % Allow partial line for last stave (default: f)
 459         ragged-last = ##t
 460
 461 % To find out what's eating the space at the top...
 462 %       annotate-spacing = ##t
 463 }
 464