2 vertically-spaced-contexts-engraver.cc -- implement Vertically_spaced_contexts_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
10 #include "engraver.hh"
12 #include "axis-group-interface.hh"
14 #include "pointer-group-interface.hh"
16 class Vertically_spaced_contexts_engraver : public Engraver
18 TRANSLATOR_DECLARATIONS(Vertically_spaced_contexts_engraver);
20 virtual void initialize ();
21 DECLARE_ACKNOWLEDGER(vertically_spaceable);
29 Vertically_spaced_contexts_engraver::Vertically_spaced_contexts_engraver ()
35 Vertically_spaced_contexts_engraver::initialize ()
37 system_ = unsmob_grob (get_property ("rootSystem"));
41 Vertically_spaced_contexts_engraver::acknowledge_vertically_spaceable (Grob_info gi)
43 if (Axis_group_interface::has_interface (gi.grob ()))
45 SCM spaceable = get_property ("verticallySpacedContexts");
46 Context *orig = gi.origin_contexts (this)[0];
48 if (scm_memq (ly_symbol2scm (orig->context_name ().to_str0 ()),
49 spaceable) != SCM_BOOL_F)
51 Pointer_group_interface::add_grob (system_,
52 ly_symbol2scm ("spaceable-staves"),
58 #include "translator.icc"
59 ADD_ACKNOWLEDGER(Vertically_spaced_contexts_engraver, vertically_spaceable);
60 ADD_TRANSLATOR (Vertically_spaced_contexts_engraver,
65 /* reads */ "verticallySpacedContexts",
66 /* write */ "verticallySpacedContexts");