X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=word-of-god-speak.ly;h=3840cb178a9b66a3f6062fedd063b9321d7f696b;hb=bd3b595932c04f7eb329df944c474f89bce236af;hp=408046f6b1157056e850d311aa2764f3af7b4a5d;hpb=6f8ca2d1ddc26dc34f0be9b733d6ef860005c06d;p=music diff --git a/word-of-god-speak.ly b/word-of-god-speak.ly index 408046f..3840cb1 100644 --- a/word-of-god-speak.ly +++ b/word-of-god-speak.ly @@ -1,17 +1,15 @@ -\version "2.16.0" +\version "2.19.0" \include "pop-chords.ly" \include "english.ly" -% Good sizes are 16, 18, & 20 -staffSize = #16 +% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26) +staffSize = #18 #(set-default-paper-size "letter") #(set-global-staff-size staffSize) #(ly:set-option (quote no-point-and-click)) \header { -%Let's bump up the title size and switch to the chord font. :-) - title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Word Of God, Speak" } % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } @@ -29,11 +27,10 @@ hn = #(define-music-function (parser location arg) (ly:music?) % % Song's structure % - Global = { \key c \major - \override Staff.TimeSignature #'style = #'() + \numericTimeSignature \time 4/4 % Intro @@ -79,17 +76,8 @@ Global = % % Lead vocal % - LeadVox = \relative c' { -% \set Voice.autoBeaming = ##f -% \set Staff.instrumentName = #"Lead vox" - \clef G - \key c \major - \override Staff.TimeSignature #'style = #'() - \time 4/4 -\override Score.SpacingSpanner #'average-spacing-wishes = ##f - % Intro r1 | % 1 @@ -171,6 +159,7 @@ LeadVox = \relative c' d8 c ~ c2.-\fermata | % 53 } + LeadVoxText = \lyricmode { I'm find -- ing my -- self _ _ at a loss _ for words _ @@ -206,109 +195,12 @@ LeadVoxText = \lyricmode Riffs = \relative c'' { -%{ - \clef G - \key c \major - \override Staff.TimeSignature #'style = #'() - \time 4/4 -\override Score.SpacingSpanner #'average-spacing-wishes = ##f - - % Intro - -\tiny - r8 g16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 1 - c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 2 - d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 3 - c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 4 - d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 5 - c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 6 - d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 7 - \voiceOne 1 \oneVoice | % 8 - - \repeat volta 2 - { - % Verse - - s1 | % 9 - s1 | % 10 - s1 | % 11 - s1 | % 12 - s1 | % 13 - s1 | % 14 - s1 | % 15 - s1 | % 16 - - % Chorus - - s1 | % 17 - s1 | % 18 - s1 | % 19 - s1 | % 20 - s1 | % 21 - s1 | % 22 - s1 | % 23 - \time 2/4 s2 \time 4/4 | % 24 - \voiceOne r8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ \oneVoice | % 25 - c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 26 - } - \alternative - { - { - d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 27 - \voiceOne 1 \oneVoice | % 28 - } - { - d8 \repeatTie g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 29 - } - } - - c8 bf16 f ~ f2. | % 30 - c'8 bf16 f ~ f4 ~ f8. af16 ~ af bf8. | % 31 - c1 | % 32 - \voiceOne d2 e \oneVoice | % 33 - - % Verse - - s1 | % 34 - s1 | % 35 - s1 | % 36 - s1 | % 37 - s1 | % 38 - s1 | % 39 - s1 | % 40 - s1 | % 41 - - % Chorus - - s1 | % 42 - s1 | % 43 - s1 | % 44 - s1 | % 45 - s1 | % 46 - s1 | % 47 - s1 | % 48 - s1 | % 49 - - % Outro - - \voiceOne r8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ \oneVoice | % 50 - d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 51 - e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 52 - d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 53 - e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 54 - d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 55 - e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 56 - d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 cs8. ~ | % 57 - 1^\fermata | % 59 -\normalsize -%} } % % Chord names % - Chords = \chordmode { % Intro @@ -396,16 +288,9 @@ Chords = \chordmode % % Chord rhythms % - -% Use a RhythmicStaff on the chords instead of this? -% It almost works, but not quite. Doesn't collapse chords above to single notes... - Rhythm = \relative c { -% \set Voice.autoBeaming = ##f -% \set Staff.instrumentName = #"Rhythm" - \override Staff.TimeSignature #'style = #'() - \time 4/4 + \numericTimeSignature \override NoteHead #'style = #'slash \teeny @@ -505,37 +390,19 @@ Dynamics = \score { -%{ - << - << -% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } - \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } - \new Lyrics \lyricsto "lead" \LeadVoxText - >> - - \new ChoirStaff = "Rhythm" - << - \new ChordNames = "chords" \Chords - \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> - >> - - \set Score.skipBars = ##t - \set Score.melismaBusyProperties = #'() - >> -%} << + \Global % The "roadmap" that everything else depends on \set Score.skipBars = ##t \set Score.melismaBusyProperties = #'() - \new Staff + \context Staff << - \Global \new Voice = "lead" \LeadVox \new Voice \Riffs \new Lyrics \lyricsto "lead" \LeadVoxText >> -% \new Staff + \new ChoirStaff << \new ChordNames \Chords \new RhythmicStaff << \Rhythm \Dynamics >> @@ -546,22 +413,20 @@ Dynamics = \paper { - #(define fonts (make-pango-font-tree - "Times New Roman" - "JazzText" - "Luxi Mono" - (/ staffSize 20))) + #(define fonts (make-pango-font-tree + "Times New Roman" + "LilyJAZZText" + "Luxi Mono" + (/ staffSize 20))) % Spread staves vertically across last page (default: t) % ragged-last-bottom = ##f % Don't spread staves vertically across the page (default: f) % ragged-bottom = ##t % Allow partial line for last stave (default: f) - ragged-last = ##t +% ragged-last = ##t % To find out what's eating the space at the top... % annotate-spacing = ##t -%let's try this: [It works! Huzzah!][nope... :-/] -% obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) }