]> Shamusworld >> Repos - music/blobdiff - great-is-the-lord.ly
New charts "How Great Thou Art" and "In The Garden".
[music] / great-is-the-lord.ly
old mode 100755 (executable)
new mode 100644 (file)
index 50707ca..93e703a
@@ -24,13 +24,13 @@ staffSize = #20
 %\r
 Global =\r
 {\r
-       \override Staff.TimeSignature #'style = #'()\r
+       \numericTimeSignature\r
        \key c \major\r
        \time 6/8\r
 \r
        % Intro\r
 \r
-       s2.*4 \bar "||:"   % 1-4\r
+       s2.*4 \bar ".|:-||"   % 1-4\r
 \r
        \repeat volta 2\r
        {\r
@@ -65,20 +65,13 @@ Global =
 %\r
 % Lead vocal\r
 %\r
-\r
 LeadVox = \relative c'\r
 {\r
-%      \set Staff.instrument = #"Lead vox"\r
-%      \override Staff.TimeSignature #'style = #'()\r
        \clef G\r
-       \override Score.SpacingSpanner #'average-spacing-wishes = ##f\r
 \r
        % Intro\r
 \r
-       R2. |   % 1\r
-       R2. |   % 2\r
-       R2. |   % 3\r
-       R2. \bar "||:"   % 4\r
+       R2.*4 \bar "||:"   % 1-4\r
 \r
        % A section\r
 \r
@@ -147,16 +140,9 @@ LeadVoxText = \lyricmode
 %\r
 % Riffs\r
 %\r
-\r
 Riffs = \relative c'''\r
 {\r
-%      \set Voice.autoBeaming = ##f\r
-%      \set Staff.instrument = #"Lead vox"\r
-       \override Staff.TimeSignature #'style = #'()\r
        \clef G\r
-%      \key c \major\r
-%      \time 6/8\r
-%\override Score.SpacingSpanner #'average-spacing-wishes = ##f\r
 \r
        % Intro\r
 \r
@@ -206,12 +192,8 @@ Riffs = \relative c'''
 %\r
 % Chord names\r
 %\r
-\r
 Chords = \chordmode\r
 {\r
-%Bah, can't we set this globally?\r
-%      \popChords\r
-\r
        % Intro\r
 \r
        c2.:^3 |   % 1\r
@@ -260,15 +242,11 @@ Chords = \chordmode
 %\r
 % Chord rhythms\r
 %\r
-\r
-% Use a RhythmicStaff on the chords instead of this?\r
-% It almost works, but not quite. Doesn't collapse chords above to single notes...\r
-\r
 Rhythm = \relative c\r
 {\r
-%      \set Staff.instrument = #"Rhythm"\r
-       \override Staff.TimeSignature #'style = #'()\r
+       \numericTimeSignature\r
        \override NoteHead #'style = #'slash\r
+       \teeny\r
 \r
        % Intro\r
 \r
@@ -334,7 +312,7 @@ Dynamics =
 \score\r
 {\r
        <<\r
-               \Global                                         % The "roadmap" that everything else depends on\r
+               \Global         % The "roadmap" that everything else depends on\r
 \r
                \context Staff\r
                <<\r
@@ -354,10 +332,9 @@ Dynamics =
                }\r
                \Riffs\r
 \r
-               \new ChoirStaff = "Rhythm"\r
+               \new ChoirStaff\r
                <<\r
-%                      \new Staff = "riff" \RhythmB\r
-                       \new ChordNames = "chords" \Chords\r
+                       \new ChordNames \Chords\r
                        \new RhythmicStaff << \Rhythm \Dynamics >>\r
                >>\r
 \r
@@ -371,7 +348,7 @@ Dynamics =
 {\r
        #(define fonts (make-pango-font-tree\r
                "Times New Roman"\r
-               "DomCasual BT"\r
+               "JazzText"\r
                "Luxi Mono"\r
                (/ staffSize 20)))\r
 \r
@@ -384,6 +361,5 @@ Dynamics =
 \r
 % To find out what's eating the space at the top...\r
 %      annotate-spacing = ##t\r
-%let's try this: [It works! Huzzah!]\r
-       obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)\r
 }\r
+\r