Shamusworld >> Repos - music/blob - give-thanks.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 staffSize = #18 % or 16
   6 #(set-default-paper-size "letter")
   7 #(set-global-staff-size staffSize)
   8 #(ly:set-option (quote no-point-and-click))
   9
  10 \header
  11 {
  12 %Let's bump up the title size and switch to the chord font. :-)
  13
  14         title    = \markup { \override #'(font-family . sans)
  15                 { \fontsize #3.5 "Give Thanks" } }
  16         composer = \markup { \override #'(font-family . sans) "Henry Smith" }
  17         arranger = \markup { \override #'(font-family . sans) "arr. Shamus Hammons" }
  18         tagline  = "Engraved by JLH and Lilypond 2.8.2"
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25
  26 LeadVox = \relative c''
  27 {
  28         \set Voice.autoBeaming = ##f
  29 %       \set Staff.instrumentName = #"Lead vox"
  30         \clef G
  31         \key g \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         \set Score.markFormatter = #format-mark-box-letters
  37
  38 \tiny
  39         g2 ~ g8 [ b, d g ] |   % 1
  40         g4. g8 fs4
  41 \normalsize
  42         b |   % 2
  43
  44         \repeat volta 2
  45         {
  46 \once \override Score.RehearsalMark #'self-alignment-X = #left
  47 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  48
  49                 b2. a8 [ g ] |   % 3
  50                 a4 fs8 [ d ] ~ d4 a'4 |   % 4
  51                 g2. fs8 [ e ] |   % 5
  52                 fs4 d8 [ b ] ~ b4 fs'4 |   % 6
  53                 e2 ~ e8 [ g g e ] |   % 7
  54                 d8 [ g ] ~ g4 g b |   % 8
  55                 a2. g4 |   % 9
  56         }
  57         \alternative
  58         {
  59                 {
  60                         a2. b4 |   % 10
  61                 }
  62                 {
  63                         a2. d4 |   % 11
  64                 }
  65         }
  66
  67         \repeat volta 2
  68         {
  69 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  70
  71                 d2. d8 [ d ] |   % 12
  72                 d4 g, a b |   % 13
  73                 c2. c8 [ c ] |   % 14
  74                 c4 fs, g a |   % 15
  75                 b2 ~ b8 [ b b b ] |   % 16
  76                 b4. e,8 fs4 g |   % 17
  77                 a2. g4 |   % 18
  78                 a2. d4 |   % 19
  79
  80                 d2. d8 [ d ] |   % 20
  81                 d4 g, a b |   % 21
  82                 c2. c8 [ c ] |   % 22
  83                 c4 fs, g a |   % 23
  84                 b2 ~ b8 [ b b b ] |   % 24
  85                 b4. e,8 fs4 g |   % 25
  86                 a2. g4 |   % 26
  87         }
  88         \alternative
  89         {
  90                 {
  91 %\once \override Score.RehearsalMark #'self-alignment-X = #right
  92 %\mark \markup { \italic { D.S. } }
  93                         a2. b4^\markup { \bold \italic { D.S. } } \bar "||"   % 27
  94                 }
  95                 {
  96                         a2. g4 |   % 28
  97                 }
  98         }
  99
 100         g1 ~ |   % 29
 101         g2. g4 |   % 30
 102         g1 ~ |   % 31
 103         g2. g4 |   % 32
 104         g1-\fermata \bar "|."   % 33
 105 }
 106
 107 LeadVoxText = \lyricmode
 108 {
 109         _ _ _ _ _ _ _ _
 110
 111         Give thanks with a gra- teful heart _
 112         Give thanks to the ho- ly one _
 113         Give thanks, _ be- cause he's gi- ven _
 114         Je- sus Christ, his son
 115
 116         Give
 117         son
 118
 119         And now, let the weak say 'I am strong'
 120         Let the poor say 'I am rich' _
 121         Be- cause of what the Lord has done for us
 122
 123         And now, let the weak say 'I am strong'
 124         Let the poor say 'I am rich' _
 125         Be- cause of what the Lord has done for us
 126
 127         Give
 128         us
 129
 130         Give thanks __ _
 131         Give thanks __ _
 132         Give thanks.
 133 }
 134
 135
 136 %
 137 % Chord names
 138 %
 139
 140 Chords = \chordmode
 141 {
 142 %Bah, can't we set this globally?
 143 %       \popChords
 144
 145         g1 |   % 1
 146         d2:sus4 d |   % 2
 147
 148         g1 |   % 3
 149         b1:m7 |   % 4
 150         e1:m7 |   % 5
 151         b1:m |   % 6
 152         c1 |   % 7
 153         g1/b |   % 8
 154         f1 |   % 9
 155
 156         d2:sus4 d |   % 10
 157
 158         d1 |   % 11
 159
 160         b1:m |   % 12
 161         e1:m7 |   % 13
 162         a1:m |   % 14
 163         d1:7 |   % 15
 164         g1:maj7 |   % 16
 165         e1:m |   % 17
 166         f1 |   % 18
 167         d1:7 |   % 19
 168
 169         b1:m |   % 20
 170         e1:m7 |   % 21
 171         a1:m |   % 22
 172         d1:7 |   % 23
 173         g1:maj7 |   % 24
 174         e1:m |   % 25
 175         f1 |   % 26
 176
 177         d1:7 |   % 27
 178
 179         d1 |   % 28
 180
 181         g1 |   % 29
 182         c1/g |   % 30
 183         g1 |   % 31
 184         c1/g |   % 32
 185         g1 |   % 33
 186 }
 187
 188
 189 %
 190 % Chord rhythms
 191 %
 192
 193 % Use a RhythmicStaff on the chords instead of this?
 194 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 195
 196 StaffC = \relative c
 197 {
 198         \set Voice.autoBeaming = ##f
 199 %       \set Staff.instrumentName = #"Rhythm"
 200         \override Staff.TimeSignature #'style = #'()
 201         \time 4/4
 202         \override NoteHead #'style = #'slash
 203
 204         c4 c c c |   % 1
 205         c4 c c c |   % 2
 206
 207         c4 c c c |   % 3
 208         c4 c c c |   % 4
 209         c4 c c c |   % 5
 210         c4 c c c |   % 6
 211         c4 c c c |   % 7
 212         c4 c c c |   % 8
 213         c4 c c c |   % 9
 214
 215         c4 c c c |   % 10
 216
 217         c4 c c c |   % 11
 218
 219         c4 c c c |   % 12
 220         c4 c c c |   % 13
 221         c4 c c c |   % 14
 222         c4 c c c |   % 15
 223         c4 c c c |   % 16
 224         c4 c c c |   % 17
 225         c4 c c c |   % 18
 226         c4 c c c |   % 19
 227
 228         c4 c c c |   % 20
 229         c4 c c c |   % 21
 230         c4 c c c |   % 22
 231         c4 c c c |   % 23
 232         c4 c c c |   % 24
 233         c4 c c c |   % 25
 234         c4 c c c |   % 26
 235
 236         c4 c c c |   % 27
 237
 238         c4 c c c |   % 28
 239
 240         c4 c c c |   % 29
 241         c4 c c c |   % 30
 242         c4 c c c |   % 31
 243         c4 c c c |   % 32
 244         c1-\fermata \bar "|."   % 33
 245 }
 246
 247
 248 \score
 249 {
 250         <<
 251                 <<
 252                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 253                         \new Lyrics \lyricsto "lead" \LeadVoxText
 254                 >>
 255
 256                 \new ChoirStaff = "Rhythm"
 257                 <<
 258                         \new ChordNames = "chords" \Chords
 259                         \new RhythmicStaff = "chordRhythm" \StaffC
 260                 >>
 261
 262                 \set Score.skipBars = ##t
 263                 \set Score.melismaBusyProperties = #'()
 264         >>
 265
 266         \layout
 267         {
 268                 \context { \Staff \RemoveEmptyStaves }
 269 %               ragged-last-bottom = ##t
 270 %               ragged-last = ##t
 271         }
 272 }
 273
 274
 275 \paper
 276 {
 277   #(define fonts (make-pango-font-tree
 278     "Times New Roman"
 279     "DomCasual BT"
 280     "Luxi Mono"
 281     (/ staffSize 20)))
 282 }