* scm/grob-property-description.scm: Remove regular-distance-to.

* input/test/spacing-regular.ly:
* lily/regular-spacing-engraver.cc: Remove.

diff --git a/ChangeLog b/ChangeLog
index 9c936498790adced129019e70b80ffe3f8eb39e6..43d277995f84f9b47ac629dec0aeb40aba22a698 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2002-08-19  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+       * scm/grob-property-description.scm: Remove regular-distance-to.
+
+       * input/test/spacing-regular.ly:
+       * lily/regular-spacing-engraver.cc: Remove.
+       
 2002-08-19  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
        * Documentation/user/lilypond-book.itely: small cleanups

diff --git a/input/test/spacing-regular.ly b/input/test/spacing-regular.ly
deleted file mode 100644 (file)
index c2c1ecb..0000000
--- a/input/test/spacing-regular.ly
+++ /dev/null
@@ -1,22 +0,0 @@
-\version "1.5.68"
-\header
-{
- texidoc = "regularSpacingDelta is an experimental feature that
- tries to generate regular spacing for regular notes."
-}
-
-\score { \notes \relative c'' {
-< \context Staff {
-
-c4 c4 c4 }
-\context Staff =SB  { c8 c8   c4 c4 }
->}
-\paper{
-linewidth = -1.
-\translator { \ScoreContext
-\consists "Regular_spacing_engraver"
-
-regularSpacingDelta = #(make-moment 1 4 )
-}
-}
-}

diff --git a/lily/regular-spacing-engraver.cc b/lily/regular-spacing-engraver.cc
deleted file mode 100644 (file)
index 839355d..0000000
--- a/lily/regular-spacing-engraver.cc
+++ /dev/null
@@ -1,64 +0,0 @@
-/*   
-  regular-spacing-engraver.cc --  implement Regular_spacing_engraver
-  
-  source file of the GNU LilyPond music typesetter
-  
-  (c) 2001--2002  Han-Wen Nienhuys <hanwen@cs.uu.nl>
-  
- */
-
-#include "engraver.hh"
-#include "grob.hh"
-
-class Regular_spacing_engraver : public Engraver
-{
-public:
-  TRANSLATOR_DECLARATIONS(Regular_spacing_engraver);
-  Moment last_moment_;
-  SCM last_col_;
-protected:
-  virtual void process_music ();
-};
-
-Regular_spacing_engraver::Regular_spacing_engraver ()
-{
-  last_col_ = SCM_EOL;
-}
-
-void
-Regular_spacing_engraver::process_music ()
-{
-  SCM delta = get_property ("regularSpacingDelta");
-
-  if (unsmob_moment (delta))
-    {
-      SCM mp = get_property ("measurePosition");
-      if (!unsmob_moment (mp))
-       return;
-
-      Rational d = unsmob_moment (delta)->main_part_;
-      Rational p = unsmob_moment (mp)->main_part_;
-
-      if (p.mod_rat (d) != Rational (0))
-       return;
-
-      Moment now = now_mom ();
-      SCM col = get_property ("currentMusicalColumn");
-      if (p
-         && (now -last_moment_ ).main_part_ == d)
-       {
-         unsmob_grob (col)->set_grob_property ("regular-distance-to", last_col_);
-       }
-      last_col_ = col;
-      last_moment_ = now;
-    }
-}
-
-
-ENTER_DESCRIPTION (Regular_spacing_engraver,
-/* descr */       ".",
-/* creats*/       "",
-/* acks  */       "",
-/* reads */       "regularSpacingDelta",
-/* write */       "regular-distance-to");
-

diff --git a/scm/grob-property-description.scm b/scm/grob-property-description.scm
index 496227962379cccd6b287b2f207dad11cb01f160..35ae3bc95f796327638dc967ff2f24df7bb6bb79 100644 (file)
--- a/scm/grob-property-description.scm
+++ b/scm/grob-property-description.scm
@@ -576,7 +576,6 @@ columns.
 (grob-property-description 'least-squares-dy number? 
  "ideal beam slope, without damping.")
 (grob-property-description 'ligature-primitive-callback number? "DOCME")
-(grob-property-description 'regular-distance-to ly-grob? "DOCME")
 (grob-property-description 'stem-info pair? "caching of stem parameters")
 (grob-property-description 'note-columns pair? "list of NoteColumn grobs.")