]> Shamusworld >> Repos - music/blobdiff - joy-to-the-world+hark-the-herald.ly
Update to ensure charts work with latest version of Lilypond.
[music] / joy-to-the-world+hark-the-herald.ly
index f1530041dfa465c50bf7461ffdb1239703d5614c..c14e970bdac6cc4b5b688fdb246acb543ddfc140 100644 (file)
@@ -1,8 +1,8 @@
-\version "2.16.0"
+\version "2.19.0"
 \include "pop-chords.ly"
 \include "english.ly"
 
-% Good sizes are 16, 18, & 20
+% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
 staffSize = #16
 #(set-default-paper-size "letter")
 #(set-global-staff-size staffSize)
@@ -10,8 +10,6 @@ staffSize = #16
 
 \header
 {
-%Let's bump up the title size and switch to the chord font. :-)
-
        title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Joy To The World / Hark The Herald Angels Sing" }
        composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "George Friedrich Handel/Felix Mendelssohn" }
        arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Craig Harris" }
@@ -20,59 +18,35 @@ staffSize = #16
 
 
 %
-% Lead vocal
+% Song's structure
 %
-
-LeadVox = \relative c''
+Global =
 {
-%      \set Voice.autoBeaming = ##f
-%      \set Staff.instrumentName = #"Lead vox"
        \clef G
        \key d \major
-       \override Staff.TimeSignature #'style = #'()
+       \numericTimeSignature
        \time 4/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
 
        % Intro
 
-       s1 |   % 1
-       s1 |   % 2
-       s1 |   % 3
-       s1 |   % 4
-       s1 |   % 5
-       s1 |   % 6
-       s1 |   % 7
-       s1 \bar "||:"   % 8
+       s1*8 \bar ".|:-||"   % 1-8
 
        \repeat volta 2
        {
                % Verse
 
-\mark \markup { \override #'(font-family . sans) { \box { A } } }
-
-               d4 cs8. b16 a4. g8 |   % 9
-               fs4 e d4. a'8 |   % 10
-               b4. b8 cs4. cs8 |   % 11
-               d2.. d8 \bar "||"   % 12
+               \mark \markup { \override #'(font-family . sans) { \box { A } } }
+               s1*4 \bar "||"   % 9-12
 
-\mark \markup { \override #'(font-family . sans) { \box { A5 } } }
-
-               d8 ( cs ) b ( a ) a8. ( g16 fs8 ) d' |   % 13
-               d8 ( cs ) b ( a ) a8. ( g16 fs8 ) fs |   % 14
-               fs8 fs fs fs16 ( g ) a4. g16 ( fs ) |   % 15
-               e8 e e e16 ( fs ) g4. fs16 ( e ) |   % 16
-               d8 ( d'4 ) b8 a8. ( g16 fs8 ) g8 |   % 17
-
-               \time 2/4 fs4 e \time 4/4 |   % 18
-
-               \voiceThree d2 \oneVoice s2 |   % 19
-               s1 |   % 20
+               \mark \markup { \override #'(font-family . sans) { \box { A5 } } }
+               s1*5 |   % 13-17
+               \time 2/4 s2 \time 4/4 |   % 18
+               s1*2 |   % 19-20
        }
        \alternative
        {
                {
-                       s1 |   % 21
-                       s1 |   % 22
+                       s1*2 |   % 21-22
                }
                {
                        s1 |   % 23
@@ -83,28 +57,15 @@ LeadVox = \relative c''
 
        \key ef \major
 
-\mark \markup { \override #'(font-family . sans) { \box { B } } }
+       \mark \markup { \override #'(font-family . sans) { \box { B } } }
 
-       ef'4 d8. c16 bf4. af8 |   % 25
-       g4 f ef4. bf'8 |   % 26
-       c4. c8 d4. d8 |   % 27
-       ef2.. ef8 \bar "||"   % 28
+       s1*4 \bar "||"   % 25-28
 
-\mark \markup { \override #'(font-family . sans) { \box { B5 } } }
+       \mark \markup { \override #'(font-family . sans) { \box { B5 } } }
 
-       ef8 ( d ) c ( bf ) bf8. ( af16 g8 ) ef' |   % 29
-       ef8 ( d ) c ( bf ) bf8. ( af16 g8 ) g |   % 30
-       g8 g g g16 ( af ) bf4. af16 ( g ) |   % 31
-       f8 f f f16 ( g ) af4. g16 ( f ) |   % 32
-       ef8 ( ef'4 ) c8 bf8. ( af16 g8 ) af8 |   % 33
-       g4 f ef4. g16 ( f ) |   % 34
-       ef8 ( ef'4 ) c8 bf8. ( af16 g8 ) af8 |   % 35
-       g2 f \bar "||"   % 36
+       s1*8 \bar "||"   % 29-36
 
-       \voiceThree ef2 \oneVoice s2 |   % 37
-       s1 |   % 38
-       s1 |   % 39
-       s1 \bar "||"   % 40
+       s1*4 \bar "||"   % 37-40
 
        \key f \major
 
@@ -112,52 +73,118 @@ LeadVox = \relative c''
        {
                % Verse
 
-\mark \markup { \override #'(font-family . sans) { \box { C } } }
-
-               c4 f f4. e8 |   % 41
-               f4 a a ( g ) |   % 42
-               c4 c c4. bf8 |   % 43
-               a4 g a2 |   % 44
-               c,4 f f4. e8 |   % 45
-               f4 a a ( g ) |   % 46
-               c4 g g4. e8 |   % 47
-               e4 d c2 \bar "||"   % 48
-
-\mark \markup { \override #'(font-family . sans) { \box { C9 } } }
-
-               c'4 c c f, |   % 49
-               bf4 a a ( g ) |   % 50
-               c4 c c f, |   % 51
-               bf4 a a ( g ) |   % 52
-               d'4 d d c |   % 53
-               bf4 a bf2 |   % 54
-               g4 a8 ( bf ) c4. f,8 |   % 55
-               f4 g a2 |   % 56
-               d4. d8 d4 c |   % 57
-               bf4 a bf2 |   % 58
-               g4 a8 ( bf ) c4. f,8 |   % 59
+               \mark \markup { \override #'(font-family . sans) { \box { C } } }
+               s1*8 \bar "||"   % 48
+
+               \mark \markup { \override #'(font-family . sans) { \box { C9 } } }
+               s1*11 |   % 49-59
        }
        \alternative
        {
                {
-                       \time 2/4 f4 g \time 4/4 |   % 60
-                       f2 s2 |   % 61
-                       s1 |   % 62
+                       \time 2/4 s2 \time 4/4 |   % 60
+                       s1*2 |   % 61-62
                }
                {
-                       f4 g a2 |   % 63
+                       s1 |   % 63
                }
        }
 
+       s1*7 \bar "|."   % 64-70
+}
+
+
+%
+% Lead vocal
+%
+LeadVox = \relative c''
+{
+       \clef G
+
+       % Intro
+
+       s1*8 |   % 1-8
+
+       % Verse
+
+       d4 cs8. b16 a4. g8 |   % 9
+       fs4 e d4. a'8 |   % 10
+       b4. b8 cs4. cs8 |   % 11
+       d2.. d8 |   % 12
+
+       d8 ( cs ) b ( a ) a8. ( g16 fs8 ) d' |   % 13
+       d8 ( cs ) b ( a ) a8. ( g16 fs8 ) fs |   % 14
+       fs8 fs fs fs16 ( g ) a4. g16 ( fs ) |   % 15
+       e8 e e e16 ( fs ) g4. fs16 ( e ) |   % 16
+       d8 ( d'4 ) b8 a8. ( g16 fs8 ) g8 |   % 17
+
+       fs4 e |   % 18
+
+       \voiceThree d2 \oneVoice s2 |   % 19
+       s1 |   % 20
+
+       s1 |   % 21
+       s1 |   % 22
+
+       s1 |   % 23
+
+       s1 |   % 24
+
+       ef'4 d8. c16 bf4. af8 |   % 25
+       g4 f ef4. bf'8 |   % 26
+       c4. c8 d4. d8 |   % 27
+       ef2.. ef8 |   % 28
+
+       ef8 ( d ) c ( bf ) bf8. ( af16 g8 ) ef' |   % 29
+       ef8 ( d ) c ( bf ) bf8. ( af16 g8 ) g |   % 30
+       g8 g g g16 ( af ) bf4. af16 ( g ) |   % 31
+       f8 f f f16 ( g ) af4. g16 ( f ) |   % 32
+       ef8 ( ef'4 ) c8 bf8. ( af16 g8 ) af8 |   % 33
+       g4 f ef4. g16 ( f ) |   % 34
+       ef8 ( ef'4 ) c8 bf8. ( af16 g8 ) af8 |   % 35
+       g2 f |   % 36
+
+       \voiceThree ef2 \oneVoice s2 |   % 37
+       s1*3 |   % 38-40
+
+       % Verse
+
+       c4 f f4. e8 |   % 41
+       f4 a a ( g ) |   % 42
+       c4 c c4. bf8 |   % 43
+       a4 g a2 |   % 44
+       c,4 f f4. e8 |   % 45
+       f4 a a ( g ) |   % 46
+       c4 g g4. e8 |   % 47
+       e4 d c2 |   % 48
+
+       c'4 c c f, |   % 49
+       bf4 a a ( g ) |   % 50
+       c4 c c f, |   % 51
+       bf4 a a ( g ) |   % 52
+       d'4 d d c |   % 53
+       bf4 a bf2 |   % 54
+       g4 a8 ( bf ) c4. f,8 |   % 55
+       f4 g a2 |   % 56
+       d4. d8 d4 c |   % 57
+       bf4 a bf2 |   % 58
+       g4 a8 ( bf ) c4. f,8 |   % 59
+
+       f4 g |   % 60
+       f2 s2 |   % 61
+       s1 |   % 62
+
+       f4 g a2 |   % 63
+
        d4. d8 d4 c |   % 64
        bf4 a bf2 |   % 65
        g4 a8 bf c4. f,8 |   % 66
        f2 g |   % 67
        f2 s2 |   % 68
-       s1 |   % 69
-       s1 \bar "|."   % 70
+       s1*2 |   % 69-70
 }
 
+
 LeadVoxText = \lyricmode
 {
        Joy to the world! the Lord is come:
@@ -227,12 +254,6 @@ LeadVoxTextB = \lyricmode
 
 Riffs = \relative c'''
 {
-       \clef G
-       \key d \major
-       \override Staff.TimeSignature #'style = #'()
-       \time 4/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
-
        % Intro
 
        \tiny
@@ -275,7 +296,7 @@ Riffs = \relative c'''
 
        \voiceTwo c,4 \oneVoice f f4. e8 |   % 68
        f4 a a g |   % 69
-       f1-\fermata \bar "|."   % 70
+       f1-\fermata |   % 70
        \normalsize
 }
 
@@ -283,53 +304,41 @@ Riffs = \relative c'''
 %
 % Chord names
 %
-
 Chords = \chordmode
 {
-%Bah, can't we set this globally?
-%      \popChords
-
        % Intro
 
-       d1:5.9 |   % 1
+       d1:3.5.9 |   % 1
        s1 |   % 2
-       c1:5.9 |   % 3
+       c1:3.5.9 |   % 3
        s1 |   % 4
-       d1:5.9 |   % 5
+       d1:3.5.9 |   % 5
        s1 |   % 6
-       c2..:5.9 s16 g/a |   % 7
+       c2..:3.5.9 s16 g/a |   % 7
        s2 a |   % 8
 
-       \repeat volta 2
-       {
-               % Verse
+       % Verse
 
-               d4 a8./d g16/d d4. g8  |   % 9
-               d4/a a d2 |   % 10
-               g2 a |   % 11
-               b4:m s16 a8/cs d16 s2 |   % 12
+       d4 a8./d g16/d d4. g8  |   % 9
+       d4/a a d2 |   % 10
+       g2 a |   % 11
+       b4:m s16 a8/cs d16 s2 |   % 12
 
-               d4 g/d a8./d d16 s4 |   % 13
-               d4 g/d a8./d d16 s4 |   % 14
-               d2 s8. d16/fs s4 |   % 15
-               a2 s8. a16/cs s4 |   % 16
-               g4/b a/cs d g:maj7 |   % 17
+       d4 g/d a8./d d16 s4 |   % 13
+       d4 g/d a8./d d16 s4 |   % 14
+       d2 s8. d16/fs s4 |   % 15
+       a2 s8. a16/cs s4 |   % 16
+       g4/b a/cs d g:maj7 |   % 17
 
-               \time 2/4 d4/a a \time 4/4 |   % 18
+       d4/a a |   % 18
 
-               d1:5.9 |   % 19
-               s1 |   % 20
-       }
-       \alternative
-       {
-               {
-                       c2..:5.9 s16 g/a |   % 21
-                       s2 a |   % 22
-               }
-               {
-                       c2..:5.9 s16 af/bf |   % 23
-               }
-       }
+       d1:3.5.9 |   % 19
+       s1 |   % 20
+
+       c2..:3.5.9 s16 g/a |   % 21
+       s2 a |   % 22
+
+       c2..:3.5.9 s16 af/bf |   % 23
 
        s2 bf |   % 24
 
@@ -347,45 +356,37 @@ Chords = \chordmode
        ef4 af:maj7 g:m7 c:m7 |   % 35
        ef2/bf bf |   % 36
 
-       ef1:5.9 |   % 37
+       ef1:3.5.9 |   % 37
        s1 |   % 38
-       df2..:5.9 s16 bf/c |   % 39
+       df2..:3.5.9 s16 bf/c |   % 39
        s2 c |   % 40
 
-       \repeat volta 2
-       {
-               f2 g:m11 |   % 41
-               f2/a f4/c c |   % 42
-               f2/a bf |   % 43
-               f4/c c f2 |   % 44
-               f2 f/e |   % 45
-               d2:m7 g:9 |   % 46
-               a4:m g/b c2 |   % 47
-               c4/g g c2 |   % 48
-
-               f2. f4/a |   % 49
-               bf4 d:m7 f/c c/bf |   % 50
-               f2/a bf |   % 51
-               g2:m7 f4/c c |   % 52
-               bf2. d4:7.9- |   % 53
-               g4:m d:7.9- g2:m7 |   % 54
-               c4 c/bf f2/a |   % 55
-               f4/c c f2 |   % 56
-               bf2 d:aug/a |   % 57
-               g4:m7 d:7.9- g2:m7 |   % 58
-               c2/e f/a |   % 59
-       }
-       \alternative
-       {
-               {
-                       \time 2/4 f4/c c \time 4/4 |   % 60
-                       f2 g:m11 |   % 61
-                       f2/a f4/c c |   % 62
-               }
-               {
-                       f4/c c f2 |   % 63
-               }
-       }
+       f2 g:m11 |   % 41
+       f2/a f4/c c |   % 42
+       f2/a bf |   % 43
+       f4/c c f2 |   % 44
+       f2 f/e |   % 45
+       d2:m7 g:9 |   % 46
+       a4:m g/b c2 |   % 47
+       c4/g g c2 |   % 48
+
+       f2. f4/a |   % 49
+       bf4 d:m7 f/c c/bf |   % 50
+       f2/a bf |   % 51
+       g2:m7 f4/c c |   % 52
+       bf2. d4:7.9- |   % 53
+       g4:m d:7.9- g2:m7 |   % 54
+       c4 c/bf f2/a |   % 55
+       f4/c c f2 |   % 56
+       bf2 d:aug/a |   % 57
+       g4:m7 d:7.9- g2:m7 |   % 58
+       c2/e f/a |   % 59
+
+       f4/c c |   % 60
+       f2 g:m11 |   % 61
+       f2/a f4/c c |   % 62
+
+       f4/c c f2 |   % 63
 
        bf2 d:aug/a |   % 64
        g4:m7 d:7.9- g2:m7 |   % 65
@@ -400,17 +401,11 @@ 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
+       \teeny
 
        % Intro
 
@@ -421,45 +416,37 @@ StaffC = \relative c
        c4 c c c8. c16-> ~ |   % 5
        c1 |   % 6
        c4 c c c8. c16-> ~ |   % 7
-       c4 c c c \bar "||:"   % 8
+       c4 c c c |   % 8
 
-       \repeat volta 2
-       {
-               % Verse
+       % Verse
 
-               c4 c8. c16 c4. c8 |   % 9
-               c4 c c c |   % 10
-               c4 c c c |   % 11
-               c8.-> c16-^ ~ c c8-^ c16-> ~ c2 \bar "||"   % 12
+       c4 c8. c16 c4. c8 |   % 9
+       c4 c c c |   % 10
+       c4 c c c |   % 11
+       c8.-> c16-^ ~ c c8-^ c16-> ~ c2 |   % 12
 
-               c4 c c8. c16 ~ c4 |   % 13
-               c4 c c8. c16 ~ c4 |   % 14
-               c4-^ c-^ r8. c16-> ~ c4 |   % 15
-               c4-^ c-^ r8. c16-> ~ c4 |   % 16
-               c4 c c c |   % 17
+       c4 c c8. c16 ~ c4 |   % 13
+       c4 c c8. c16 ~ c4 |   % 14
+       c4-^ c-^ r8. c16-> ~ c4 |   % 15
+       c4-^ c-^ r8. c16-> ~ c4 |   % 16
+       c4 c c c |   % 17
 
-               \time 2/4 c4 c \time 4/4 |   % 18
+       c4 c |   % 18
 
-               c4 c c c8. c16 ~ |   % 19
-               c1 |   % 20
-       }
-       \alternative
-       {
-               {
-                       c4 c c c8. c16-> ~ |   % 21
-                       c4 c c c |   % 22
-               }
-               {
-                       c4 c c c8. c16-> ~ |   % 23
-               }
-       }
+       c4 c c c8. c16 ~ |   % 19
+       c1 |   % 20
+
+       c4 c c c8. c16-> ~ |   % 21
+       c4 c c c |   % 22
 
-       c4 c c c \bar "||"   % 24
+       c4 c c c8. c16-> ~ |   % 23
+
+       c4 c c c |   % 24
 
        c2.. c8 |   % 25
        c4 c c c |   % 26
        c4 c c c |   % 27
-       c8.-> c16-^ ~ c c8-^ c16-> ~ c2 \bar "||"   % 28
+       c8.-> c16-^ ~ c c8-^ c16-> ~ c2 |   % 28
 
        c4 c c8. c16 ~ c4 |   % 29
        c4 c c8. c16 ~ c4 |   % 30
@@ -468,47 +455,39 @@ StaffC = \relative c
        c4 c c c |   % 33
        c4 c c c |   % 34
        c4 c c c |   % 35
-       c2 c \bar "||"   % 36
+       c2 c |   % 36
 
        c4 c c c8. c16 ~ |   % 37
        c1 |   % 38
        c4 c c c8. c16 ~ |   % 39
-       c4 c c c \bar "||"   % 40
-
-       \repeat volta 2
-       {
-               c4 c c c |   % 41
-               c4 c c c |   % 42
-               c4 c c c |   % 43
-               c4 c c c |   % 44
-               c4 c c c |   % 45
-               c4 c c c |   % 46
-               c4 c c c |   % 47
-               c4 c c c \bar "||"   % 48
-
-               c2.-> c4-> |   % 49
-               c4 c c c |   % 50
-               c4 c c c |   % 51
-               c4 c c c |   % 52
-               c4 c c c |   % 53
-               c4 c c c |   % 54
-               c4 c c c |   % 55
-               c4 c c c |   % 56
-               c4 c c c |   % 57
-               c4 c c c |   % 58
-               c4 c c c |   % 59
-       }
-       \alternative
-       {
-               {
-                       \time 2/4 c4 c \time 4/4 |   % 60
-                       c4 c c c |   % 61
-                       c4 c c c |   % 62
-               }
-               {
-                       c4 c c c |   % 63
-               }
-       }
+       c4 c c c |   % 40
+
+       c4 c c c |   % 41
+       c4 c c c |   % 42
+       c4 c c c |   % 43
+       c4 c c c |   % 44
+       c4 c c c |   % 45
+       c4 c c c |   % 46
+       c4 c c c |   % 47
+       c4 c c c \bar "||"   % 48
+
+       c2.-> c4-> |   % 49
+       c4 c c c |   % 50
+       c4 c c c |   % 51
+       c4 c c c |   % 52
+       c4 c c c |   % 53
+       c4 c c c |   % 54
+       c4 c c c |   % 55
+       c4 c c c |   % 56
+       c4 c c c |   % 57
+       c4 c c c |   % 58
+       c4 c c c |   % 59
+
+       c4 c |   % 60
+       c4 c c c |   % 61
+       c4 c c c |   % 62
+
+       c4 c c c |   % 63
 
        c4 c c c |   % 64
        c4 c c c |   % 65
@@ -516,7 +495,7 @@ StaffC = \relative c
        c2 c |   % 67
        c4 c c c |   % 68
        c4 c c c |   % 69
-       c1-\fermata \bar "|."   % 70
+       c1-\fermata |   % 70
 }
 
 
@@ -543,39 +522,44 @@ 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 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
 }
+