Shamusworld >> Repos - music/blob - schubert-ave-maria.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 "Ave Maria" }
  18 %       subtitle = \markup { \override #'(font-family . sans) \fontsize #3.5 "" }
  19         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Franz Schubert" }
  20         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Guy Bergeron" }
  21         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  22 }
  23
  24 % Useful tweak abbreviations (hn = harmony note)
  25
  26 hn = #(define-music-function (parser location arg) (ly:music?)
  27 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  28
  29   (set! (ly:music-property arg 'tweaks)
  30     (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
  31
  32
  33 %
  34 % Song's structure
  35 %
  36 Global =
  37 {
  38         \key bf \major
  39         \override Staff.TimeSignature #'style = #'()
  40         \time 4/4
  41
  42         % Intro
  43
  44         s1*2 |   % 1-2
  45
  46         \repeat volta 2
  47         {
  48                 s1*13 |   % 3-15
  49         }
  50
  51         s1 \bar "|."    % 16
  52
  53 %{
  54
  55 %       \once \override TextScript #'padding = #2.0
  56 %       s1*0^\markup { \large \bold { Moderately fast pop } }
  57 %%Capo 3 version
  58 %%      s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
  59 %       s1*13 \bar "||:"   % 1-13
  60
  61 %}
  62 }
  63
  64
  65 %
  66 % Lead vocal
  67 %
  68 LeadVox = \relative c''
  69 {
  70         \clef G
  71         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  72         \set Staff.instrumentName = "Flute"
  73
  74         % Intro
  75
  76         \tempo 8=76
  77         R1 |   % 1
  78         R1 |   % 2
  79
  80         % Main
  81
  82         bf4. ( a16 bf d4 ~ d8. c16 |   % 3
  83         bf4 ) r c ( \grace { d16 [ c ] } bf16 a g a |   % 4
  84         bf4 ) r8 d-- d8. ( c32 bf ) a16 ( g ) d'16. ( e32 ) |   % 5
  85         d4 ( cs8 [ ) r16 a ] c8. ~ ( c32 bf \times 4/6 { a16 c d ef c a } |   % 6
  86         bf4. ) d16 ( c ) c8. ( a16 \times 4/6 { g16 b d f d b } |   % 7
  87         c4 ~ \times 4/6 { c16 ) [ g ( a bf \grace { c16 [ bf ] } a g ] } f4 ) r8 f |   % 8
  88         c'8.-- c16-. c16. ( b32 ) c16. ( d32 ) c16. ( d32 bf8 ) r8 bf-- |   % 9
  89         c8.-- c16-- \times 4/6 { c16 ( b c ef d c } bf4 ) r8 bf-- |   % 10
  90         c8.-- c16-- d16. d32 \times 2/3 { d16-\prall ( c d ) } f16. ef32 ef8 r8 r16 g,-- |   % 11
  91         \grace d'8 ( c8.-- ) c16-- \times 4/6 { bf ( a bf df c bf } c4. ) r8 |   % 12
  92         bf4. ( a16 bf d4 ~ d8. c16 |   % 13
  93         bf4 ) r r2 |   % 14
  94         R1 |   % 15
  95
  96         R1 |   % 16
  97 }
  98
  99
 100 %
 101 % Guitar accompaniament
 102 %
 103 GuitarPart = \relative c
 104 {
 105         \clef "G_8"
 106         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 107         \set Staff.instrumentName = "Guitar"
 108
 109         % Intro
 110
 111         \times 4/6 { bf16-1-\markup { VI } [ f'-3 bf-4 d-2 bf f ] } \times 4/6 { bf,16 [ f' bf d bf f ] } \times 4/6 { bf,16 [ bf' d f d bf ] } \times 4/6 { bf,16 [ bf'-3 d-2 af'-4 d, bf ] } |   % 1
 112         \times 4/6 { bf,16 [ bf'-3 ef-3 g-3 ef bf ] } \times 4/6 { bf,16-2 [ a'-4 ef'-3 gf ef a, ] } \times 4/6 { bf,16 [ bf' d f d bf ] } \times 4/6 { bf,16 [ f' bf d bf f ] }  |   % 2
 113
 114         % Main
 115
 116         \times 4/6 { bf,16-1-\markup { I } [ f'-3 bf-3 d-3 bf f ] } \times 4/6 { g,16-2 [ e'-1 bf' d bf e, ] } \times 4/6 { f,16 [ f' bf d bf f ] } \times 4/6 { f,16 [ f' a ef' a, f ] } |   % 3
 117         \times 4/6 { g,16-\markup { III } [ g' bf d bf g ] } \times 4/6 { g,16 [ g' bf d bf g ] } \times 4/6 { ef16-4-\markup { IV } [ g-2 c-3 ef c g ] } \times 4/6 { f,16-1-\markup { I } [ f' a ef' a, f ] } |   % 4
 118         \times 4/6 { bf,16-4 [ f'-1 bf d bf f ] } \times 4/6 { bf,16 [ f' bf d bf f ] } \times 4/6 { bf,16 [ fs'-2 bf d bf fs ] } \times 4/6 { bf,16 [ g'-3 bf d bf g ] } |   % 5
 119         \times 4/6 { a,16 [ g'-3 bf d bf g ] } \times 4/6 { a,16 [ g'-4 a-1 cs a g ] } \times 4/6 { fs,16-2 [ ef' a c a ef ] } \times 4/6 { fs,16 [ ef' a c a ef ] } |   % 6
 120         \times 4/6 { g,16-2 [ d'-0 bf'-3 d bf d, ] } \times 4/6 { g,16 [ e'-1 bf' d bf e, ] } \times 4/6 { a,16 [ f' a c a f ] } \times 4/6 { d16 [ g b f' b, g ] } |   % 7
 121         \times 4/6 { c,16 [ a' c f c a ] } \times 4/6 { c,16 [ bf' c e c bf ] } \times 4/6 { f16 [ a c f c a ] } \times 4/6 { f16 [ a c f c a ] } |   % 8
 122         \times 4/6 { f,16 [ a' ef' f ef a, ] } \times 4/6 { f,16 [ a' ef' f ef a, ] } \times 4/6 { f,16 [ bf' d f d bf ] } \times 4/6 { f,16 [ bf' d f d bf ] } |   % 9
 123         \times 4/6 { f,16 [ a' ef' f ef a, ] } \times 4/6 { f,16 [ a' ef' f ef a, ] } \times 4/6 { g,16-1-\markup { III } [ g'-3 bf d bf g ] } \times 4/6 { g,16 [ d'-4 g bf g d ] } |   % 10
 124         \times 4/6 { f,16 [ f' a c a f ] } \times 4/6 { d16-4-\markup { II } [ fs-3 a d a fs ] } \times 4/6 { c16-1-\markup { III } [ g'-4 c ef c g ] } \times 4/6 { c,16 [ g' c ef c g ] } |   % 11
 125         \times 4/6 { ef16-4 [ g-2 c-3 ef c g ] } \times 4/6 { g,16-2 [ e'-1 bf'-3 df-1 bf e, ] } \times 4/6 { f,16 [ f' a c a f ] } \times 4/6 { f,16 [ ef' a c a ef ] } |   % 12
 126         \times 4/6 { bf16-1 [ f' bf d bf f ] } \times 4/6 { g,16-2 [ e' bf' d bf e, ] } \times 4/6 { f,16 [ f' bf d bf f ] } \times 4/6 { f,16 [ f' a ef' a, f ] } |   % 13
 127         \times 4/6 { bf,16-1-\markup { VI } [ f'-3 bf d bf f ] } \times 4/6 { bf,16 [ f' bf d bf f ] } \times 4/6 { bf,16 [ bf' d f d bf ] } \times 4/6 { bf,16 [ bf' d af' d, bf ] } |   % 14
 128         \times 4/6 { bf,16 [ bf' ef g ef bf ] } \times 4/6 { bf,16 [ a' ef' gf ef a, ] } \times 4/6 { bf,16 [ bf' d f d bf ] } \times 4/6 { bf,16 [ f' bf d bf f ] }  |   % 15
 129
 130         \times 4/6 { bf,16-4-\markup { III } [ d-3 f-1 bf f d ] } \times 4/6 { bf16 [ d f bf f d ] } bf2-\fermata |   % 16
 131 }
 132
 133 %
 134 % Chord names
 135 %
 136 Chords = \chordmode
 137 {
 138 %Bah, can't we set this globally?
 139 %       \popChords
 140
 141         % Intro
 142
 143         bf2. bf4:7 |   % 1
 144         ef4/bf ef:dim/bf bf2 |   % 2
 145
 146         % Main
 147
 148         bf4 g:m6 bf/f f:7 |   % 3
 149         g2:m c4:m/ef f:7 |   % 4
 150         bf2 bf4:aug g:m/bf |   % 5
 151         g4:m/a a:7 fs2:dim |   % 6
 152         g4:m g:m6 f/a g:7/d |   % 7
 153         f4/c c:7 f2 |   % 8
 154         f2:7 bf/f |   % 9
 155         f2:7 g:m |   % 10
 156         f4 d c2:m |   % 11
 157         c4:m/ef g:dim f f:7 |   % 12
 158         bf4 g:m6 bf/f f:7 |   % 13
 159         bf2. bf4:7 |   % 14
 160         ef4/bf ef:dim/bf bf2 |   % 15
 161
 162         s1 |   % 16
 163 }
 164
 165
 166 Dynamics =
 167 {
 168 %{
 169         % Intro
 170         s4_\markup { \italic { Ac. gtr only } } s2. |   % 1
 171
 172         s1*3 |   % 2-4
 173
 174         s4_\markup { \italic { Band in } } s2. |   % 5
 175 %}
 176 }
 177
 178
 179 \score
 180 {
 181         \new StaffGroup
 182         <<
 183                 \new ChoirStaff
 184                 <<
 185                         \Global                                         % The "roadmap" that everything else depends on
 186                         \context Staff \LeadVox
 187                 >>
 188
 189                 \new ChoirStaff
 190                 <<
 191                         \new ChordNames \Chords
 192                         \Global
 193                         \context Staff \GuitarPart
 194                 >>
 195
 196                 \set Score.skipBars = ##t
 197                 \set Score.melismaBusyProperties = #'()
 198         >>
 199 }
 200
 201
 202 \paper
 203 {
 204         #(define fonts (make-pango-font-tree
 205                 "Times New Roman"
 206                 "DomCasual BT"
 207                 "Luxi Mono"
 208                 (/ staffSize 20)))
 209
 210 % Spread staves vertically across last page (default: t)
 211         ragged-last-bottom = ##f
 212 % Don't spread staves vertically across the page (default: f)
 213 %       ragged-bottom = ##t
 214 % Allow partial line for last stave (default: f)
 215         ragged-last = ##t
 216
 217 % To find out what's eating the space at the top...
 218 %       annotate-spacing = ##t
 219 %let's try this: [It works! Huzzah!]
 220         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 221 }