]> Shamusworld >> Repos - music/blobdiff - creation-song.ly
New chart "Everlasting God".
[music] / creation-song.ly
index 4804a05bb379868ace40e0ea2276245d6387cb7b..64f1691cb85e5d74b8095971f046fa25b8b4e530 100644 (file)
@@ -12,14 +12,12 @@ 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 "Creation Song (Glory to the Lamb)" }
-%      composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
+       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Fernando Ortega" }
        arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "Arr. John Wierick/Ed Smart" }
        tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
 % Let's try a chord dictionary
-       subtitle = \markup { \center-column { G2 \fret-diagram-terse #"x;x;x;7;8;10;" } "     " \center-column { F2 \fret-diagram-terse #"x;x;x;5;6;8;" } }
+       subtitle = \markup { \center-column { \fret-diagram-terse #"x;x;x;7;8;10;" \override #'(font-family . sans) G2 } "     " \center-column { \fret-diagram-terse #"x;x;x;5;6;8;" \override #'(font-family . sans) F2 } }
 }
 
 % Useful tweak abbreviations (hn = harmony note)
@@ -37,7 +35,7 @@ hn = #(define-music-function (parser location arg) (ly:music?)
 Global =
 {
        \key g \major
-       \override Staff.TimeSignature #'style = #'()
+       \numericTimeSignature
        \time 6/4
 
        % Intro
@@ -120,7 +118,6 @@ Global =
 LeadVox = \relative c'
 {
        \clef G
-       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 
        % Intro
 
@@ -251,6 +248,7 @@ LeadVox = \relative c'
        s1. |   % 100
 }
 
+
 LeadVoxText = \lyricmode
 {
        He wraps him -- self in light
@@ -294,6 +292,7 @@ DescantText = \lyricmode
        _ _ and e -- ver and e -- ver _
 }
 
+
 %
 % Riffs
 %
@@ -332,9 +331,6 @@ Riffs = \relative c''
 %
 Chords = \chordmode
 {
-%Bah, can't we set this globally?
-%      \popChords
-
        % Intro
 
        g1.:sus2 |   % 1
@@ -474,8 +470,9 @@ Chords = \chordmode
 
 Rhythm =
 {
-       \override Staff.TimeSignature #'style = #'()
+       \numericTimeSignature
        \override NoteHead #'style = #'slash
+       \teeny
 
        % Intro
 
@@ -541,7 +538,7 @@ Rhythm =
        c4 c c c c c |   % 51
        c4 c c c c c |   % 52
 
-       s1. % for Coda spacing
+       \stopStaff s1. \startStaff % for Coda spacing
 
        % Coda
 
@@ -646,7 +643,7 @@ Dynamics =
 \score
 {
        <<
-               \Global                                         % The "roadmap" that everything else depends on
+               \Global         % The "roadmap" that everything else depends on
 
                \context Staff
                <<
@@ -674,7 +671,7 @@ Dynamics =
 {
        #(define fonts (make-pango-font-tree
                "Times New Roman"
-               "DomCasual BT"
+               "JazzText"
                "Luxi Mono"
                (/ staffSize 20)))
 
@@ -687,6 +684,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)
 }
+