Shamusworld >> Repos - music/blob - you-have-been-good.ly

   1 \version "2.19.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
   6 staffSize = #16
   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 "You Have Been Good" }
  16 % Neat!
  17 %       subtitle = \markup { \fret-diagram #"6-3;5-x;4-2;3-o;2-3;1-3;" " - " \fret-diagram-terse #"3-(;6;;5;4;3-);" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Twila Paris" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 }
  22
  23
  24 %
  25 % Song's structure
  26 %
  27 Global =
  28 {
  29         \key d \major
  30         \numericTimeSignature
  31         \time 12/8
  32
  33         % Intro
  34
  35         s1.*3 |   % 1-3
  36         s1. \bar ".|:-||"   % 4
  37
  38         \repeat volta 3
  39         {
  40                 % A section
  41
  42                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  43                 s1.*8 \bar "||"   % 5-12
  44
  45                 % B section
  46
  47                 \once \override Score.RehearsalMark #'self-alignment-X = #left
  48                 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  49
  50                 s1.*4 \bar "||"   % 13-16
  51
  52                 % A section
  53
  54                 s1.*3 |   % 17-19
  55         }
  56         \alternative
  57         {
  58                 {
  59                         s1.*2 |   % 20-21
  60                 }
  61                 {
  62                         s2. s4. s8^\markup { \hspace #4.0 \raise #1.0 \bold { D.S. } } s s \bar "||"   % 22
  63                 }
  64                 {
  65                         s1. |   % 23
  66                 }
  67         }
  68
  69         % Ending
  70
  71         s1.*4 \bar "|."   % 24-27
  72 }
  73
  74
  75 %
  76 % Lead vocal
  77 %
  78 LeadVox = \relative c'
  79 {
  80         % Intro
  81
  82         s1. |   % 1
  83         s1. |   % 2
  84         s1. |   % 3
  85         r2. r4. d |   % 4
  86
  87         % A section
  88
  89         d2. ~ d4. d8 d a' |   % 5
  90         a2. ~ a4. d,8 e fs |   % 6
  91         e4. d ~ d4 d8 d e fs |   % 7
  92         e4. d r d |   % 8
  93
  94         d2. ~ d4. d8 d a' |   % 9
  95         a2. ~ a4. d,8 e fs |   % 10
  96         e4. d ~ d4 d8 d e fs |   % 11
  97         e4. d r d8 fs a |   % 12
  98
  99         % B section
 100
 101         b2. ~ b4. cs,8 e a |   % 13
 102         a2. ~ a4. d,8 e fs |   % 14
 103         e4. d ~ d b8 d e |   % 15
 104         e2. r4. d |   % 16
 105
 106         % A section
 107
 108         d2. ~ d4. d8 d a' |   % 17
 109         a2. ~ a4. d,8 e fs |   % 18
 110         e4. d ~ d d8 fs e |   % 19
 111
 112         d2. r |   % 20
 113         r2. r4. d |   % 21
 114
 115         d2. r4. d8 fs a |   % 22
 116
 117         d,2. r4. d8 e fs |   % 23
 118
 119         % Ending
 120
 121         e4. d r d8 fs e |   % 24
 122         d2. r4. d8 e fs |   % 25
 123         e4. d r d8 fs e |   % 26
 124         d1.^\fermata |   % 27
 125 }
 126
 127
 128 LeadVoxText = \lyricmode
 129 {
 130         O Lord, _ you have been good, _
 131         you have been faith -- ful _ to all gen -- e -- ra -- tions.
 132         O Lord, _ your stead -- fast love _
 133         and ten -- der mer -- cy _ have been our sal -- va -- tion.
 134
 135         For by your hand, _ we have been fed _
 136         And by your spi -- rit, _ we have been led
 137         O Lord, _ you have been good, _
 138         you have been faith -- ful, _ you have been good.
 139
 140         O
 141         good. For by your
 142         good.
 143
 144         you have been faith -- ful, you have been good.
 145         you have been faith -- ful, you have been good.
 146 }
 147
 148 LeadVoxTextB = \lyricmode
 149 {
 150         _ _ _ _ _ _ _ _
 151         _ _ _ _ _ _ _ _ _ _ _ _
 152         O Lord, _ Al -- migh -- ty God, _
 153         Fa -- ther un -- chang -- ing, _ _ up -- right and ho -- ly.
 154 }
 155
 156
 157 Riffs = \relative c'
 158 {
 159         % Intro
 160
 161         \tiny
 162         \repeat "percent" 3 { <d a fs>4. <d a g> <d a fs> << \tiny d \\ \tiny { b8 a g } >> } |   % 1 - 3
 163         \normalsize
 164         s1. |   % 4
 165 }
 166
 167
 168 %
 169 % Chord names
 170 %
 171 Chords = \chordmode
 172 {
 173         % Intro
 174
 175         d4. d:sus4 d g |   % 1
 176         d4. d:sus4 d g |   % 2
 177         d4. d:sus4 d g |   % 3
 178         d4. d:sus4 d g/a |   % 4
 179
 180         % A section
 181
 182         d4. d:sus4 d2. |   % 5
 183         fs2.:m7 b4.:m7 b:m7/a |   % 6
 184         a4./g g g2./a |   % 7
 185         e4.:m7/d d g2./a |   % 8
 186
 187         d4. d:sus4 d2. |   % 9
 188         fs2.:m7 b4.:m7 b:m7/a |   % 10
 189         a4./g g g2./a |   % 11
 190         e4.:m7/d d2. d4./fs |   % 12
 191
 192         % B section
 193
 194         g2.:maj7 a/g |   % 13
 195         fs2.:m7 b4.:m7 b:m7/a |   % 14
 196         a4./g g g2./a |   % 15
 197         a2./b g/a |   % 16
 198
 199         % A section
 200
 201         d4. d:sus4 d2. |   % 17
 202         fs2.:m7 b4.:m7 b:m7/a |   % 18
 203         a4./g g g2./a |   % 19
 204
 205         d4. d:sus4 d g |   % 20
 206         d4. d:sus4 d g/a |   % 21
 207
 208         d4. d:sus4 d d/fs |   % 22
 209
 210         d4. d:sus4 d d/fs |   % 23
 211
 212         % Ending
 213
 214         a4./g g g2./a |   % 24
 215         d4. d:sus4 d d/fs |   % 25
 216         a4./g g g2./a |   % 26
 217         d1. |   % 27
 218 }
 219
 220
 221 %
 222 % Chord rhythms
 223 %
 224 Rhythm =
 225 {
 226         \numericTimeSignature
 227         \override NoteHead #'style = #'slash
 228         \teeny
 229
 230         % Intro
 231
 232         c4. c c c |   % 1
 233         c4. c c c |   % 2
 234         c4. c c c |   % 3
 235         c4. c c c-> |   % 4
 236
 237         % A section
 238
 239         c4. c c c |   % 5
 240         c4. c c c |   % 6
 241         c4. c c c |   % 7
 242         c4. c c c |   % 8
 243
 244         c4. c c c |   % 9
 245         c4. c c c |   % 10
 246         c4. c c c |   % 11
 247         c4. c c c |   % 12
 248
 249         % B section
 250
 251         c4. c c c |   % 13
 252         c4. c c c |   % 14
 253         c4. c c c |   % 15
 254         c4. c c c |   % 16
 255
 256         % A section
 257
 258         c4. c c c |   % 17
 259         c4. c c c |   % 18
 260         c4. c c c |   % 19
 261
 262         c4. c c c |   % 20
 263         c4. c c c |   % 21
 264
 265         c4. c c c |   % 22
 266
 267         c4. c c c |   % 23
 268
 269         % Ending
 270
 271         c4. c c c |   % 24
 272         c4. c c c |   % 25
 273         c4. c c2. |   % 26
 274         c1.^\fermata |   % 27
 275 }
 276
 277 Dynamics =
 278 {
 279         s4._\markup { \dynamic mf \italic { piano only, rolling } } s s s |   % 1
 280
 281         s1. |   % 2
 282
 283         s4._\markup { \italic { add bass & drum colors } } s s s |   % 3
 284
 285         s1. |   % 4
 286
 287         s4._\markup { \dynamic mf \italic { 1st X stick, 2nd X snare } } s s s |   % 5
 288
 289         s1.*6 |   % 6-11
 290
 291         s4. s s \< s \! |   % 12
 292         s4._\markup { \dynamic f \italic { snare } } s s s |   % 13
 293
 294         s1.*7 |   % 14-20
 295
 296         s4. s s \> s \! |   % 21
 297         s4. s s \< s \! |   % 22
 298
 299         s1.*3 |   % 23-25
 300
 301         s4._\markup { \italic { rit. } } s s2. |   % 26
 302         s1. |   % 27
 303 }
 304
 305
 306 \score
 307 {
 308         <<
 309                 \Global         % The "roadmap" that everything else depends on
 310
 311                 \context Staff
 312                 <<
 313                         \new Voice = "lead" \LeadVox
 314                         \new Voice \Riffs
 315                         \new Lyrics \lyricsto "lead" \LeadVoxText
 316                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 317                 >>
 318
 319                 \new ChoirStaff
 320                 <<
 321                         \new ChordNames \Chords
 322                         \new RhythmicStaff << \Rhythm \Dynamics >>
 323                 >>
 324
 325                 \set Score.skipBars = ##t
 326                 \set Score.melismaBusyProperties = #'()
 327         >>
 328 }
 329
 330
 331 \paper
 332 {
 333         #(define fonts (make-pango-font-tree
 334                 "Times New Roman"
 335                 "LilyJAZZText"
 336                 "Luxi Mono"
 337                 (/ staffSize 20)))
 338
 339 % Spread staves vertically across last page (default: t)
 340         ragged-last-bottom = ##f
 341 % Spread staves vertically across the page (default: f)
 342 %       ragged-bottom = ##t
 343 % Allow partial line for last stave (default: f)
 344 %       ragged-last = ##t
 345
 346 % To find out what's eating the space at the top...
 347 %       annotate-spacing = ##t
 348 }
 349