From 2f8e7105b93e93be16f6cfa682a8cb8558dc5d51 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 10 Jun 2003 17:13:19 +0000
Subject: [PATCH] Add texidoc.

---
 ChangeLog                    |   2 +
 input/test/ac-extra-voice.ly | 103 ++++++++++++++---------------------
 2 files changed, 44 insertions(+), 61 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c80609f62e..9681a1f7d4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2003-06-10  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+	* input/ac-extra-voice.ly: Add texidoc.
+
 	* ly/chord-modifiers-init.ly: 
 	* ly/engraver-init.ly (ScoreContext): Add chordNameExceptionsFull
 	and chordNameExceptionsPartial for new chord names.
diff --git a/input/test/ac-extra-voice.ly b/input/test/ac-extra-voice.ly
index b6db8847c5..8d1e297890 100644
--- a/input/test/ac-extra-voice.ly
+++ b/input/test/ac-extra-voice.ly
@@ -1,78 +1,59 @@
 \version "1.7.18"
-%
-% TODO: what's this?
-%
-% I don't know what this example is supposed to do.  delete it?
-\header { texidoc="DELETE ME
-"}
 
-global =  \notes {
-	\key a \minor
-	\time 6/4
-%	\skip 1.*34
-%	\bar ".|"
+%% I don't know what this example is supposed to do.  delete it?
+%% It shows how to use the autochange feature together with an extra
+%% voice.  When I needed to typeset this example, I found it not trivial
+%% and dumped a piece of it here.  Move to refman?
+
+\header{
+    texidoc="When using automatic staff changes for the one voice, the
+other voice must be given a name explicitely."
 }
 
-melody =  \notes\relative c''{
-	r2 r r 
-	r2 r r
-	r4 a'8-- \< a--	a-- a-- c-- \!b-- a--\> gis f \!e 
-	es8 \grace b c r4 r2 r
+global = \notes{
+    \key a \minor
+    \time 6/4
 }
 
-basloopje =  \notes\relative c{
-	d,8(	a' d f a d f d a f d	a-)
+melody = \notes\relative c''{
+    r2 r r 
+    r2 r r
+    r4 a'8-- \< a-- a-- a-- c-- \!b-- a--\> gis f \!e 
+    es8 \grace b c r4 r2 r
 }
 
-accompany =  \notes \relative c{
-	\notes\relative c \basloopje
-	\notes\relative c \basloopje
-	\notes\relative c \basloopje
-	\notes\relative c \basloopje
+basloopje = \notes\relative c{
+    d,8( a' d f a d f d a f d a-)
 }
 
+accompany = \repeat unfold 4 \notes \relative c \basloopje
+
 \score{
-	\notes \context PianoStaff <
-		\context Staff=up < 
-			\global
-			\context Voice=foo {
-			\stemUp\slurUp\tieUp
-			\scriptUp
-			\melody 
-			}
-		>
-		\context Staff=down <
-			\global
-			\clef bass
-			\autochange Staff \context Voice \accompany
-		>
+    \notes \context PianoStaff<
+	\context Staff=up <
+	    \global
+	    \context Voice=foo{
+		\voiceOne
+		\melody 
+	    }
 	>
+	\context Staff=down<
+	    \global
+	    \clef bass
+	    \autochange Staff \context Voice \accompany
+	>
+    >
 
-	\paper {
-		indent = 8.\mm
-		textheight = 295.\mm
-
-		\translator{ 
-			\PianoStaffContext
-			defaultBarType = #"" 
-		}
-		\translator{ 
-			\StaffContext
-			% don't auto-generate bars: not a good idea: -> no breakpoints
-			% barAuto = "0"
-			% urg defaultBarType = #""
-			defaultBarType = #"" 
-			\remove "Time_signature_engraver"
-
-			Slur \override #'direction = #1
-
-			
-			autoBeamSettings \override #'(end * * * *)  = #(ly:make-moment 1 2)
-		}
-	}
-	\midi {
-		\tempo 4 = 54
+    \paper {
+	\translator{ 
+	    \StaffContext
+	    autoBeamSettings \override #'(end * * * *)
+	    = #(ly:make-moment 1 2)
 	}
+    }
+    \midi {
+	\tempo 4 = 54
+    }
 }
 
 %% new-chords-done %%
-- 
2.39.5