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