-Spanner*
-Hara_kiri_engraver::get_spanner_p () const
-{
- Spanner * sp = new Spanner (get_property ("HaraKiriVerticalGroup"));
- Hara_kiri_group_spanner::set_interface (sp);
- return sp;
-}
-
-void
-Hara_kiri_engraver::acknowledge_grob (Grob_info i)
-{
- Axis_group_engraver::acknowledge_grob (i);
- if (Rhythmic_head::has_interface (i.grob_l_)
- || i.grob_l_->has_interface (ly_symbol2scm ("lyric-syllable-interface")))
- {
- Hara_kiri_group_spanner::add_interesting_item (staffline_p_, i.grob_l_);
- }
-}
-
-Hara_kiri_engraver::Hara_kiri_engraver(){}
-
-ENTER_DESCRIPTION(Hara_kiri_engraver,
-/* descr */ "Like Axis_group_engraver, but make a hara kiri spanner, and add
-interesting items (ie. note heads, lyric syllables and normal rests)
-",
-/* creats*/ "HaraKiriVerticalGroup",
-/* acks */ "grob-interface",
-/* reads */ "",
-/* write */ "");
-
-ENTER_DESCRIPTION(Axis_group_engraver,
-/* descr */ "Group all objects created in this context in a VerticalAxisGroup spanner.",
-/* creats*/ "VerticalAxisGroup",
-/* acks */ "grob-interface",
-/* reads */ "VerticalExtent MinimumVerticalExtent ExtraVerticalExtent",
-/* write */ "");