2 hara-kiri-engraver.cc -- implement Hara_kiri_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "axis-group-engraver.hh"
10 #include "hara-kiri-group-spanner.hh"
11 #include "rhythmic-head.hh"
14 #include "translator.icc"
17 TODO: fold together with axis_group_engraver?
20 class Hara_kiri_engraver : public Axis_group_engraver
23 virtual Spanner *get_spanner ();
24 DECLARE_ACKNOWLEDGER (grob);
25 virtual void add_element (Grob *e);
26 void start_translation_timestep ();
27 virtual void derived_mark () const;
30 TRANSLATOR_DECLARATIONS (Hara_kiri_engraver);
34 Hara_kiri_engraver::derived_mark () const
36 scm_gc_mark (interesting_);
40 Hara_kiri_engraver::start_translation_timestep ()
42 Axis_group_engraver::start_translation_timestep ();
43 interesting_ = get_property ("keepAliveInterfaces");
47 Hara_kiri_engraver::add_element (Grob *e)
49 Axis_group_engraver::add_element (e);
53 Hara_kiri_engraver::get_spanner ()
55 Spanner *sp = make_spanner ("VerticalAxisGroup", SCM_EOL);
60 Hara_kiri_engraver::acknowledge_grob (Grob_info i)
62 Axis_group_engraver::acknowledge_grob (i);
65 for (SCM s = interesting_; scm_is_pair (s); s = scm_cdr (s))
67 if (i.grob ()->internal_has_interface (scm_car (s)))
68 Hara_kiri_group_spanner::add_interesting_item (staffline_, i.grob ());
73 Hara_kiri_engraver::Hara_kiri_engraver ()
75 interesting_ = SCM_EOL;
78 ADD_ACKNOWLEDGER (Hara_kiri_engraver, grob);
79 ADD_TRANSLATOR (Hara_kiri_engraver,
80 /* doc */ "Like Axis_group_engraver, but make a hara-kiri spanner, and add "
81 "interesting items (ie. note heads, lyric syllables and normal rests) ",
82 /* create */ "VerticalAxisGroup",
84 /* read */ "keepAliveInterfaces",