Shamusworld >> Repos - music/blob - the-church's-one-foundation.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 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  12
  13 \header
  14 {
  15         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "The Church’s One Foundation" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Samuel S. Wesley/Samuel J. Stone" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Hammons/Dannemiller" }
  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.instrument = #"Lead vox"
  30         \clef G
  31         \key d \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Verse
  37
  38         \partial 4*1 fs4 |   % 0
  39         fs4 fs g fs |   % 1
  40         fs2 e4 d |   % 2
  41         d4 b' a g |   % 3
  42         fs2. g4 |   % 4
  43
  44         a4 d d cs |   % 5
  45         cs2 b4 a |   % 6
  46         g4 a fs d |   % 7
  47         e2. e4 |   % 8
  48
  49         fs4 g a b |   % 9
  50         b2 a4 d |   % 10
  51         d4. cs8 b4 fs |   % 11
  52         g2. d4 |   % 12
  53
  54         fs4 fs g fs |   % 13
  55         fs2 e4 d |   % 14
  56         d4 e d cs |   % 15
  57         \partial 4*3 d2. \bar "|."   % 16
  58 }
  59
  60 LeadVoxText = \lyricmode
  61 {
  62         The Church -- ’s one foun -- da -- tion is Je -- sus Christ her Lord,
  63         She is His new cre -- a -- tion by wa -- ter and the word;
  64         From heav’n He came and sought her to be His ho -- ly bride;
  65         With His own blood He bought her, and for her life He died.
  66 }
  67
  68 LeadVoxTextB = \lyricmode
  69 {
  70         E -- lect from e -- vr’y na -- tion, yet one o’er all the earth,
  71         Her char -- ter of sal -- va -- tion, one Lord, one faith, one birth;
  72         One ho -- ly name she bless -- es, par -- takes one ho -- ly food,
  73         And to one hope she press -- es, with e -- vr’y grace en -- dured.
  74 }
  75
  76 LeadVoxTextC = \lyricmode
  77 {
  78         ’Mid toil and tri -- bu -- la -- tion, and tu -- mult of her war,
  79         She waits the con -- sum -- ma -- tion of peace for e -- ver -- more;
  80         Till with the vi -- sion glo -- rious, her long -- ing eyes are blest,
  81         And the great Church vic -- to -- rious shall be the Church at rest.
  82 }
  83
  84 LeadVoxTextD = \lyricmode
  85 {
  86         Yet she on earth hath un -- ion with God, the Three in One,
  87         And mys -- tic sweet com -- mu -- nion with those whose rest is won;
  88         O hap -- py ones and ho -- ly! Lord, give us grace that we
  89         Like them, the meek and low -- ly, on high may dwell with Thee.
  90 }
  91
  92
  93 %
  94 % Chord names
  95 %
  96
  97 Chords = \chordmode
  98 {
  99         \override SeparatingGroupSpanner #'padding = #'2.0
 100 %Bah, can't we set this globally?
 101 %       \popChords
 102
 103         \partial 4*1 s4 |   % 0
 104         d2 g4 d |   % 1
 105         d2 g |   % 2
 106         e2:m7 a:7 |   % 3
 107         d1 |   % 4
 108
 109         d2 fs:7 |   % 5
 110         g1 |   % 6
 111         e2:m7 d |   % 7
 112         a1 |   % 8
 113
 114         d2. g4 |   % 9
 115         s2 d |   % 10
 116         b2:m b:7 |   % 11
 117         e1:m |   % 12
 118
 119         d2 g |   % 13
 120         e1:m |   % 14
 121         g2 a:7 |   % 15
 122         d2. |   % 16
 123 }
 124
 125
 126 %
 127 % Chord rhythms
 128 %
 129
 130 % Use a RhythmicStaff on the chords instead of this?
 131 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 132
 133 %Slash = { \override NoteHead #'style = #'slash }
 134 %Cross = { \override NoteHead #'style = #'cross }
 135
 136 StaffC = \relative c
 137 {
 138         \override Staff.TimeSignature #'style = #'()
 139         \time 4/4
 140         \override NoteHead #'style = #'slash
 141
 142         % Verse
 143
 144         \partial 4*1 r4 |   % 0
 145         c4 c c c |   % 1
 146         c4 c c c |   % 2
 147         c4 c c c |   % 3
 148         c4 c c c |   % 4
 149
 150         c4 c c c |   % 5
 151         c4 c c c |   % 6
 152         c4 c c c |   % 7
 153         c4 c c c |   % 8
 154
 155         c4 c c c |   % 9
 156         c4 c c c |   % 10
 157         c4 c c c |   % 11
 158         c4 c c c |   % 12
 159
 160         c4 c c c |   % 13
 161         c4 c c c |   % 14
 162         c4 c c c |   % 15
 163         c2. \bar "|."   % 16
 164 }
 165
 166
 167 Dynamics =
 168 {
 169 %{
 170         s4_\markup { \italic { snare on 4, bass 8th notes } } s2. |   % 1
 171         s1*26 |   % 2-27
 172         s2 s4 \< s |   % 28
 173         s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 |   % 29
 174         s1*8 |   % 30-37
 175         s2 s4 \< s \! |   % 38
 176         s1 |   % 39
 177         s2. s8 \> s \! |   % 40
 178         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. |   % 41
 179         s1*8 |   % 42-49
 180         s4 \< s2. |   % 50
 181         s4_\f s2. |   % 51
 182         s1*5 |   % 52-56
 183         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. |   % 57
 184         s2 s4 \< s \! |   % 58
 185 %}
 186 }
 187
 188
 189 \score
 190 {
 191         <<
 192                 <<
 193                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 194                         \new Lyrics \lyricsto "lead" \LeadVoxText
 195                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 196                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 197                         \new Lyrics \lyricsto "lead" \LeadVoxTextD
 198                 >>
 199
 200                 \new ChoirStaff = "Rhythm"
 201                 <<
 202                         \new ChordNames = "chords" \Chords
 203                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 204                 >>
 205
 206                 \set Score.skipBars = ##t
 207                 \set Score.melismaBusyProperties = #'()
 208         >>
 209
 210         \layout
 211         {
 212 %               \context { \Staff \RemoveEmptyStaves }
 213 %               ragged-last-bottom = ##t
 214                 ragged-last = ##t
 215         }
 216 }
 217
 218
 219 \paper
 220 {
 221   #(define fonts (make-pango-font-tree
 222     "Times New Roman"
 223     "DomCasual BT"
 224     "Luxi Mono"
 225     (/ staffSize 20)))
 226
 227 %  top-margin = -0.25 \in
 228 }