From 985d9c3a34b862ba15522b5f5aab2f4539dce6c1 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Mon, 31 Jul 2000 19:54:04 +0000
Subject: [PATCH] lilypond-1.3.76

---
 input/test/multistanza.ly | 146 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 146 insertions(+)
 create mode 100644 input/test/multistanza.ly

diff --git a/input/test/multistanza.ly b/input/test/multistanza.ly
new file mode 100644
index 0000000000..8defa2bf18
--- /dev/null
+++ b/input/test/multistanza.ly
@@ -0,0 +1,146 @@
+% Tests a number of features:
+% * Lyric_phrasing_engraver
+% * Stanza_number_engraver
+% * Automatic melismata on beamed notes
+
+\version "1.3.59";
+\include "english.ly"
+
+\header{
+    title = "Crowned with Honour";
+    composer = "Oliver Holden (1765-1844)";
+    poet = "Thomas Kelly (1769-1855)";
+}
+
+allup = \notes{
+	\property Voice.verticalDirection = \up
+	\property Voice.slurVerticalDirection = \up
+        \property Voice.tieVerticalDirection = \up
+	\property Voice.dynamicDirection = \up
+	\autoBeamOff
+}
+alldown = \notes{
+	\property Voice.verticalDirection = \down
+	\property Voice.slurVerticalDirection = \down
+        \property Voice.tieVerticalDirection = \down
+	\property Voice.dynamicDirection = \down
+	\autoBeamOff
+}
+
+Global =  \notes{
+        \key g \major;
+        \time 4/4;
+	\partial 4;
+}
+
+Soprano = \notes \relative c' {
+	\allup
+	d4 | g g b b a g a b a g b a g2.
+
+	a4 | b a g b [d16 d c8] [b a] b4 % modified to test beam melisma
+%	a4 | b a g b [d8 \melisma c] \melismaEnd [b \melisma a] \melismaEnd b4
+
+	d d2 d e d4( cs8 ~ )cs d2.
+
+	b4 | d b g b [a8  g]  [a b]  a4
+%	b4 | d b g b [a8 \melisma g] \melismaEnd [a \melisma b] \melismaEnd a4
+
+	g d'2 c b4.( c8 )a4 a g2.
+}
+Alto = \notes \relative c'{
+	\alldown
+	d4 | d d g g fs g fs g fs e g fs d2.
+	d4 | g d b g' [b8 a] [g fs] g4 fs g2 a g fs4( e8 )g fs2.
+	d4 | g g d g [fs8 e] [fs g] fs4 g f2 e d4.( d8 )d4 fs4 d2.
+}
+Tenor = \notes \relative c{
+	\allup
+	d4 | b' b d d c  b c  d c  b d c  b2.
+	a4 | b a g b  [d8 c] [b a] b4 a  b2 c b  a   a2.
+	g4 | b d b d [c8  b] [c  d]  c4 b g2 g g4.( a8 [fs )a] c4 b2.
+}
+Bass = \notes \relative c{
+	\alldown
+	d4 | g g g g d d d g d e d d g,2.
+	d'4 | g d b g' [b8 a] [g fs] g4 d g2 fs e a d,2.
+	g4 | g g g g d d d e b2 c d2. d4 g,2.
+}
+
+TheLyrics =  \lyrics <
+        {
+	    \context LyricVoice = "Soprano-1"
+	    \property LyricVoice .stanza = "1:"
+	    \property LyricVoice .stz = "(1)"
+	         The4 head    that once was crowned with thorns
+	         Is   crowned with glo -- ry  now;
+		 A roy -- al di -- a -- dem a -- dorns
+		 The might -- y Vic -- tor's  brow.
+		 A roy -- al di -- a -- dem a -- dorns
+		 The might -- y Vic -- tor's  brow.
+        }
+        {
+	    \context LyricVoice = "Soprano-2"
+	    \property LyricVoice .stanza = "2:"
+	    \property LyricVoice .stz = "(2)"
+	         The4 high -- est place that heav'n af -- fords
+	         Is His by sov -- 'reign  right;
+		 The King of kings, the Lord of lords,
+ 		 He reigns in glo -- ry  bright,
+		 The King of kings, the Lord of lords, 
+ 		 He reigns in glo -- ry  bright.
+        }
+        {
+	    \context LyricVoice = "Soprano-3"
+	    \property LyricVoice .stanza = "3:"
+	    \property LyricVoice .stz = "(3)"
+	         The joy of all who dwell a -- bove,
+	         The joy of saints be --  low,
+		 To4 whom He man -- i -- fests His love,
+		 And grants His name to  know,
+		 To4 whom He man -- i -- fests His love,
+		 And grants His name to4  know.
+        }
+>
+
+
+\score{
+  \context ChoirStaff
+    \notes
+    <
+      \property Score.barNumberScriptPadding = #10.0
+      \context Staff = "treblestaff"{
+        <
+	  \context Voice = "Soprano" { }
+	  \context Voice = "Alto" { }
+        >
+      }
+      \context Lyrics = mainlyrics { }
+      \context Staff = "treblestaff"{
+	<
+	  \Global
+	  \addlyrics { \context Voice = "Soprano" \Soprano }
+	    { \context Lyrics = mainlyrics \TheLyrics }
+	  \context Voice = "Alto"  \Alto
+        >
+	\bar "|.";
+      }
+      \context Staff = "bassstaff"{
+        \clef "bass";
+	<
+	  \context Voice = "Tenor" { \Tenor }
+	  \context Voice = "Bass"  { \Bass }
+	>
+        \bar "|.";
+      }
+    >
+
+   \paper {
+      \translator{
+	\VoiceContext
+	automaticMelismata = ##t;
+	noAutoBeaming = ##t;
+        \remove   "Auto_beam_engraver";
+      }
+
+   }
+}
-- 
2.39.5