From: janneke <janneke>
Date: Mon, 19 Aug 2002 00:42:55 +0000 (+0000)
Subject: * scm/grob-property-description.scm: Remove regular-distance-to.
X-Git-Tag: release/1.7.25~817
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=27e058eb253b455d4cbebb7137290855e9c1c303;p=lilypond.git

* 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 9c93649879..43d277995f 100644
--- 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
index c2c1ecb05b..0000000000
--- 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
index 839355dd25..0000000000
--- 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 4962279623..35ae3bc95f 100644
--- 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.")