Shamusworld >> Repos - music/blob - worthy-of-my-praise.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 = #16
   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 "Worthy Of My Praise" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "David Ruis" }
  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
  22 %
  23 % Lead vocal
  24 %
  25
  26 LeadVox = \relative c'
  27 {
  28 %       \set Voice.autoBeaming = ##f
  29 %       \set Staff.instrumentName = #"Lead vox"
  30         \clef G
  31         \key f \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         \repeat volta 2
  39         {
  40                 R1 |   % 1
  41                 R1 |   % 2
  42                 R1 |   % 3
  43                 R1 |   % 4
  44         }
  45
  46         % Verse
  47
  48         \repeat volta 2
  49         {
  50 \once \override Score.RehearsalMark #'self-alignment-X = #left
  51 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  52
  53                 f4. c8 c4 f ~ |   % 5
  54 <<
  55 { \voiceOne
  56                 f2.. f8 |   % 6
  57                 f8 f4 g8 ~ g ef ~ ef4 ~ |   % 7
  58                 ef1 |   % 8
  59                 bf'4. f8 f4 bf ~ |   % 9
  60                 bf2. \tiny bf8 \normalsize bf\noBeam |   % 10
  61                 bf8 a4 g8 f2  |   % 11
  62 }
  63 \context Voice = v { \voiceTwo
  64 \tiny
  65                 f4. c8 c4 f ~ |   % 6
  66                 f2.. f8 |   % 7
  67                 f8 f4 g8 ~ g ef ~ ef4 ~ |   % 8
  68                 ef1 |   % 9
  69                 bf'4. f8 f4 bf ~ |   % 10
  70                 bf2. r8 bf |   % 11
  71 }
  72 >>
  73 \oneVoice
  74         }
  75         \alternative
  76         {
  77                 {
  78                         \context Voice = v { \voiceTwo bf4 a g8 ( f e f ) } |   % 12
  79                 }
  80                 {
  81                         \context Voice = v { \voiceTwo bf4 a g8 ( f e f ) } |   % 13
  82                 }
  83         }
  84
  85         % Chorus
  86
  87         \repeat volta 3
  88         {
  89 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  90
  91                 r4 c'8. c16 c4. c8 |   % 14
  92                 c4. bf8 a ( g ) g4 |   % 15
  93                 r4 bf8. bf16 bf4. bf8 |   % 16
  94                 bf4 a g8 ( f e f ) |   % 17
  95                 r4 c'8. c16 c4. c8 |   % 18
  96                 c4. bf8 a ( g ) g4 |   % 19
  97                 r4 bf8. bf16 bf4. bf8 |   % 20
  98         }
  99         \alternative
 100         {
 101                 {
 102                         bf4 a g8 ( f ) e ( f ) |   % 21
 103                         f2 r |   % 22
 104                         R1^\markup { \bold D.S. } \bar "||"   % 23
 105                 }
 106                 {
 107                         bf4 a g8 ( f ) e f |   % 24
 108                 }
 109                 {
 110                         bf4 a g8 ( f ) e f \bar "||"   % 25
 111                 }
 112         }
 113
 114         % Outro
 115
 116 \once \override Score.RehearsalMark #'self-alignment-X = #left
 117 \mark \markup { \override #'(font-family . sans) { \box { C } } \small \italic { a capella } }
 118
 119         r4 c'8. c16 c4. c8 |   % 26
 120         c4. bf8 a ( g ) g4 |   % 27
 121         r4 bf8. bf16 bf4. bf8 |   % 28
 122         bf4 a g8 ( f e f ) |   % 29
 123         r4 c'8. c16 c4. c8 |   % 30
 124         c4. bf8 a ( g ) g4 |   % 31
 125         r4 bf8. bf16 bf4. bf8 |   % 32
 126
 127 \once \override Score.RehearsalMark #'self-alignment-X = #left
 128 \mark \markup { \small \italic { tutti } }
 129
 130         bf4 a g8 ( f ) e ( f ) |   % 33
 131         f1^\fermata \bar "|."   % 34
 132 }
 133
 134 LeadVoxText = \lyricmode
 135 {
 136         I will wor -- ship _
 137         with all of my _ heart _ _
 138         I will praise you _
 139         _ with all of my strength
 140
 141         I will give you all my wor -- _ ship
 142         I will give you all my praise __ _ _ _
 143         You a -- lone I long to wor -- _ ship
 144         You a -- lone are wor -- thy of _ my _ praise
 145
 146         wor -- thy of _ my praise
 147         wor -- thy of _ my praise
 148
 149         I will give you all my wor -- _ ship
 150         I will give you all my praise __ _ _ _
 151         You a -- lone I long to wor -- _ ship
 152         You a -- lone are wor -- thy of _ my _ praise
 153
 154 %{
 155 I will worship (I will worship)
 156 With all of my heart (with all of my heart)
 157 I will praise you (I will praise you)
 158 With all of my strength (all my strength)
 159
 160 I will seek you (I will seek you)
 161 All of my days (all of my days)
 162 I will follow (I will follow)
 163 All of your ways (all your ways)
 164
 165 I will give you all my worship
 166 I will give you all my praise
 167 You alone I long to worship
 168 You alone are worthy of my praise
 169
 170 I will bow down (I will bow down)
 171 Hail you as king (hail you as king)
 172 I will serve you (I will serve you)
 173 Give you everything (give you everything)
 174
 175 I will lift up (I will lift up)
 176 My eyes to your throne (my eyes to your throne)
 177 I will trust you (I will trust you)
 178 I will trust you alone (trust you alone)
 179 %}
 180
 181 }
 182
 183 LeadVoxTextB = \lyricmode
 184 {
 185         I will seek you _
 186         _ all of my _ days _ _
 187         I will fol -- low _
 188         _ _ all of your ways
 189 }
 190
 191 LeadVoxTextC = \lyricmode
 192 {
 193         I will bow down _
 194         _ hail you as _ king _ _
 195         I will serve you _
 196         _ give you e -- very -- thing
 197 }
 198
 199 LeadVoxTextD = \lyricmode
 200 {
 201         I will lift up _
 202         My eyes to your _ throne _ _
 203         I will trust you _
 204         I will trust you a -- lone
 205 }
 206
 207
 208 %
 209 % Chord names
 210 %
 211
 212 Chords = \chordmode
 213 {
 214 %Bah, can't we set this globally?
 215 %       \popChords
 216
 217         % Intro
 218
 219         \repeat volta 2
 220         {
 221                 f1:sus2 |   % 1
 222                 s1 |   % 2
 223                 ef1:sus2 |   % 3
 224                 s1 |   % 4
 225         }
 226
 227         % Verse
 228
 229         \repeat volta 2
 230         {
 231                 f1:sus2 |   % 5
 232                 s1 |   % 6
 233                 ef1:sus2 |   % 7
 234                 s1 |   % 8
 235                 bf1 |   % 9
 236                 s1 |   % 10
 237                 f1 |   % 11
 238         }
 239         \alternative
 240         {
 241                 {
 242                         g2:m7 bf4/c c |   % 12
 243                 }
 244                 {
 245                         g2:m7 bf4/c c |   % 13
 246                 }
 247         }
 248
 249         % Chorus
 250
 251         \repeat volta 3
 252         {
 253                 f1 |   % 14
 254                 c1/e |   % 15
 255                 bf1/d |   % 16
 256                 g4:m7 f/a bf:6 c |   % 17
 257                 f1 |   % 18
 258                 c1/e |   % 19
 259                 g1:m7 |   % 20
 260         }
 261         \alternative
 262         {
 263                 {
 264                         g4:m7 f/a bf:6 c |   % 21
 265                         f1 |   % 22
 266                         bf1/c |   % 23
 267                 }
 268                 {
 269                         g4:m7 f/a bf:6 c |   % 24
 270                 }
 271                 {
 272                         g4:m7 f/a bf:6 c |   % 25
 273                 }
 274         }
 275
 276         % Outro
 277
 278         f1 |   % 26
 279         c1/e |   % 27
 280         bf1/d |   % 28
 281         g2:m7 bf4 c |   % 29
 282         f1 |   % 30
 283         c1/e |   % 31
 284         bf1/d |   % 32
 285         g4:m7 f/a bf:6 c |   % 33
 286         f1 |   % 34
 287 }
 288
 289
 290 %
 291 % Chord rhythms
 292 %
 293
 294 % Use a RhythmicStaff on the chords instead of this?
 295 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 296
 297 StaffC = \relative c
 298 {
 299 %       \set Voice.autoBeaming = ##f
 300 %       \set Staff.instrumentName = #"Rhythm"
 301         \override Staff.TimeSignature #'style = #'()
 302         \time 4/4
 303         \override NoteHead #'style = #'slash
 304
 305         % Intro
 306
 307         \repeat volta 2
 308         {
 309                 c1 ~ |   % 1
 310                 c1 |   % 2
 311                 c1 ~ |   % 3
 312                 c1 |   % 4
 313         }
 314
 315         % Verse
 316
 317         \repeat volta 2
 318         {
 319                 c1 ~ |   % 5
 320                 c1 |   % 6
 321                 c1 ~ |   % 7
 322                 c1 |   % 8
 323                 c1 ~ |   % 9
 324                 c1 |   % 10
 325                 c1 |   % 11
 326         }
 327         \alternative
 328         {
 329                 {
 330                         c2 c4 c |   % 12
 331                 }
 332                 {
 333                         c4 c c c |   % 13
 334                 }
 335         }
 336
 337         % Chorus
 338
 339         \repeat volta 3
 340         {
 341                 c4 c-> c c-> |   % 14
 342                 c4 c-> c c-> |   % 15
 343                 c4 c-> c c-> |   % 16
 344                 c4-> c c c |   % 17
 345                 c4 c-> c c-> |   % 18
 346                 c4 c-> c c-> |   % 19
 347                 c4 c-> c c-> |   % 20
 348         }
 349         \alternative
 350         {
 351                 {
 352                         c4 c c c |   % 21
 353                         c4 c c c |   % 22
 354                         c1 \bar "||"   % 23
 355                 }
 356                 {
 357                         c4 c c c |   % 24
 358                 }
 359                 {
 360                         c4 c c c \bar "||"   % 25
 361                 }
 362         }
 363
 364         % Outro
 365
 366         c1 |   % 26
 367         c1 |   % 27
 368         c1 |   % 28
 369         c4 c c c |   % 29
 370         c1 |   % 30
 371         c1 |   % 31
 372         c1 |   % 32
 373         c4_\markup { \italic { rit. } } c c c |   % 33
 374         c1^\fermata \bar "|."   % 34
 375 }
 376
 377
 378 \score
 379 {
 380         <<
 381                 <<
 382                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 383                         \new Lyrics \lyricsto "lead" \LeadVoxText
 384                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 385                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 386                         \new Lyrics \lyricsto "lead" \LeadVoxTextD
 387                 >>
 388
 389                 \new ChoirStaff = "Rhythm"
 390                 <<
 391                         \new ChordNames = "chords" \Chords
 392                         \new RhythmicStaff = "chordRhythm" \StaffC
 393                 >>
 394
 395                 \set Score.skipBars = ##t
 396                 \set Score.melismaBusyProperties = #'()
 397         >>
 398 }
 399
 400
 401 \paper
 402 {
 403   #(define fonts (make-pango-font-tree
 404     "Times New Roman"
 405     "DomCasual BT"
 406     "Luxi Mono"
 407     (/ staffSize 20)))
 408
 409 % Spread staves vertically across last page (default: t)
 410 %       ragged-last-bottom = ##f
 411 % Don't spread staves vertically across the page (default: f)
 412 %       ragged-bottom = ##t
 413 % Allow partial line for last stave (default: f)
 414         ragged-last = ##t
 415
 416 % To find out what's eating the space at the top...
 417 %       annotate-spacing = ##t
 418 %let's try this: [It works! Huzzah!]
 419         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 420 }