Shamusworld >> Repos - music/blob - do-you-know.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 "Do You Know" }
  18 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
  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 % Lead vocal
  26 %
  27
  28 LeadVox = \relative c'
  29 {
  30 %       \set Voice.autoBeaming = ##f
  31 %       \set Staff.instrument = #"Lead vox"
  32         \clef G
  33         \key a \major
  34         \override Staff.TimeSignature #'style = #'()
  35         \time 4/4
  36 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  37
  38         % Intro
  39
  40         R1^\markup { \italic { Light ballad } } |   % 1
  41         R1 |   % 2
  42         R1 |   % 3
  43         r2 r4. cs16 [ d ] |   % 4
  44
  45         \repeat volta 4
  46         {
  47                 % Verse
  48
  49 \once \override Score.RehearsalMark #'self-alignment-X = #left
  50 \mark \markup { \override #'(font-family . sans) { \box { A } } \small \italic { Solo 3rd time } }
  51
  52                 e8 [ e e fs ] ~ fs4 fs |   % 5
  53                 e4 d cs r8 cs16 [ d ] |   % 6
  54 %\break
  55                 e8 [ e e fs ] ~ fs4 fs |   % 7
  56                 e4 b' a r8 a16 [ b ] |   % 8
  57                 cs2 b4 r8 b16 [ cs ] |   % 9
  58                 d4. cs8 cs4 r8 a16 [ gs ] |   % 10
  59                 fs8 [ gs a a ] ~ a4 b |   % 11
  60                 cs4 gs a2 \bar "||"   % 12
  61
  62                 % Refrain
  63
  64                 \time 2/4
  65
  66 \mark \markup { \musicglyph #"scripts.segno" }
  67
  68                 r4^\markup { \hspace #0.0 \raise #1.0 \italic { end solo } } a8 [ b ] \bar "||"   % 13
  69
  70                 \time 4/4
  71
  72 \once \override Score.RehearsalMark #'self-alignment-X = #left
  73 \mark \markup { \override #'(font-family . sans) { \box { B } } \small \italic { No groove on D.S. } }
  74
  75                 cs2 b4 b8 [ cs ] |   % 14
  76                 d2 cs4 r8 e, |   % 15
  77                 fs8 [ gs a cs ] ~ cs [ a ] a4 |   % 16
  78                 fs8 [ gs a cs ] ~ cs [ a ] a4 |   % 17
  79 %\break
  80                 fs8 [ gs a cs ] ~ cs [ a ] a4 |   % 18
  81         }
  82         \alternative
  83         {
  84                 {
  85                         \time 2/4
  86
  87                         b8 [ cs ] gs8. ([ a16 ]) |   % 19
  88
  89                         \time 4/4
  90
  91                         a2 r |   % 20
  92                         r2 r4. cs,16 [ d ] |   % 21
  93                 }
  94                 {
  95                         b'8 [ cs ] gs8. ([ a16 ]) a2^\markup { \hspace #1.8 \raise #0.6 { D.S. } } \bar "||"   % 22
  96                 }
  97                 {
  98                         b8 [ cs ] gs8. ([ a16 ]) a2-\fermata \bar "|." |   % 23
  99                 }
 100         }
 101 }
 102
 103 LeadVoxText = \lyricmode
 104 {
 105         Do you know what the blood _ has done for me,
 106         Do you know what the blood _ has done for me?
 107         It has cleansed me, it has set me free
 108         Do you know what the blood _ has done for me?
 109
 110         Thank you Je -- sus, thank you Sa -- vior
 111         for com -- ing and wash -- _ ing me
 112         com -- ing and cleans -- _ ing me
 113         com -- ing and set -- _ ting me set -- ting me __ _ free.
 114
 115         Do you
 116
 117         set -- ting me __ _ free
 118
 119         set -- ting me __ _ free.
 120 }
 121
 122
 123 %
 124 % Riff/rhythm figures
 125 %
 126
 127 StaffRiffs = \relative c'
 128 {
 129 %       \set Voice.autoBeaming = ##f
 130 %       \set Staff.instrument = #"Rhythm"
 131         \key a \major
 132         \override Staff.TimeSignature #'style = #'()
 133         \time 4/4
 134
 135         % Intro
 136
 137         <e b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 1
 138         <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 2
 139         <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 3
 140         <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 4
 141 \stopStaff
 142
 143         s1*7 |   % 5 - 12
 144         \time 2/4
 145         s2 |   % 13
 146         \time 4/4
 147         s1*6 |   % 14 - 18
 148         \time 2/4
 149         s2 |   % 19
 150         \time 4/4
 151
 152 \startStaff
 153         <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 20
 154         <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 21
 155 \stopStaff
 156 }
 157
 158
 159 %
 160 % Chord names
 161 %
 162
 163 Chords = \chordmode
 164 {
 165 % Bah, can't we set this globally?
 166 %       \popChords
 167
 168         % Intro
 169
 170         a1:sus2 |   % 1
 171         d1:6.9 |   % 2
 172         a1:sus2 |   % 3
 173         d2:6.9 e:sus4 |   % 4
 174
 175         \repeat volta 4
 176         {
 177                 % Verse
 178
 179                 a2 d |   % 5
 180                 a4/e e:7 a2 |   % 6
 181                 a2 d |   % 7
 182                 a4/e f:dim7 fs2:m7 |   % 8
 183                 a2/e e |   % 9
 184                 b2:m7 fs:m7 |   % 10
 185                 b2:m7 a/cs |   % 11
 186                 d4:maj7 e a2 \bar "||"   % 12
 187
 188                 % Refrain
 189
 190                 \time 2/4
 191
 192                 e2/gs \bar "||"   % 13
 193
 194                 \time 4/4
 195
 196                 fs2:m7 e |   % 14
 197                 b2:m7 fs:m7 |   % 15
 198                 d4. a8/cs s2 |   % 16
 199                 b4.:m7 fs8:m7 s2 |   % 17
 200                 d4. a8/cs s2 |   % 18
 201         }
 202         \alternative
 203         {
 204                 {
 205                         \time 2/4
 206
 207                         b4:m7 e |   % 19
 208
 209                         \time 4/4
 210
 211                         a1:sus2 |   % 20
 212                         d2:6.9 e:sus4 |   % 21
 213                 }
 214                 {
 215                         b4:m7 e a2 \bar "||"   % 22
 216                 }
 217                 {
 218                         b4:m7 e a2 \bar "|." |   % 23
 219                 }
 220         }
 221 }
 222
 223
 224 %
 225 % Chord rhythms
 226 %
 227
 228 % Use a RhythmicStaff on the chords instead of this?
 229 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 230
 231 StaffC = \relative c
 232 {
 233 %       \set Voice.autoBeaming = ##f
 234 %       \set Staff.instrument = #"Rhythm"
 235         \override Staff.TimeSignature #'style = #'()
 236         \time 4/4
 237         \override NoteHead #'style = #'slash
 238
 239         % Intro
 240
 241         c4 c c c |   % 1
 242         c4 c c c |   % 2
 243         c4 c c c |   % 3
 244         c4 c c c |   % 4
 245
 246         \repeat volta 4
 247         {
 248                 % Verse
 249
 250                 c4 c c c |   % 5
 251                 c4 c c c |   % 6
 252                 c4 c c c |   % 7
 253                 c4 c c c |   % 8
 254                 c4 c c c |   % 9
 255                 c4 c c c |   % 10
 256                 c4 c c c |   % 11
 257                 c4 c c c \bar "||"   % 12
 258
 259                 % Refrain
 260
 261                 \time 2/4
 262
 263                 c4 c \bar "||"   % 13
 264
 265                 \time 4/4
 266
 267                 c4 c c c |   % 14
 268                 c4 c c c |   % 15
 269                 c4. c8 ~ c2 |   % 16
 270                 c4. c8 ~ c2 |   % 17
 271                 c4. c8 ~ c2 |   % 18
 272         }
 273         \alternative
 274         {
 275                 {
 276                         \time 2/4
 277
 278                         c4 c |   % 19
 279
 280                         \time 4/4
 281
 282                         c4 c c c |   % 20
 283                         c4 c c c |   % 21
 284                 }
 285                 {
 286                         c4 c c c \bar "||"   % 22
 287                 }
 288                 {
 289                         c4-\markup { \italic { rit. } } c c2-\fermata \bar "|." |   % 23
 290                 }
 291         }
 292 }
 293
 294
 295 \score
 296 {
 297         <<
 298                 <<
 299                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 300                         \new Lyrics \lyricsto "lead" \LeadVoxText
 301                 >>
 302
 303                 \new Staff \with
 304                 {
 305                         \remove "Time_signature_engraver"
 306                         \remove "Clef_engraver"
 307 %Hmm, removing this screws up the formatting...
 308 %                       \remove "Key_engraver"
 309                         fontSize = #-3.0
 310                         \override StaffSymbol #'staff-space = #(magstep -3.0)
 311                 }
 312                 \StaffRiffs
 313
 314                 \new ChoirStaff = "Rhythm"
 315                 <<
 316                         \new ChordNames = "chords" \Chords
 317                         \new RhythmicStaff = "chordRhythm" \StaffC
 318                 >>
 319
 320                 \set Score.melismaBusyProperties = #'()
 321         >>
 322
 323         \layout
 324         {
 325 %               \context { \Staff \RemoveEmptyStaves }
 326 %               ragged-last-bottom = ##t
 327 %               ragged-last = ##t
 328
 329                 \context
 330                 {
 331                         \Score
 332                         \remove "Timing_translator"
 333                         \remove "Default_bar_line_engraver"
 334                         \remove "Repeat_acknowledge_engraver"
 335                 }
 336                 \context
 337                 {
 338 %                       \Staff
 339                         \Staff \RemoveEmptyStaves
 340                         \consists "Timing_translator"
 341                         \consists "Default_bar_line_engraver"
 342                         \consists "Repeat_acknowledge_engraver"
 343                 }
 344                 \context
 345                 {
 346                         \RhythmicStaff
 347                         \consists "Timing_translator"
 348                         \consists "Default_bar_line_engraver"
 349                         \consists "Repeat_acknowledge_engraver"
 350                 }
 351 %{
 352                 \context
 353                 {
 354                         \ChordNames
 355                         \consists "Timing_translator"
 356                         \consists "Default_bar_line_engraver"
 357                         \consists "Repeat_acknowledge_engraver"
 358                 }
 359 %}
 360         }
 361 }
 362
 363
 364 \paper
 365 {
 366   #(define fonts (make-pango-font-tree
 367     "Times New Roman"
 368     "DomCasual BT"
 369     "Luxi Mono"
 370     (/ staffSize 20)))
 371 }