2 \include "pop-chords.ly"
5 % Good sizes are 16, 18, & 20
7 #(set-default-paper-size "letter")
8 #(set-global-staff-size staffSize)
9 #(ly:set-option (quote no-point-and-click))
11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
15 %Let's bump up the title size and switch to the chord font. :-)
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))
24 % Useful tweak abbreviations (hn = harmony note)
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
29 (set! (ly:music-property arg 'tweaks)
30 (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
39 \override Staff.TimeSignature #'style = #'()
55 % \once \override TextScript #'padding = #2.0
56 % s1*0^\markup { \large \bold { Moderately fast pop } }
58 %% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
59 % s1*13 \bar "||:" % 1-13
68 LeadVox = \relative c''
71 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
72 \set Staff.instrumentName = "Flute"
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
101 % Guitar accompaniament
103 GuitarPart = \relative c
106 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
107 \set Staff.instrumentName = "Guitar"
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
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
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
138 %Bah, can't we set this globally?
144 ef4/bf ef:dim/bf bf2 | % 2
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
157 c4:m/ef g:dim f f:7 | % 12
158 bf4 g:m6 bf/f f:7 | % 13
160 ef4/bf ef:dim/bf bf2 | % 15
170 s4_\markup { \italic { Ac. gtr only } } s2. | % 1
174 s4_\markup { \italic { Band in } } s2. | % 5
185 \Global % The "roadmap" that everything else depends on
186 \context Staff \LeadVox
191 \new ChordNames \Chords
193 \context Staff \GuitarPart
196 \set Score.skipBars = ##t
197 \set Score.melismaBusyProperties = #'()
204 #(define fonts (make-pango-font-tree
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)
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)