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