Shamusworld >> Repos - music/blob - hosanna-loud-hosanna.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         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Hosanna, Loud Hosanna" }
  16         subtitle    = \markup { \override #'(font-family . sans) \fontsize #1.3 "(White bread vers.)" }
  17         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Jennette Threlfall" }
  18         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
  19         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  20 }
  21
  22
  23 %
  24 % Lead vocal
  25 %
  26
  27 LeadVox = \relative c'
  28 {
  29 %       \set Voice.autoBeaming = ##f
  30 %       \set Staff.instrument = #"Lead vox"
  31         \clef G
  32         \key bf \major
  33         \override Staff.TimeSignature #'style = #'()
  34         \time 4/4
  35 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  36
  37         % Verse
  38
  39         \partial 4*1 f4 |   % 0
  40         bf4 a8 ( g ) f4 bf |   % 1
  41         d,4 ( ef ) f f |   % 2
  42         g8 ( a ) bf4 c c |   % 3
  43         d2. f,4 |   % 4
  44 \break % bleh
  45
  46         bf4 a8 ( g ) f4 bf |   % 5
  47         d,4 ( ef ) f f |   % 6
  48         g8 ( a ) bf4 bf a |   % 7
  49         bf2. bf8 ( c ) |   % 8
  50 \break % bleh
  51
  52         d4 c d ef |   % 9
  53         c4 ( a8 bf ) c4 bf8 ( c ) |   % 10
  54         d4 c d ef |   % 11
  55         c2. f,4 |   % 12
  56 \break % bleh
  57
  58         bf4 a8 ( g ) f4 bf |   % 13
  59         d,4 ( ef ) f f |   % 14
  60         g8 ( a ) bf4 bf a |   % 15
  61         \partial 4*3 bf2. \bar "|."   % 16
  62 }
  63
  64 LeadVoxText = \lyricmode
  65 {
  66         Ho -- san -- na, _ loud ho -- san -- _ na, the lit -- _ tle chil -- dren sang;
  67         Through pil -- lared _ court and tem -- _ ple the joy -- _ ful an -- them rang;
  68         To _ Je -- sus, who had bles -- sed _ them close _ fold -- ed to his breast;
  69         The chil -- dren _ sang their prais -- _ es, the sim -- _ plest and the best.
  70 }
  71
  72 LeadVoxTextB = \lyricmode
  73 {
  74         From Ol -- i -- _ vet they fol -- _ lowed ’mid an _ ex -- ult -- ant crowd;
  75         The vic -- tor _ palm branch wav -- _ ing, and chant -- _ int clear and loud;
  76         The _ Lord of earth and heav -- _ _ en rode _ on in low -- ly state,
  77         Nor scorned that _ lit -- tle chil -- _ dren should on _ his bid -- ding wait.
  78 }
  79
  80 LeadVoxTextC = \lyricmode
  81 {
  82         “Ho -- san -- na _ in the high -- _ est!” that an -- _ cient song we sing,
  83         For Christ is _ our re -- deem -- _ er, the Lord _ of heaven our King.
  84         O _ may we e -- ver praise _ _ him with _ heart and life and voice,
  85         And in his _ bliss -- ful pres -- _ ence e -- ter -- _ nal -- ly re -- joice.
  86 }
  87
  88
  89 %
  90 % Chord names
  91 %
  92
  93 Chords = \chordmode
  94 {
  95 %Bah, can't we set this globally?
  96 %       \popChords
  97
  98         \partial 4*1 s4 |   % 0
  99         bf1 |   % 1
 100         g2:m bf |   % 2
 101         ef2 f |   % 3
 102         bf1 |   % 4
 103
 104         bf1 |   % 5
 105         g2:m bf |   % 6
 106         ef2 f |   % 7
 107         bf1 |   % 8
 108
 109         bf4 f bf2 |   % 9
 110         f2 f:7 |   % 10
 111         bf4 f bf2 |   % 11
 112         f2 f:7 |   % 12
 113
 114         bf1 |   % 13
 115         g2:m bf |   % 14
 116         ef2 f |   % 15
 117         \partial 4*3 bf2.  |   % 16
 118 }
 119
 120
 121 %
 122 % Chord rhythms
 123 %
 124
 125 % Use a RhythmicStaff on the chords instead of this?
 126 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 127
 128 %Slash = { \override NoteHead #'style = #'slash }
 129 %Cross = { \override NoteHead #'style = #'cross }
 130
 131 StaffC = \relative c
 132 {
 133         \override Staff.TimeSignature #'style = #'()
 134         \time 4/4
 135         \override NoteHead #'style = #'slash
 136
 137         % Verse
 138
 139         \partial 4*1 r4 |   % 0
 140         c4 c c c |   % 1
 141         c4 c c c |   % 2
 142         c4 c c c |   % 3
 143         c4 c c c |   % 4
 144
 145         c4 c c c |   % 5
 146         c4 c c c |   % 6
 147         c4 c c c |   % 7
 148         c4 c c c |   % 8
 149
 150         c4 c c c |   % 9
 151         c4 c c c |   % 10
 152         c4 c c c |   % 11
 153         c4 c c c |   % 12
 154
 155         c4 c c c |   % 13
 156         c4 c c c |   % 14
 157         c4 c c c |   % 15
 158         \partial 4*3 c2. \bar "|."   % 16
 159 }
 160
 161
 162 Dynamics =
 163 {
 164 %{
 165         s4_\markup { \italic { snare on 4, bass 8th notes } } s2. |   % 1
 166         s1*26 |   % 2-27
 167         s2 s4 \< s |   % 28
 168         s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 |   % 29
 169         s1*8 |   % 30-37
 170         s2 s4 \< s \! |   % 38
 171         s1 |   % 39
 172         s2. s8 \> s \! |   % 40
 173         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. |   % 41
 174         s1*8 |   % 42-49
 175         s4 \< s2. |   % 50
 176         s4_\f s2. |   % 51
 177         s1*5 |   % 52-56
 178         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. |   % 57
 179         s2 s4 \< s \! |   % 58
 180 %}
 181 }
 182
 183
 184 \score
 185 {
 186         <<
 187                 <<
 188                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 189                         \new Lyrics \lyricsto "lead" \LeadVoxText
 190                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 191                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 192                 >>
 193
 194                 \new ChoirStaff = "Rhythm"
 195                 <<
 196                         \new ChordNames = "chords" \Chords
 197                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 198                 >>
 199
 200                 \set Score.skipBars = ##t
 201                 \set Score.melismaBusyProperties = #'()
 202         >>
 203 }
 204
 205
 206 \paper
 207 {
 208   #(define fonts (make-pango-font-tree
 209     "Times New Roman"
 210     "DomCasual BT"
 211     "Luxi Mono"
 212     (/ staffSize 20)))
 213
 214 % Spread staves vertically across last page (default: t)
 215 %       ragged-last-bottom = ##f
 216 % Don't spread staves vertically across the page (default: f)
 217 %       ragged-bottom = ##t
 218 % Allow partial line for last stave (default: f)
 219 %       ragged-last = ##t
 220
 221 % To find out what's eating the space at the top...
 222 %       annotate-spacing = ##t
 223 %let's try this: [It works! Huzzah!]
 224         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 225 }