lily/multi-measure-rest-engraver.cc

   1 /*
   2   multi_measure_rest-engraver.cc -- implement Multi_measure_rest_engraver
   3
   4   (c) 1998--2006 Jan Nieuwenhuizen <janneke@gnu.org>
   5   Han-Wen Nienhuys <hanwen@xs4all.nl>
   6 */
   7
   8 #include "multi-measure-rest.hh"
   9 #include "paper-column.hh"
  10 #include "engraver-group.hh"
  11 #include "side-position-interface.hh"
  12 #include "staff-symbol-referencer.hh"
  13 #include "stream-event.hh"
  14 #include "moment.hh"
  15
  16 #include "translator.icc"
  17
  18 /**
  19    The name says it all: make multi measure rests
  20 */
  21 class Multi_measure_rest_engraver : public Engraver
  22 {
  23 public:
  24   TRANSLATOR_DECLARATIONS (Multi_measure_rest_engraver);
  25
  26 protected:
  27   void process_music ();
  28   void stop_translation_timestep ();
  29   void start_translation_timestep ();
  30   virtual void finalize ();
  31   DECLARE_TRANSLATOR_LISTENER (multi_measure_rest);
  32   DECLARE_TRANSLATOR_LISTENER (multi_measure_text);
  33
  34 private:
  35   Stream_event *rest_ev_;
  36   vector<Stream_event*> text_events_;
  37   int start_measure_;
  38   Rational last_main_moment_;
  39   Moment stop_moment_;
  40
  41   bool bar_seen_;
  42   Item *last_command_item_;
  43   Spanner *last_rest_;
  44   Spanner *mmrest_;
  45
  46   vector<Spanner*> numbers_;
  47   vector<Spanner*> last_numbers_;
  48 };
  49
  50 Multi_measure_rest_engraver::Multi_measure_rest_engraver ()
  51 {
  52   last_command_item_ = 0;
  53
  54   /*
  55     For the start of a score.
  56   */
  57   bar_seen_ = true;
  58   start_measure_ = 0;
  59   mmrest_ = 0;
  60   last_rest_ = 0;
  61   rest_ev_ = 0;
  62 }
  63
  64 IMPLEMENT_TRANSLATOR_LISTENER (Multi_measure_rest_engraver, multi_measure_rest);
  65 void
  66 Multi_measure_rest_engraver::listen_multi_measure_rest (Stream_event *ev)
  67 {
  68   rest_ev_ = ev;
  69   stop_moment_ = now_mom () + get_event_length (rest_ev_);
  70 }
  71
  72 IMPLEMENT_TRANSLATOR_LISTENER (Multi_measure_rest_engraver, multi_measure_text);
  73 void
  74 Multi_measure_rest_engraver::listen_multi_measure_text (Stream_event *ev)
  75 {
  76   text_events_.push_back (ev);
  77 }
  78
  79 void
  80 Multi_measure_rest_engraver::process_music ()
  81 {
  82   if (rest_ev_ && !mmrest_
  83       && stop_moment_ > now_mom ())
  84     {
  85       mmrest_ = make_spanner ("MultiMeasureRest", rest_ev_->self_scm ());
  86
  87       Spanner *sp
  88         = make_spanner ("MultiMeasureRestNumber", rest_ev_->self_scm ());
  89       numbers_.push_back (sp);
  90
  91       if (text_events_.size ())
  92         {
  93           for (vsize i = 0; i < text_events_.size (); i++)
  94             {
  95               Stream_event *e = text_events_[i];
  96               Spanner *sp
  97                 = make_spanner ("MultiMeasureRestText", e->self_scm ());
  98               SCM t = e->get_property ("text");
  99               SCM dir = e->get_property ("direction");
 100               sp->set_property ("text", t);
 101               if (is_direction (dir))
 102                 sp->set_property ("direction", dir);
 103
 104               numbers_.push_back (sp);
 105             }
 106
 107           /*
 108             Stack different scripts.
 109           */
 110           Direction d = DOWN;
 111           do
 112             {
 113               Grob *last = 0;
 114               for (vsize i = 0; i < numbers_.size (); i++)
 115                 {
 116                   if (scm_from_int (d) == numbers_[i]->get_property ("direction"))
 117                     {
 118                       if (last)
 119                         Side_position_interface::add_support (numbers_[i], last);
 120                       last = numbers_[i];
 121                     }
 122                 }
 123             }
 124           while (flip (&d) != DOWN);
 125         }
 126
 127       for (vsize i = 0; i < numbers_.size (); i++)
 128         {
 129           Side_position_interface::add_support (numbers_[i], mmrest_);
 130           numbers_[i]->set_parent (mmrest_, Y_AXIS);
 131         }
 132
 133       start_measure_
 134         = scm_to_int (get_property ("currentBarNumber"));
 135     }
 136
 137   bar_seen_ = bar_seen_ || scm_is_string (get_property ("whichBar"));
 138 }
 139
 140 void
 141 Multi_measure_rest_engraver::stop_translation_timestep ()
 142 {
 143   /* We cannot do this earlier, as breakableSeparationItem is not yet
 144      there.  */
 145   if (bar_seen_)
 146     {
 147       Grob *cmc = unsmob_grob (get_property ("breakableSeparationItem"));
 148       if (!cmc)
 149         cmc = unsmob_grob (get_property ("currentCommandColumn"));
 150
 151       /* Ugh, this is a kludge - need this for multi-measure-rest-grace.ly  */
 152       last_command_item_ = dynamic_cast<Item *> (cmc);
 153     }
 154
 155   if (last_command_item_ && (mmrest_ || last_rest_))
 156     {
 157       if (last_rest_)
 158         {
 159           add_bound_item (last_rest_, last_command_item_);
 160           for (vsize i = 0; i < last_numbers_.size (); i++)
 161             add_bound_item (last_numbers_[i], last_command_item_);
 162         }
 163
 164       if (mmrest_)
 165         {
 166           add_bound_item (mmrest_, last_command_item_);
 167           for (vsize i = 0; i < numbers_.size (); i++)
 168             add_bound_item (numbers_[i], last_command_item_);
 169
 170           last_command_item_ = 0;
 171         }
 172     }
 173
 174   Moment mp (robust_scm2moment (get_property ("measurePosition"), Moment (0)));
 175   if (last_rest_)
 176     {
 177       last_rest_ = 0;
 178       last_numbers_.clear ();
 179     }
 180
 181   text_events_.clear ();
 182   bar_seen_ = false;
 183 }
 184
 185 void
 186 Multi_measure_rest_engraver::start_translation_timestep ()
 187 {
 188   if (now_mom ().main_part_ >= stop_moment_.main_part_)
 189     rest_ev_ = 0;
 190
 191   Moment mp (robust_scm2moment (get_property ("measurePosition"), Moment (0)));
 192
 193   Moment now = now_mom ();
 194   if (mmrest_
 195       && now.main_part_ != last_main_moment_
 196       && mp.main_part_ == Rational (0))
 197     {
 198       last_rest_ = mmrest_;
 199       last_numbers_ = numbers_;
 200
 201       int cur = scm_to_int (get_property ("currentBarNumber"));
 202       int num = cur - start_measure_;
 203
 204       /*
 205         We can't plug a markup directly into the grob, since the
 206         measure-count determines the formatting of the mmrest.
 207       */
 208       last_rest_->set_property ("measure-count", scm_from_int (num));
 209
 210       SCM sml = get_property ("measureLength");
 211       Rational ml = (unsmob_moment (sml)) ? unsmob_moment (sml)->main_part_ : Rational (1);
 212       if (ml >= Rational (2))
 213         last_rest_->set_property ("use-breve-rest", SCM_BOOL_T);
 214
 215       mmrest_ = 0;
 216       numbers_.clear ();
 217
 218       Grob *last = last_numbers_.size () ? last_numbers_[0] : 0;
 219       if (last && last->get_property ("text") == SCM_EOL)
 220         {
 221           SCM thres = get_property ("restNumberThreshold");
 222           int t = 1;
 223           if (scm_is_number (thres))
 224             t = scm_to_int (thres);
 225
 226           if (num <= t)
 227             last->suicide ();
 228           else
 229             {
 230               SCM text
 231                 = scm_number_to_string (scm_from_int (num), scm_from_int (10));
 232               last->set_property ("text", text);
 233             }
 234         }
 235     }
 236
 237   last_main_moment_ = now.main_part_;
 238 }
 239
 240 void
 241 Multi_measure_rest_engraver::finalize ()
 242 {
 243 }
 244
 245 ADD_TRANSLATOR (Multi_measure_rest_engraver,
 246                 /* doc */
 247                 "Engraves multi-measure rests that are produced with @code{R}.  Reads "
 248                 "measurePosition and currentBarNumber to determine what number to print "
 249                 "over the MultiMeasureRest.  Reads measureLength to determine if it "
 250                 "should use a whole rest or a breve rest to represent 1 measure ",
 251                 /* create */ "MultiMeasureRest MultiMeasureRestNumber MultiMeasureRestText",
 252                 /* accept */ "multi-measure-rest-event multi-measure-text-event",
 253                 /* read */
 254                 "currentBarNumber "
 255                 "restNumberThreshold "
 256                 "breakableSeparationItem "
 257                 "currentCommandColumn "
 258                 "measurePosition "
 259                 "measureLength",
 260                 /* write */ "");