lily/multi-measure-rest-engraver.cc

   1 /*
   2   multi_measure_rest-engraver.cc -- implement Multi_measure_rest_engraver
   3
   4   (c) 1998--2003 Jan Nieuwenhuizen <janneke@gnu.org>
   5        Han-Wen Nienhuys <hanwen@cs.uu.nl>
   6 */
   7
   8 #include "event.hh"
   9 #include "multi-measure-rest.hh"
  10 #include "paper-column.hh"
  11 #include "engraver-group-engraver.hh"
  12 #include "side-position-interface.hh"
  13 #include "staff-symbol-referencer.hh"
  14 #include "engraver.hh"
  15 #include "moment.hh"
  16 #include "spanner.hh"
  17
  18 /**
  19    The name says it all: make multi measure rests
  20
  21 */
  22 class Multi_measure_rest_engraver : public Engraver
  23 {
  24 public:
  25   TRANSLATOR_DECLARATIONS(Multi_measure_rest_engraver);
  26
  27 protected:
  28   virtual bool try_music (Music*);
  29   virtual void process_music ();
  30   virtual void stop_translation_timestep ();
  31   virtual void start_translation_timestep ();
  32   virtual void finalize ();
  33
  34 private:
  35   Music * rest_ev_;
  36   Link_array<Music> text_events_;
  37   int start_measure_;
  38   Rational last_main_moment_;
  39   Moment stop_moment_;
  40
  41   bool bar_seen_;
  42
  43   Spanner *last_rest_;
  44   Spanner *mmrest_;
  45
  46   Link_array<Spanner> numbers_;
  47   Link_array<Spanner> last_numbers_;
  48 };
  49
  50 Multi_measure_rest_engraver::Multi_measure_rest_engraver ()
  51 {
  52   bar_seen_ = false;
  53   start_measure_ = 0;
  54   mmrest_ = 0;
  55   last_rest_ =0;
  56   rest_ev_ = 0;
  57 }
  58
  59 bool
  60 Multi_measure_rest_engraver::try_music (Music* req)
  61 {
  62   if (req->is_mus_type ("multi-measure-rest-event"))
  63     {
  64       rest_ev_ = req;
  65       stop_moment_ = now_mom () + rest_ev_->get_length ();
  66
  67       return true;
  68     }
  69   else if (req->is_mus_type ("multi-measure-text-event"))
  70     {
  71       text_events_.push (req);
  72       return true;
  73     }
  74   return false;
  75 }
  76
  77 void
  78 Multi_measure_rest_engraver::process_music ()
  79 {
  80   if (rest_ev_ && !mmrest_)
  81     {
  82       mmrest_ = new Spanner (get_property ("MultiMeasureRest"));
  83
  84       if (text_events_.size())
  85         {
  86           for (int i = 0; i < text_events_.size(); i++)
  87             {
  88               Spanner *sp
  89                 = new Spanner (get_property ("MultiMeasureRestText"));
  90
  91               Music* e = text_events_[i];
  92               SCM t = e->get_mus_property ("text");
  93               SCM dir = e->get_mus_property ("direction");
  94               sp->set_grob_property ("text",t);
  95               if (is_direction (dir))
  96                 sp->set_grob_property ("direction",dir);
  97
  98               numbers_.push (sp);
  99               announce_grob (sp, e->self_scm());
 100             }
 101
 102           /*
 103             Stack different scripts.
 104            */
 105           Direction d = DOWN;
 106           do {
 107             Grob *last =0;
 108             for (int i=0; i <numbers_.size(); i++)
 109               {
 110                 if (gh_int2scm (d) == numbers_[i]->get_grob_property ("direction"))
 111                   {
 112                     if (last)
 113                       Side_position_interface::add_support (numbers_[i], last);
 114                     last = numbers_[i];
 115                   }
 116               }
 117           } while (flip (&d) != DOWN);
 118         }
 119       else
 120         {
 121           Spanner *sp
 122             = new Spanner (get_property ("MultiMeasureRestNumber"));
 123           numbers_.push (sp);
 124           announce_grob (sp, rest_ev_->self_scm());
 125         }
 126
 127       for (int 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       announce_grob (mmrest_, rest_ev_->self_scm());
 134       start_measure_
 135         = gh_scm2int (get_property ("currentBarNumber"));
 136     }
 137
 138   bar_seen_ = gh_string_p (get_property ("whichBar"));
 139 }
 140
 141 void
 142 Multi_measure_rest_engraver::stop_translation_timestep ()
 143 {
 144   /*
 145     We can not do this earlier, as breakableSeparationItem is not yet there.
 146   */
 147
 148   if (bar_seen_)
 149     {
 150       Grob *cmc = unsmob_grob (get_property("breakableSeparationItem"));
 151       if (!cmc)
 152         cmc = unsmob_grob (get_property ("currentCommandColumn"));
 153
 154       Item *it = dynamic_cast<Item*> (cmc);
 155
 156       if (mmrest_)
 157         {
 158           add_bound_item (mmrest_, it);
 159           for (int i = 0; i < numbers_.size(); i++)
 160             add_bound_item (numbers_[i], it);
 161         }
 162
 163       if (last_rest_)
 164         {
 165           add_bound_item (last_rest_,it);
 166           for (int i = 0; i < last_numbers_.size(); i++)
 167             add_bound_item (last_numbers_[i], it);
 168         }
 169     }
 170
 171
 172   SCM smp = get_property ("measurePosition");
 173   Moment mp = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
 174
 175   if (mmrest_
 176       && !mp.to_bool ()
 177       && mmrest_->get_bound (LEFT) && mmrest_->get_bound (RIGHT))
 178     {
 179       typeset_grob (mmrest_);
 180       for (int i = 0 ; i < numbers_.size(); i++)
 181         {
 182           typeset_grob (numbers_[i]);
 183           Side_position_interface::add_staff_support (numbers_[i]);
 184         }
 185
 186       /*
 187         we must keep mmrest_ around to set measure-count, so
 188         no mmrest_ = 0 here.
 189        */
 190     }
 191
 192   if (last_rest_)
 193     {
 194       /* sanity check */
 195       if (last_rest_->get_bound (LEFT) && last_rest_->get_bound (RIGHT)
 196           && last_rest_->get_bound (LEFT) != last_rest_->get_bound (RIGHT))
 197         {
 198           typeset_grob (last_rest_);
 199
 200           for (int i = 0; i < last_numbers_.size ();i++)
 201             {
 202               typeset_grob (last_numbers_[i]);
 203               Side_position_interface::add_staff_support (last_numbers_[i]);
 204             }
 205         }
 206       last_rest_ = 0;
 207       last_numbers_.clear();
 208     }
 209
 210   text_events_.clear ();
 211 }
 212
 213 void
 214 Multi_measure_rest_engraver::start_translation_timestep ()
 215 {
 216   if (now_mom ().main_part_ >= stop_moment_.main_part_)
 217     {
 218       rest_ev_ = 0;
 219     }
 220
 221   bar_seen_ = false;
 222
 223   SCM smp = get_property ("measurePosition");
 224   Moment mp = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
 225
 226   Moment now =now_mom ();
 227   if (mmrest_
 228       && now.main_part_ != last_main_moment_
 229       && mp.main_part_ == Rational (0))
 230     {
 231       last_rest_ = mmrest_;
 232       last_numbers_ = numbers_;
 233
 234       int cur = gh_scm2int (get_property ("currentBarNumber"));
 235       int num = cur - start_measure_;
 236       last_rest_->set_grob_property ("measure-count", gh_int2scm (num));
 237
 238       SCM sml = get_property ("measureLength");
 239       Rational ml = (unsmob_moment (sml)) ? unsmob_moment (sml)->main_part_ : Rational (1);
 240       if (ml >= Rational (2))
 241         {
 242           last_rest_->set_grob_property ("use-breve-rest", SCM_BOOL_T);
 243         }
 244
 245       mmrest_ = 0;
 246       numbers_.clear ();
 247
 248       Grob * last = last_numbers_.size() ? last_numbers_[0] : 0;
 249       if (last && last->get_grob_property ("text") == SCM_EOL)
 250         {
 251           SCM thres = get_property ("restNumberThreshold");
 252           int t = 1;
 253           if (gh_number_p (thres))
 254             t = gh_scm2int (thres);
 255
 256           if (num <= t)
 257             last->suicide();
 258           else
 259             {
 260               SCM text
 261                 = scm_number_to_string (gh_int2scm (num), SCM_MAKINUM (10));
 262               last->set_grob_property ("text", text);
 263             }
 264         }
 265     }
 266
 267   last_main_moment_ = now.main_part_;
 268 }
 269
 270 void
 271 Multi_measure_rest_engraver::finalize ()
 272 {
 273   if (mmrest_)
 274     {
 275       typeset_grob (mmrest_);
 276     }
 277   if (last_rest_)
 278     {
 279       typeset_grob (last_rest_);
 280     }
 281
 282   for (int i = 0; i < last_numbers_.size ();i++)
 283     typeset_grob (last_numbers_[i]);
 284
 285   for (int i = 0; i < numbers_.size ();i++)
 286     typeset_grob (numbers_[i]);
 287
 288 }
 289
 290 ENTER_DESCRIPTION(Multi_measure_rest_engraver,
 291 /* descr */
 292                   "Engraves multi-measure rests that are produced with @code{R}.  Reads "
 293 "measurePosition and currentBarNumber to determine what number to print "
 294 "over the MultiMeasureRest.  Reads measureLength to determine if it "
 295 "should use a whole rest or a breve rest to represent 1 measure "
 296                   ,
 297 /* creats*/       "MultiMeasureRest MultiMeasureRestNumber MultiMeasureRestText",
 298 /* accepts */     "multi-measure-rest-event multi-measure-text-event",
 299 /* acks  */      "",
 300 /* reads */       "currentBarNumber restNumberThreshold breakableSeparationItem currentCommandColumn measurePosition measureLength",
 301 /* write */       "");