From 4e1e2e8e9c1b4afca1ca93cb920c4d456a6f7d8b Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Mon, 18 Apr 2005 15:28:33 +0000
Subject: [PATCH] (calc_stem_info): add minimum Y extent of stem-tremolo. 
 Fixes: bugs/tremolo-stem-length-beamed

---
 ChangeLog    | 3 +++
 lily/stem.cc | 7 +++++++
 2 files changed, 10 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index b6b2c27031..70e2175c0d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-04-18  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* lily/stem.cc (calc_stem_info): add minimum Y extent of
+	stem-tremolo.  Fixes: bugs/tremolo-stem-length-beamed
+
 	* lily/percent-repeat-engraver.cc (try_music): add measure before
 	next_moment to future processing moment. Fixes:
 	percent-repeat-mm-rest.ly
diff --git a/lily/stem.cc b/lily/stem.cc
index 9378869c7b..ef65d34002 100644
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -878,6 +878,13 @@ Stem::calc_stem_info (Grob *me)
     /* stem only extends to center of beam */
     - 0.5 * beam_thickness;
 
+  if (Grob *tremolo = unsmob_grob (me->get_property ("tremolo-flag")))
+    {
+      Interval y_ext = tremolo->extent (tremolo, Y_AXIS);
+      y_ext.widen (0.5);	// FIXME. Should be tunable? 
+      minimum_length = minimum_length >? y_ext.length ();
+    }
+  
   ideal_y *= my_dir;
   Real minimum_y = note_start + minimum_length;
   Real shortest_y = minimum_y * my_dir;
-- 
2.39.2