From ef57558d71cf795e9616fb3faaeba06567d3c305 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Sun, 24 Mar 2002 20:03:25 +0000
Subject: [PATCH] lilypond-0.1.33

---
 lily/beam.cc | 3 +++
 lily/stem.cc | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/lily/beam.cc b/lily/beam.cc
index a7cfd829ca..268499b1b0 100644
--- a/lily/beam.cc
+++ b/lily/beam.cc
@@ -239,6 +239,9 @@ Beam::solve_slope()
 void
 Beam::set_stemlens()
 {
+  /* 
+     should check for visibility of stem..
+   */
   Real x0 = stems[0]->hpos_f();
   for (int j=0; j <stems.size(); j++)
     {
diff --git a/lily/stem.cc b/lily/stem.cc
index 814eb6af83..32a7b1ede3 100644
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -348,7 +348,7 @@ Real
 Stem::note_delta_f () const
 {
   Real r=0;
-  if (head_l_arr_.size())
+  if (head_l_arr_.size() && stem_xdir_ != CENTER)
     {
       Interval head_wid(0,  head_l_arr_[0]->width ().length ());
       Real rule_thick(paper ()->rule_thickness ());
-- 
2.39.5