lily/vertically-spaced-context-engraver.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2005--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5
   6   LilyPond is free software: you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation, either version 3 of the License, or
   9   (at your option) any later version.
  10
  11   LilyPond is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #include "engraver.hh"
  21 #include "grob.hh"
  22 #include "axis-group-interface.hh"
  23 #include "context.hh"
  24 #include "pointer-group-interface.hh"
  25
  26 class Vertically_spaced_contexts_engraver : public Engraver
  27 {
  28   TRANSLATOR_DECLARATIONS (Vertically_spaced_contexts_engraver);
  29 protected:
  30   virtual void initialize ();
  31   DECLARE_ACKNOWLEDGER (vertically_spaceable);
  32
  33 private:
  34   Grob *system_;
  35 };
  36
  37 Vertically_spaced_contexts_engraver::Vertically_spaced_contexts_engraver ()
  38 {
  39   system_ = 0;
  40 }
  41
  42 void
  43 Vertically_spaced_contexts_engraver::initialize ()
  44 {
  45   system_ = unsmob_grob (get_property ("rootSystem"));
  46 }
  47
  48 void
  49 Vertically_spaced_contexts_engraver::acknowledge_vertically_spaceable (Grob_info gi)
  50 {
  51   if (Axis_group_interface::has_interface (gi.grob ()))
  52     {
  53       SCM spaceable = get_property ("verticallySpacedContexts");
  54       Context *orig = gi.origin_contexts (this)[0];
  55
  56       if (scm_memq (ly_symbol2scm (orig->context_name ().c_str ()),
  57                     spaceable) != SCM_BOOL_F)
  58         {
  59           Pointer_group_interface::add_unordered_grob (system_,
  60                                                        ly_symbol2scm ("spaceable-staves"),
  61                                                        gi.grob ());
  62         }
  63     }
  64 }
  65
  66 #include "translator.icc"
  67
  68 ADD_ACKNOWLEDGER (Vertically_spaced_contexts_engraver, vertically_spaceable);
  69 ADD_TRANSLATOR (Vertically_spaced_contexts_engraver,
  70                 /* doc */
  71                 "",
  72
  73                 /* create */
  74                 "",
  75
  76                 /* read */
  77                 "verticallySpacedContexts ",
  78
  79                 /* write */
  80                 "verticallySpacedContexts "
  81                 );