From 262ba90c470a20cf5418111e47f412c6b8b74968 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Sun, 21 Aug 2005 13:55:24 +0000
Subject: [PATCH] * lily/tie.cc: remove minimum-length

* scm/define-grob-properties.scm (all-user-grob-properties):
remove staffline-clearance, y-offset

* lily/tie.cc (get_control_points): rewrite. Put short ties in
staff-spaces, make long ties cross staff lines. Avoid flags and dots.
---
 ChangeLog                      |  5 +++++
 lily/tie.cc                    | 13 +++++++++----
 scm/define-grob-properties.scm |  4 ----
 scm/define-grobs.scm           |  3 ---
 4 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cf6323491b..b3665ca70a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2005-08-21  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* lily/tie.cc: remove minimum-length
+
+	* scm/define-grob-properties.scm (all-user-grob-properties):
+	remove staffline-clearance, y-offset 
+
 	* input/regression/tie-dots.ly (Module): remove.
 
 	* lily/tie.cc (get_control_points): rewrite. Put short ties in
diff --git a/lily/tie.cc b/lily/tie.cc
index dc813bdeff..0f69567361 100644
--- a/lily/tie.cc
+++ b/lily/tie.cc
@@ -379,7 +379,12 @@ Tie::print (SCM smob)
 ADD_INTERFACE (Tie,
 	       "tie-interface",
 	       "A tie connecting two noteheads.\n",
-
-	       "y-offset dash-period dash-fraction "
-	       "staffline-clearance control-points head-pair "
-	       "details thickness x-gap direction minimum-length");
+	       
+	       "control-points "
+	       "dash-fraction"
+	       "dash-period "
+	       "details "
+	       "direction"
+	       "head-pair "
+	       "thickness "
+	       "x-gap ");
diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index bafa9c8cd1..05c5782136 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -431,8 +431,6 @@ expressed in global staffspace.")
      (staff-position ,number? "Vertical position, measured in half
 staff spaces, counted from the middle line.")
      
-     (staffline-clearance ,ly:dimension? "How far away ties keep from
-staff lines.")
      (stemlet-length ,number? "How long should a stem over a rest be?")
      (stem-attachment-function ,procedure? "A function that calculates
 where a stem attaches to the note head? This is a fallback when this
@@ -483,8 +481,6 @@ happen?")
 words in texts.")
      (width ,ly:dimension? "The width of a grob measured in staff space.")
      (x-gap ,ly:dimension? "The horizontal gap between note head and tie.")
-     (y-offset ,ly:dimension? "Extra vertical offset for ties away
-from the center line.")
      (zigzag-length ,ly:dimension? "The length of the lines of a
 zigzag, relative to @code{zigzag-width}. A value of 1 gives 60-degree
 zigzags.")
diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 517576aea6..fdc5145cfe 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1436,11 +1436,8 @@
     (Tie
      . (
 	(print-function . ,Tie::print)
-;	(spacing-procedure . ,Spanner::set_spacing_rods)
-	(staffline-clearance . 0.35)
 	(details . ((ratio . 0.333) (height-limit . 1.0)))
 	(thickness . 1.0)
-;	(x-gap . -0.1)
 	(y-offset . 0.6)
 	(minimum-length . 2.5)
 	(meta . ((class . Spanner)
-- 
2.39.5