From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 3 Jan 2007 15:09:05 +0000 (+0100)
Subject: fix pure stem height for invisible stems.
X-Git-Tag: release/2.11.8-1~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=936cf9ea496f7340c91f92a7c0ddda91960bf960;p=lilypond.git

fix pure stem height for invisible stems.
---

diff --git a/lily/stem.cc b/lily/stem.cc
index 6757582869..89f6560318 100644
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -236,14 +236,17 @@ Stem::pure_height (SCM smob, SCM start, SCM end)
 {
   (void) start;
   (void) end;
-  
-  
+
   Grob *me = unsmob_grob (smob);
+  Interval iv;
+
+  if (!is_normal_stem (me))
+    return ly_interval2scm (iv);
+  
   Real ss = Staff_symbol_referencer::staff_space (me);
   Real len = scm_to_double (calc_length (smob)) * ss / 2;
   Direction dir = get_grob_direction (me);
 
-  Interval iv;
   Interval hp = head_positions (me);
   if (dir == UP)
     iv = Interval (0, len);