release: 1.3.120

[lilypond.git] / lily / stem.cc

diff --git a/lily/stem.cc b/lily/stem.cc
index a69f476f93f8560a6c61395de85474062e25bf9c..5824cc967ac4b17c76cd1e907660ffa096944cea 100644 (file)
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -377,6 +377,26 @@ Stem::before_line_breaking (SCM smob)
 }
 
 
+/*
+  ugh.
+  When in a beam with tuplet brackets, brew_mol is called early,
+  caching a wrong value.
+ */
+MAKE_SCHEME_CALLBACK (Stem, height, 2);
+SCM
+Stem::height (SCM smob, SCM ax)
+{
+  Axis a = (Axis)gh_scm2int (ax);
+  Grob * me = unsmob_grob (smob);
+  assert ( a == Y_AXIS);
+
+  SCM mol = me->get_uncached_molecule ();
+  Interval iv;
+  if (mol != SCM_EOL)
+    iv = unsmob_molecule (mol)->extent (a);
+  return ly_interval2scm (iv);
+}
+
 
 /**
    set stem directions for hinting the optical spacing correction.