release: 1.3.15

[lilypond.git] / lily / stem.cc

diff --git a/lily/stem.cc b/lily/stem.cc
index ef6e10a501f6e4b181f86b9e41a7ba67e6fc6f75..b86b38c2d65de0cdced92b06428c4b5661955778 100644 (file)
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -92,6 +92,8 @@ Stem::stem_end_position () const
     {
       Stem * me = (Stem*) this;
       len = get_default_stemlen ();
+
+      // FIXME: len != position
       me->set_elt_property ("stem-end-position", gh_double2scm (len));
     }
   else
@@ -561,7 +563,7 @@ Stem::calc_stem_info () const
   if (gh_number_p (s))
     info.idealy_f_ -= gh_double2scm (s);
 
-  Real interstaff_f =  -beam_dir* calc_interstaff_dist (this, beam_l ());
+  Real interstaff_f =  beam_dir* calc_interstaff_dist (this, beam_l ());
 
   info.idealy_f_ += interstaff_f;
   info.miny_f_ += interstaff_f;