X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=we-three-kings.ly;h=5745051a013d1fd8bbc749dc5c99985098ddab78;hb=bd3b595932c04f7eb329df944c474f89bce236af;hp=d82f5e8f4e1091468ee08cd816ca97a84809c8cc;hpb=6f8ca2d1ddc26dc34f0be9b733d6ef860005c06d;p=music diff --git a/we-three-kings.ly b/we-three-kings.ly index d82f5e8..5745051 100644 --- a/we-three-kings.ly +++ b/we-three-kings.ly @@ -1,37 +1,31 @@ -\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 "We Three Kings" } composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "John H. Hopkins, Jr." } arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } - tagline = "Engraved by JLH and Lilypond 2.8.6" + 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 \minor - \override Staff.TimeSignature #'style = #'() + \numericTimeSignature \time 3/4 -\override Score.SpacingSpanner #'average-spacing-wishes = ##f % Intro @@ -42,99 +36,133 @@ LeadVox = \relative c'' { % Interlude -\mark \markup { \override #'(font-family . sans) { \box { 1 } } } - - s2. | % 3 - r2. | % 4 - r2. | % 5 - r2. | % 6 - r2. | % 7 - r2. | % 8 - r2. | % 9 - r2. \bar "||" % 10 + \mark \markup { \override #'(font-family . sans) { \box { 1 } } } + s2.*8 \bar "||" % 3-10 -\break %bleh, only valid for size 16 +%\break %bleh, only valid for size 16 % Verse -\mark \markup { \override #'(font-family . sans) { \box { A } } } + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s2.*8 \bar "||" % 11-18 - b2 a4 | % 11 - g2 e4 | % 12 - fs4 g fs | % 13 - e2. | % 14 - b'2 a4 | % 15 - g2 e4 | % 16 - fs4 ( g ) fs | % 17 - e2. \bar "||" % 18 + s2.*2 | % 19-20 - g2 g4 | % 19 - a2 a4 | % 20 +%\break %bleh, only valid for size 16 -\break %bleh, only valid for size 16 - - b2 b4 | % 21 - d4 ( c ) b | % 22 - a4 b a | % 23 - g2 fs4 | % 24 - e2. | % 25 - fs2. ( | % 26 - a2. ) \bar "||" % 27 + s2.*7 \bar "||" % 21-27 % Chorus -\mark \markup { \override #'(font-family . sans) { \box { B } } } + \mark \markup { \override #'(font-family . sans) { \box { B } } } - g2 g4 | % 28 - g2 d4 | % 29 + s2.*2 | % 28-29 -\break %bleh, only valid for size 16 +%\break %bleh, only valid for size 16 - g2 e4 | % 30 - g2 r4 | % 31 - g2 g4 | % 32 - g2 d4 | % 33 - g2 e4 | % 34 - g2. | % 35 - g2 g4 | % 36 - a2 b4 | % 37 - c2 b4 | % 38 - a2 b4 | % 39 + s2.*10 | % 30-39 -\break %bleh, only valid for size 16 +%\break %bleh, only valid for size 16 - g2 g4 | % 40 - g2 d4 | % 41 + s2.*2 | % 40-41 } \alternative { { - g2 e4 | % 42 - g2. | % 43 + s2.*2 | % 42-43 } { - g2. | % 44 + s2. | % 44 } } - e2. | % 45 + s2. | % 45 % Outro \repeat volta 2 { + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s2.*4 | % 46-49 + } -\mark \markup { \override #'(font-family . sans) { \box { C } } } + s2. \bar "|." % 50 +} - g2. | % 46 - r2. | % 47 - r2. | % 48 - r2. | % 49 - } - r2.-\fermata \bar "|." % 50 +% +% Lead vocal +% +LeadVox = \relative c'' +{ + % Intro + + s2.*2 | % 1-2 + + % Interlude + + s2. | % 3 + r2.*7 | % 4-10 + + % Verse + + b2 a4 | % 11 + g2 e4 | % 12 + fs4 g fs | % 13 + e2. | % 14 + b'2 a4 | % 15 + g2 e4 | % 16 + fs4 ( g ) fs | % 17 + e2. | % 18 + + g2 g4 | % 19 + a2 a4 | % 20 + + b2 b4 | % 21 + d4 ( c ) b | % 22 + a4 b a | % 23 + g2 fs4 | % 24 + e2. | % 25 + fs2. ( | % 26 + a2. ) | % 27 + + % Chorus + + g2 g4 | % 28 + g2 d4 | % 29 + + g2 e4 | % 30 + g2 r4 | % 31 + g2 g4 | % 32 + g2 d4 | % 33 + g2 e4 | % 34 + g2. | % 35 + g2 g4 | % 36 + a2 b4 | % 37 + c2 b4 | % 38 + a2 b4 | % 39 + + g2 g4 | % 40 + g2 d4 | % 41 + + g2 e4 | % 42 + g2. | % 43 + + g2. | % 44 + + e2. | % 45 + + % Outro + + g2. | % 46 + r2. | % 47 + r2. | % 48 + r2. | % 49 + + r2.-\fermata | % 50 } + LeadVoxText = \lyricmode { We three kings of O -- ri -- ent are @@ -170,12 +198,6 @@ LeadVoxTextC = \lyricmode Riffs = \relative c'' { - \clef G - \key e \minor - \override Staff.TimeSignature #'style = #'() - \time 3/4 -\override Score.SpacingSpanner #'average-spacing-wishes = ##f - % Intro \tiny @@ -189,82 +211,67 @@ Riffs = \relative c'' % % Chord names % - Chords = \chordmode { -%Bah, can't we set this globally? -% \popChords - % Intro s2. | % 1 s2. | % 2 - \repeat volta 3 - { - s8 e2:m7 s8 | % 3 - a2.:m9 | % 4 - s8 e2:m7 s8 | % 5 - c4.:9 b:7.5+.9- | % 6 - s8 e2:m7 s8 | % 7 - a2.:m9 | % 8 - s8 e2:m7 s8 | % 9 - c4.:9 b:7.5+.9- | % 10 - - e2.:m7 | % 11 - c2.:maj7 | % 12 - b2.:7.5+.9- | % 13 - e2.:m7 | % 14 - c2.:maj7 | % 15 - a2.:m7 | % 16 - b2.:7.5+.9- | % 17 - e4.:m7 d/fs | % 18 - - g2. | % 19 - d2. | % 20 - c2.:maj7 | % 21 - b2:m7 e4:m7 | % 22 - a2.:m7 | % 23 - b2.:7.5+.9- | % 24 - e2.:m7 | % 25 - d2. | % 26 - d2.:7 | % 27 - - g2. | % 28 - s2. | % 29 - c2.:maj7 | % 30 - g2. | % 31 - s2. | % 32 - s2. | % 33 - c2.:maj7 | % 34 - g4. d/fs | % 35 - e2.:m7 | % 36 - b4.:m7 e:m7 | % 37 - a2.:m7 | % 38 - b2.:7.5+.9- | % 39 - c2.:maj7 | % 40 - b2.:m7 | % 41 - } - \alternative - { - { - a2.:m7 | % 42 - g4. g/fs | % 43 - } - { - a2.:m7 | % 44 - } - } + s8 e2:m7 s8 | % 3 + a2.:m9 | % 4 + s8 e2:m7 s8 | % 5 + c4.:9 b:7.5+.9- | % 6 + s8 e2:m7 s8 | % 7 + a2.:m9 | % 8 + s8 e2:m7 s8 | % 9 + c4.:9 b:7.5+.9- | % 10 + + e2.:m7 | % 11 + c2.:maj7 | % 12 + b2.:7.5+.9- | % 13 + e2.:m7 | % 14 + c2.:maj7 | % 15 + a2.:m7 | % 16 + b2.:7.5+.9- | % 17 + e4.:m7 d/fs | % 18 + + g2. | % 19 + d2. | % 20 + c2.:maj7 | % 21 + b2:m7 e4:m7 | % 22 + a2.:m7 | % 23 + b2.:7.5+.9- | % 24 + e2.:m7 | % 25 + d2. | % 26 + d2.:7 | % 27 + + g2. | % 28 + s2. | % 29 + c2.:maj7 | % 30 + g2. | % 31 + s2. | % 32 + s2. | % 33 + c2.:maj7 | % 34 + g4. d/fs | % 35 + e2.:m7 | % 36 + b4.:m7 e:m7 | % 37 + a2.:m7 | % 38 + b2.:7.5+.9- | % 39 + c2.:maj7 | % 40 + b2.:m7 | % 41 + + a2.:m7 | % 42 + g4. g/fs | % 43 + + a2.:m7 | % 44 a2.:m7/d | % 45 - \repeat volta 2 - { - s8 g2 s8 | % 46 - c2.:maj7 | % 47 - s8 g2 s8 | % 48 - c2.:maj7 | % 49 - } + s8 g2 s8 | % 46 + c2.:maj7 | % 47 + s8 g2 s8 | % 48 + c2.:maj7 | % 49 g2. | % 50 } @@ -273,90 +280,74 @@ 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 3/4 + \numericTimeSignature \override NoteHead #'style = #'slash + \teeny % Intro r2. | % 1 r2. | % 2 - \repeat volta 3 - { - r8 c4.-> c4-^ | % 3 - c2. | % 4 - r8 c4.-> c4-^ | % 5 - c4. c | % 6 - r8 c4.-> c4-^ | % 7 - c2. | % 8 - r8 c4.-> c4-^ | % 9 - c4. c \bar "||" % 10 - - c2. | % 11 - c2. | % 12 - c2. | % 13 - c2. | % 14 - c2. | % 15 - c2. | % 16 - c2. | % 17 - c4. c \bar "||" % 18 - - c2. | % 19 - c2. | % 20 - c2. | % 21 - c2 c4 | % 22 - c2. | % 23 - c2. | % 24 - c2. | % 25 - c2.-> | % 26 - c4 c c \bar "||" % 27 - - c4 c c | % 28 - c4 c c | % 29 - c4 c c | % 30 - c4 c c | % 31 - c4 c c | % 32 - c4 c c | % 33 - c4 c c | % 34 - c4. c | % 35 - c4 c c | % 36 - c4. c | % 37 - c4 c c | % 38 - c4 c c | % 39 - c4 c c | % 40 - c4 c c | % 41 - } - \alternative - { - { - c4 c c | % 42 - c4. c | % 43 - } - { - c4 c c | % 44 - } - } + r8 c4.-> c4-^ | % 3 + c2. | % 4 + r8 c4.-> c4-^ | % 5 + c4. c | % 6 + r8 c4.-> c4-^ | % 7 + c2. | % 8 + r8 c4.-> c4-^ | % 9 + c4. c | % 10 + + c2. | % 11 + c2. | % 12 + c2. | % 13 + c2. | % 14 + c2. | % 15 + c2. | % 16 + c2. | % 17 + c4. c | % 18 + + c2. | % 19 + c2. | % 20 + c2. | % 21 + c2 c4 | % 22 + c2. | % 23 + c2. | % 24 + c2. | % 25 + c2.-> | % 26 + c4 c c | % 27 + + c4 c c | % 28 + c4 c c | % 29 + c4 c c | % 30 + c4 c c | % 31 + c4 c c | % 32 + c4 c c | % 33 + c4 c c | % 34 + c4. c | % 35 + c4 c c | % 36 + c4. c | % 37 + c4 c c | % 38 + c4 c c | % 39 + c4 c c | % 40 + c4 c c | % 41 + + c4 c c | % 42 + c4. c | % 43 + + c4 c c | % 44 c4 c c | % 45 - \repeat volta 2 - { - r8 c4.-> c4-^ | % 46 - c2. | % 47 - r8 c4.-> c4-^ | % 48 - c2. | % 49 - } - c2.-\fermata \bar "|." % 50 + r8 c4.-> c4-^ | % 46 + c2. | % 47 + r8 c4.-> c4-^ | % 48 + c2. | % 49 + + c2.-\fermata | % 50 } @@ -375,40 +366,45 @@ Dynamics = \score { << + \Global % The "roadmap" that everything else depends on + + \context Staff << -% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } - \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Voice = "lead" \LeadVox + \new Voice = "riffs" \Riffs \new Lyrics \lyricsto "lead" \LeadVoxText \new Lyrics \lyricsto "lead" \LeadVoxTextB \new Lyrics \lyricsto "lead" \LeadVoxTextC >> - \new ChoirStaff = "Rhythm" + \new ChoirStaff << - \new ChordNames = "chords" \Chords - \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + \new ChordNames \Chords + \new RhythmicStaff << \StaffC \Dynamics >> >> \set Score.skipBars = ##t \set Score.melismaBusyProperties = #'() >> - - \layout - { -% \context { \Staff \RemoveEmptyStaves } -% ragged-last-bottom = ##t -% ragged-last = ##t - } } \paper { - #(define fonts (make-pango-font-tree - "Times New Roman" - "DomCasual BT" - "Luxi Mono" - (/ staffSize 20))) - -% top-margin = -0.25 \in + #(define fonts (make-pango-font-tree + "Times New Roman" + "LilyJAZZText" + "Luxi Mono" + (/ staffSize 20))) + +% Don't 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 + +% To find out what's eating the space at the top... +% annotate-spacing = ##t } +