+void
+Axis_group_engraver::add_element (Score_element*e)
+{
+ Axis_group_interface::add_element (staffline_p_, e);
+}
+
+////////////////////////////////////////////////////////
+// maybenot such a good idea after all., to put classes in .cc
+
+#include "hara-kiri-group-spanner.hh"
+#include "rhythmic-head.hh"
+
+class Hara_kiri_engraver : public Axis_group_engraver
+{
+protected:
+ virtual Spanner*get_spanner_p ()const;
+ virtual void acknowledge_element (Score_element_info);
+ virtual void add_element (Score_element *e);
+public:
+ VIRTUAL_COPY_CONS(Translator);
+};
+
+void
+Hara_kiri_engraver::add_element (Score_element*e)
+{
+ Hara_kiri_group_spanner::add_element (staffline_p_, e);
+}
+
+
+Spanner*
+Hara_kiri_engraver::get_spanner_p () const
+{
+ Spanner * sp = new Spanner (get_property ("basicHaraKiriVerticalGroupspannerProperties"));
+ Hara_kiri_group_spanner::set_interface (sp);
+ return sp;
+}
+
+void
+Hara_kiri_engraver::acknowledge_element (Score_element_info i)
+{
+ Axis_group_engraver::acknowledge_element (i);
+ if (Rhythmic_head::has_interface (i.elem_l_)
+ || i.elem_l_->has_interface (ly_symbol2scm ("lyric-syllable-interface")))
+ {
+ Hara_kiri_group_spanner::add_interesting_item (staffline_p_, i.elem_l_);
+ }
+}
+ADD_THIS_TRANSLATOR(Hara_kiri_engraver);