Shamusworld >> Repos - music/blob - holy-is-the-lord.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 \header
  12 {
  13 %Let's bump up the title size and switch to the chord font. :-)
  14
  15         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Holy Is The Lord" }
  16 %       subtitle = \markup { \override #'(font-family . sans) \fontsize #3.5 "SA version" }
  17         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Blake/Harriton" }
  18 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Deborah Hammons" }
  19         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  20 }
  21
  22
  23 %
  24 % Song's structure
  25 %
  26 Global =
  27 {
  28         \key d \major
  29         \override Staff.TimeSignature #'style = #'()
  30         \time 4/4
  31
  32         % A section
  33
  34         \mark \markup { \override #'(font-family . sans) { \box { A } } }
  35
  36         s1*16 \bar "||"   % 1-16
  37
  38         % B section
  39
  40         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  41
  42         s1*16 \bar ":|"   % 17-32
  43 }
  44
  45
  46 %
  47 % Lead vocal
  48 %
  49
  50 LeadVox = \relative c'
  51 {
  52 %       \set Voice.autoBeaming = ##f
  53 %       \set Staff.instrument = #"Lead vox"
  54         \clef G
  55
  56         % A section
  57
  58         d4. ( a'8 ) a2 |   %
  59         d,4. ( a'8 ) a2 |   %
  60         fs4. ( b8 ) b2 |   %
  61         fs4. ( b8 ) b2 |   %
  62         b2. b4 |   %
  63         a2. e8 ( fs ) |   %
  64         fs1 ~ |   %
  65         fs2. r4 |   %
  66
  67         d4. ( a'8 ) a2 |   %
  68         d,4. ( a'8 ) a2 |   %
  69         fs4. ( b8 ) b2 |   %
  70         fs4. ( b8 ) b2 |   %
  71         b2. b4 |   %
  72         a2. e8 ( fs ) |   %
  73         fs1 ~ |   %
  74         fs4 d' cs4. a8 |   %
  75
  76         % B section
  77
  78         b1 ~ |   %
  79         b4 d cs4. a8 |   %
  80         b1 ~ |   %
  81         b4 b a e |   %
  82         a2. fs8 g |   %
  83         a4. d,8 g4. fs8 |   %
  84         fs2 ( ~ fs8 g fs4 ) |   %
  85         e4 d' cs4. a8 |   %
  86
  87         b1 ~ |   %
  88         b4 d cs4. a8 |   %
  89         b1 ~ |   %
  90         b4 b a e |   %
  91         a2. fs8 g |   %
  92         a4. d,8 g4. fs8 |   %
  93         fs2 ( ~ fs8 g fs e ) |   %
  94         e2. r4 |   %
  95 }
  96
  97 LeadVoxText = \lyricmode
  98 {
  99         Ho -- _ ly, ho -- _ ly,
 100         Ho -- _ ly, ho -- _ ly,
 101         Ho -- ly is the _ Lord. _
 102
 103         Ho -- _ ly, ho -- _ ly,
 104         Ho -- _ ly, ho -- _ ly,
 105         Ho -- ly is the _ Lord. _
 106
 107         His name is high _
 108         and lift -- ed up, _
 109         and there is peace
 110         in the sha -- dow of his glo -- _ _ _ ry.
 111
 112         His name is high _
 113         and lift -- ed up, _
 114         and there is peace
 115         in the sha -- dow of his glo -- _ _ _ _ ry.
 116 }
 117
 118
 119 Riffs = \relative c'
 120 {
 121 %{
 122         \clef G
 123         \key ef \major
 124         \override Staff.TimeSignature #'style = #'()
 125         \time 4/4
 126
 127         % Intro
 128
 129         \tiny
 130         <ef g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 1
 131         c1 |   % 2
 132         <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 3
 133         c2 <ef, bf af> |   % 4
 134
 135         s1*9
 136         s2
 137
 138 \voiceOne
 139 \tieDown
 140         <ef g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 14
 141 \tieNeutral
 142 \oneVoice
 143         c1 |   % 15
 144         <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 16
 145         c2 <ef, bf af> |   % 17
 146
 147         <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 18
 148         c2 r |   % 19
 149
 150         s1*10
 151
 152         \stemUp
 153         <f a,>16 e c g ~ g4 ~ g4. a16 c |   % 31
 154         \stemNeutral
 155         d2 r |   % 32
 156         <f a,>16 e c g ~ g4 ~ g4. a16 c |   % 33
 157         d2 r |   % 34
 158 %}
 159 }
 160
 161
 162 %
 163 % Chord names
 164 %
 165
 166 Chords = \chordmode
 167 {
 168         % A section
 169
 170         d1 |   % 1
 171         s1 |   % 2
 172         b1:m |   % 3
 173         s1 |   % 4
 174         g1 |   % 5
 175         a2:sus4 a |   % 6
 176         d1 |   % 7
 177         s1 |   % 8
 178
 179         d1 |   % 9
 180         s1 |   % 10
 181         b1:m |   % 11
 182         s1 |   % 12
 183         g1 |   % 13
 184         a2:sus4 a |   % 14
 185         d1 |   % 15
 186         d2 fs:m7 |   % 16
 187
 188         % B section
 189
 190         g1:3.5.9 |   % 17
 191         s2 fs:m7 |   % 18
 192         g2.:3.5.9 fs4:m7 |   % 19
 193         e2:m7 a/cs |   % 20
 194         d4:sus4 d a/d d |   % 21
 195         d2/fs g |   % 22
 196         d1/a |   % 23
 197         a2 fs:m7 |   % 24
 198
 199         g1:3.5.9 |   % 25
 200         s2 fs:m7 |   % 26
 201         g2.:3.5.9 fs4:m7 |   % 27
 202         e2:m7 a/cs |   % 28
 203         d4:sus4 d a/d d |   % 29
 204         d2/fs g |   % 30
 205         d1/a |   % 31
 206         a1 |   % 32
 207 }
 208
 209
 210 %
 211 % Chord rhythms
 212 %
 213
 214 % Use a RhythmicStaff on the chords instead of this?
 215 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 216
 217 Rhythm = \relative c
 218 {
 219 %       \set Voice.autoBeaming = ##f
 220 %       \set Staff.instrument = #"Rhythm"
 221         \override Staff.TimeSignature #'style = #'()
 222 %       \time 4/4
 223         \override NoteHead #'style = #'slash
 224
 225         % A section
 226
 227         c4 c c c |   % 1
 228         c4 c c c |   %
 229         c4 c c c |   %
 230         c4 c c c |   %
 231         c4 c c c |   % 5
 232         c4 c c c |   %
 233         c4 c c c |   %
 234         c4 c c c |   %
 235
 236         c4 c c c |   % 9
 237         c4 c c c |   %
 238         c4 c c c |   %
 239         c4 c c c |   %
 240         c4 c c c |   % 13
 241         c4 c c c |   %
 242         c4 c c c |   %
 243         c4 c c c |   %
 244
 245         % B section
 246
 247         c4 c c c |   % 17
 248         c4 c c c |   %
 249         c4 c c c |   %
 250         c4 c c c |   %
 251         c4 c c c |   % 21
 252         c4 c c c |   %
 253         c4 c c c |   %
 254         c4 c c c |   %
 255
 256         c4 c c c |   % 25
 257         c4 c c c |   %
 258         c4 c c c |   %
 259         c4 c c c |   %
 260         c4 c c c |   % 29
 261         c4 c c c |   %
 262         c4 c c c |   %
 263         c4 c c c |   %
 264 }
 265
 266
 267
 268 Dynamics =
 269 {
 270 %{
 271 %Hmm, this is throwin off the layout...
 272         s4_\mf s2. |   % 1
 273         s1*18 |   % 2-19
 274         s4 s \< s2 |   % 20
 275         s4_\f s2. |   % 21
 276 %}
 277 %{
 278         % Intro
 279         s4_\markup { \italic { Ac. gtr only } } s2. |   % 1
 280
 281         s1*3 |   % 2-4
 282
 283         s4_\markup { \italic { Band in } } s2. |   % 5
 284 %}
 285 }
 286
 287
 288 \score
 289 {
 290         <<
 291 %               \new Staff
 292                 <<
 293                         \new ChordNames \Chords
 294 %Capo 3 edition
 295 %                       \new ChordNames \transpose f d \Chords
 296                         \new RhythmicStaff << \Rhythm \Dynamics >>
 297                 >>
 298
 299                 \new Staff
 300                 <<
 301                         \Global                                         % The "roadmap" that everything else depends on
 302                         \new Voice = "lead" \LeadVox
 303                         \new Voice \Riffs
 304                         \new Lyrics \lyricsto "lead" \LeadVoxText
 305                 >>
 306
 307                 \set Score.skipBars = ##t
 308                 \set Score.melismaBusyProperties = #'()
 309         >>
 310 }
 311
 312
 313 \paper
 314 {
 315         #(define fonts (make-pango-font-tree
 316                 "Times New Roman"
 317                 "JazzText"
 318                 "Luxi Mono"
 319                 (/ staffSize 20)))
 320
 321 % Don't spread staves vertically across last page (default: t)
 322         ragged-last-bottom = ##f
 323 % Don't spread staves vertically across the page (default: f)
 324 %       ragged-bottom = ##t
 325 % Allow partial line for last stave (default: f)
 326         ragged-last = ##t
 327
 328 % To find out what's eating the space at the top...
 329 %       annotate-spacing = ##t
 330 %let's try this: [It works! Huzzah!][nope]
 331 %       obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 332 }