From 5b978d8155ad5e883ecc09787c09955f12fd6d27 Mon Sep 17 00:00:00 2001
From: Graham Percival <graham@percival-music.ca>
Date: Thu, 19 Jun 2003 04:48:29 +0000
Subject: [PATCH] Added texinfo index.

---
 ChangeLog                        |  2 ++
 input/test/manual-clef.ly        | 17 ++++++++---------
 input/test/maximum-rest-count.ly | 10 ++++------
 input/test/mensural-ligatures.ly |  7 +++++--
 input/test/midi-scales.ly        |  1 +
 input/test/midi-tuplets.ly       |  2 +-
 input/test/mmrest-collision.ly   |  4 +++-
 input/test/move-accidentals.ly   |  9 ++++-----
 input/test/move-mark.ly          |  4 ++++
 input/test/move-notehead.ly      |  5 ++++-
 input/test/move-specific-text.ly |  4 ++++
 input/test/multi-slope.ly        |  4 ++--
 input/test/music-box.ly          | 16 +++++++---------
 input/test/music-creation.ly     | 15 ++++++++-------
 input/test/nested-groups.ly      |  9 +++++----
 input/test/no-bar-lines.ly       |  5 +++++
 input/test/no-staff.ly           |  7 ++++++-
 input/test/no-stem-extend.ly     |  8 ++++----
 input/test/note-shift.ly         |  2 +-
 input/test/notemode-chords.ly    |  4 ++--
 input/test/octave-duplicate.ly   |  4 ++--
 input/test/orchestalpart.ly      | 14 ++++++--------
 input/test/ossia.ly              |  9 +++++----
 23 files changed, 93 insertions(+), 69 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5f941fa2fe..37024ecc56 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -10,6 +10,8 @@
 
 	* input/test/note-chords.ly: renamed to chord-names-no-inversions.ly.
 
+	* input/test/[l-o]*.ly: added texidoc index.
+
 2003-06-17  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* scm/music-functions.scm (make-ottava-set): 
diff --git a/input/test/manual-clef.ly b/input/test/manual-clef.ly
index cd44e93be2..27c3b6ba41 100644
--- a/input/test/manual-clef.ly
+++ b/input/test/manual-clef.ly
@@ -1,11 +1,8 @@
 \version "1.7.18"
-
-
-%{
-
-Test clef engraver by setting \property directly. \clef is merely a front-end  to this.
-
-%}
+% possible rename to clef-manual-control
+\header{ texidoc = "@cindex Clef Manual Control
+You can use the clef engraver by setting \property directly.  \clef
+is merely a front-end to this. " }
 
 \score { \notes {
   \property Staff.clefGlyph = #"clefs-F"
@@ -21,8 +18,10 @@ Test clef engraver by setting \property directly. \clef is merely a front-end  t
 	\property Staff.clefOctavation = #0 
 	\property Staff.clefPosition = #0
   c'4
-	\clef "bla"
+	\clef "bass"
   c'4
 
-}}
+}
+	\paper{ raggedright = ##t }
+}
 %% new-chords-done %%
diff --git a/input/test/maximum-rest-count.ly b/input/test/maximum-rest-count.ly
index 6cb4f831b1..75e6bf62a6 100644
--- a/input/test/maximum-rest-count.ly
+++ b/input/test/maximum-rest-count.ly
@@ -1,6 +1,8 @@
 \version "1.7.18"
+% possible rename to rest-foo
 \header {
-    texidoc = "Control the number of rests in a collision   with maximum-rest-count."
+    texidoc = "@cindex Rest Collision Count
+Control the number of rests in a collision with maximum-rest-count."
 }
 
 \score{
@@ -36,10 +38,6 @@
 		r
 	}
 	>
-\paper{
-}
-\midi{
-\tempo 1 = 60
-}
+	\paper{ raggedright = ##t }
 }
 %% new-chords-done %%
diff --git a/input/test/mensural-ligatures.ly b/input/test/mensural-ligatures.ly
index 3da27b3f72..10a90eaaa8 100644
--- a/input/test/mensural-ligatures.ly
+++ b/input/test/mensural-ligatures.ly
@@ -1,6 +1,9 @@
 \version "1.7.19"
