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
  10 #include "engraver.hh"
  11 #include "grob.hh"
  12 #include "axis-group-interface.hh"
  13 #include "context.hh"
  14 #include "pointer-group-interface.hh"
  15
  16 class Vertically_spaced_contexts_engraver : public Engraver
  17 {
  18   TRANSLATOR_DECLARATIONS(Vertically_spaced_contexts_engraver);
  19 protected:
  20   virtual void initialize ();
  21   DECLARE_ACKNOWLEDGER(vertically_spaceable);
  22
  23 private:
  24   Grob *system_;
  25 };
  26
  27
  28
  29 Vertically_spaced_contexts_engraver::Vertically_spaced_contexts_engraver ()
  30 {
  31   system_ = 0;
  32 }
  33
  34 void
  35 Vertically_spaced_contexts_engraver::initialize ()
  36 {
  37   system_ = unsmob_grob (get_property ("rootSystem"));
  38 }
  39
  40 void
  41 Vertically_spaced_contexts_engraver::acknowledge_vertically_spaceable (Grob_info gi)
  42 {
  43   if (Axis_group_interface::has_interface (gi.grob ()))
  44     {
  45       SCM spaceable = get_property ("verticallySpacedContexts");
  46       Context *orig = gi.origin_contexts (this)[0];
  47
  48       if (scm_memq (ly_symbol2scm (orig->context_name ().to_str0 ()),
  49                     spaceable) != SCM_BOOL_F)
  50         {
  51           Pointer_group_interface::add_grob (system_,
  52                                              ly_symbol2scm ("spaceable-staves"),
  53                                              gi.grob ());
  54         }
  55     }
  56 }
  57
  58 #include "translator.icc"
  59 ADD_ACKNOWLEDGER(Vertically_spaced_contexts_engraver, vertically_spaceable);
  60 ADD_TRANSLATOR (Vertically_spaced_contexts_engraver,
  61                 /* descr */ "",
  62                 /* creats*/ "",
  63                 /* accepts */ "",
  64                 /* reads */ "verticallySpacedContexts",
  65                 /* write */ "verticallySpacedContexts");