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