lily/melody-engraver.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 1997--2012 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
  22 #include "item.hh"
  23 #include "melody-spanner.hh"
  24 #include "pointer-group-interface.hh"
  25
  26 class Melody_engraver : public Engraver
  27 {
  28   Grob *melody_item_;
  29   Grob *stem_;
  30 protected:
  31
  32   DECLARE_ACKNOWLEDGER (stem);
  33   DECLARE_ACKNOWLEDGER (slur);
  34   TRANSLATOR_DECLARATIONS (Melody_engraver);
  35   void stop_translation_timestep ();
  36   void process_acknowledged ();
  37   void process_music ();
  38 };
  39
  40 Melody_engraver::Melody_engraver ()
  41 {
  42   stem_ = 0;
  43   melody_item_ = 0;
  44 }
  45
  46 void
  47 Melody_engraver::process_music ()
  48 {
  49   if (scm_is_string (get_property ("whichBar")))
  50     melody_item_ = 0;
  51 }
  52
  53 /*
  54   Used to be in stop_translation_timestep, but grobs can't
  55   be created here.
  56 */
  57 void
  58 Melody_engraver::process_acknowledged ()
  59 {
  60   if (stem_
  61       && !is_direction (stem_->get_property_data ("neutral-direction")))
  62     {
  63       extract_grob_set (stem_, "rests", rests);
  64       if (rests.size ())
  65         melody_item_ = 0;
  66       else
  67         {
  68           if (!melody_item_)
  69             melody_item_ = make_item ("MelodyItem", stem_->self_scm ());
  70
  71           Melody_spanner::add_stem (melody_item_, stem_);
  72         }
  73     }
  74 }
  75
  76 void
  77 Melody_engraver::stop_translation_timestep ()
  78 {
  79   stem_ = 0;
  80 }
  81
  82 void
  83 Melody_engraver::acknowledge_slur (Grob_info /* info */)
  84 {
  85   melody_item_ = 0;
  86 }
  87
  88 void
  89 Melody_engraver::acknowledge_stem (Grob_info info)
  90 {
  91   stem_ = info.grob ();
  92 }
  93
  94 #include "translator.icc"
  95
  96 ADD_ACKNOWLEDGER (Melody_engraver, stem);
  97 ADD_ACKNOWLEDGER (Melody_engraver, slur);
  98
  99 ADD_TRANSLATOR (Melody_engraver,
 100                 /* doc */
 101                 "Create information for context dependent typesetting"
 102                 " decisions.",
 103
 104                 /* create */
 105                 "MelodyItem ",
 106
 107                 /* read */
 108                 "",
 109
 110                 /* write */
 111                 ""
 112                );
 113