release: 1.0.1

[lilypond.git] / lily / hara-kiri-line-group-engraver.cc

diff --git a/lily/hara-kiri-line-group-engraver.cc b/lily/hara-kiri-line-group-engraver.cc
index fecde2402d07be5dd5fc2a64805d6b32293844e0..ab12bf878026534798043651112d0f578277e04c 100644 (file)
--- a/lily/hara-kiri-line-group-engraver.cc
+++ b/lily/hara-kiri-line-group-engraver.cc
@@ -3,16 +3,16 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1998 Jan Nieuwenhuizen <jan@digicash.com>
+  (c)  1998 Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #include "staff-sym.hh"
 #include "command-request.hh"
-#include "p-col.hh"
+#include "note-head.hh"
 #include "hara-kiri-vertical-group-spanner.hh"
 #include "hara-kiri-line-group-engraver.hh"
 
-IMPLEMENT_IS_TYPE_B1 (Hara_kiri_line_group_engraver,Engraver);
+IMPLEMENT_IS_TYPE_B1 (Hara_kiri_line_group_engraver,Line_group_engraver_group);
 ADD_THIS_TRANSLATOR (Hara_kiri_line_group_engraver);
 
 void
@@ -20,3 +20,14 @@ Hara_kiri_line_group_engraver::create_line_spanner ()
 {
   staffline_p_ = new Hara_kiri_vertical_group_spanner;
 }
+
+void
+Hara_kiri_line_group_engraver::typeset_element(Score_element * e)
+{
+  if (e->is_type_b (Note_head::static_name ()))
+    ((Hara_kiri_vertical_group_spanner*)staffline_p_)->add_note 
+      ((Note_head*)e->access_Item ());
+
+  Line_group_engraver_group::typeset_element (e);
+}
+