X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=refiner%27s-fire.ly;h=5ed627510aa51eb651d7ab5ef6596e59dea13a63;hb=bd3b595932c04f7eb329df944c474f89bce236af;hp=ac7f70cc1c498db04db68ea46e0434f50b339401;hpb=6f8ca2d1ddc26dc34f0be9b733d6ef860005c06d;p=music diff --git a/refiner's-fire.ly b/refiner's-fire.ly index ac7f70c..5ed6275 100644 --- a/refiner's-fire.ly +++ b/refiner's-fire.ly @@ -1,103 +1,120 @@ -\version "2.16.0" +\version "2.19.0" \include "pop-chords.ly" \include "english.ly" -staffSize = #16 % or 18 +% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26) +staffSize = #16 #(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 "Refiner's Fire" } } % composer = \markup { \override #'(font-family . sans) "" } arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" } - tagline = "Engraved by JLH and Lilypond 2.8.2" + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) } % -% Lead vocal +% Song's structure % - -LeadVox = \relative c'' +Global = { -% \set Voice.autoBeaming = ##f -% \set Staff.instrumentName = #"Lead vox" \clef G \key e \major - \override Staff.TimeSignature #'style = #'() + \numericTimeSignature \time 4/4 -\override Score.SpacingSpanner #'average-spacing-wishes = ##f % Intro - R1 | % 1 - R1 | % 2 - R1 | % 3 - R1 \bar "||:" % 4 + s1*4 \bar ".|:-||" % 1-4 \repeat volta 2 { % Verse -\mark \markup { \override #'(font-family . sans) { \box { A } } } - - gs4 b8 fs ~ fs4 gs | % 5 - e2 e8 fs gs a | % 6 - a2. r8 e | % 7 - e4 ds e fs | % 8 - gs4 b8 fs ~ fs4 gs | % 9 - e2 e8 fs gs a | % 10 - a1 | % 11 - gs4. ( fs8 ) fs2 \bar "||" % 12 + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*8 \bar "||" % 5-12 % Chorus -\mark \markup { \override #'(font-family . sans) { \box { B } } } - - gs2 a4 gs8 fs8 ~ | % 13 - fs2 r | % 14 - gs4 b a gs8 fs ~ | % 15 - fs2 r4 e8 b' | % 16 - b1 | % 17 - b8 ( fs ) fs4 r2 | % 18 - b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 19 - gs8 fs4. r8 e e b' | % 20 - b1 | % 21 - b8 ( fs ) fs4 r2 | % 22 - b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 23 - gs4 a8 gs ~ gs fs4. | % 24 - a8 gs fs e ~ e ds4. | % 25 + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*13 | % 13-25 } \alternative { { - e1 | % 26 - R1 | % 27 - R1 | % 28 - R1 | % 29 + s1*4 | % 26-29 } { - e1 \bar "||" % 30 + s1 \bar "||" % 30 } } % Outro -\mark \markup { \override #'(font-family . sans) { \box { C } } } + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*6 \bar "|." % 31-36 +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ + % Intro + + R1*4 | % 1-4 + + % Verse + + gs4 b8 fs ~ fs4 gs | % 5 + e2 e8 fs gs a | % 6 + a2. r8 e | % 7 + e4 ds e fs | % 8 + gs4 b8 fs ~ fs4 gs | % 9 + e2 e8 fs gs a | % 10 + a1 | % 11 + gs4. ( fs8 ) fs2 | % 12 + + % Chorus + + gs2 a4 gs8 fs8 ~ | % 13 + fs2 r | % 14 + gs4 b a gs8 fs ~ | % 15 + fs2 r4 e8 b' | % 16 + b1 | % 17 + b8 ( fs ) fs4 r2 | % 18 + b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 19 + gs8 fs4. r8 e e b' | % 20 + b1 | % 21 + b8 ( fs ) fs4 r2 | % 22 + b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 23 + gs4 a8 gs ~ gs fs4. | % 24 + a8 gs fs e ~ e ds4. | % 25 + + e1 | % 26 + R1 | % 27 + R1 | % 28 + R1 | % 29 + + e1 | % 30 + + % Outro a8 gs fs e ~ e ds4. | % 31 e2 r2 | % 32 a8 gs fs e ~ e ds4. | % 33 e2 r2 | % 34 R1 | % 35 - r1^\fermata \bar "|." % 36 + r1^\fermata | % 36 } + LeadVoxText = \lyricmode { Pu- ri- fy _ my heart, let me be as gold @@ -131,12 +148,8 @@ LeadVoxTextB = \lyricmode % % Chord names % - Chords = \chordmode { -%Bah, can't we set this globally? -% \popChords - % Intro e4. e8:sus4 s2 | % 1 @@ -144,47 +157,39 @@ Chords = \chordmode e4. e8:sus4 s2 | % 3 e1 | % 4 - \repeat volta 2 - { - % Verse - - e4. b8/ds s2 | % 5 - cs1:m | % 6 - fs1:m7 | % 7 - e4/b b a/b b | % 8 - e4. b8/ds s2 | % 9 - cs1:m | % 10 - fs1:m7 | % 11 - e4./b b8 s2 | % 12 - - % Chorus - - e2 a4. b8 | % 13 - s1 | % 14 - e2 a4. b8 | % 15 - s1 | % 16 - e1 | % 17 - b1 | % 18 - e4./gs a2 e8/b | % 19 - s8 b2.. | % 20 - e1 | % 21 - b1 | % 22 - e4./gs a2 e8/b | % 23 - s4. b2 s8 | % 24 - fs4.:m b4:sus4 b4. | % 25 - } - \alternative - { - { - e4. e8:sus4 s2 | % 26 - e4. e8:sus4 s2 | % 27 - e4. e8:sus4 s2 | % 28 - e1 | % 29 - } - { - cs1:m | % 30 - } - } + % Verse + + e4. b8/ds s2 | % 5 + cs1:m | % 6 + fs1:m7 | % 7 + e4/b b a/b b | % 8 + e4. b8/ds s2 | % 9 + cs1:m | % 10 + fs1:m7 | % 11 + e4./b b8 s2 | % 12 + + % Chorus + + e2 a4. b8 | % 13 + s1 | % 14 + e2 a4. b8 | % 15 + s1 | % 16 + e1 | % 17 + b1 | % 18 + e4./gs a2 e8/b | % 19 + s8 b2.. | % 20 + e1 | % 21 + b1 | % 22 + e4./gs a2 e8/b | % 23 + s4. b2 s8 | % 24 + fs4.:m b4:sus4 b4. | % 25 + + e4. e8:sus4 s2 | % 26 + e4. e8:sus4 s2 | % 27 + e4. e8:sus4 s2 | % 28 + e1 | % 29 + + cs1:m | % 30 % Outro @@ -200,16 +205,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... - StaffC = \relative c { -% \set Voice.autoBeaming = ##f -% \set Staff.instrumentName = #"Rhythm" - \override Staff.TimeSignature #'style = #'() - \time 4/4 + \numericTimeSignature \override NoteHead #'style = #'slash % Intro @@ -217,49 +215,41 @@ StaffC = \relative c c4. c8 ~ c4 c | % 1 c4. c8 ~ c4 c | % 2 c4. c8 ~ c4 c | % 3 - c1 \bar "||:" % 4 - - \repeat volta 2 - { - % Verse - - c4. c8 ~ c4 c | % 5 - c4 c c c | % 6 - c4 c c c | % 7 - c4 c c c | % 8 - c4. c8 ~ c4 c | % 9 - c4 c c c | % 10 - c4 c c c | % 11 - c4. c8 ~ c4 c \bar "||" % 12 - - % Chorus - - c4 c c4. c8 ~ | % 13 - c4 c c c | % 14 - c4 c c4. c8 ~ | % 15 - c4 c c c | % 16 - c4 c c c | % 17 - c4 c c c | % 18 - c4. c8 ~ c4. c8 ~ | % 19 - c8 c4. ~ c4 c | % 20 - c4 c c c | % 21 - c4 c c c | % 22 - c4. c8 ~ c4. c8 ~ | % 23 - c4. c8 ~ c4 c | % 24 - c4. c8 ~ c c4. | % 25 - } - \alternative - { - { - c4. c8 ~ c4 c | % 26 - c4. c8 ~ c4 c | % 27 - c4. c8 ~ c4 c | % 28 - c1 | % 29 - } - { - c4 c c c | % 30 - } - } + c1 | % 4 + + % Verse + + c4. c8 ~ c4 c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4. c8 ~ c4 c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4. c8 ~ c4 c | % 12 + + % Chorus + + c4 c c4. c8 ~ | % 13 + c4 c c c | % 14 + c4 c c4. c8 ~ | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4. c8 ~ c4. c8 ~ | % 19 + c8 c4. ~ c4 c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4. c8 ~ c4. c8 ~ | % 23 + c4. c8 ~ c4 c | % 24 + c4. c8 ~ c c4. | % 25 + + c4. c8 ~ c4 c | % 26 + c4. c8 ~ c4 c | % 27 + c4. c8 ~ c4 c | % 28 + c1 | % 29 + + c4 c c c | % 30 % Outro @@ -268,23 +258,26 @@ StaffC = \relative c c4. c8 ~ c c4. | % 33 c4. c8 ~ c2 | % 34 c4. c8_\markup { \italic { rit. } } ~ c2 | % 35 - c1^\fermata \bar "|." % 36 + c1^\fermata | % 36 } \score { << + \Global % The "roadmap" that everything else depends on + + \context Staff << - \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Voice = "lead" \LeadVox \new Lyrics \lyricsto "lead" \LeadVoxText \new Lyrics \lyricsto "lead" \LeadVoxTextB >> - \new ChoirStaff = "Rhythm" + \new ChoirStaff << - \new ChordNames = "chords" \Chords - \new RhythmicStaff = "chordRhythm" \StaffC + \new ChordNames \Chords + \new RhythmicStaff \StaffC >> \set Score.skipBars = ##t @@ -295,11 +288,11 @@ StaffC = \relative c \paper { - #(define fonts (make-pango-font-tree - "Times New Roman" - "DomCasual BT" - "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 @@ -310,6 +303,5 @@ StaffC = \relative c % To find out what's eating the space at the top... % annotate-spacing = ##t -%let's try this: [It works! Huzzah!] - obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) } +