* scripts/lilypond-book.py: Resurrect HTML links to .ly source.

[lilypond.git] / lily / stem.cc

diff --git a/lily/stem.cc b/lily/stem.cc
index b098b38af794f77a38fb428eb185d0c09cd7e4d4..7597fde71f54c618ee390406bcda7f4ad1226e00 100644 (file)
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1996--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
     Jan Nieuwenhuizen <janneke@gnu.org>
 
   TODO: This is way too hairy
@@ -141,7 +141,7 @@ Stem::support_head (Grob *me)
 int
 Stem::head_count (Grob *me)
 {
-  return Pointer_group_interface::count (me, "note-heads");
+  return Pointer_group_interface::count (me, ly_symbol2scm ("note-heads"));
 }
 
 /* The note head which forms one end of the stem.
@@ -507,7 +507,6 @@ Stem::height (SCM smob, SCM ax)
     {
       Beam::after_line_breaking (beam->self_scm ());
     }
-  
 
   SCM mol = me->get_uncached_stencil ();
   Interval iv;
@@ -516,6 +515,11 @@ Stem::height (SCM smob, SCM ax)
   if (Grob *b = get_beam (me))
     {
       Direction d = get_direction (me);
+      if (d == CENTER)
+       {
+         programming_error ("No stem direction");
+         d = UP;
+       }
       iv[d] += d * Beam::get_thickness (b) * 0.5 ;
     }