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 %       \set Voice.autoBeaming = ##f
  32 %       \set Staff.instrument = #"Lead vox"
  33         \clef G
  34         \key g \major
  35         \override Staff.TimeSignature #'style = #'()
  36         \time 4/4
  37 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  38
  39         d4 d8 ( e ) g4 g |   % 1
  40         a4 a8 ( g ) b ( a ) g ( e ) |   % 2
  41         d4 d8 ( e ) g4 g |   % 3
  42         b4 a g2 |   % 4
  43         \break
  44
  45         d4 d8 ( e ) g4 g |   % 5
  46         a4 a8 ( g ) b ( a ) g ( e ) |   % 6
  47         d4 d8 ( e ) g4 g |   % 7
  48         b4 a g2 |   % 8
  49         \break
  50
  51         b4 d d d |   % 9
  52         b4 b8 ( g ) a4 g |   % 10
  53         b4 d d d |   % 11
  54         b b8 ( g ) a2 |   % 12
  55         \break
  56
  57         d,4 d8 ( e ) g4 g |   % 13
  58         a4 a8 ( g ) b ( a ) g ( e ) |   % 14
  59         d4 d8 ( e ) g4 g |   % 15
  60         b4 a g2-\fermata \bar "|."   % 16
  61 }
  62
  63 LeadVoxText = \lyricmode
  64 {
  65         Breth -- ren, _ we have met to _ wor -- _ ship, _
  66         to a -- _ dore the Lord and God;
  67
  68         Will you _ pray with ex -- pec -- _ ta -- _ tion, _
  69         as we _ preach the liv -- ing word?
  70
  71         All is vain un -- less the _ Spi -- rit
  72         of the Ho -- ly One comes _ down;
  73
  74         Breth -- ren, _ pray and God’s great _ bless -- _ ing _
  75         will be _ show -- ered all a -- round.
  76 }
  77
  78
  79 %
  80 % Chord names
  81 %
  82
  83 Chords = \chordmode
  84 {
  85 %Bah, can't we set this globally?
  86 %       \popChords
  87
  88         g1 |   % 1
  89         d2 g4 c |   % 2
  90 %{
  91 d f# d a        D       4
  92
  93 d f# d a        D       8
  94 d g b g         G       8
  95
  96 g d b           G       8
  97 g c a           Am7     8
  98
  99 g g d g         G5      8
 100 g g c e         C       8
 101 %}
 102         g1 |   % 3
 103         g4 d:7 g2 |   % 4
 104
 105         g1 |   % 5
 106         d2 g4 c |   % 6
 107         g1 |   % 7
 108         g4 d:7 g2 |   % 8
 109
 110         g1 |   % 9
 111         g2 d4:7 g |   % 10
 112         g1 |   % 11
 113         g2 d |   % 12
 114
 115         g1 |   % 13
 116         d2 g4 c |   % 14
 117         g1 |   % 15
 118         g4 d:7 g2 |   % 16
 119 }
 120
 121
 122 %
 123 % Chord rhythms
 124 %
 125
 126 % Use a RhythmicStaff on the chords instead of this?
 127 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 128
 129 StaffC = \relative c
 130 {
 131 %       \set Voice.autoBeaming = ##f
 132 %       \set Staff.instrument = #"Rhythm"
 133         \override Staff.TimeSignature #'style = #'()
 134         \time 4/4
 135         \override NoteHead #'style = #'slash
 136
 137         c4 c c c |   % 1
 138         c4 c c c |   % 2
 139         c4 c c c |   % 3
 140         c4 c c c |   % 4
 141
 142         c4 c c c |   % 5
 143         c4 c c c |   % 6
 144         c4 c c c |   % 7
 145         c4 c c c |   % 8
 146
 147         c4 c c c |   % 9
 148         c4 c c c |   % 10
 149         c4 c c c |   % 11
 150         c4 c c c |   % 12
 151
 152         c4 c c c |   % 13
 153         c4 c c c |   % 14
 154         c4 c c c |   % 15
 155         c4 c c2-\fermata |   % 16
 156 }
 157
 158
 159 Dynamics =
 160 {
 161 %{
 162         s4_\markup { \italic { snare pat. } } s2 |   % 1
 163         s4_\markup { \italic { simile } } s2 |   % 2
 164         s2.*19
 165         s4_\markup { \italic { spacy } } s2 |   % 22
 166         s2.*5
 167         s4 s \< s \! |   % 28
 168         s2.*22
 169         s4_\markup { \italic { Last time } } s2 |   % 51
 170 %}
 171 }
 172
 173
 174 \score
 175 {
 176         <<
 177                 <<
 178                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 179 %                       \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 180                         \new Lyrics \lyricsto "lead" \LeadVoxText
 181 %                       \new Lyrics \lyricsto "lead" \LeadVoxTextB
 182                 >>
 183
 184                 \new ChoirStaff = "Rhythm"
 185                 <<
 186                         \new ChordNames = "chords" \Chords
 187 %                       \new ChordNames = "chords2" \ChordsSup
 188                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 189                 >>
 190
 191                 \set Score.skipBars = ##t
 192                 \set Score.melismaBusyProperties = #'()
 193         >>
 194
 195         \layout
 196         {
 197 %               \context { \Staff \RemoveEmptyStaves }
 198 %               ragged-last-bottom = ##t
 199 %               ragged-last = ##t
 200         }
 201 }
 202
 203
 204 \paper
 205 {
 206   #(define fonts (make-pango-font-tree
 207     "Times New Roman"
 208     "DomCasual BT"
 209     "Luxi Mono"
 210     (/ staffSize 20)))
 211
 212 %  top-margin = -0.25 \in
 213 }