From b86b58161aa6a9ecee5ebca1ad4e7ca66e0027f8 Mon Sep 17 00:00:00 2001
From: Boris Shingarov <shingarov@gmail.com>
Date: Sat, 15 May 2010 22:28:32 +0100
Subject: [PATCH] Fix #1056: Incorrect height estimation for stems

Check for user-overridden 'length when calculating pure height.
---
 lily/stem.cc | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lily/stem.cc b/lily/stem.cc
index 314f74e2b4..6bbeb16288 100644
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -255,7 +255,13 @@ Stem::pure_height (SCM smob,
 
   if (!to_boolean (me->get_property ("cross-staff")))
     {
-      Real len = scm_to_double (calc_length (smob)) * ss / 2;
+      Real len_in_halfspaces;
+      SCM user_set_len_scm = me->get_property_data ("length");
+      if (scm_is_number (user_set_len_scm))
+	len_in_halfspaces = scm_to_double (user_set_len_scm);
+      else
+	len_in_halfspaces = scm_to_double (calc_length (smob));
+      Real len = len_in_halfspaces * ss / 2;
       Direction dir = get_grob_direction (me);
 
       Interval hp = head_positions (me);
-- 
2.39.5