X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=creation-song.ly;h=64f1691cb85e5d74b8095971f046fa25b8b4e530;hb=HEAD;hp=058afd7051f25ad3606cfb429868cb3641b84043;hpb=d4413d5e258a1387025e91e1b5a805cb7c7723e6;p=music

diff --git a/creation-song.ly b/creation-song.ly
index 058afd7..64f1691 100644
--- a/creation-song.ly
+++ b/creation-song.ly
@@ -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
 %
@@ -471,8 +470,9 @@ Chords = \chordmode
 
 Rhythm =
 {
-	\override Staff.TimeSignature #'style = #'()
+	\numericTimeSignature
 	\override NoteHead #'style = #'slash
+	\teeny
 
 	% Intro
 
@@ -538,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
 
@@ -643,7 +643,7 @@ Dynamics =
 \score
 {
 	<<
-		\Global						% The "roadmap" that everything else depends on
+		\Global		% The "roadmap" that everything else depends on
 
 		\context Staff
 		<<
@@ -671,7 +671,7 @@ Dynamics =
 {
 	#(define fonts (make-pango-font-tree
 		"Times New Roman"
-		"DomCasual BT"
+		"JazzText"
 		"Luxi Mono"
 		(/ staffSize 20)))
 
@@ -684,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)
 }
+