lily/vertically-spaced-context-engraver.cc

   1 /*
   2   vertically-spaced-contexts-engraver.cc -- implement Vertically_spaced_contexts_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "engraver.hh"
  10 #include "grob.hh"
  11 #include "axis-group-interface.hh"
  12 #include "context.hh"
  13 #include "pointer-group-interface.hh"
  14
  15 class Vertically_spaced_contexts_engraver : public Engraver
  16 {
  17   TRANSLATOR_DECLARATIONS (Vertically_spaced_contexts_engraver);
  18 protected:
  19   virtual void initialize ();
  20   DECLARE_ACKNOWLEDGER (vertically_spaceable);
  21
  22 private:
  23   Grob *system_;
  24 };
  25
  26
  27 Vertically_spaced_contexts_engraver::Vertically_spaced_contexts_engraver ()
  28 {
  29   system_ = 0;
  30 }
  31
  32 void
  33 Vertically_spaced_contexts_engraver::initialize ()
  34 {
  35   system_ = unsmob_grob (get_property ("rootSystem"));
  36 }
  37
  38 void
  39 Vertically_spaced_contexts_engraver::acknowledge_vertically_spaceable (Grob_info gi)
  40 {
  41   if (Axis_group_interface::has_interface (gi.grob ()))
  42     {
  43       SCM spaceable = get_property ("verticallySpacedContexts");
  44       Context *orig = gi.origin_contexts (this)[0];
  45
  46       if (scm_memq (ly_symbol2scm (orig->context_name ().to_str0 ()),
  47                     spaceable) != SCM_BOOL_F)
  48         {
  49           Pointer_group_interface::add_grob (system_,
  50                                              ly_symbol2scm ("spaceable-staves"),
  51                                              gi.grob ());
  52         }
  53     }
  54 }
  55
  56 #include "translator.icc"
  57
  58 ADD_ACKNOWLEDGER (Vertically_spaced_contexts_engraver, vertically_spaceable);
  59 ADD_TRANSLATOR (Vertically_spaced_contexts_engraver,
  60                 /* doc */ "",
  61                 /* create */ "",
  62                 /* accept */ "",
  63                 /* read */ "verticallySpacedContexts",
  64                 /* write */ "verticallySpacedContexts");