From: fred <fred>
Date: Wed, 27 Mar 2002 00:35:29 +0000 (+0000)
Subject: lilypond-1.3.125
X-Git-Tag: release/1.5.59~995
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5821e4ee84a7fb49f38b21e2a46b4d3b6f48dc14;p=lilypond.git

lilypond-1.3.125
---

diff --git a/lily/stem.cc b/lily/stem.cc
index 5824cc967a..e640d0a7d0 100644
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -24,7 +24,7 @@
 #include "beam.hh"
 #include "rest.hh"
 #include "group-interface.hh"
-#include "cross-staff.hh"
+// #include "cross-staff.hh"
 #include "staff-symbol-referencer.hh"
 #include "spanner.hh"
 
@@ -639,7 +639,10 @@ Stem::calc_stem_info (Grob*me)
   if (gh_number_p (s))
     info.idealy_f_ -= gh_scm2double (s);
 
-  Real interstaff_f = -beam_dir* calc_interstaff_dist (dynamic_cast<Item*> (me), dynamic_cast<Spanner*> (beam));
+ Grob *common = me->common_refpoint (beam, Y_AXIS);
+  Real interstaff_f = beam_dir *
+    (me->relative_coordinate (common, Y_AXIS)
+     - beam->relative_coordinate (common, Y_AXIS));
 
   info.idealy_f_ += interstaff_f;
   info.miny_f_ += interstaff_f;