X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=create-in-me-a-clean-heart.ly;h=17caef316f9f2b7835d6999596421b4b4fddceb2;hb=bd3b595932c04f7eb329df944c474f89bce236af;hp=19aed0a5b48abf934fe5c53c08165ef850642dad;hpb=6f8ca2d1ddc26dc34f0be9b733d6ef860005c06d;p=music diff --git a/create-in-me-a-clean-heart.ly b/create-in-me-a-clean-heart.ly index 19aed0a..17caef3 100644 --- a/create-in-me-a-clean-heart.ly +++ b/create-in-me-a-clean-heart.ly @@ -2,8 +2,8 @@ \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)) @@ -12,8 +12,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 "Create In Me A Clean Heart" } % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } @@ -22,76 +20,105 @@ staffSize = #16 % -% Lead vocal +% Song's structure % - -LeadVox = \relative c' +Global = { -% \set Voice.autoBeaming = ##f -% \set Staff.instrument = #"Lead vox" \clef G \key g \major - \override Staff.TimeSignature #'style = #'() + \numericTimeSignature \time 4/4 -\override Score.SpacingSpanner #'average-spacing-wishes = ##f % Intro - R1^\markup { 8th note ballad, s. stick & colors } | % 1 - R1 | % 2 - R1 | % 3 - r2 r4. d8 \bar "||" % 4 + s1^\markup { 8th note ballad, s. stick & colors } | % 1 + s1*3 \bar "||" % 2-4 % Verse -\once \override Score.RehearsalMark #'self-alignment-X = #left -\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } - g8 g g g fs4 d8 ( fs | % 5 - e4 ) e16 ( d e8 ) d4 r | % 6 - r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 7 - g2 r4. d8 | % 8 - g8 g g g fs4 d8 ( fs | % 9 - e4 ) e16 ( d e8 ) d4 r | % 10 - r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 11 - g2 r \bar "||:" % 12 + s1*8 \bar ".|:-||" % 5-12 % Chorus \repeat volta 3 { -\mark \markup { \override #'(font-family . sans) { \box { B } } } - - c8.^\markup { \italic { 2nd time snare } } c16 c8 b a4 g8 a | % 13 - b8 b4 a16 ( g ) g4 r8 g | % 14 - c4 c8 b a a a16 g a8 | % 15 - b2 r4. g8 | % 16 - c4. b16 ( a ) a4. r16 g | % 17 - b8. c16 b8 a g e ~ e4 | % 18 - r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 19 + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s8.^\markup { \italic { 2nd time snare } } s16 s2. | % 13 + s1*6 | % 14-19 } \alternative { { - g2 r | % 20 - r2 r4.^\markup { \hspace #0.0 \raise #0.65 \bold D.S. } d8 \bar "||" % 21 + s1 | % 20 + s2.. s8^\markup { \hspace #0.0 \raise #0.65 \bold D.S. } \bar "||" % 21 } { - g2 r | % 22 + s1 | % 22 } { - g2 r | % 23 + s1 | % 23 } } % Ending + s1*4 \bar "|." % 24-27 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + % Intro + + R1 | % 1 + R1 | % 2 + R1 | % 3 + r2 r4. d8 | % 4 + + % Verse + + g8 g g g fs4 d8 ( fs | % 5 + e4 ) e16 ( d e8 ) d4 r | % 6 + r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 7 + g2 r4. d8 | % 8 + g8 g g g fs4 d8 ( fs | % 9 + e4 ) e16 ( d e8 ) d4 r | % 10 + r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 11 + g2 r | % 12 + + % Chorus + + c8. c16 c8 b a4 g8 a | % 13 + b8 b4 a16 ( g ) g4 r8 g | % 14 + c4 c8 b a a a16 g a8 | % 15 + b2 r4. g8 | % 16 + c4 c8 b16 ( a ) a4. r16 g | % 17 + b8. c16 b8 a g e ~ e4 | % 18 + r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 19 + + g2 r | % 20 + r2 r4. d8 | % 21 + + g2 r | % 22 + + g2 r | % 23 + + % Ending + r8 g16 g g a g8 fs fs fs16 a ( g8 ) | % 24 g2 r | % 25 r8 g16 g g a g8 fs fs fs16 a ( g8 ) | % 26 - g1^\fermata \bar "|." % 27 + g1^\fermata | % 27 } + LeadVoxText = \lyricmode { Cre -- ate in me a clean heart __ _ _ O __ _ _ God @@ -101,7 +128,7 @@ LeadVoxText = \lyricmode Cast me not a -- way from your pre -- sence O _ Lord And take not your Ho -- ly Spi -- rit from me - Re -- store to _ me the joy of your sal -- va -- tion _ + Re -- store un -- to _ me the joy of your sal -- va -- tion _ And re -- new a right spi -- rit wi -- thin _ me Cre -- @@ -116,12 +143,8 @@ LeadVoxText = \lyricmode % % Chord names % - Chords = \chordmode { -%Bah, can't we set this globally? -% \popChords - % Intro g2 d/g | % 1 @@ -142,29 +165,20 @@ Chords = \chordmode % Chorus - \repeat volta 3 - { - c2 d/c | % 13 - b2:m7 e:m7 | % 14 - a2:m7 d | % 15 - g1:maj7 | % 16 - fs2:m7.5- b:7.9- | % 17 - e4:m7 e:m7/d c:maj7 g/b | % 18 - a2:m7 d | % 19 - } - \alternative - { - { - g2 d/g | % 20 - c2/g d/g | % 21 - } - { - g2 g8. a:m7 g8/b | % 22 - } - { - g2 b:m7 | % 23 - } - } + c2 d/c | % 13 + b2:m7 e:m7 | % 14 + a2:m7 d | % 15 + g1:maj7 | % 16 + fs2:m7.5- b:7.9- | % 17 + e4:m7 e:m7/d c:maj7 g/b | % 18 + a2:m7 d | % 19 + + g2 d/g | % 20 + c2/g d/g | % 21 + + g2 g8. a:m7 g8/b | % 22 + + g2 b:m7 | % 23 % Ending @@ -178,24 +192,18 @@ 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.instrument = #"Rhythm" - \override Staff.TimeSignature #'style = #'() - \time 4/4 + \numericTimeSignature \override NoteHead #'style = #'slash + \teeny % Intro c4_\mp c c c | % 1 c4 c c c | % 2 c4 c c c | % 3 - c4 c c c \bar "||" % 4 + c4 c c c | % 4 % Verse @@ -206,75 +214,73 @@ StaffC = \relative c c4 c c c | % 9 c4 c c c | % 10 c4 c c c | % 11 - c4 c c8.-> c16-> \< ~ c8 c \! \bar "||:" % 12 + c4 c c8.-> c16-> \< ~ c8 c \! | % 12 % Chorus - \repeat volta 3 - { - c4_\mf c c c | % 13 - c4 c c c | % 14 - c4 c c c | % 15 - c4 c c c | % 16 - c4 c c c | % 17 - c4 c c c | % 18 - c4 c c c | % 19 - } - \alternative - { - { - c4 c c c | % 20 - c4 c c c \bar "||" % 21 - } - { - c4 c c8.-> c16-> \< ~ c8 c \! | % 22 - } - { - c4 c c c | % 23 - } - } + c4_\mf c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + + c4 c c c | % 20 + c4 c c c \bar "||" % 21 + + c4 c c8.-> c16-> \< ~ c8 c \! | % 22 + + c4 c c c | % 23 % Ending c4 c c c | % 24 c4 c c c | % 25 c2 c_\markup { \italic { rit. } } | % 26 - c1^\fermata \bar "|." % 27 + c1^\fermata | % 27 } \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 ChoirStaff = "Rhythm" + \new ChoirStaff << - \new ChordNames = "chords" \Chords - \new RhythmicStaff = "chordRhythm" \StaffC + \new ChordNames \Chords + \new RhythmicStaff \StaffC >> \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))) + #(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 } +