From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 8 Jan 2007 08:17:13 +0000 (+0100)
Subject: Guesstimate stem end position for bar-stem optical correction.
X-Git-Tag: release/2.11.10-1~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9c92b259689913faf1cb4f4aa4695899719fc6a0;p=lilypond.git

Guesstimate stem end position for bar-stem optical correction.
---

diff --git a/lily/staff-spacing.cc b/lily/staff-spacing.cc
index c7023db3aa..65c565617c 100644
--- a/lily/staff-spacing.cc
+++ b/lily/staff-spacing.cc
@@ -87,8 +87,15 @@ Staff_spacing::next_note_correction (Grob *me,
       Direction d = get_grob_direction (stem);
       if (Stem::is_normal_stem (stem) && d == DOWN)
 	{
-	  Real stem_start = Stem::head_positions (stem) [DOWN];
-	  Real stem_end = Stem::stem_end_position (stem);
+
+	  /*
+	    can't look at stem-end-position, since that triggers
+	    beam slope computations.
+	  */
+	  Real stem_start = Stem::head_positions (stem) [d];
+	  Real stem_end = stem_start + 
+	    d * robust_scm2double (stem->get_property ("length"), 7);
+	  
 	  Interval stem_posns (min (stem_start, stem_end),
 			       max (stem_end, stem_start));