Shamusworld >> Repos - music/blob - wait-by-the-water.ly

   1 \version "2.18.2"
   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 "Wait By The Water" }
  18         subtitle    = \markup { \override #'(font-family . sans) \fontsize #1.3 "Honoring The MoRanch Professional Women’s Group" }
  19         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Helen Currie Foster" }
  20 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" }
  21         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  22 % Let's try a chord dictionary
  23 %       subtitle =  \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } "       " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } "       " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" }  "       " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" }  "       " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" }  "       " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" }  }
  24 }
  25
  26 % Useful tweak abbreviations (hn = harmony note)
  27
  28 hn = #(define-music-function (parser location arg) (ly:music?)
  29 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  30
  31   (set! (ly:music-property arg 'tweaks)
  32     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  33
  34
  35 %
  36 % Song's structure
  37 %
  38 Global =
  39 {
  40         \key c \major
  41         \override Staff.TimeSignature #'style = #'()
  42         \time 3/4
  43
  44         \once \override Score.RehearsalMark #'self-alignment-X = #left
  45         \mark \markup { \override #'(font-family . sans) { \box { A } } }
  46 %       \once \override TextScript #'padding = #2.0
  47         s2.*0^\markup { \large \italic { Refrain } }
  48 % Capo 4 version
  49 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  50
  51         % Refrain
  52
  53         s2.*16 \bar "|."   % 1-16
  54
  55         \once \override Score.RehearsalMark #'self-alignment-X = #left
  56         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  57         s2.*0^\markup { \large \italic { Verse } }
  58         s2.*16 \bar ":|."   % 16-32
  59
  60 %{
  61                 s1*4 |   % 15-18
  62
  63                 s1*2 |   % 19-20
  64         }
  65         \alternative
  66         {
  67                 {
  68                         s1 |   % 21
  69                 }
  70                 {
  71                         s1 |   % 22
  72                 }
  73         }
  74
  75         \repeat volta 2
  76         {
  77                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  78
  79                 s1*0^\markup { \large \bold \italic { Solos } }
  80                 s1*2 |   % 23-24
  81         }
  82
  83         % Coda
  84
  85         s2. s4^\markup { \large \bold \italic { Free Time } } |   % 39
  86         s1*3 \bar ":||"   % 40-42
  87 %}
  88 }
  89
  90
  91 %
  92 % Lead vocal
  93 %
  94 LeadVox = \relative c'
  95 {
  96 %       \set Staff.instrument = #"Lead vox"
  97         \clef G
  98         \override Staff.TimeSignature #'style = #'()
  99 %Hm. Needed anymore?
 100 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 101
 102         % Refrain
 103
 104         e4 g4. d8 |   % 1
 105         d4 c2 |   % 2
 106         c'4 bf a |   % 3
 107         g4 a2 |   % 4
 108         e4 g d |   % 5
 109         d4 c c' |   % 6
 110         bf4. c8 a4 |   % 7
 111         g2. |   % 8
 112
 113         e4 g4. d8 |   % 9
 114         d4 c2 |   % 10
 115         c'4 bf a |   % 11
 116         g4 a2 |   % 12
 117         e4 g4. d8 |   % 13
 118         d4 c2 |   % 14
 119         bf4 c d |   % 15
 120         c2. |   % 16
 121
 122
 123         % Verse
 124
 125         g'4 c c |   % 17
 126         d4 c2 |   % 18
 127         d4 c bf |   % 19
 128         af4 bf2 |   % 20
 129         c4 bf af |   % 21
 130         g4 f ef |   % 22
 131         d4 ef f |   % 23
 132         g2. |   % 24
 133
 134         g4 c c |   % 25
 135         d4 c ~ c |   % 26
 136         d4 c bf |   % 27
 137         af4 bf2 |   % 28
 138         c4 bf af |   % 29
 139         g4 f ef |   % 30
 140         d4 ef d |   % 31
 141         c2. |   % 32
 142 }
 143
 144
 145 LeadVoxText = \lyricmode
 146 {
 147         Wait by the wa -- ter,
 148         Watch -- ing the ri -- ver,
 149         Sing -- ing a -- long as it
 150         moves to the sea,
 151
 152         Just like the lime -- stone,
 153         let us be chan -- nels,
 154         Jus -- tice, for -- give -- ness,
 155         mer -- cy and peace.
 156
 157         Just like the wat -- er,
 158         pa -- tient, per -- sis -- tent,
 159         Mov -- ing a boul -- der, and
 160         mov -- ing the banks,
 161
 162         Let us keep flow -- ing, _
 163         Build -- ing, des -- troy -- ing,
 164         Ho -- ly the wa -- ter and
 165         ho -- ly our thanks.
 166 }
 167
 168 LeadVoxTextB = \lyricmode
 169 {
 170         _ _ _ _ _
 171         _ _ _ _ _
 172         _ _ _ _ _ _
 173         _ _ _ _
 174
 175         _ _ _ _ _
 176         _ _ _ _ _
 177         _ _ _ _ _
 178         _ _ _ _
 179
 180         When we are dry _
 181         Parched in our des -- erts,
 182         Parched in the wil -- der -- ness,
 183         wait -- ing for rain,
 184
 185         Lead us to drink from the
 186         spring ev -- er -- last -- ing
 187         Once we ar -- rive, ne -- ver
 188         thirs -- ty a -- gain.
 189 }
 190
 191
 192 Riffs = \relative c
 193 {
 194         \clef G
 195 %Hm. Needed anymore?
 196 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 197
 198         % Intro
 199
 200 %       \tiny
 201 %       \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } |   % 1-4
 202 %       \normalsize
 203 }
 204
 205
 206 %
 207 % Chord names
 208 %
 209 Chords = \chordmode
 210 {
 211         % Refrain
 212
 213         c2. |   % 1
 214         s2. |   % 2
 215         bf2. |   % 3
 216         s2. |   % 4
 217         c2. |   % 5
 218         s2. |   % 6
 219         bf2. |   % 7
 220         g2. |   % 8
 221
 222         c2. |   % 9
 223         s2. |   % 10
 224         bf2. |   % 11
 225         s2. |   % 12
 226         c2. |   % 13
 227         s2. |   % 14
 228         g2.:m |   % 15
 229         c2. |   % 16
 230
 231
 232         % Verse
 233
 234         c2. |   % 17
 235         s2. |   % 18
 236         bf2. |   % 19
 237         s2. |   % 20
 238         af2. |   % 21
 239         c2.:m |   % 22
 240         bf2. |   % 23
 241         g2. |   % 24
 242
 243         c2. |   % 25
 244         s2. |   % 26
 245         bf2. |   % 27
 246         s2. |   % 28
 247         af2. |   % 29
 248         c2.:m |   % 30
 249         g2.:m |   % 31
 250         f2. |   % 32
 251 }
 252
 253
 254 %
 255 % Chord rhythms
 256 %
 257 % Use a RhythmicStaff on the chords instead of this?
 258 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 259 %
 260 Rhythm = \relative c
 261 {
 262 %%      \set Voice.autoBeaming = ##f
 263 %%      \set Staff.instrument = #"Rhythm"
 264         \override Staff.TimeSignature #'style = #'()
 265         \override NoteHead #'style = #'slash
 266
 267 %Not small enough...
 268         \teeny
 269 %       \magnify #0.3
 270         % Refrain
 271
 272          |   % 1
 273          |   % 2
 274          |   % 3
 275          |   % 4
 276          |   % 5
 277          |   % 6
 278          |   % 7
 279          |   % 8
 280
 281          |   % 9
 282          |   % 10
 283          |   % 11
 284          |   % 12
 285          |   % 13
 286          |   % 14
 287          |   % 15
 288          |   % 16
 289
 290
 291         % Verse
 292
 293          |   % 17
 294          |   % 18
 295          |   % 19
 296          |   % 20
 297          |   % 21
 298          |   % 22
 299          |   % 23
 300          |   % 24
 301
 302          |   % 25
 303          |   % 26
 304          |   % 27
 305          |   % 28
 306          |   % 29
 307          |   % 30
 308          |   % 31
 309          |   % 32
 310         \normalsize
 311 }
 312
 313
 314 Dynamics =
 315 {
 316         s2.*2 |   % 1-2
 317         s4_\markup { \bold \italic { Drums In } } s2 |   % 3
 318         s2. |   % 4
 319         s4_\markup { \bold \italic { Band In } } s2 |   % 5
 320 }
 321
 322
 323 \score
 324 {
 325         <<
 326                 \set Score.skipBars = ##t
 327                 \set Score.melismaBusyProperties = #'()
 328
 329 %               \new Staff
 330                 <<
 331                         \new ChordNames \Chords
 332 %Capo 4 edition
 333 %                       \new ChordNames \transpose b g \Chords
 334 %                       \new RhythmicStaff << \Rhythm \Dynamics >>
 335                 >>
 336
 337                 \new Staff
 338                 <<
 339                         \Global         % The "roadmap" that everything else depends on
 340                         \new Voice = "lead" \LeadVox
 341 %                       \new Voice \Riffs
 342                         \new Lyrics \lyricsto "lead" \LeadVoxText
 343                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 344                 >>
 345         >>
 346 }
 347
 348
 349 \paper
 350 {
 351   #(define fonts (make-pango-font-tree
 352     "Times New Roman"
 353     "DomCasual BT"
 354     "Luxi Mono"
 355     (/ staffSize 20)))
 356
 357 % Spread staves vertically across last page (default: t)
 358 %       ragged-last-bottom = ##f
 359 % Don't spread staves vertically across the page (default: f)
 360         ragged-bottom = ##t
 361 % Allow partial line for last stave (default: f)
 362 %       ragged-last = ##t
 363
 364 % To find out what's eating the space at the top...
 365 %       annotate-spacing = ##t
 366 %let's try this: [It works! Huzzah!]
 367         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 368 }