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--2007 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       if (tuplets_[i].stop_moment_ == now)
 112         {
 113           stopped_tuplets_.push_back (tuplets_[i]);
 114           tuplets_.erase (tuplets_.begin () + i);
 115         }
 116     }
 117
 118   for (vsize i = 0; i < stopped_tuplets_.size (); i++)
 119     {
 120       Spanner *bracket = stopped_tuplets_[i].bracket_;
 121       Spanner *number = stopped_tuplets_[i].number_;
 122       if (bracket)
 123         {
 124           if (stopped_tuplets_[i].full_length_)
 125             {
 126               Item *col =
 127                 unsmob_item (stopped_tuplets_[i].full_length_note_
 128                              ? get_property ("currentMusicalColumn")
 129                              : get_property ("currentCommandColumn"));
 130
 131               bracket->set_bound (RIGHT, col);
 132               number->set_bound (RIGHT, col);
 133             }
 134           else if (!bracket->get_bound (RIGHT))
 135             {
 136               bracket->set_bound (RIGHT,
 137                                   bracket->get_bound (LEFT));
 138               number->set_bound (RIGHT,
 139                                  stopped_tuplets_[i].bracket_->get_bound (LEFT));
 140             }
 141
 142           // todo: scrap last_tuplets_, use stopped_tuplets_ only.
 143           // clear stopped_tuplets_ at start_translation_timestep
 144           last_tuplets_.push_back (bracket);
 145           last_tuplets_.push_back (number);
 146         }
 147     }
 148   stopped_tuplets_.clear ();
 149
 150   concat (tuplets_, new_tuplets_);
 151   new_tuplets_.clear ();
 152   for (vsize j = tuplets_.size (); j > 0; j--)
 153     {
 154       /* i goes from size-1 downto 0, inclusively */
 155       vsize i = j - 1;
 156
 157
 158       if (tuplets_[i].bracket_)
 159         continue;
 160
 161       tuplets_[i].full_length_ = to_boolean (get_property ("tupletFullLength"));
 162       tuplets_[i].full_length_note_
 163         = to_boolean (get_property ("tupletFullLengthNote"));
 164
 165       tuplets_[i].bracket_ = make_spanner ("TupletBracket",
 166                                            tuplets_[i].event_->self_scm ());
 167       tuplets_[i].number_ = make_spanner ("TupletNumber",
 168                                           tuplets_[i].event_->self_scm ());
 169       tuplets_[i].number_->set_object ("bracket", tuplets_[i].bracket_->self_scm ());
 170       tuplets_[i].bracket_->set_object ("tuplet-number", tuplets_[i].number_->self_scm ());
 171       tuplets_[i].stop_moment_.grace_part_ = 0;
 172
 173
 174       if (i + 1 < tuplets_.size () && tuplets_[i + 1].bracket_)
 175         Tuplet_bracket::add_tuplet_bracket (tuplets_[i].bracket_, tuplets_[i + 1].bracket_);
 176
 177       if (i > 0 && tuplets_[i - 1].bracket_)
 178         Tuplet_bracket::add_tuplet_bracket (tuplets_[i - 1].bracket_, tuplets_[i].bracket_);
 179
 180     }
 181 }
 182
 183 void
 184 Tuplet_engraver::acknowledge_note_column (Grob_info inf)
 185 {
 186   for (vsize j = 0; j < tuplets_.size (); j++)
 187     if (tuplets_[j].bracket_)
 188       {
 189         Item *i = dynamic_cast<Item *> (inf.grob ());
 190         Tuplet_bracket::add_column (tuplets_[j].bracket_, i);
 191         add_bound_item (tuplets_[j].number_, i);
 192       }
 193 }
 194
 195 void
 196 Tuplet_engraver::start_translation_timestep ()
 197 {
 198   last_tuplets_.clear ();
 199 }
 200
 201 void
 202 Tuplet_engraver::finalize ()
 203 {
 204   if (to_boolean (get_property ("tupletFullLength")))
 205     for (vsize i = 0; i < last_tuplets_.size (); i++)
 206       {
 207         Item *col = unsmob_item (get_property ("currentCommandColumn"));
 208         last_tuplets_[i]->set_bound (RIGHT, col);
 209       }
 210 }
 211
 212 Tuplet_engraver::Tuplet_engraver ()
 213 {
 214 }
 215
 216 ADD_ACKNOWLEDGER (Tuplet_engraver, note_column);
 217 ADD_TRANSLATOR (Tuplet_engraver,
 218                 /* doc */ "Catch TupletSpannerEvent and generate appropriate bracket  ",
 219                 /* create */
 220                 "TupletBracket "
 221                 "TupletNumber ",
 222                 /* read */
 223                 "tupletFullLength "
 224                 "tupletFullLengthNote ",
 225                 /* write */ "");