From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 5 Apr 2005 18:42:56 +0000 (+0000)
Subject: (all-user-grob-properties): add
X-Git-Tag: release/2.5.19~63
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=72d07bbb4984e7ee3de279c4aae94ab38409f6ff;p=lilypond.git

(all-user-grob-properties): add
same-direction-correction
---

diff --git a/ChangeLog b/ChangeLog
index 836e7e72ca..985c9113c1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2005-04-05  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* scm/define-grob-properties.scm (all-user-grob-properties): add
+	same-direction-correction
+
+	* VERSION: release 2.5.18
+
 2005-04-05  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* lily/midi-stream.cc: Handle unwritable midi file.
diff --git a/lily/note-spacing.cc b/lily/note-spacing.cc
index 5b8bc0ed38..ac1942ed12 100644
--- a/lily/note-spacing.cc
+++ b/lily/note-spacing.cc
@@ -425,10 +425,10 @@ Note_spacing::stem_dir_correction (Grob *me, Item *rcolumn,
 	= (head_posns[LEFT][DOWN] > head_posns[RIGHT][UP]) ? RIGHT : LEFT;
 
       Real delta = head_posns[-lowest][DOWN] - head_posns[lowest][UP];
-      Real corr = robust_scm2double (me->get_property ("stem-spacing-correction"), 0);
-      corr = (delta <= 1) ? 0.0 : 0.25;
-
-      correction = -lowest * corr;
+      Real corr = robust_scm2double (me->get_property ("same-direction-correction"), 0);
+      
+      if (delta > 1)
+	correction = -lowest * corr;
     }
 
   *space += correction;
diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 3036987af8..ac49dc6201 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -438,7 +438,9 @@ stems that are placed in tight configurations. For opposite
 directions, this amount is the correction for two normal sized stems
 that overlap completely.")
 
-     
+     (same-direction-correction ,number? "Optical correction amount
+for stems that are placed in tight configurations. This amount is used
+for stems with the same direction to compensate for note-head to stem distance.")
      (string-count ,integer? "The number of strings in a fret diagram.")
      (stroke-style ,string? "set to \"grace\" to turn stroke through flag on.")
      
diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index f568348d6e..d831ce8d72 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -764,7 +764,7 @@
     (NoteSpacing
      . (
 	(stem-spacing-correction . 0.5)
-
+	(same-direction-correction . 0.25)
 	;; Changed this from 0.75.
 	;; If you ever change this back, please document! --hwn
 	(knee-spacing-correction . 1.0)