-\header {
-    title	= "mensural ligature test"
+% TODO:
+% check with ancient- stuff.  rename, merge, something.  -gp
+% check font size -- 26 looks too big, but need to ask.  -gp
+\header { texidoc = "@cindex Ancient Mensural Ligatures
+Lilypond can print mensural ligatures."
 }
 
 \include "paper26.ly"
diff --git a/input/test/midi-scales.ly b/input/test/midi-scales.ly
index 88773a515e..4819b40e05 100644
--- a/input/test/midi-scales.ly
+++ b/input/test/midi-scales.ly
@@ -1,4 +1,5 @@
 \version "1.7.18"
+% candidate for regression.  -gp
 \header {
 texidoc="MIDI and midi2ly test file.  Diff between this and midi2ly.py (experimental, 1.5.17) should be minimal"
 }
diff --git a/input/test/midi-tuplets.ly b/input/test/midi-tuplets.ly
index e149fb5637..d411b18fe6 100644
--- a/input/test/midi-tuplets.ly
+++ b/input/test/midi-tuplets.ly
@@ -1,5 +1,5 @@
 \version "1.7.18"
-
+% candidate for regression.  -gp
 \header {
 texidoc = "
 
diff --git a/input/test/mmrest-collision.ly b/input/test/mmrest-collision.ly
index be44ee3cde..f40a34cbf0 100644
--- a/input/test/mmrest-collision.ly
+++ b/input/test/mmrest-collision.ly
@@ -1,5 +1,6 @@
 \version "1.7.18"
-
+% candidate for regression.  -gp
+\header { texidoc = "" }
 \score {
   \context Staff \notes <
     \context Voice=i {
@@ -22,6 +23,7 @@
       \consists Multi_measure_rest_engraver
       \consists Bar_engraver
     }
+	raggedright = ##t
   }
 }
 %% new-chords-done %%
diff --git a/input/test/move-accidentals.ly b/input/test/move-accidentals.ly
index 72b2873488..a9f686cece 100644
--- a/input/test/move-accidentals.ly
+++ b/input/test/move-accidentals.ly
@@ -1,10 +1,9 @@
 \version "1.7.18"
-\header {
+% possible rename to scheme- or something like that.  -gp
+\header { texidoc= "@cindex Scheme Manual Accidentals
+Positions of accidentals may be manually set. This
+involves some scheme code. " }
 
-	 texidoc= "Positions of accidentals may be manually set. This
-involves some scheme code."
-
-}
 #(define (make-acc-position-checker pos)
   (lambda (elt)
    (and
diff --git a/input/test/move-mark.ly b/input/test/move-mark.ly
index 8aebfe880c..cd33b72bd6 100644
--- a/input/test/move-mark.ly
+++ b/input/test/move-mark.ly
@@ -1,4 +1,8 @@
 \version "1.7.18"
+% possible rename to scheme- or something like that.  -gp
+\header { texidoc = "@cindex Scheme Move Mark
+You can move objects around with scheme.  This example shows how to
+move marks around. " }
 
 \score{
 \context Staff \notes\relative c''{
diff --git a/input/test/move-notehead.ly b/input/test/move-notehead.ly
index 32d9e46d31..d9404c18da 100644
--- a/input/test/move-notehead.ly
+++ b/input/test/move-notehead.ly
@@ -1,5 +1,8 @@
 \version "1.7.18"
-
+% possible rename to scheme- or something like that.  -gp
+\header { texidoc = "@cindex Scheme Move Notehead
+You can move objects around with scheme.  This example shows how to
+move noteheads around. " }
 
 fragment = \notes {
     \outputproperty #(make-type-checker 'note-head-interface)
diff --git a/input/test/move-specific-text.ly b/input/test/move-specific-text.ly
index f1b9b68c4b..bb6332529c 100644
--- a/input/test/move-specific-text.ly
+++ b/input/test/move-specific-text.ly
@@ -1,4 +1,8 @@
 \version "1.7.18"
+% possible rename to scheme- or something like that.  -gp
+\header { texidoc = "@cindex Scheme Move Text
+You can move objects around with scheme.  This example shows how to
+move text around. " }
 
 #(define (make-text-checker text)
    (lambda (grob) (equal? text (ly:get-grob-property grob 'text))))
diff --git a/input/test/multi-slope.ly b/input/test/multi-slope.ly
index acc22f3b92..634c69c749 100644
--- a/input/test/multi-slope.ly
+++ b/input/test/multi-slope.ly
@@ -1,10 +1,10 @@
 \version "1.7.18"
-
+% candidate for delete or regression.  -gp
 \score { 
   \context Voice \notes\relative c {
     		 c8-[ c16 c16]
 	
   }
-  \paper { }  
+  \paper { raggedright = ##t}  
 }
 %% new-chords-done %%
diff --git a/input/test/music-box.ly b/input/test/music-box.ly
index aca2dc684f..1ba8b58c86 100644
--- a/input/test/music-box.ly
+++ b/input/test/music-box.ly
@@ -1,13 +1,11 @@
-
-\header{
-texidoc = "This example shows prelude in C major of WTK1, but coded
-using Scheme functions to save typing work.
-"
-
-}
-
-\include "deutsch.ly"
 \version "1.7.18"
+\include "deutsch.ly"
+% possible rename to scheme- something.  -gp
+% TODO: ask if it needs to have so many empty bars in the middle.  -gp
+\header{ texidoc = "@cindex Scheme Music Box
+This example shows prelude in C major of WTK1, but coded
+using Scheme functions to avoid typing work. " }
+
 
 #(define (transform music)
   (let* ((es (ly:get-mus-property music 'elements))
diff --git a/input/test/music-creation.ly b/input/test/music-creation.ly
index 9599d5f403..9b731a3330 100644
--- a/input/test/music-creation.ly
+++ b/input/test/music-creation.ly
@@ -1,10 +1,9 @@
 \version "1.7.18"  %% or actually: 1.7.1 ...
-\header {
-
- texidoc = "You can create music expressions from Scheme.  The
- mechanism for this is rather clumsy to use, so avoid if possible."
-
- }
+% possible rename to scheme- something.  -gp
+\header { texidoc = "@cindex Scheme Music Creation
+You can create music expressions from Scheme.  The
+mechanism for this is rather clumsy to use, so avoid it if possible. "
+}
 
 #(define (make-note-req p d)
    (let* ((ml (make-music-by-name 'NoteEvent)))
@@ -28,5 +27,7 @@ fooMusic  = #(seq-music-list
      (make-note (list (make-note-req (ly:make-pitch 1 1 0) (ly:make-duration 2 0)))))
      )
      
-\score { \fooMusic }
+\score { \fooMusic 
+\paper { raggedright = ##t }
+}
 %% new-chords-done %%
diff --git a/input/test/nested-groups.ly b/input/test/nested-groups.ly
index f2554cfe86..480ffaff73 100644
--- a/input/test/nested-groups.ly
+++ b/input/test/nested-groups.ly
@@ -1,9 +1,10 @@
 \version "1.7.18" 
 
-\header{
-texidoc="
-In InnerStaffGroup and InnerChoirStaff, the brackets should be shiftet leftwards.
-"
+\header{ texidoc="@cindex Nested Staff Groups
+Lilypond can print nested groups of staffs. "
+
+%   old texidoc; it sounds like a testing comment, rather than an "example" comment.
+%In InnerStaffGroup and InnerChoirStaff, the brackets should be shiftet leftwards.
 }
 
 \score { \notes
diff --git a/input/test/no-bar-lines.ly b/input/test/no-bar-lines.ly
index 1e4e99267e..d9e2f1f928 100644
--- a/input/test/no-bar-lines.ly
+++ b/input/test/no-bar-lines.ly
@@ -1,4 +1,9 @@
 \version "1.7.18"
+% possible rename to bar-lines-foo.  -gp
+
+\header{ texidoc = "@cindex Bar Lines Remove
+You can stop Lilypond from printing bar lines by removing the engraver. "
+}
 
 \score {
   \notes \relative c'' {
diff --git a/input/test/no-staff.ly b/input/test/no-staff.ly
index 80ca0dcf47..3ac30c3b63 100644
--- a/input/test/no-staff.ly
+++ b/input/test/no-staff.ly
@@ -1,7 +1,12 @@
 \version "1.7.18"
+% possible rename to staff-something.  -gp
+
+\header{ texidoc = "@cindex Staff Remove
+You can stop Lilypond from printing the staff by removing the engraver. "
+}
 
 \score {
-  \notes { c4 c4 c8 c8 }
+  \notes { c4 d4 e8 d8 }
   \paper {
     raggedright = ##t
     \translator {
diff --git a/input/test/no-stem-extend.ly b/input/test/no-stem-extend.ly
index ddacd4b6d3..202e41aae1 100644
--- a/input/test/no-stem-extend.ly
+++ b/input/test/no-stem-extend.ly
@@ -1,6 +1,7 @@
 \version "1.7.18"
-\header {
- texidoc = "Don't extend stems to cetner line."
+
+\header { texidoc = "@cindex No Stem Extend
+You can stop Lilypond from extending stems to the center line. "
 }
 
 \score { 
@@ -19,7 +20,6 @@
 	>
 	
   }
-  \paper { }  
-  \midi { }
+  \paper { raggedright = ##t}  
 }
 %% new-chords-done %%
diff --git a/input/test/note-shift.ly b/input/test/note-shift.ly
index 7c849a3712..2bc5023429 100644
--- a/input/test/note-shift.ly
+++ b/input/test/note-shift.ly
@@ -1,4 +1,5 @@
 \version "1.7.18"
+% pretty similar to hshift.ly.  Probably delete soon.
 
 \score { 
   \context Voice \notes\relative c {
@@ -30,6 +31,5 @@
   \paper {
     raggedright = ##t
   }  
-  \midi { }
 }
 %% new-chords-done %%
diff --git a/input/test/notemode-chords.ly b/input/test/notemode-chords.ly
index f18fd3d501..a61dc2ccfa 100644
--- a/input/test/notemode-chords.ly
+++ b/input/test/notemode-chords.ly
@@ -1,5 +1,5 @@
 \version "1.7.18"
-
+% looks like an old file; probably delete.
 
 \score{
 	\notes \transpose c c'{
@@ -8,6 +8,6 @@
 %		@c1@ @c-7@ @c-7^5@-1-3
 		\chords { c1 c:7 c:7^5 }
 	}
-
+	\paper { raggedright=##t}
 }
 %% new-chords-done %%
diff --git a/input/test/octave-duplicate.ly b/input/test/octave-duplicate.ly
index 0d6fac5866..677c95bd5f 100644
--- a/input/test/octave-duplicate.ly
+++ b/input/test/octave-duplicate.ly
@@ -1,6 +1,6 @@
 \version "1.7.18"
-\header {
-texidoc="Octave duplicate parts of music"
+\header { texidoc="@cindex Octave Doubling
+Octave doubling parts of music. "
 }
 
 upperOne = \notes\relative c'' {
diff --git a/input/test/orchestalpart.ly b/input/test/orchestalpart.ly
index 97447e3eb9..91b6765feb 100644
--- a/input/test/orchestalpart.ly
+++ b/input/test/orchestalpart.ly
@@ -1,12 +1,10 @@
 \version "1.7.18"
+% candidate for delete.  Nothing to see here.
 
-
-\score
-{
-	\notes { c1 c1 \property Score.skipBars = ##t c1 \break R1*8 c1 c1 c1 c1
-	}
-	\paper {
-
-	}
+\score {
+	\notes {
+		c1 c1 \property Score.skipBars = ##t c1 \break R1*8 c1 c1 c1 c1
+		}
+	\paper { raggedright = ##t }
 }
 %% new-chords-done %%
diff --git a/input/test/ossia.ly b/input/test/ossia.ly
index 494980c97f..a3c57f8b1b 100644
--- a/input/test/ossia.ly
+++ b/input/test/ossia.ly
@@ -1,9 +1,9 @@
 \version "1.7.18"
-\header {
-
-texidoc = "Ossias present alternatives for a piece. They are not
-really supported, but can be somewhat faked in lily."
+% pretty much a duplicate of extra-staff.ly. candidate for merge or delete. -gp
 
+\header { texidoc = "@cindex Ossia
+Ossias present alternatives for a piece. They are not
+really supported, but can be somewhat faked in lily. "
 }
 
 \score {
@@ -12,5 +12,6 @@ really supported, but can be somewhat faked in lily."
 	\context Staff = stb { c1 c1 }
 	>
 }
+	\paper {raggedright= ##t}
 }
 %% new-chords-done %%
-- 
2.39.2