add \header to some input/test/ files.

diff --git a/ChangeLog b/ChangeLog
index 052c45f4017eb7efed11e8f033e8095599a35e3b..ae0e8ef83c7cbb9a2d5dded3ecfd76e456b85742 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
+2002-10-07  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+       * input/test/{various}.ly: add \header fields and texidoc strings.
+
 2002-10-06  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+       * VERSION: 1.7.2 released
+
        * scripts/convert-ly.py (FatalConversionError.conv): add rule for
        (ly-make-music "Foo_bar") -> (make-music-by-name 'FooBarEvent).
 

diff --git a/Documentation/user/refman.itely b/Documentation/user/refman.itely
index a4724a34bf5d8a402cbfa1f33a2db4dc3a4eb807..d1b6dc5d9177fe94f9601dc7691b0816f3e55118 100644 (file)
--- a/Documentation/user/refman.itely
+++ b/Documentation/user/refman.itely
@@ -1991,9 +1991,12 @@ Unbeamed eighth notes and shorter by default have a slash through the
 stem. This can be controlled with object property @code{stroke-style} of
 @internalsref{Stem}. The change in formatting is accomplished by
 inserting @code{\startGraceMusic} before handling the grace notes, and
-@code{\stopGraceMusic} after finishing the grace notes. You can add to
-these definitions to globally change grace note formatting. The
-standard definitions are in @file{ly/grace-init.ly}.
+@code{\stopGraceMusic} after finishing the grace notes.
+You can add to these definitions to globally change grace note
+formatting. The standard definitions are in @file{ly/grace-init.ly}.
+
+[TODO discuss Scheme functionality.]
+
 
 Notice how the @code{\override} is carefully matched with a @code{\revert}.
 

diff --git a/input/regression/accidental-cautionary.ly b/input/regression/accidental-cautionary.ly
index 21eb95ad6d4a6796d2cb8ef8a1d7c6720ced75be..3980f84f02249a31c1b001f8aa173eac7dbb02b6 100644 (file)
--- a/input/regression/accidental-cautionary.ly
+++ b/input/regression/accidental-cautionary.ly
@@ -2,11 +2,14 @@
 \header {
 
 texidoc = "Cautionary accidentals are indicated using either
-smaller accidentals (default) or parentheses."
+smaller accidentals (default) or parentheses.
+
+"
 
 }
 
-\score { \notes {
+\score {
+    \notes {
     c''4
     cis''?4
     \property Staff.Accidental \override #'style = #'parentheses

diff --git a/input/regression/auto-beam-triplet.ly b/input/regression/auto-beam-triplet.ly
new file mode 100644 (file)
index 0000000..d48d74f
--- /dev/null
+++ b/input/regression/auto-beam-triplet.ly
@@ -0,0 +1,14 @@
+\header
+{
+texidoc = "Automatic beaming is also done on tuplets."
+}
+
+\version "1.5.68"
+
+\score{
+       \notes\relative c''{
+               c8 c c c
+               \times 4/6 { c c c c c c}
+       }
+       \paper{ }
+}

diff --git a/input/test/absolute-volume.ly b/input/test/absolute-volume.ly
index 07847440cac2cfbeb256a26da969ee6b6c1a010e..c39c8f80bf4db56e39e98f0740a7df11ef06e7c1 100644 (file)
--- a/input/test/absolute-volume.ly
+++ b/input/test/absolute-volume.ly
@@ -1,3 +1,7 @@
+\header {
+    texidoc = "Absolute dynamics have effect in MIDI files."
+}
+
 \version "1.5.68"
 
 \score{

diff --git a/input/test/accid.ly b/input/test/accid.ly
deleted file mode 100644 (file)
index d26f529..0000000
--- a/input/test/accid.ly
+++ /dev/null
@@ -1,48 +0,0 @@
-\version "1.5.68"
-
-\score { 
-  \context Voice \notes\relative c {
-    \time 3/4
-       \property Staff.Accidental \set #'style = #'default
-       cisis''^"Accidental style = \#'default" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \property Staff.Accidental \set #'style = #'hufnagel
-       cisis^"Accidental style = \#'hufnagel" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \property Staff.Accidental \set #'style = #'medicaea
-       cisis^"Accidental style = \#'medicaea" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \property Staff.Accidental \set #'style = #'vaticana
-       cisis^"Accidental style = \#'vaticana" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \property Staff.Accidental \set #'style = #'mensural
-       cisis^"Accidental style = \#'mensural" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       
-  }
-  \paper { }  
-  \midi { }
-}

diff --git a/input/test/accidental-spacing.ly b/input/test/accidental-spacing.ly
deleted file mode 100644 (file)
index 0362047..0000000
--- a/input/test/accidental-spacing.ly
+++ /dev/null
@@ -1,12 +0,0 @@
-\version "1.5.68"
-
-\score { 
-  \context Voice \notes\relative c {
-    c''4 c4 cis4 cis  [c8 c \clef "bass" f,, f]
-       
-  }
-  \paper {
-    linewidth=-1.0
-  }  
-  \midi { }
-}

diff --git a/input/test/ambitus.ly b/input/test/ambitus.ly
index 0c632e7dee56c117918fb1dd2d9d28798c895736..a3a6271732123b77347935ee58a36da6831a40ef 100644 (file)
--- a/input/test/ambitus.ly
+++ b/input/test/ambitus.ly
@@ -1,3 +1,7 @@
+\header {
+    texidoc = "Ambituses indicate pitch ranges for voices."
+}
+
 \version "1.5.68"
 
 upper = \notes \relative c {

diff --git a/input/test/american-chords.ly b/input/test/american-chords.ly
index 65b06126f65b61ed23f1eb7d707e9838ef1f0d33..d41428798e6ddc0e915e6e77f602ef77259b885d 100644 (file)
--- a/input/test/american-chords.ly
+++ b/input/test/american-chords.ly
@@ -1,9 +1,7 @@
 \version "1.5.68"
-
-%{
-  See scm/chord-names.scm: chord::names-alist-american
-  James Hammons <jlhamm@pacificnet.net>
-%}
+\header {
+    texidoc = "Chord names in american styles, according to one of our users."
+}
 
 \include "english.ly"
 #(set! chord::names-alist-american

diff --git a/input/test/ancient-accidentals.ly b/input/test/ancient-accidentals.ly
new file mode 100644 (file)
index 0000000..47f4752
--- /dev/null
+++ b/input/test/ancient-accidentals.ly
@@ -0,0 +1,54 @@
+\header {
+texidoc = "Accidentals are available in different ancient styles. This
+files lists all of them."
+
+}
+
+\version "1.5.68"
+
+\score { 
+  \context Voice \notes\relative c {
+    \time 3/4
+       \property Staff.Accidental \set #'style = #'default
+       cisis''^"Accidental style = \#'default" cisis! cisis? |
+       cis cis! cis? | 
+       c c! c? |
+       ces ces! ces? |
+       ceses ceses! ceses? |
+       \break
+       
+       \property Staff.Accidental \set #'style = #'hufnagel
+       cisis^"Accidental style = \#'hufnagel" cisis! cisis? |
+       cis cis! cis? | 
+       c c! c? |
+       ces ces! ces? |
+       ceses ceses! ceses? |
+       \break
+       
+       \property Staff.Accidental \set #'style = #'medicaea
+       cisis^"Accidental style = \#'medicaea" cisis! cisis? |
+       cis cis! cis? | 
+       c c! c? |
+       ces ces! ces? |
+       ceses ceses! ceses? |
+       \break
+       
+       \property Staff.Accidental \set #'style = #'vaticana
+       cisis^"Accidental style = \#'vaticana" cisis! cisis? |
+       cis cis! cis? | 
+       c c! c? |
+       ces ces! ces? |
+       ceses ceses! ceses? |
+       \break
+       
+       \property Staff.Accidental \set #'style = #'mensural
+       cisis^"Accidental style = \#'mensural" cisis! cisis? |
+       cis cis! cis? | 
+       c c! c? |
+       ces ces! ces? |
+       ceses ceses! ceses? |
+       
+  }
+  \paper { }  
+  \midi { }
+}

diff --git a/input/test/auto-beam-triplet.ly b/input/test/auto-beam-triplet.ly
deleted file mode 100644 (file)
index 607813b..0000000
--- a/input/test/auto-beam-triplet.ly
+++ /dev/null
@@ -1,15 +0,0 @@
-\version "1.5.68"
-
-\score{
-       \notes\relative c''{
-               c8 c c c
-               \times 2/3 { c c c c c c}
-       }
-       \paper{
-               % urg, avoid crash
-               \translator{
-                       \VoiceContext
-                       \remove Tuplet_engraver
-               }
-       }
-}

diff --git a/input/test/bar-lines.ly b/input/test/bar-lines.ly
index 19a90f016d51877270ebce2fd217ffc01570d358..14ce35f846d502277706daf1082b9bb9f3c46cf7 100644 (file)
--- a/input/test/bar-lines.ly
+++ b/input/test/bar-lines.ly
@@ -1,4 +1,7 @@
 \version "1.5.68"
+\header {
+    texidoc = "Different types of bar lines demonstrated."
+}
 
 
 \score

diff --git a/input/test/bar-number-every-fifth.ly b/input/test/bar-number-every-fifth.ly
index fbcde9ac7d312fddbed0a2bf3d34a327859a2b4e..35da5797b07daa6c53f5c7b4ea46c455a681b203 100644 (file)
--- a/input/test/bar-number-every-fifth.ly
+++ b/input/test/bar-number-every-fifth.ly
@@ -1,3 +1,10 @@
+
+\header
+{
+
+    texidoc = "Bar numbers can also be printed at regular intervals."
+}
+
 \score {
     \context Staff \notes \transpose c'' {
        \property Score.BarNumber \override #'break-visibility = #end-of-line-invisible

diff --git a/input/test/beam-abbrev.ly b/input/test/beam-abbrev.ly
index 7133d8fcfebe6df16abd7d72df1e5eeffabccfb9..2ca4dd423b5d7ba1dddffefff51d5cb6bfb89495 100644 (file)
--- a/input/test/beam-abbrev.ly
+++ b/input/test/beam-abbrev.ly
@@ -1,5 +1,4 @@
 \version "1.5.68"
-
 \score { 
   \context Voice \notes\relative c {
     c'1:16 

diff --git a/lily/phrasing-slur-engraver.cc b/lily/phrasing-slur-engraver.cc
index 6395cfb11568ee2c2a230efb2ffffa804ce8739e..dbcdba9a883564b167d19fe85f2b3eaf0fd89e30 100644 (file)
--- a/lily/phrasing-slur-engraver.cc
+++ b/lily/phrasing-slur-engraver.cc
@@ -18,7 +18,7 @@
   ALGRGRRGRG
 
   Derive this from Slur_engraver. This code is completely duplicate.
- */
+*/
 class Phrasing_slur_engraver : public Engraver
 {
   Link_array<Music> eventses_;
@@ -50,18 +50,18 @@ Phrasing_slur_engraver::try_music (Music *ev)
 {
   if (ev->is_mus_type ("abort-event"))
     {
-         for (int i = 0; i < phrasing_slur_l_stack_.size (); i++)
-           {
-             phrasing_slur_l_stack_[i]->suicide ();
-           }
-         phrasing_slur_l_stack_.clear ();
-         for (int i = 0; i < end_phrasing_slurs_.size (); i++)
-           {
-             end_phrasing_slurs_[i]->suicide ();
-           }
-         end_phrasing_slurs_.clear ();
-         eventses_.clear ();
-         new_phrasing_slur_evs_.clear ();
+      for (int i = 0; i < phrasing_slur_l_stack_.size (); i++)
+       {
+         phrasing_slur_l_stack_[i]->suicide ();
+       }
+      phrasing_slur_l_stack_.clear ();
+      for (int i = 0; i < end_phrasing_slurs_.size (); i++)
+       {
+         end_phrasing_slurs_[i]->suicide ();
+       }
+      end_phrasing_slurs_.clear ();
+      eventses_.clear ();
+      new_phrasing_slur_evs_.clear ();
     }
   else if (ev->is_mus_type ("phrasing-slur-event"))
     {
@@ -69,7 +69,7 @@ Phrasing_slur_engraver::try_music (Music *ev)
        Let's not start more than one phrasing slur per moment.
       */
       
-    Direction d = to_dir (ev->get_mus_property ("span-direction"));
+      Direction d = to_dir (ev->get_mus_property ("span-direction"));
          
       if (d == START)
        {
@@ -112,16 +112,16 @@ Phrasing_slur_engraver::finalize ()
 #else
       /*
        Let's not typeset unterminated stuff
-       */
+      */
       phrasing_slur_l_stack_[i]->suicide ();
 #endif     
     }
   phrasing_slur_l_stack_.clear ();
 
-    for (int i=0; i < eventses_.size (); i++)
-      {
-       eventses_[i]->origin ()->warning (_ ("unterminated phrasing slur"));
-      }
+  for (int i=0; i < eventses_.size (); i++)
+    {
+      eventses_[i]->origin ()->warning (_ ("unterminated phrasing slur"));
+    }
 }
 
 void
@@ -188,7 +188,7 @@ Phrasing_slur_engraver::start_translation_timestep ()
 
 
 ENTER_DESCRIPTION(Phrasing_slur_engraver,
-/* descr */       "Print phrasing slurs. Similar to Slur_engraver",
+/* descr */       "Print phrasing slurs. Similar to @ref{Slur_engraver}",
 /* creats*/       "PhrasingSlur",
 /* accepts */     "phrasing-slur-event",
 /* acks  */       "note-column-interface",