Shamusworld >> Repos - music/blob - be-thou-my-vision.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 "Be Thou My Vision" }
  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 d \major
  34         \override Staff.TimeSignature #'style = #'()
  35         \time 3/4
  36 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  37
  38         \set Score.markFormatter = #format-mark-box-letters
  39
  40         % Intro
  41
  42         r2.^\markup { \italic { Gentle waltz } } |   % 1
  43         r2. |   % 2
  44         r2. |   % 3
  45         r2. |   % 4
  46
  47         % Verses 1-2
  48
  49         \repeat volta 3
  50         {
  51 \once \override Score.RehearsalMark #'self-alignment-X = #left
  52 \mark \markup { \override #'(font-family . sans) { \box { A } } \small \italic { Piano 1st time } }
  53
  54                 d4 d e8 ( [ d ] ) |   % 5
  55                 b4 a b |   % 6
  56                 d4 d e |   % 7
  57                 fs2. |   % 8
  58                 e4 e e |   % 9
  59                 e4 fs a |   % 10
  60                 b4 a fs |   % 11
  61                 a2. |   % 12
  62
  63 \mark \markup { \override #'(font-family . sans) { \box { A9 } } }
  64
  65                 b4 b8 ( [ cs ] ) d ( [ cs ] ) |   % 13
  66                 b4 ( a ) fs |   % 14
  67                 a d, cs |   % 15
  68                 b2 ( a4 ) |   % 16
  69                 d4 fs a |   % 17
  70                 b8 ( [ a ] ) fs4 d8 ( [ fs ] ) |   % 18
  71                 e4 d d |   % 19
  72         }
  73         \alternative
  74         {
  75                 {
  76                         d2.^\markup { \italic { Band in 1st time } } ~ |   % 20
  77                         d2. |   % 21
  78                         r2. |   % 22
  79                         r2. |   % 23
  80                 }
  81                 {
  82                         d2. ~ |   % 24
  83                 }
  84         }
  85
  86         d2. ~ |   % 25
  87         d2. |   % 26
  88         r2. \bar "||"   % 27
  89
  90         % Verse 3
  91
  92 \once \override Score.RehearsalMark #'padding = #2.0
  93 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  94
  95         \key e \major
  96         e4 e fs8 ( [ e ] ) |   % 28
  97         cs4 b cs |   % 29
  98         e4 e fs |   % 30
  99         gs2. |   % 31
 100         fs4 fs fs |   % 32
 101         fs4 gs b |   % 33
 102         cs4 b gs |   % 34
 103         b2. \bar "||"   % 35
 104
 105 \mark \markup { \override #'(font-family . sans) { \box { B9 } } }
 106
 107         cs4 cs8  ([ ds ] ) e ( [ ds ] ) |   % 36
 108         cs4 b gs |   % 37
 109         b4 e, ds |   % 38
 110         cs2 ( b4 ) |   % 39
 111         e4 gs b |   % 40
 112         cs8 ( [ b ] ) gs4 e8 ( [ gs ] ) |   % 41
 113         fs4 e e |   % 42
 114         e2. ~ |   % 43
 115
 116         e2 fs8 ( [ gs ] ) |   % 44
 117         fs4 e e |   % 45
 118         e2. ~ |   % 46
 119         e2 fs8 ( [ gs ] ) |   % 47
 120         fs4 e e |   % 48
 121
 122         % Ending
 123
 124         e2. ~ |   % 49
 125         e2. |   % 50
 126         r2. |   % 51
 127         r2.^\fermata \bar "|."   % 52
 128 }
 129
 130 LeadVoxText = \lyricmode
 131 {
 132         Be thou my _ vi -- sion, O Lord of my heart
 133         Naught be all else to me, save that thou art
 134         Thou my _ best _ thought _ by day or by night _
 135         Wa -- king or slee -- _ ping, thy _ pres -- ence my light. _
 136
 137         art. __ _ _
 138
 139         High King of _ Hea -- ven, my vic -- to -- ry won
 140         May I reach hea -- ven’s joys, O bright heaven’s sun!
 141         Heart of _ my _ own heart, what -- e -- ver be -- fall _
 142         Still be my vi -- _ sion, O _ ru -- ler of all. _
 143
 144         O _ ru -- ler of all. _
 145         O _ ru -- ler of all. _
 146 }
 147
 148 LeadVoxTextB = \lyricmode
 149 {
 150         Be thou my _ wis -- dom, and thou my true word
 151         I e -- ver with thee and thou with me Lord
 152         Thou my _ great _ fa -- _ ther, I thy true son _
 153         Thou in me dwel -- _ ling, and _ I with thee one. _
 154 }
 155
 156 LeadVoxTextC = \lyricmode
 157 {
 158         Ri -- ches I _ heed not, nor man’s em -- pty praise
 159         Thou mine in -- her -- i -- tance, now and al -- ways
 160         Thou and _ thou _ on -- _ ly, first in my heart _
 161         High King of Hea -- _ ven, my _ trea -- sure thou
 162 }
 163
 164
 165 %
 166 % Riff/rhythm figures
 167 %
 168
 169 StaffRiffs = \relative c'
 170 {
 171         \set Voice.autoBeaming = ##f
 172 %       \set Staff.instrument = #"Rhythm"
 173         \key d \major
 174         \override Staff.TimeSignature #'style = #'()
 175         \time 3/4
 176
 177         % Intro
 178
 179         d'4 d e8 [ d ] |   % 1
 180         b4 a2 |   % 2
 181         d4 d e8 [ fs ] |   % 3
 182         d2. |   % 4
 183 \stopStaff
 184
 185         s2.*15 |   % 5 - 19
 186
 187 \startStaff
 188         d4 d e8 [ d ] |   % 20
 189         b4 a2 |   % 21
 190         d4 d e8 [ fs ] |   % 22
 191         d2. |   % 23
 192
 193         d4 d e8 [ d ] |   % 24
 194         b4 a2 |   % 25
 195         d4 d e8 [ fs ] |   % 26
 196         fs2. |   % 27
 197 \stopStaff
 198
 199         s2.*21 |   % 28 - 48
 200
 201 \startStaff
 202         e4 e fs8 [ e ] |   % 49
 203         cs4 b2 |   % 50
 204         e4 e fs |   % 51
 205         e2.-\fermata  % 52
 206 \stopStaff
 207
 208 }
 209
 210
 211 %
 212 % Chord names
 213 %
 214
 215 Chords = \chordmode
 216 {
 217 %Bah, can't we set this globally?
 218 %       \popChords
 219
 220         % Intro
 221
 222         d2. |   % 1
 223         e2.:m11 |   % 2
 224         d2. |   % 3
 225         e2.:m11 |   % 4
 226
 227         % Verses 1-2
 228
 229         \repeat volta 3
 230         {
 231                 d2. |   % 5
 232                 e2.:m11 |   % 6
 233                 g2.:sus2 |   % 7
 234                 d2. |   % 8
 235                 a2. |   % 9
 236                 a4:sus4 a2 |   % 10
 237                 g2.:sus2 |   % 11
 238                 a4:sus4 a2 |   % 12
 239                 b2.:m |   % 13
 240                 a4:sus4 a2 |   % 14
 241                 d2.:sus2/fs |   % 15
 242                 g2:sus2 a4 |   % 16
 243                 b2.:m |   % 17
 244                 g2.:sus2 |   % 18
 245                 e2:m7 g4:sus2 |   % 19
 246         }
 247         \alternative
 248         {
 249                 {
 250                         d2. |   % 20
 251                         e2.:m11 |   % 21
 252                         d2. |   % 22
 253                         e2.:m11 |   % 23
 254                 }
 255                 {
 256                         d2. |   % 24
 257                 }
 258         }
 259
 260         e2.:m7 |   % 25
 261         d2./fs |   % 26
 262         b2:sus4 b4 \bar "||"   % 27
 263
 264         % Verse 3
 265
 266         e2. |   % 28
 267         fs2.:m7 |   % 29
 268         a2.:sus2 |   % 30
 269         e2. |   % 31
 270         b2. |   % 32
 271         b4:sus4 b2 |   % 33
 272         a2.:sus2 |   % 34
 273         b4:sus4 b2 \bar "||"   % 35
 274
 275         cs2.:m |   % 36
 276         b4:sus4 b2 |   % 37
 277         e2./gs |   % 38
 278         a2:sus2 b4 |   % 39
 279         cs2.:m |   % 40
 280         a2.:sus2 |   % 41
 281         fs2:m a4:sus2 |   % 42
 282         cs2.:m |   % 43
 283         b2.:11^9.7 |   % 44
 284         a2.:sus2 |   % 45
 285         cs2.:m |   % 46
 286         b2.:11^9.7 |   % 47
 287         fs2.:m |   % 48
 288
 289         % Ending
 290
 291         e2. |   % 49
 292         fs2.:m11 |   % 50
 293         a2.:sus2 |   % 51
 294         e2. \bar "|."   % 52
 295 }
 296
 297
 298 %
 299 % Chord rhythms
 300 %
 301
 302 % Use a RhythmicStaff on the chords instead of this?
 303 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 304
 305 StaffC = \relative c
 306 {
 307         \set Voice.autoBeaming = ##f
 308 %       \set Staff.instrument = #"Rhythm"
 309         \override Staff.TimeSignature #'style = #'()
 310         \time 3/4
 311         \override NoteHead #'style = #'slash
 312
 313         % Intro
 314
 315         c4 c c |   % 1
 316         c4 c c |   % 2
 317         c4 c c |   % 3
 318         c4 c c |   % 4
 319
 320         % Verses 1-2
 321
 322         \repeat volta 3
 323         {
 324                 c4 c c |   % 5
 325                 c4 c c |   % 6
 326                 c4 c c |   % 7
 327                 c4 c c |   % 8
 328                 c4 c c |   % 9
 329                 c4 c c |   % 10
 330                 c4 c c |   % 11
 331                 c4 c c |   % 12
 332                 c4 c c |   % 13
 333                 c4 c c |   % 14
 334                 c4 c c |   % 15
 335                 c4 c c |   % 16
 336                 c4 c c |   % 17
 337                 c4 c c |   % 18
 338                 c4 c c |   % 19
 339         }
 340         \alternative
 341         {
 342                 {
 343                         c4 c c |   % 20
 344                         c4 c c |   % 21
 345                         c4 c c |   % 22
 346                         c4 c c |   % 23
 347                 }
 348                 {
 349                         c4 c c |   % 24
 350                 }
 351         }
 352
 353         c4 c c |   % 25
 354         c4 c c |   % 26
 355         c4 \< c c \! \bar "||"   % 27
 356
 357         % Verse 3
 358
 359         c4 c c |   % 28
 360         c4 c c |   % 29
 361         c4 c c |   % 30
 362         c4 c c |   % 31
 363         c4 c c |   % 32
 364         c4 c c |   % 33
 365         c4 c c |   % 34
 366         c4 c c \bar "||"   % 35
 367
 368         c4 c c |   % 36
 369         c4 c c |   % 37
 370         c4 c c |   % 38
 371         c4 c c |   % 39
 372         c4 c c |   % 40
 373         c4 c c |   % 41
 374         c4 c c |   % 42
 375         c4 c c |   % 43
 376         c4 c c |   % 44
 377         c4 c c |   % 45
 378         c4 c c |   % 46
 379         c4 c c |   % 47
 380         c2.-\markup { \italic { rit. } } |   % 48
 381
 382         % Ending
 383
 384         c4-\markup { \italic { A tempo } } c c |   % 49
 385         c4 c c |   % 50
 386         c4 c-\markup { \italic { rit. } } c |   % 51
 387         c2.-\fermata \bar "|."   % 52
 388 }
 389
 390
 391 \score
 392 {
 393         <<
 394 %               \new ChoirStaff = "Vox"
 395                 <<
 396                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 397                         \new Lyrics \lyricsto "lead" \LeadVoxText
 398                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 399                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 400                 >>
 401
 402                 \new Staff \with
 403                 {
 404                         \remove "Time_signature_engraver"
 405                         \remove "Clef_engraver"
 406 %Hmm, removing this screws up the formatting...
 407 %                       \remove "Key_engraver"
 408                         fontSize = #-3.0
 409                         \override StaffSymbol #'staff-space = #(magstep -3.0)
 410 %                       firstClef = ##f
 411                 }
 412                 \StaffRiffs
 413
 414                 \new ChoirStaff = "Rhythm"
 415                 <<
 416                         \new ChordNames = "chords" \Chords
 417                         \new RhythmicStaff = "chordRhythm" \StaffC
 418                 >>
 419
 420                 \set Score.skipBars = ##t
 421                 \set Score.melismaBusyProperties = #'()
 422         >>
 423
 424         \layout
 425         {
 426                 \context { \Staff \RemoveEmptyStaves }
 427 %               ragged-last-bottom = ##t
 428                 ragged-last = ##t
 429         }
 430 }
 431
 432
 433 \paper
 434 {
 435   #(define fonts (make-pango-font-tree
 436     "Times New Roman"
 437     "DomCasual BT"
 438     "Luxi Mono"
 439     (/ staffSize 20)))
 440 }