From: fred <fred>
Date: Sun, 24 Mar 2002 19:27:48 +0000 (+0000)
Subject: lilypond-0.0.23
X-Git-Tag: release/1.5.59~5617
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=819e2a71029e56d16c1c3d2a3c6f059c651c4696;p=lilypond.git

lilypond-0.0.23
---

diff --git a/src/beam.cc b/src/beam.cc
index 1016320dea..c65dc58115 100644
--- a/src/beam.cc
+++ b/src/beam.cc
@@ -34,6 +34,7 @@ Stem_info::Stem_info(const Stem*s)
 }
 
 /****************/
+
 Offset
 Beam::center()const
 {
@@ -42,9 +43,9 @@ Beam::center()const
 	Beam*me_p = (Beam*)this;
 	me_p->do_post_processing();
     }
-    Real w=width().length()/2;
-    return Offset(w,
-                  (left_pos + w* slope)*paper()->interline());
+
+    Real w=(paper()->note_width() + width().length())/2.0;
+    return Offset(w, (left_pos + w* slope)*paper()->interline());
 }