Shamusworld >> Repos - music/blob - we-will-glorify.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 "We Will Glorify" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Twila Paris" }
  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 }
  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 d \major
  38         \override Staff.TimeSignature #'style = #'()
  39         \time 3/4
  40
  41         % Intro
  42
  43         \partial 4*1 s4 |   % 0
  44 %       \once \override TextScript #'padding = #2.0
  45 %       s1*0^\markup { \large \bold { Moderately fast pop } }
  46 %%Capo 3 version
  47 %%      s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
  48 %       s1*13 \bar "||:"   % 1-13
  49
  50         \repeat volta 3
  51         {
  52                 % Verse
  53
  54                 \mark \markup { \override #'(font-family . sans) { \box { A } \hspace #0.5 \bold \italic { 1st X instr. } } }
  55
  56                 s2.*7 |   % 1-7
  57         }
  58         \alternative
  59         {
  60                 {
  61                         s2. |   % 8
  62                 }
  63                 {
  64                         s2. |   % 9
  65                 }
  66         }
  67
  68         % Modulation (instr. verse)
  69
  70         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  71
  72         \key e \major
  73         s2.*4 \bar "||"   % 10-13
  74
  75         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  76
  77         s2.*11 \bar "|."   % 14-24
  78 }
  79
  80
  81 %
  82 % Lead vocal
  83 %
  84 LeadVox = \relative c''
  85 {
  86         \clef G
  87         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  88
  89         % Intro
  90
  91         s4 |   % 0
  92
  93         % Verse
  94
  95         b8 a a4 e |   % 1
  96         e8 fs fs4 fs8 a |   % 2
  97         b8 a a4 e8. ( fs16 ) |   % 3
  98         fs2 fs8 a |   % 4
  99         b8 a a4 e |   % 5
 100         e8 fs fs4 fs8 ( a ) |   % 6
 101         g8 fs fs4 e8. ( d16 ) |   % 7
 102
 103         d2 fs8 a |   % 8
 104
 105         d,2 s4 |   % 9
 106
 107         % Modulation (instr. verse)
 108
 109         s2. |   % 10
 110         s2. |   % 11
 111         s2. |   % 12
 112         s2 gs8 b |   % 13
 113
 114         % Verse
 115
 116         cs8 b b4 fs |   % 14
 117         fs8 gs gs4 gs8 b |   % 15
 118         cs8 b b4 fs8. ( gs16 ) |   % 16
 119         gs2 gs8 b |   % 17
 120         cs8 b b4 fs |   % 18
 121         fs8 gs gs4 gs8 ( b ) |   % 19
 122         a8 gs gs4 fs8. ( e16 ) |   % 20
 123         e2 gs8 ( b ) |   % 21
 124         a8 gs gs4 fs8. ( e16 ) |   % 22
 125         e2. ~ |   % 23
 126         e2.-\fermata |   % 24
 127 }
 128
 129 LeadVoxText = \lyricmode
 130 {
 131         glor -- i -- fy the King of Kings,
 132         we will glor -- i -- fy the _ Lamb,
 133         we will glor -- i -- fy the Lord of Lords,
 134         who _ is the great I _ Am.
 135
 136         We will
 137         give.
 138
 139         Hal -- le -- lu -- jah to the King of Kings,
 140         Hal -- le -- lu -- jah to the _ Lamb,
 141         Hal -- le -- lu -- jah to the Lord of Lords,
 142         who _ is the great I _ Am,
 143         who _ is the great I _ Am.
 144 }
 145
 146 LeadVoxTextB = \lyricmode
 147 {
 148         Lord of hea -- ven, Lord of earth,
 149         He is Lord of all who _ live,
 150         He is Lord a -- bove the u -- ni -- verse,
 151         all _ praise to him we _
 152
 153         _
 154         He is
 155 }
 156
 157
 158 %
 159 % Riffs
 160 %
 161 Riffs = \relative c'
 162 {
 163
 164         % Intro
 165
 166         \tiny
 167         fs8 a |   % 0
 168         s2.*8 |   % 1-8
 169
 170         s2 gs8 b |   % 9
 171         cs8 b b4 fs |   % 10
 172         fs8 gs gs4 gs8 b |   % 11
 173         a8 gs gs4 fs8 ( e ) |   % 12
 174         e2 s4 |   % 13
 175 }
 176
 177
 178 %
 179 % Chord names
 180 %
 181 Chords = \chordmode
 182 {
 183 %Bah, can't we set this globally?
 184 %       \popChords
 185
 186         % Intro
 187
 188         d4/fs |   % 0
 189
 190         % Verse
 191
 192         g2 a4 |   % 1
 193         a8 d d4 d/fs |   % 2
 194         g2 a4 |   % 3
 195         d2 d4/fs |   % 4
 196         g2 a4 |   % 5
 197         a8/b b4.:m d4/fs |   % 6
 198         g8 d/g d4/a a |   % 7
 199
 200         d2 d4/fs |   % 8
 201
 202         d2 e4/gs |   % 9
 203
 204         % Modulation (instr. verse)
 205
 206         a2 b4 |   % 10
 207         b8/cs cs4.:m e4/gs |   % 11
 208         a8 e/a e4/b b |   % 12
 209         e2 e4/gs |   % 13
 210
 211         % Verse
 212
 213         a2 b4 |   % 14
 214         b8 e4. e4/gs |   % 15
 215         a2 b4 |   % 16
 216         e2 e4/gs |   % 17
 217         a2 b4 |   % 18
 218         b8/cs cs4.:m e4/gs |   % 19
 219         a8 e/a e4/b b |   % 20
 220         e2 e4/gs |   % 21
 221         a8 e/a e4/b b |   % 22
 222         d2.:sus2 |   % 23
 223         e2.:sus2 |   % 24
 224 }
 225
 226
 227 %
 228 % Chord rhythms
 229 %
 230
 231 % Use a RhythmicStaff on the chords instead of this?
 232 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 233
 234 Rhythm =
 235 {
 236         \override Staff.TimeSignature #'style = #'()
 237         \override NoteHead #'style = #'slash
 238
 239         % Intro
 240
 241         c4-> |   % 0
 242
 243         % Verse
 244
 245         c4 c c |   % 1
 246         c8 c c4 c |   % 2
 247         c4 c c |   % 3
 248         c4 c c |   % 4
 249         c4 c c |   % 5
 250         c8 c c4 c |   % 6
 251         c8 c c4 c |   % 7
 252
 253         c4 c c-> |   % 8
 254
 255         c4 c c |   % 9
 256
 257         % Modulation (instr. verse)
 258
 259         c4 c c |   % 10
 260         c8-> c-> c4-> c |   % 11
 261         c8 c c4 c |   % 12
 262         c4 c c-> |   % 13
 263
 264         % Verse
 265
 266         c4 c c |   % 14
 267         c8-> c-> c4-> c |   % 15
 268         c4 c c |   % 16
 269         c4 c c |   % 17
 270         c4 c c |   % 18
 271         c8 c c4 c |   % 19
 272         c8 c c4 c |   % 20
 273         c4 c c-> |   % 21
 274         c8 c c4 c |   % 22
 275         c4 c c |   % 23
 276         c2.-\fermata |   % 24
 277 }
 278
 279
 280 Dynamics =
 281 {
 282 %{
 283 %Hmm, this is throwin off the layout...
 284         s4_\mf s2. |   % 1
 285         s1*18 |   % 2-19
 286         s4 s \< s2 |   % 20
 287         s4_\f s2. |   % 21
 288 %}
 289 %{
 290         % Intro
 291         s4_\markup { \italic { Ac. gtr only } } s2. |   % 1
 292
 293         s1*3 |   % 2-4
 294
 295         s4_\markup { \italic { Band in } } s2. |   % 5
 296 %}
 297 }
 298
 299
 300 \score
 301 {
 302         <<
 303                 \Global                                         % The "roadmap" that everything else depends on
 304
 305                 \context Staff
 306                 <<
 307                         \new Voice = "lead" \LeadVox
 308                         \new Voice \Riffs
 309                         \new Lyrics \lyricsto "lead" \LeadVoxText
 310                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 311                 >>
 312
 313                 \new ChoirStaff
 314                 <<
 315                         \new ChordNames \Chords
 316 %Capo 3 edition
 317 %                       \new ChordNames \transpose f d \Chords
 318                         \new RhythmicStaff << \Rhythm \Dynamics >>
 319                 >>
 320
 321                 \set Score.skipBars = ##t
 322                 \set Score.melismaBusyProperties = #'()
 323         >>
 324 }
 325
 326
 327 \paper
 328 {
 329         #(define fonts (make-pango-font-tree
 330                 "Times New Roman"
 331                 "DomCasual BT"
 332                 "Luxi Mono"
 333                 (/ staffSize 20)))
 334
 335 % Don't spread staves vertically across last page (default: t)
 336         ragged-last-bottom = ##f
 337 % Don't spread staves vertically across the page (default: f)
 338 %       ragged-bottom = ##t
 339 % Allow partial line for last stave (default: f)
 340         ragged-last = ##t
 341
 342 % To find out what's eating the space at the top...
 343 %       annotate-spacing = ##t
 344 %let's try this: [It works! Huzzah!]
 345         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 346 }