Shamusworld >> Repos - music/blob - brethren-we-have-met-to-worship.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 %Let's bump up the title size and switch to the chord font. :-)
  16
  17         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Brethren, We Have Met To Worship" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "William Moore" }
  19         poet     = \markup { \override #'(font-family . sans) \fontsize #1.3 "George Atkins" }
  20         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" }
  21         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  22 }
  23
  24
  25 %
  26 % Lead vocal
  27 %
  28
  29 LeadVox = \relative c'
  30 {
  31         \clef G
  32         \key g \major
  33         \numericTimeSignature
  34         \time 4/4
  35 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  36
  37         d4 d8 ( e ) g4 g |   % 1
  38         a4 a8 ( g ) b ( a ) g ( e ) |   % 2
  39         d4 d8 ( e ) g4 g |   % 3
  40         b4 a g2 |   % 4
  41         \break
  42
  43         d4 d8 ( e ) g4 g |   % 5
  44         a4 a8 ( g ) b ( a ) g ( e ) |   % 6
  45         d4 d8 ( e ) g4 g |   % 7
  46         b4 a g2 |   % 8
  47         \break
  48
  49         b4 d d d |   % 9
  50         b4 b8 ( g ) a4 g |   % 10
  51         b4 d d d |   % 11
  52         b b8 ( g ) a2 |   % 12
  53         \break
  54
  55         d,4 d8 ( e ) g4 g |   % 13
  56         a4 a8 ( g ) b ( a ) g ( e ) |   % 14
  57         d4 d8 ( e ) g4 g |   % 15
  58         b4 a g2-\fermata \bar "|."   % 16
  59 }
  60
  61 LeadVoxText = \lyricmode
  62 {
  63         Breth -- ren, _ we have met to _ wor -- _ ship, _
  64         to a -- _ dore the Lord and God;
  65
  66         Will you _ pray with ex -- pec -- _ ta -- _ tion, _
  67         as we _ preach the liv -- ing word?
  68
  69         All is vain un -- less the _ Spi -- rit
  70         of the Ho -- ly One comes _ down;
  71
  72         Breth -- ren, _ pray and God’s great _ bless -- _ ing _
  73         will be _ show -- ered all a -- round.
  74 }
  75
  76
  77 %
  78 % Chord names
  79 %
  80
  81 Chords = \chordmode
  82 {
  83         g1 |   % 1
  84         d2 g4 c |   % 2
  85 %{
  86 d f# d a        D       4
  87
  88 d f# d a        D       8
  89 d g b g         G       8
  90
  91 g d b           G       8
  92 g c a           Am7     8
  93
  94 g g d g         G5      8
  95 g g c e         C       8
  96 %}
  97         g1 |   % 3
  98         g4 d:7 g2 |   % 4
  99
 100         g1 |   % 5
 101         d2 g4 c |   % 6
 102         g1 |   % 7
 103         g4 d:7 g2 |   % 8
 104
 105         g1 |   % 9
 106         g2 d4:7 g |   % 10
 107         g1 |   % 11
 108         g2 d |   % 12
 109
 110         g1 |   % 13
 111         d2 g4 c |   % 14
 112         g1 |   % 15
 113         g4 d:7 g2 |   % 16
 114 }
 115
 116
 117 %
 118 % Chord rhythms
 119 %
 120
 121 % Use a RhythmicStaff on the chords instead of this?
 122 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 123
 124 StaffC = \relative c
 125 {
 126         \numericTimeSignature
 127         \time 4/4
 128         \override NoteHead #'style = #'slash
 129         \teeny
 130
 131         c4 c c c |   % 1
 132         c4 c c c |   % 2
 133         c4 c c c |   % 3
 134         c4 c c c |   % 4
 135
 136         c4 c c c |   % 5
 137         c4 c c c |   % 6
 138         c4 c c c |   % 7
 139         c4 c c c |   % 8
 140
 141         c4 c c c |   % 9
 142         c4 c c c |   % 10
 143         c4 c c c |   % 11
 144         c4 c c c |   % 12
 145
 146         c4 c c c |   % 13
 147         c4 c c c |   % 14
 148         c4 c c c |   % 15
 149         c4 c c2-\fermata |   % 16
 150 }
 151
 152
 153 Dynamics =
 154 {
 155 %{
 156         s4_\markup { \italic { snare pat. } } s2 |   % 1
 157         s4_\markup { \italic { simile } } s2 |   % 2
 158         s2.*19
 159         s4_\markup { \italic { spacy } } s2 |   % 22
 160         s2.*5
 161         s4 s \< s \! |   % 28
 162         s2.*22
 163         s4_\markup { \italic { Last time } } s2 |   % 51
 164 %}
 165 }
 166
 167
 168 \score
 169 {
 170         <<
 171                 \context Staff
 172                 <<
 173                         \new Voice = "lead" \LeadVox
 174                         \new Lyrics \lyricsto "lead" \LeadVoxText
 175                 >>
 176
 177                 \new ChoirStaff
 178                 <<
 179                         \new ChordNames \Chords
 180 %                       \new ChordNames \ChordsSup
 181                         \new RhythmicStaff << \StaffC \Dynamics >>
 182                 >>
 183
 184                 \set Score.skipBars = ##t
 185                 \set Score.melismaBusyProperties = #'()
 186         >>
 187 }
 188
 189
 190 \paper
 191 {
 192   #(define fonts (make-pango-font-tree
 193         "Times New Roman"
 194         "LilyJazz Text"
 195         "Luxi Mono"
 196         (/ staffSize 20)))
 197
 198 % Don't spread staves vertically across last page (default: t)
 199 %       ragged-last-bottom = ##f
 200 % Don't spread staves vertically across the page (default: f)
 201 %       ragged-bottom = ##t
 202 % Allow partial line for last stave (default: f)
 203         ragged-last = ##t
 204
 205 % To find out what's eating the space at the top...
 206 %       annotate-spacing = ##t
 207 }
 208