lily/trill-spanner-engraver.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2000--2015 Jan Nieuwenhuizen <janneke@gnu.org>
   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 /*
  21   C&P from text-spanner.cc
  22
  23   - todo: ending should be detected automatically? a new note
  24   automatically is the end of the trill?
  25 */
  26
  27 #include "engraver.hh"
  28
  29 #include "international.hh"
  30 #include "note-column.hh"
  31 #include "pointer-group-interface.hh"
  32 #include "side-position-interface.hh"
  33 #include "stream-event.hh"
  34 #include "spanner.hh"
  35
  36 #include "translator.icc"
  37
  38 class Trill_spanner_engraver : public Engraver
  39 {
  40 public:
  41   TRANSLATOR_DECLARATIONS (Trill_spanner_engraver);
  42 protected:
  43   virtual void finalize ();
  44   void listen_trill_span (Stream_event *);
  45   void acknowledge_note_column (Grob_info);
  46
  47   void stop_translation_timestep ();
  48   void process_music ();
  49
  50 private:
  51   Spanner *span_;
  52   Spanner *finished_;
  53   Stream_event *current_event_;
  54   Drul_array<Stream_event *> event_drul_;
  55   void typeset_all ();
  56 };
  57
  58 Trill_spanner_engraver::Trill_spanner_engraver (Context *c)
  59   : Engraver (c)
  60 {
  61   finished_ = 0;
  62   current_event_ = 0;
  63   span_ = 0;
  64   event_drul_.set (0, 0);
  65 }
  66
  67 void
  68 Trill_spanner_engraver::listen_trill_span (Stream_event *ev)
  69 {
  70   Direction d = to_dir (ev->get_property ("span-direction"));
  71   ASSIGN_EVENT_ONCE (event_drul_[d], ev);
  72 }
  73
  74 void
  75 Trill_spanner_engraver::acknowledge_note_column (Grob_info info)
  76 {
  77   if (span_)
  78     {
  79       Pointer_group_interface::add_grob (span_,
  80                                          ly_symbol2scm ("note-columns"),
  81                                          info.grob ());
  82       if (!span_->get_bound (LEFT))
  83         add_bound_item (span_, info.grob ());
  84     }
  85   else if (finished_)
  86     {
  87       Pointer_group_interface::add_grob (finished_, ly_symbol2scm ("note-columns"),
  88                                          info.grob ());
  89       if (!finished_->get_bound (RIGHT))
  90         add_bound_item (finished_, info.grob ());
  91     }
  92 }
  93
  94 void
  95 Trill_spanner_engraver::process_music ()
  96 {
  97   if (span_
  98       && (event_drul_[STOP] || event_drul_[START]))
  99     {
 100       Stream_event *ender = event_drul_[STOP];
 101       if (!ender)
 102         ender = event_drul_[START];
 103       finished_ = span_;
 104       announce_end_grob (finished_, ender->self_scm ());
 105       span_ = 0;
 106       current_event_ = 0;
 107     }
 108
 109   if (event_drul_[START])
 110     {
 111       current_event_ = event_drul_[START];
 112       span_ = make_spanner ("TrillSpanner", event_drul_[START]->self_scm ());
 113       Side_position_interface::set_axis (span_, Y_AXIS);
 114     }
 115 }
 116
 117 void
 118 Trill_spanner_engraver::typeset_all ()
 119 {
 120   if (finished_)
 121     {
 122       if (!finished_->get_bound (RIGHT))
 123         {
 124           Grob *e = unsmob<Grob> (get_property ("currentMusicalColumn"));
 125           finished_->set_bound (RIGHT, e);
 126         }
 127       finished_ = 0;
 128     }
 129 }
 130
 131 void
 132 Trill_spanner_engraver::stop_translation_timestep ()
 133 {
 134   if (span_ && !span_->get_bound (LEFT))
 135     {
 136       Grob *e = unsmob<Grob> (get_property ("currentMusicalColumn"));
 137       span_->set_bound (LEFT, e);
 138     }
 139
 140   typeset_all ();
 141   event_drul_.set (0, 0);
 142 }
 143
 144 void
 145 Trill_spanner_engraver::finalize ()
 146 {
 147   typeset_all ();
 148   if (span_)
 149     {
 150       Grob *e = unsmob<Grob> (get_property ("currentCommandColumn"));
 151       span_->set_bound (RIGHT, e);
 152     }
 153 }
 154
 155
 156 void
 157 Trill_spanner_engraver::boot ()
 158 {
 159   ADD_LISTENER (Trill_spanner_engraver, trill_span);
 160   ADD_ACKNOWLEDGER (Trill_spanner_engraver, note_column);
 161 }
 162
 163 ADD_TRANSLATOR (Trill_spanner_engraver,
 164                 /* doc */
 165                 "Create trill spanner from an event.",
 166
 167                 /* create */
 168                 "TrillSpanner ",
 169
 170                 /* read */
 171                 "currentCommandColumn "
 172                 "currentMusicalColumn ",
 173
 174                 /* write */
 175                 ""
 176                );