-////////////////////////////////////////////////////////
-// 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 ()const;
- virtual void acknowledge_grob (Grob_info);
- virtual void add_element (Grob *e);
-public:
- TRANSLATOR_DECLARATIONS(Hara_kiri_engraver);
-};
-
-void
-Hara_kiri_engraver::add_element (Grob*e)
-{
- Hara_kiri_group_spanner::add_element (staffline_, e);
-}
-
-
-Spanner*
-Hara_kiri_engraver::get_spanner () const
-{
- Spanner * sp = new Spanner (get_property ("HaraKiriVerticalGroup"));
-
- return sp;
-}
-
-void
-Hara_kiri_engraver::acknowledge_grob (Grob_info i)
-{
- Axis_group_engraver::acknowledge_grob (i);
- if (Rhythmic_head::has_interface (i.grob_)
- || i.grob_->internal_has_interface (ly_symbol2scm ("lyric-syllable-interface"))
- )
- {
- Hara_kiri_group_spanner::add_interesting_item (staffline_, i.grob_);
- }
-}
-
-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",
-/* accepts */ "",
-/* acks */ "grob-interface",
-/* reads */ "",
-/* write */ "");
-
-ENTER_DESCRIPTION(Axis_group_engraver,
-/* descr */ "Group all objects created in this context in a VerticalAxisGroup spanner.",
-/* creats*/ "VerticalAxisGroup",
-/* accepts */ "",
-/* acks */ "grob-interface",
-/* reads */ "verticalExtent minimumVerticalExtent extraVerticalExtent",
-/* write */ "");
+ADD_TRANSLATOR (Axis_group_engraver,
+ /* descr */ "Group all objects created in this context in a VerticalAxisGroup spanner.",
+ /* creats*/ "VerticalAxisGroup",
+ /* accepts */ "",
+ /* acks */ "grob-interface",
+ /* reads */ "verticalExtent minimumVerticalExtent extraVerticalExtent",
+ /* write */ "");