2 \include "pop-chords.ly"
5 % Good sizes are 16, 18, & 20 (23 & 26 are available too)
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 "Be Still And Know" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "???" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Deborah Hammons" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Let's try a chord dictionary
22 % subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } }
25 % Useful tweak abbreviations (hn = harmony note)
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
30 (set! (ly:music-property arg 'tweaks)
31 (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
40 \override Staff.TimeSignature #'style = #'()
45 % \once \override TextScript #'padding = #2.0
46 % s1*0^\markup { \large \bold { Not too fast } }
48 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
52 s2.*8 \bar "||:" % 1-8
58 \mark \markup { \override #'(font-family . sans) { \box { A } } }
71 s2.*2 \bar "||" % 26-27
76 \mark \markup { \override #'(font-family . sans) { \box { B } } }
77 s2.*4 \bar "||" % 28-31
81 \mark \markup { \override #'(font-family . sans) { \box { C } } }
82 s2.*16 \bar "||" % 32-47
86 s2.*5 \bar "|." % 48-52
93 LeadVox = \relative c'
95 % \set Staff.instrument = #"Lead vox"
97 \override Staff.TimeSignature #'style = #'()
99 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
108 <fs ds>4 ( <ds b> ) <gs e> | % 9
109 <fs ds>2 <fs ds>4 | % 10
110 <fs ds>4 ( <cs as> ) <e cs> | % 11
111 <ds b>2 <ds b>4 | % 12
112 <ds b>4 ( <e cs> ) <fs ds> | % 13
113 <gs e>2 <gs e>4 | % 14
114 << { \voiceOne gs4 ( as ) } \new Voice = "v" { \voiceTwo e2 } >> \oneVoice <b' e,>4 | % 15
115 <as fs>2 <b e,>4 | % 16
116 << { \voiceOne b ( fs ) } \context Voice = "v" { \voiceTwo ds2 } >> \oneVoice <gs e>4 | % 17
117 << { \voiceOne fs ( ds ) } \context Voice = "v" { \voiceTwo ds2 } >> \oneVoice <e cs>4 | % 18
118 << { \voiceOne ds ( b ) } \context Voice = "v" { \voiceTwo b2 } >> \oneVoice <cs as>4 | % 19
144 <g e>4 ( <e c> ) <a f> | % 32
146 <g e> ( <d b> ) <f d> | % 34
148 <e c> ( <f d> ) <g e> | % 36
150 << { \voiceOne a4 ( b ) } \context Voice = "v" { \voiceTwo f2 } >> \oneVoice <c' f,>4 | % 38
151 <b g>2 <c f,>4 | % 39
152 << { \voiceOne c4 ( g ) } \context Voice = "v" { \voiceTwo e2 } >> \oneVoice <a f>4 | % 40
153 << { \voiceOne g4 ( e ) } \context Voice = "v" { \voiceTwo e2 } >> \oneVoice <f d>4 | % 41
154 << { \voiceOne e4 ( c ) } \context Voice = "v" { \voiceTwo c2 } >> \oneVoice <d b>4 | % 42
157 << { \voiceOne c4 ( g ) } \context Voice = "v" { \voiceTwo c,2 } >> \oneVoice <a' d,>4 | % 45
158 << { \voiceOne g4 ( e ) } \context Voice = "v" { \voiceTwo c2 } >> \oneVoice <f c>4 | % 46
159 << { \voiceOne e4 ( c ) } \context Voice = "v" { \voiceTwo c2 } >> \oneVoice <b d>4 | % 47
170 LeadVoxText = \lyricmode
172 Be still _ and know that I _ am God,
173 Be still _ and know that I _ am God,
174 Be still _ and know _ that I _ am God. __ _
180 Be still _ and know that I _ am Lord,
181 Be still _ and know that I _ am Lord,
182 Be still _ and know _ that I _ am Lord, __ _
183 Be still _ and know _ that I _ am Lord.
186 LeadVoxTextB = \lyricmode
188 _ am _ the Lord that heal -- _ eth thee,
189 I am _ the Lord that heal -- _ eth thee,
190 I am _ the Lord _ that heal -- _ eth
194 Riffs = \relative c''
198 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
326 % Use a RhythmicStaff on the chords instead of this?
327 % It almost works, but not quite. Doesn't collapse chords above to single notes...
331 %% \set Voice.autoBeaming = ##f
332 %% \set Staff.instrument = #"Rhythm"
333 \override Staff.TimeSignature #'style = #'()
334 \override NoteHead #'style = #'slash
412 s4_\markup { \italic { (1st X piano, Ac gtr) } } s2 | % 9
414 s4_\markup { \italic { (Add bass, drums) } } s2 | % 20
421 s4_\markup { \italic { rit. } } s2 | % 47
423 s4_\markup { \italic { rit. } } s2 | % 51
430 \set Score.skipBars = ##t
431 \set Score.melismaBusyProperties = #'()
435 \new ChordNames \Chords
437 % \new ChordNames \transpose b g \Chords
438 \new RhythmicStaff << \Rhythm \Dynamics >>
443 \Global % The "roadmap" that everything else depends on
444 \new Voice = "lead" \LeadVox
446 \new Lyrics \lyricsto "lead" \LeadVoxText
447 \new Lyrics \lyricsto "lead" \LeadVoxTextB
455 #(define fonts (make-pango-font-tree
461 % Spread staves vertically across last page (default: t)
462 ragged-last-bottom = ##f
463 % Don't spread staves vertically across the page (default: f)
464 % ragged-bottom = ##t
465 % Allow partial line for last stave (default: f)
468 % To find out what's eating the space at the top...
469 % annotate-spacing = ##t
470 %let's try this: [It works! Huzzah!]
471 % obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)