X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=infant-holy-infant-lowly.ly;h=4b500d32c65faed5b4b1d49d2fe1a6391f1a9c99;hb=HEAD;hp=701f0342c18bc2a3104dfa9658d0412d3e8bf107;hpb=7add1480813db617ee22ba3276c5b61649445f50;p=music diff --git a/infant-holy-infant-lowly.ly b/infant-holy-infant-lowly.ly index 701f034..4b500d3 100644 --- a/infant-holy-infant-lowly.ly +++ b/infant-holy-infant-lowly.ly @@ -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 = #20 #(set-default-paper-size "letter") #(set-global-staff-size staffSize) @@ -12,14 +12,10 @@ staffSize = #20 \header { -%Let's bump up the title size and switch to the chord font. :-) - title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Infant Holy, Infant Lowly" } % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) -% Let's try a chord dictionary -% 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;" } } } % Useful tweak abbreviations (hn = harmony note) @@ -37,7 +33,7 @@ hn = #(define-music-function (parser location arg) (ly:music?) Global = { \key g \major - \override Staff.TimeSignature #'style = #'() + \numericTimeSignature \time 3/4 % \once \override TextScript #'padding = #2.0 @@ -93,16 +89,10 @@ Global = % LeadVox = \relative c' { -% \set Staff.instrument = #"Lead vox" \clef G - \override Staff.TimeSignature #'style = #'() -%Hm. Needed anymore? -% \override Score.SpacingSpanner #'average-spacing-wishes = ##f - \set tupletSpannerDuration = #(ly:make-moment 1 4) % Intro -%\partial 4*1 s4 | % 0 s2.*4 | % 1-4 s2 d8 d | % 5 @@ -146,17 +136,11 @@ LeadVox = \relative c' g8. g16 ~ g4 c8 b | % 36 a8. a16 ~ a4 b8 c | % 37 d4 c b8 a | % 38 - g2 s4 | % 39 + g2 r4 | % 39 % Solo - r2. | % 40 - r2. | % 41 - r2. | % 42 - r2. | % 43 - r2. | % 44 - r2. | % 45 - r2. | % 46 + R2.*7 | % 40-46 r2 g8 fs | % 47 % Refrain @@ -197,15 +181,11 @@ LeadVoxText = \lyricmode Riffs = \relative c' { -% \clef G -%Hm. Needed anymore? -% \override Score.SpacingSpanner #'average-spacing-wishes = ##f \set tupletSpannerDuration = #(ly:make-moment 1 4) % Intro \tiny - %\partial 1*4 8 | % 0 8. 16 ~ 4 8 | % 1 8. 16 ~ 4 8 | % 2 @@ -243,38 +223,37 @@ Chords = \chordmode { % Intro -%\partial 4*1 s4 | % 0 - c2.:5.9 | % 1 - d2.:5.9 | % 2 + c2.:3.5.9 | % 1 + d2.:3.5.9 | % 2 e2.:m7 | % 3 - d2.:5.9/fs | % 4 + d2.:3.5.9/fs | % 4 d2. | % 5 % Verse/Refrain g2. | % 6 d2. | % 7 - c2:5.9 d4 | % 8 + c2:3.5.9 d4 | % 8 g2 d4:7sus4 | % 9 g2. | % 10 - d2.:5.9/fs | % 11 + d2.:3.5.9/fs | % 11 a2:m7 d4 | % 12 g2. | % 13 - c2.:5.9 | % 14 - d2.:5.9 | % 15 + c2.:3.5.9 | % 14 + d2.:3.5.9 | % 15 e2.:m7 | % 16 - d2.:5.9/fs | % 17 + d2.:3.5.9/fs | % 17 a2:m7 g8/d d | % 18 g2. | % 19 % Midtro - c2.:5.9 | % 20 - d2.:5.9 | % 21 + c2.:3.5.9 | % 20 + d2.:3.5.9 | % 21 e2.:m7 | % 22 - d2.:5.9/fs | % 23 + d2.:3.5.9/fs | % 23 a2:m7 g8/d d | % 24 g2 d4:7sus4 | % 25 @@ -282,17 +261,17 @@ Chords = \chordmode g2. | % 26 d2. | % 27 - c2:5.9 d4 | % 28 + c2:3.5.9 d4 | % 28 g2 d4/fs | % 29 e2:m7 b4:m7 | % 30 a2:m7 d4 | % 31 - c2:5.9/e d4:5.9/fs | % 32 + c2:3.5.9/e d4:3.5.9/fs | % 32 g2. | % 33 - c2.:5.9 | % 34 - d2.:5.9 | % 35 + c2.:3.5.9 | % 34 + d2.:3.5.9 | % 35 e2.:m7 | % 36 - d2.:5.9/fs | % 37 + d2.:3.5.9/fs | % 37 a2:m7 g8/d d | % 38 g2 d4:7sus4 | % 39 @@ -300,18 +279,18 @@ Chords = \chordmode g2. | % 40 d2. | % 41 - c2:5.9 d4 | % 42 + c2:3.5.9 d4 | % 42 g2 d4/fs | % 43 e2:m7 b4:m7 | % 44 a2:m7 d4 | % 45 - c2:5.9/e d4:5.9/fs | % 46 + c2:3.5.9/e d4:3.5.9/fs | % 46 g2. | % 47 % Refrain - c2.:5.9 | % 48 - d2.:5.9 | % 49 - c2.:5.9/e | % 50 + c2.:3.5.9 | % 48 + d2.:3.5.9 | % 49 + c2.:3.5.9/e | % 50 f2.:maj7 | % 51 d2:sus4 b4:m7 | % 52 a2:m7 g8/d d | % 53 @@ -319,10 +298,10 @@ Chords = \chordmode % Outro - c2.:5.9 | % 55 - d2.:5.9 | % 56 - c2.:5.9/e | % 57 - f2:5.9 d4 | % 58 + c2.:3.5.9 | % 55 + d2.:3.5.9 | % 56 + c2.:3.5.9/e | % 57 + f2:3.5.9 d4 | % 58 a2:m7 g8/d d | % 59 g2. | % 60 } @@ -331,23 +310,16 @@ 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.instrument = #"Rhythm" - \override Staff.TimeSignature #'style = #'() + \numericTimeSignature \override NoteHead #'style = #'slash - -%Not small enough... +%Not small enough... (?) \teeny % \magnify #0.3 % Intro - \partial 4*1 s4 | % 0 c4 c c | % 1 c4 c c | % 2 @@ -449,35 +421,35 @@ Dynamics = \score { << + \Global % The "roadmap" that everything else depends on \set Score.skipBars = ##t \set Score.melismaBusyProperties = #'() -% \new Staff + \context Staff + << + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff << \new ChordNames \Chords %Capo 4 edition % \new ChordNames \transpose b g \Chords \new RhythmicStaff << \Rhythm \Dynamics >> >> - - \new Staff - << - \Global % The "roadmap" that everything else depends on - \new Voice = "lead" \LeadVox - \new Voice \Riffs - \new Lyrics \lyricsto "lead" \LeadVoxText - >> >> } \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 @@ -488,6 +460,5 @@ Dynamics = % 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) } +