lily/tuplet-engraver.cc

   1 /*
   2   tuplet-engraver.cc -- implement Tuplet_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "beam.hh"
  10 #include "engraver.hh"
  11 #include "international.hh"
  12 #include "note-column.hh"
  13 #include "spanner.hh"
  14 #include "stream-event.hh"
  15 #include "tuplet-bracket.hh"
  16 #include "warn.hh"
  17 #include "item.hh"
  18 #include "moment.hh"
  19
  20 #include "translator.icc"
  21
  22 struct Tuplet_description
  23 {
  24   Stream_event *event_;
  25   Spanner *bracket_;
  26   Spanner *number_;
  27
  28   bool full_length_;
  29   bool full_length_note_;
  30   Moment stop_moment_;
  31   Moment start_moment_;
  32   Moment length_;
  33
  34   Tuplet_description ()
  35   {
  36     event_ = 0;
  37     full_length_note_ = false;
  38     full_length_ = false;
  39     bracket_ = 0;
  40     number_ = 0;
  41   }
  42 };
  43
  44 class Tuplet_engraver : public Engraver
  45 {
  46 public:
  47   TRANSLATOR_DECLARATIONS (Tuplet_engraver);
  48
  49 protected:
  50   vector<Tuplet_description> tuplets_;
  51   vector<Tuplet_description> new_tuplets_;
  52   vector<Tuplet_description> stopped_tuplets_;
  53   vector<Spanner*> last_tuplets_;
  54
  55   DECLARE_ACKNOWLEDGER (note_column);
  56   DECLARE_TRANSLATOR_LISTENER (tuplet_span);
  57   virtual void finalize ();
  58   void start_translation_timestep ();
  59   void process_music ();
  60 };
  61
  62 IMPLEMENT_TRANSLATOR_LISTENER (Tuplet_engraver, tuplet_span);
  63 void
  64 Tuplet_engraver::listen_tuplet_span (Stream_event *ev)
  65 {
  66   Direction dir = to_dir (ev->get_property ("span-direction"));
  67   if (dir == START)
  68     {
  69       Tuplet_description d;
  70       d.event_ = ev;
  71
  72       d.length_ = robust_scm2moment (d.event_->get_property ("length"),
  73                                      Moment (0));
  74       d.start_moment_ = now_mom ();
  75       d.stop_moment_ = now_mom () + d.length_;
  76
  77       for (vsize i=0; i < new_tuplets_.size (); i++)
  78         {
  79           /*
  80             discard duplicates.
  81            */
  82           if (new_tuplets_[i].stop_moment_ == d.stop_moment_)
  83             return;
  84         }
  85
  86       new_tuplets_.push_back (d);
  87     }
  88   else if (dir == STOP)
  89     {
  90     if (tuplets_.size ())
  91     {
  92       stopped_tuplets_.push_back (tuplets_.back ());
  93       tuplets_.pop_back ();
  94     }
  95     else
  96       ev->origin ()->warning (_f ("No tuplet to end"));
  97     }
  98   else
  99     ev->origin ()->programming_error ("direction tuplet-span-event_ invalid.");
 100 }
 101
 102 void
 103 Tuplet_engraver::process_music ()
 104 {
 105   /*
 106     This may happen if the end of a tuplet is part of a quoted voice.
 107    */
 108   Moment now = now_mom();
 109   for (vsize i = tuplets_.size (); i --; )
 110     {
 111       stopped_tuplets_.push_back (tuplets_[i]);
 112       if (tuplets_[i].stop_moment_ == now)
 113         tuplets_.erase (tuplets_.begin () + i);
 114     }
 115
 116   for (vsize i = 0; i < stopped_tuplets_.size (); i++)
 117     {
 118       Spanner *bracket = stopped_tuplets_[i].bracket_;
 119       Spanner *number = stopped_tuplets_[i].number_;
 120       if (bracket)
 121         {
 122           if (stopped_tuplets_[i].full_length_)
 123             {
 124               Item *col =
 125                 unsmob_item (stopped_tuplets_[i].full_length_note_
 126                              ? get_property ("currentMusicalColumn")
 127                              : get_property ("currentCommandColumn"));
 128
 129               bracket->set_bound (RIGHT, col);
 130               number->set_bound (RIGHT, col);
 131             }
 132           else if (!bracket->get_bound (RIGHT))
 133             {
 134               bracket->set_bound (RIGHT,
 135                                   bracket->get_bound (LEFT));
 136               number->set_bound (RIGHT,
 137                                                       stopped_tuplets_[i].bracket_->get_bound (LEFT));
 138             }
 139
 140           // todo: scrap last_tuplets_, use stopped_tuplets_ only.
 141           // clear stopped_tuplets_ at start_translation_timestep
 142           last_tuplets_.push_back (bracket);
 143           last_tuplets_.push_back (number);
 144         }
 145     }
 146   stopped_tuplets_.clear ();
 147
 148   concat (tuplets_, new_tuplets_);
 149   new_tuplets_.clear ();
 150   for (vsize j = tuplets_.size (); j > 0; j--)
 151     {
 152       /* i goes from size-1 downto 0, inclusively */
 153       vsize i = j - 1;
 154
 155
 156       if (tuplets_[i].bracket_)
 157         continue;
 158
 159       tuplets_[i].full_length_ = to_boolean (get_property ("tupletFullLength"));
 160       tuplets_[i].full_length_note_
 161         = to_boolean (get_property ("tupletFullLengthNote"));
 162
 163       tuplets_[i].bracket_ = make_spanner ("TupletBracket",
 164                                            tuplets_[i].event_->self_scm ());
 165       tuplets_[i].number_ = make_spanner ("TupletNumber",
 166                                           tuplets_[i].event_->self_scm ());
 167       tuplets_[i].number_->set_object ("bracket", tuplets_[i].bracket_->self_scm ());
 168       tuplets_[i].bracket_->set_object ("tuplet-number", tuplets_[i].number_->self_scm ());
 169       tuplets_[i].stop_moment_.grace_part_ = 0;
 170
 171
 172       if (i < tuplets_.size () - 1 && tuplets_[i + 1].bracket_)
 173         Tuplet_bracket::add_tuplet_bracket (tuplets_[i].bracket_, tuplets_[i + 1].bracket_);
 174
 175       if (i > 0 && tuplets_[i - 1].bracket_)
 176         Tuplet_bracket::add_tuplet_bracket (tuplets_[i - 1].bracket_, tuplets_[i].bracket_);
 177
 178     }
 179 }
 180
 181 void
 182 Tuplet_engraver::acknowledge_note_column (Grob_info inf)
 183 {
 184   for (vsize j = 0; j < tuplets_.size (); j++)
 185     if (tuplets_[j].bracket_)
 186       {
 187         Item *i = dynamic_cast<Item *> (inf.grob ());
 188         Tuplet_bracket::add_column (tuplets_[j].bracket_, i);
 189         add_bound_item (tuplets_[j].number_, i);
 190       }
 191 }
 192
 193 void
 194 Tuplet_engraver::start_translation_timestep ()
 195 {
 196   last_tuplets_.clear ();
 197 }
 198
 199 void
 200 Tuplet_engraver::finalize ()
 201 {
 202   if (to_boolean (get_property ("tupletFullLength")))
 203     for (vsize i = 0; i < last_tuplets_.size (); i++)
 204       {
 205         Item *col = unsmob_item (get_property ("currentCommandColumn"));
 206         last_tuplets_[i]->set_bound (RIGHT, col);
 207       }
 208 }
 209
 210 Tuplet_engraver::Tuplet_engraver ()
 211 {
 212 }
 213
 214 ADD_ACKNOWLEDGER (Tuplet_engraver, note_column);
 215 ADD_TRANSLATOR (Tuplet_engraver,
 216                 /* doc */ "Catch TupletSpannerEvent and generate appropriate bracket  ",
 217                 /* create */
 218                 "TupletBracket "
 219                 "TupletNumber ",
 220                 /* read */
 221                 "tupletFullLength "
 222                 "tupletFullLengthNote ",
 223                 /* write */ "");