Shamusworld >> Repos - music/blob - agnus-dei.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 "Agnus Dei" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Michael W. Smith" }
  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 % Let's try a chord dictionary
  22 %       subtitle =  \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } "       " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } "       " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" }  "       " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" }  "       " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" }  "       " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" }  }
  23 }
  24
  25 % Useful tweak abbreviations (hn = harmony note)
  26
  27 hn = #(define-music-function (parser location arg) (ly:music?)
  28 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  29
  30   (set! (ly:music-property arg 'tweaks)
  31     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  32
  33
  34 %
  35 % Song's structure
  36 %
  37 Global =
  38 {
  39         \key a \major
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 4/4
  42
  43         \once \override TextScript #'padding = #2.0
  44         s1*0^\markup { \large \bold { Moderately } }
  45 % Capo 4 version
  46 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  47
  48         % Intro
  49
  50         s1*4 \bar "||:"   % 1-4
  51
  52         \repeat volta 2
  53         {
  54                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  55
  56                 s1*6 |   % 5-10
  57         }
  58
  59         s1*2 |   % 11-12
  60
  61         \repeat volta 2
  62         {
  63                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  64
  65                 s1*5 |   % 13-17
  66         }
  67         \alternative
  68         {
  69                 {
  70                         s1 |   % 18
  71                 }
  72                 {
  73                         s1 |   % 19
  74                 }
  75         }
  76
  77         s1*2 \bar "||"   %20-21
  78 }
  79
  80
  81 %
  82 % Lead vocal
  83 %
  84 LeadVox = \relative c'
  85 {
  86 %       \set Staff.instrument = #"Lead vox"
  87         \clef G
  88         \override Staff.TimeSignature #'style = #'()
  89 %Hm. Needed anymore?
  90 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  91
  92         % Intro
  93
  94         r1 |   % 1
  95         r1 |   % 2
  96         r1 |   % 3
  97         r1 |   % 4
  98
  99         <cs \hn a>8. ( <d \hn b>16 ~ <d \hn b>8 ) <e \hn cs> <fs \hn d>8. ( <e \hn cs>16 ) <e \hn cs>4 ~ |   % 5
 100         <e \hn cs>2 r |   % 6
 101         <cs \hn a>8. ( <d \hn b>16 ~ <d \hn b>8 ) <e \hn cs> <fs \hn d>8. ( <gs \hn e>16 ~ <gs \hn e>8 ) <a \hn fs> ~ |   % 7
 102         <a \hn fs>4 r8 <gs \hn e>16 <fs \hn d> <gs \hn e>8 <fs \hn d>16 <e \hn cs> <fs \hn d>8 ( <e \hn cs>16 ) <e \hn cs> |   % 8
 103         <e \hn cs>2 r |   % 9
 104         r1 |   % 10
 105
 106 %       cs8. ( d16 ~ d8 ) e fs8. ( gs16 ~ gs8 ) a ~ |   % 11
 107         <cs \hn a>8. ( <d \hn b>16 ~ <d \hn b>8 ) <e \hn cs> <fs \hn d>8. ( <gs \hn e>16 ~ <gs \hn e>8 ) <a \hn fs> ~ |   % 11
 108         <a \hn fs>4 r <a \hn fs> ( <b \hn gs>8. <cs \hn a>16) |   % 12
 109
 110         <cs \hn a>2 r4 <b \hn gs>8. ( <cs \hn a>16 ) |   % 13
 111         <cs \hn a>2 r4 <a \hn fs>8 <cs \hn a> |   % 14
 112         <d \hn b>8. <cs \hn a>16 ~ <cs \hn a>4 ~ <cs \hn a>8 <b \hn gs>16 ( <a \hn fs> ) <a \hn fs>8. ( <b \hn gs>16 ) |   % 15
 113         <b \hn gs>2 r4 <b \hn gs>16 <cs \hn a> <b \hn gs> <a \hn fs> |   % 16
 114         <fs \hn d>2 r4 <b \hn gs>16 <cs \hn a> <b \hn gs> <a \hn fs> |   % 17
 115
 116         <fs \hn d>4 r <fs \hn d>8 <gs \hn e> <a \hn fs> ( <b \hn gs>16 <cs \hn a> ) |   % 18
 117
 118         <fs, \hn d>4 r <fs \hn d> ( <gs \hn e> ) |   % 19
 119
 120         <a \hn e>1-\fermata |   % 20
 121         r1 |   % 21
 122 }
 123
 124 LeadVoxText = \lyricmode
 125 {
 126         Al -- _ _ le -- lu -- _ ia, _
 127         Al -- _ _ le -- lu -- _ _ ia, _
 128         for the Lord God Al -- migh -- _ ty reigns.
 129
 130         Al -- _ _ le -- lu -- _ _ ia, _
 131         Ho -- _ _ ly, ho -- _ ly
 132         are you Lord God _ _ Al -- _ migh -- _ ty.
 133         Wor -- thy is the Lamb,
 134         Wor -- thy is the
 135
 136         Lamb,
 137         You are ho -- _ _
 138
 139         Lamb,
 140         A -- _ men.
 141 }
 142
 143
 144 Riffs = \relative c
 145 {
 146         \clef G
 147 %Hm. Needed anymore?
 148 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 149
 150         % Intro
 151
 152 %       \tiny
 153 %       \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } |   % 1-4
 154 %       \normalsize
 155 }
 156
 157
 158 %
 159 % Chord names
 160 %
 161 Chords = \chordmode
 162 {
 163         % Intro
 164
 165         a2/cs a4:sus4/b a |   % 1
 166         e2/gs d:sus2/fs |   % 2
 167         a2:sus2/cs fs:m7 |   % 3
 168         e2:sus4 e |   % 4
 169
 170         a2 d4/a a |   % 5
 171         s2 e4/a a |   % 6
 172         s2 d8./a e/a d8/a |   % 7
 173         s2 e4/a d/a |   % 8
 174         a2. b4:m/a |   % 9
 175         a2. b4:m/a |   % 10
 176
 177         a8. b:m7 a8/cs d8. e d8/fs |   % 11
 178         s2. e4/gs |   % 12
 179
 180         a2. e4/gs |   % 13
 181         a1 |   % 14
 182         d8./a a s4. fs4:m |   % 15
 183         e2:sus4 e4 b8:m a/cs |   % 16
 184         d2. b8:m a/cs |   % 17
 185
 186         d2. d8/fs e/gs |   % 18
 187
 188         d2. e4 |   % 19
 189
 190         a2. b4:m |   % 20
 191         a2. b4:m |   % 21
 192 }
 193
 194
 195 %
 196 % Chord rhythms
 197 %
 198 % Use a RhythmicStaff on the chords instead of this?
 199 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 200 %
 201 Rhythm = \relative c
 202 {
 203 %%      \set Voice.autoBeaming = ##f
 204 %%      \set Staff.instrument = #"Rhythm"
 205         \override Staff.TimeSignature #'style = #'()
 206         \override NoteHead #'style = #'slash
 207
 208 %Not small enough...
 209         \teeny
 210 %       \magnify #0.3
 211         % Intro
 212
 213         c4 c c c |   % 1
 214         c4 c c c |   % 2
 215         c4 c c c |   % 3
 216         c4 c c c |   % 4
 217
 218         c4 c c c |   % 5
 219         c4 c c c |   % 6
 220         c4 c c8. c c8 ~ |   % 7
 221         c4 c c c |   % 8
 222         c4 c c c |   % 9
 223         c4 c c c |   % 10
 224
 225         c8. c c8 c8. c c8 ~ |   % 11
 226         c4 c c c |   % 12
 227
 228         c4 c c c |   % 13
 229         c4 c c c |   % 14
 230         c8. c ~ c8 c4 c |   % 15
 231         c4 c c c8 c |   % 16
 232         c4 c c c8 c |   % 17
 233
 234         c4 c c c8 c |   % 18
 235
 236         c4 c c c |   % 19
 237
 238         c4-\fermata c c c |   % 20
 239         c4 c c c |   % 21
 240         \normalsize
 241 }
 242
 243
 244 Dynamics =
 245 {
 246 %{
 247         s4_\markup { \italic { snare pat. } } s2 |   % 1
 248         s4_\markup { \italic { simile } } s2 |   % 2
 249         s2.*19
 250         s4_\markup { \italic { spacey } } s2 |   % 22
 251         s2.*5
 252         s4 s \< s \! |   % 28
 253         s2.*22
 254         s4_\markup { \italic { Last time } } s2 |   % 51
 255 %}
 256         s1*20
 257         s4_\markup { \italic \small { (Back to letter A if desired) } } s2. |   % 21
 258 }
 259
 260
 261 \score
 262 {
 263         <<
 264                 \set Score.skipBars = ##t
 265                 \set Score.melismaBusyProperties = #'()
 266
 267 %               \new Staff
 268                 <<
 269                         \new ChordNames \Chords
 270 %Capo 4 edition
 271 %                       \new ChordNames \transpose b g \Chords
 272                         \new RhythmicStaff << \Rhythm \Dynamics >>
 273                 >>
 274
 275                 \new Staff
 276                 <<
 277                         \Global                                         % The "roadmap" that everything else depends on
 278                         \new Voice = "lead" \LeadVox
 279                         \new Voice \Riffs
 280                         \new Lyrics \lyricsto "lead" \LeadVoxText
 281                 >>
 282         >>
 283 }
 284
 285
 286 \paper
 287 {
 288   #(define fonts (make-pango-font-tree
 289     "Times New Roman"
 290     "DomCasual BT"
 291     "Luxi Mono"
 292     (/ staffSize 20)))
 293
 294 % Spread staves vertically across last page (default: t)
 295         ragged-last-bottom = ##f
 296 % Don't spread staves vertically across the page (default: f)
 297 %       ragged-bottom = ##t
 298 % Allow partial line for last stave (default: f)
 299 %       ragged-last = ##t
 300
 301 % To find out what's eating the space at the top...
 302 %       annotate-spacing = ##t
 303 %let's try this: [It works! Huzzah!]
 304         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 305 }