]> Shamusworld >> Repos - music/commitdiff
New song 'Wait By The Water' added.
authorShamus Hammons <jlhamm@acm.org>
Sun, 17 Jan 2016 16:04:21 +0000 (10:04 -0600)
committerShamus Hammons <jlhamm@acm.org>
Sun, 17 Jan 2016 16:04:21 +0000 (10:04 -0600)
wait-by-the-water.ly [new file with mode: 0644]

diff --git a/wait-by-the-water.ly b/wait-by-the-water.ly
new file mode 100644 (file)
index 0000000..f041c43
--- /dev/null
@@ -0,0 +1,368 @@
+\version "2.18.2"
+\include "pop-chords.ly"
+\include "english.ly"
+
+% Good sizes are 16, 18, & 20
+staffSize = #20
+#(set-default-paper-size "letter")
+#(set-global-staff-size staffSize)
+#(ly:set-option (quote no-point-and-click))
+
+%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
+
+\header
+{
+%Let's bump up the title size and switch to the chord font. :-)
+
+       title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Wait By The Water" }
+       subtitle    = \markup { \override #'(font-family . sans) \fontsize #1.3 "Honoring The MoRanch Professional Women’s Group" }
+       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Helen Currie Foster" }
+%      arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" }
+       tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
+% Let's try a chord dictionary
+%      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;" }  }
+}
+
+% Useful tweak abbreviations (hn = harmony note)
+
+hn = #(define-music-function (parser location arg) (ly:music?)
+;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
+
+  (set! (ly:music-property arg 'tweaks)
+    (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
+
+
+%
+% Song's structure
+%
+Global =
+{
+       \key c \major
+       \override Staff.TimeSignature #'style = #'()
+       \time 3/4
+
+       \once \override Score.RehearsalMark #'self-alignment-X = #left
+       \mark \markup { \override #'(font-family . sans) { \box { A } } }
+%      \once \override TextScript #'padding = #2.0
+       s2.*0^\markup { \large \italic { Refrain } }
+% Capo 4 version
+%      s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
+
+       % Refrain
+
+       s2.*16 \bar "|."   % 1-16
+
+       \once \override Score.RehearsalMark #'self-alignment-X = #left
+       \mark \markup { \override #'(font-family . sans) { \box { B } } }
+       s2.*0^\markup { \large \italic { Verse } }
+       s2.*16 \bar ":|."   % 16-32
+
+%{
+               s1*4 |   % 15-18
+
+               s1*2 |   % 19-20
+       }
+       \alternative
+       {
+               {
+                       s1 |   % 21
+               }
+               {
+                       s1 |   % 22
+               }
+       }
+
+       \repeat volta 2
+       {
+               \mark \markup { \override #'(font-family . sans) { \box { C } } }
+
+               s1*0^\markup { \large \bold \italic { Solos } }
+               s1*2 |   % 23-24
+       }
+
+       % Coda
+
+       s2. s4^\markup { \large \bold \italic { Free Time } } |   % 39
+       s1*3 \bar ":||"   % 40-42
+%}
+}
+
+
+%
+% Lead vocal
+%
+LeadVox = \relative c'
+{
+%      \set Staff.instrument = #"Lead vox"
+       \clef G
+       \override Staff.TimeSignature #'style = #'()
+%Hm. Needed anymore?
+%      \override Score.SpacingSpanner #'average-spacing-wishes = ##f
+
+       % Refrain
+
+       e4 g4. d8 |   % 1
+       d4 c2 |   % 2
+       c'4 bf a |   % 3
+       g4 a2 |   % 4
+       e4 g d |   % 5
+       d4 c c' |   % 6
+       bf4. c8 a4 |   % 7
+       g2. |   % 8
+
+       e4 g4. d8 |   % 9
+       d4 c2 |   % 10
+       c'4 bf a |   % 11
+       g4 a2 |   % 12
+       e4 g4. d8 |   % 13
+       d4 c2 |   % 14
+       bf4 c d |   % 15
+       c2. |   % 16
+
+
+       % Verse
+
+       g'4 c c |   % 17
+       d4 c2 |   % 18
+       d4 c bf |   % 19
+       af4 bf2 |   % 20
+       c4 bf af |   % 21
+       g4 f ef |   % 22
+       d4 ef f |   % 23
+       g2. |   % 24
+
+       g4 c c |   % 25
+       d4 c ~ c |   % 26
+       d4 c bf |   % 27
+       af4 bf2 |   % 28
+       c4 bf af |   % 29
+       g4 f ef |   % 30
+       d4 ef d |   % 31
+       c2. |   % 32
+}
+
+
+LeadVoxText = \lyricmode
+{
+       Wait by the wa -- ter,
+       Watch -- ing the ri -- ver,
+       Sing -- ing a -- long as it
+       moves to the sea,
+
+       Just like the lime -- stone,
+       let us be chan -- nels,
+       Jus -- tice, for -- give -- ness,
+       mer -- cy and peace.
+
+       Just like the wat -- er,
+       pa -- tient, per -- sis -- tent,
+       Mov -- ing a boul -- der, and
+       mov -- ing the banks,
+
+       Let us keep flow -- ing, _
+       Build -- ing, des -- troy -- ing,
+       Ho -- ly the wa -- ter and
+       ho -- ly our thanks.
+}
+
+LeadVoxTextB = \lyricmode
+{
+       _ _ _ _ _
+       _ _ _ _ _
+       _ _ _ _ _ _
+       _ _ _ _
+
+       _ _ _ _ _
+       _ _ _ _ _
+       _ _ _ _ _
+       _ _ _ _
+
+       When we are dry _
+       Parched in our des -- erts,
+       Parched in the wil -- der -- ness,
+       wait -- ing for rain,
+
+       Lead us to drink from the
+       spring ev -- er -- last -- ing
+       Once we ar -- rive, ne -- ver
+       thirs -- ty a -- gain.
+}
+
+
+Riffs = \relative c
+{
+       \clef G
+%Hm. Needed anymore?
+%      \override Score.SpacingSpanner #'average-spacing-wishes = ##f
+
+       % Intro
+
+%      \tiny
+%      \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } |   % 1-4
+%      \normalsize
+}
+
+
+%
+% Chord names
+%
+Chords = \chordmode
+{
+       % Refrain
+
+       c2. |   % 1
+       s2. |   % 2
+       bf2. |   % 3
+       s2. |   % 4
+       c2. |   % 5
+       s2. |   % 6
+       bf2. |   % 7
+       g2. |   % 8
+
+       c2. |   % 9
+       s2. |   % 10
+       bf2. |   % 11
+       s2. |   % 12
+       c2. |   % 13
+       s2. |   % 14
+       g2.:m |   % 15
+       c2. |   % 16
+
+
+       % Verse
+
+       c2. |   % 17
+       s2. |   % 18
+       bf2. |   % 19
+       s2. |   % 20
+       af2. |   % 21
+       c2.:m |   % 22
+       bf2. |   % 23
+       g2. |   % 24
+
+       c2. |   % 25
+       s2. |   % 26
+       bf2. |   % 27
+       s2. |   % 28
+       af2. |   % 29
+       c2.:m |   % 30
+       g2.:m |   % 31
+       f2. |   % 32
+}
+
+
+%
+% Chord rhythms
+%
+% Use a RhythmicStaff on the chords instead of this?
+% It almost works, but not quite. Doesn't collapse chords above to single notes...
+%
+Rhythm = \relative c
+{
+%%     \set Voice.autoBeaming = ##f
+%%     \set Staff.instrument = #"Rhythm"
+       \override Staff.TimeSignature #'style = #'()
+       \override NoteHead #'style = #'slash
+
+%Not small enough...
+       \teeny
+%      \magnify #0.3
+       % Refrain
+
+        |   % 1
+        |   % 2
+        |   % 3
+        |   % 4
+        |   % 5
+        |   % 6
+        |   % 7
+        |   % 8
+
+        |   % 9
+        |   % 10
+        |   % 11
+        |   % 12
+        |   % 13
+        |   % 14
+        |   % 15
+        |   % 16
+
+
+       % Verse
+
+        |   % 17
+        |   % 18
+        |   % 19
+        |   % 20
+        |   % 21
+        |   % 22
+        |   % 23
+        |   % 24
+
+        |   % 25
+        |   % 26
+        |   % 27
+        |   % 28
+        |   % 29
+        |   % 30
+        |   % 31
+        |   % 32
+       \normalsize
+}
+
+
+Dynamics =
+{
+       s2.*2 |   % 1-2
+       s4_\markup { \bold \italic { Drums In } } s2 |   % 3
+       s2. |   % 4
+       s4_\markup { \bold \italic { Band In } } s2 |   % 5
+}
+
+
+\score
+{
+       <<
+               \set Score.skipBars = ##t
+               \set Score.melismaBusyProperties = #'()
+
+%              \new Staff
+               <<
+                       \new ChordNames \Chords
+%Capo 4 edition
+%                      \new ChordNames \transpose b g \Chords
+%                      \new RhythmicStaff << \Rhythm \Dynamics >>
+               >>
+
+               \new Staff
+               <<
+                       \Global         % The "roadmap" that everything else depends on
+                       \new Voice = "lead" \LeadVox
+%                      \new Voice \Riffs
+                       \new Lyrics \lyricsto "lead" \LeadVoxText
+                       \new Lyrics \lyricsto "lead" \LeadVoxTextB
+               >>
+       >>
+}
+
+
+\paper
+{
+  #(define fonts (make-pango-font-tree
+    "Times New Roman"
+    "DomCasual BT"
+    "Luxi Mono"
+    (/ staffSize 20)))
+
+% Spread staves vertically across last page (default: t)
+%      ragged-last-bottom = ##f
+% Don't spread staves vertically across the page (default: f)
+       ragged-bottom = ##t
+% Allow partial line for last stave (default: f)
+%      ragged-last = ##t
+
+% To find out what's eating the space at the top...
+%      annotate-spacing = ##t
+%let's try this: [It works! Huzzah!]
+       obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
+}