lily/repeat-engraver.cc

   1 /*
   2   repeat-engraver.cc -- implement Repeat_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--1999 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include "repeat-engraver.hh"
  10 #include "bar.hh"
  11 #include "bar-engraver.hh"
  12 #include "musical-request.hh"
  13 #include "multi-measure-rest.hh"
  14 #include "command-request.hh"
  15 #include "time-description.hh"
  16 #include "engraver-group-engraver.hh"
  17 #include "new-repeated-music.hh"
  18 #include "time-description.hh"
  19 #include "volta-spanner.hh"
  20 #include "note-column.hh"
  21 #include "paper-def.hh"
  22 #include "music-list.hh"
  23
  24 ADD_THIS_TRANSLATOR (Repeat_engraver);
  25
  26 /*
  27   Needs redesign?
  28
  29   -  Logic needs to be moved out of do_try_music(),
  30
  31   - don't  try to do multiple repeated music.  Lets assume repeats  don't nest.
  32
  33  */
  34 bool
  35 Repeat_engraver::do_try_music (Music* m)
  36 {
  37   if (Repeated_music* r = dynamic_cast<Repeated_music *> (m))
  38     {
  39       if (repeated_music_l_)
  40         {
  41           m->warning ("Already have repeated music.");
  42           return false;
  43         }
  44
  45       if (r->semi_fold_b_)
  46         {
  47           repeated_music_l_ = r;
  48           return true;
  49         }
  50     }
  51   return false;
  52 }
  53
  54 /**
  55  Walk through repeat music, and generate events for appropriate times.
  56 */
  57 void
  58 Repeat_engraver::queue_events ()
  59 {
  60   Music_sequence* alt = repeated_music_l_->alternatives_p_;
  61   Moment walk_mom = now_mom () + repeated_music_l_->repeat_body_p_->length_mom ();
  62
  63
  64   Cons_list<Bar_create_event> becel;
  65   becel.append (new Bar_create_event (now_mom (), "|:"));
  66
  67   if (!alt)
  68     {
  69       becel.append  (new Bar_create_event (walk_mom, ":|"));
  70       becel.append  (new Bar_create_event (walk_mom, "stop"));
  71    }
  72   else
  73     {
  74       int last_number = 0;
  75       int volta_number = repeated_music_l_->repeats_i_ - alt->length_i () + 1;
  76
  77       /*
  78         all repeat alternatives, and generate events with
  79         appropriate timestamps. The volta spanner event (a number string)
  80         happens at the begin of the alt. The :| bar event at the ending.
  81       */
  82       for (Cons<Music> *i = alt->music_p_list_p_->head_; i; i = i->next_)
  83         {
  84
  85           /*
  86             some idiot might typeset a repeat not starting on a
  87             barline.  Make sure there is one.
  88
  89             (todo: should try to avoid line breaks?)
  90           */
  91           if (last_number == 0)
  92             {
  93               becel.append (new Bar_create_event (walk_mom, ""));
  94             }
  95
  96
  97           Bar_create_event * c = new Bar_create_event (walk_mom, last_number+ 1,
  98                                                        volta_number);
  99
 100           if (!i->next_)
 101             c->last_b_ = true;
 102
 103           becel.append (c);
 104           last_number = volta_number;
 105           volta_number ++;
 106
 107           // should think about voltaSpannerDuration
 108           walk_mom += i->car_->length_mom();
 109
 110           if (i->next_)
 111             becel.append (new Bar_create_event (walk_mom, ":|"));
 112           else
 113             becel.append (new Bar_create_event (walk_mom, "stop"));
 114         }
 115     }
 116   create_barmoments_queue_ = becel.head_ ;
 117   becel.head_ = 0;
 118 }
 119
 120 void
 121 Repeat_engraver::do_process_requests ()
 122 {
 123   if (repeated_music_l_ && !done_this_one_b_)
 124     {
 125       queue_events ();
 126       done_this_one_b_ = true;
 127     }
 128
 129
 130   Cons<Bar_create_event> * head =   create_barmoments_queue_;
 131   if (!head)
 132     return;
 133
 134   Bar_engraver* bar_engraver_l = dynamic_cast <Bar_engraver*>
 135     (daddy_grav_l ()->get_simple_translator ("Bar_engraver"));
 136
 137   /*
 138     Do all the events that need to be done now.
 139   */
 140   bool stop = false;
 141   while (head && now_mom () == head->car_->when_)
 142     {
 143       create_barmoments_queue_ = create_barmoments_queue_->next_;
 144       head->next_ =0;
 145       if (bar_engraver_l)
 146         {
 147           String t = head->car_->type_;
 148           if (head->car_->bar_b_)
 149             {
 150               if (t == "stop" || t == ":|")
 151                 {
 152                   end_volta_span_p_ = volta_span_p_;
 153                   volta_span_p_ =0;
 154                 }
 155
 156               if (t != "stop")
 157                 bar_engraver_l->request_bar (t);
 158             }
 159           else
 160             {
 161               assert (!volta_span_p_);
 162               volta_span_p_ = new Volta_spanner;
 163               announce_element (Score_element_info (volta_span_p_,0));
 164               volta_span_p_->number_str_ = t;
 165               volta_span_p_->last_b_ = head->car_->last_b_;
 166               // voltaSpannerDuration stuff here.
 167               // other property stuff here.
 168             }
 169
 170         }
 171       else
 172         {
 173           warning ("No bar engraver found. Ignoring repeats.");
 174         }
 175
 176       delete head->car_;
 177       delete head;
 178
 179       head = create_barmoments_queue_;
 180     }
 181
 182   assert (!head || head->car_->when_ > now_mom ());
 183 }
 184
 185
 186 void
 187 Repeat_engraver::acknowledge_element (Score_element_info i)
 188 {
 189   if (Note_column *c = dynamic_cast<Note_column *> (i.elem_l_))
 190     {
 191       if (volta_span_p_)
 192         volta_span_p_->add_column (c);
 193       if (end_volta_span_p_)
 194         end_volta_span_p_->add_column (c);
 195     }
 196   if (Bar *c = dynamic_cast<Bar*> (i.elem_l_))
 197     {
 198       if (volta_span_p_)
 199         volta_span_p_->add_bar (c);
 200       if (end_volta_span_p_)
 201         end_volta_span_p_ ->add_bar(c);
 202     }
 203 }
 204
 205
 206 void
 207 Repeat_engraver::do_removal_processing ()
 208 {
 209   if (volta_span_p_)
 210     {
 211       typeset_element(volta_span_p_);
 212     }
 213   if (end_volta_span_p_)
 214     {
 215       typeset_element (end_volta_span_p_);
 216     }
 217   // todo: the paranoid may also delete create_barmoments_queue_
 218 }
 219
 220 void
 221 Repeat_engraver::do_post_move_processing ()
 222 {
 223   for (Cons<Bar_create_event> *p = create_barmoments_queue_;
 224        p && p->car_->when_ == now_mom (); p = p->next_)
 225     if (p->car_->type_ == "stop")
 226       {
 227         repeated_music_l_ = 0;
 228         done_this_one_b_ = false;
 229       }
 230 }
 231
 232 void
 233 Repeat_engraver::do_pre_move_processing ()
 234 {
 235   if (end_volta_span_p_)
 236     {
 237       typeset_element (end_volta_span_p_ );
 238       end_volta_span_p_ =0;
 239     }
 240
 241 }
 242
 243
 244 Repeat_engraver::Repeat_engraver()
 245 {
 246   repeated_music_l_ =0;
 247   end_volta_span_p_ =0;
 248   volta_span_p_ =0;
 249   done_this_one_b_ = false;
 250   create_barmoments_queue_ =0;
 251 }
 252
 253 /* ************** */
 254 Bar_create_event::Bar_create_event()
 255 {
 256   last_b_ =false;
 257   bar_b_ = true;
 258 }
 259
 260 Bar_create_event::Bar_create_event (Moment w, String s)
 261 {
 262   last_b_ =false;
 263   when_ = w;
 264   type_ = s;
 265   bar_b_ = true;
 266 }
 267
 268 Bar_create_event::Bar_create_event (Moment w, int i, int j)
 269 {
 270   last_b_ =false;
 271   when_ = w ;
 272   bar_b_ = false;
 273
 274   if (i!=j)
 275     type_ = to_str (i) + ".-" ;
 276
 277   type_ += to_str(j) + ".";
 278 }