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