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