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.hh"
  17 #include "repeated-music.hh"
  18 #include "time-description.hh"
  19 #include "volta-spanner.hh"
  20 #include "note-column.hh"
  21 #include "paper-def.hh"
  22
  23
  24 ADD_THIS_TRANSLATOR (Repeat_engraver);
  25
  26 Repeat_engraver::Repeat_engraver ()
  27 {
  28 }
  29
  30 /*
  31   urg. Way too complicated. needs redesign.
  32  */
  33 bool
  34 Repeat_engraver::do_try_music (Music* m)
  35 {
  36   if (Repeated_music* r = dynamic_cast<Repeated_music *> (m))
  37     {
  38       r->unfold_b_ = get_property ("unfoldRepeats", 0).to_bool ();
  39       if (r->unfold_b_)
  40         return true;
  41
  42       Music_sequence* alt = r->alternative_p_;
  43       Moment repeat_length_mom = r->repeat_p_->length_mom ();
  44       Moment stop_mom = now_mom () + repeat_length_mom;
  45       Moment alt_mom = now_mom () + repeat_length_mom;
  46       if (repeat_length_mom)
  47         {
  48           for (Cons<Music> *i (alt->music_p_list_p_->head_); i && i->next_; i = i->next_)
  49             {
  50               stop_mom += i->car_->length_mom ();
  51               if (dynamic_cast<Simultaneous_music *> (alt))
  52                 break;
  53             }
  54           repeated_music_arr_.push (r);
  55           stop_mom_arr_.push (stop_mom);
  56         }
  57
  58       /*
  59          Counting nested repeats, it seems safest to forbid
  60          two pieces of alternative music to start at the same time.
  61       */
  62       for (int i = 0; i < alternative_start_mom_arr_.size (); i++)
  63         if (alternative_start_mom_arr_[i] == alt_mom)
  64           return false;
  65
  66       /*
  67         Coda kludge: see input/test/coda-kludge.ly
  68        */
  69       Moment span_mom;
  70       Scalar prop = get_property ("voltaSpannerDuration", 0);
  71       if (prop.length_i ())
  72         span_mom = prop.to_rat ();
  73
  74       int alt_i = r->repeats_i_ + 1 - cons_list_size_i (alt->music_p_list_p_->head_ ) >? 1;
  75       for (Cons<Music> *i = alt->music_p_list_p_->head_; i ; i = i->next_)
  76         {
  77           alternative_music_arr_.push (i->car_);
  78           alternative_start_mom_arr_.push (alt_mom);
  79           if (span_mom)
  80             alternative_stop_mom_arr_.push (alt_mom + span_mom);
  81           else
  82             alternative_stop_mom_arr_.push (alt_mom + i->car_->length_mom ());
  83           String str;
  84           if ((alt_i != 1) && (alt_i != r->repeats_i_) && (i == alt->music_p_list_p_->head_))
  85             str = "1.-";
  86           str += to_str (alt_i) + ".";
  87           alt_i++;
  88           alternative_str_arr_.push (str);
  89           if (!dynamic_cast<Simultaneous_music *> (alt))
  90             alt_mom += i->car_->length_mom ();
  91         }
  92       return true;
  93     }
  94   return false;
  95 }
  96
  97 void
  98 Repeat_engraver::acknowledge_element (Score_element_info i)
  99 {
 100   Moment now = now_mom ();
 101   if (Note_column *c = dynamic_cast<Note_column *> (i.elem_l_))
 102     {
 103       for (int i = 0; i < volta_p_arr_.size (); i++)
 104         if (volta_p_arr_[i] && (now >= alternative_start_mom_arr_[i]))
 105           volta_p_arr_[i]->add_column (c);
 106     }
 107   if (Bar *c = dynamic_cast<Bar*> (i.elem_l_))
 108     {
 109       for (int i = 0; i < volta_p_arr_.size (); i++)
 110         if (volta_p_arr_[i] && (now >= alternative_start_mom_arr_[i]))
 111           volta_p_arr_[i]->add_column (c);
 112     }
 113 }
 114
 115 void
 116 Repeat_engraver::do_removal_processing ()
 117 {
 118   for (int i = 0; i < volta_p_arr_.size (); i++)
 119     if (volta_p_arr_[i])
 120       typeset_element (volta_p_arr_[i]);
 121 }
 122
 123 void
 124 Repeat_engraver::do_process_requests ()
 125 {
 126   Moment now = now_mom ();
 127   Bar_engraver* bar_engraver_l = dynamic_cast <Bar_engraver*>
 128     (daddy_grav_l ()->get_simple_translator ("Bar_engraver"));
 129   for (int i = bar_b_arr_.size (); i < repeated_music_arr_.size (); i++)
 130     {
 131       if (bar_engraver_l)
 132         bar_engraver_l->request_bar ("|:");
 133       bar_b_arr_.push (true);
 134     }
 135   for (int i = 0; i < bar_b_arr_.size (); i++)
 136     {
 137       if (!bar_b_arr_[i] && (now >= stop_mom_arr_[i]))
 138         {
 139           if (bar_engraver_l)
 140             bar_engraver_l->request_bar (":|");
 141         }
 142     }
 143   for (int i = volta_p_arr_.size (); i < alternative_music_arr_.size (); i++)
 144     {
 145       Volta_spanner* v = new Volta_spanner;
 146       Scalar prop = get_property ("voltaVisibility", 0);
 147       if (!prop.to_bool ())
 148         v->set_elt_property (transparent_scm_sym, SCM_BOOL_T);
 149       prop = get_property ("voltaSpannerDuration", 0);
 150       if ((i == alternative_music_arr_.size () - 1) || prop.length_i ())
 151         v->last_b_ = true;
 152
 153       v->number_str_ = alternative_str_arr_[i];
 154       volta_p_arr_.push (v);
 155       announce_element (Score_element_info (v, alternative_music_arr_[i]));
 156     }
 157 }
 158
 159 void
 160 Repeat_engraver::do_pre_move_processing ()
 161 {
 162   Moment now = now_mom ();
 163   for (int i = bar_b_arr_.size (); i--; )
 164     {
 165       if (bar_b_arr_[i])
 166         bar_b_arr_[i] = false;
 167       if (now >= stop_mom_arr_[i])
 168         {
 169           bar_b_arr_.del (i);
 170           stop_mom_arr_.del (i);
 171           repeated_music_arr_.del (i);
 172         }
 173     }
 174   for (int i = volta_p_arr_.size (); i--; )
 175     {
 176       if (volta_p_arr_[i] && (now >= alternative_stop_mom_arr_[i])
 177           && (volta_p_arr_[i]->column_arr_.size () >= 1))
 178         {
 179           typeset_element (volta_p_arr_[i]);
 180           volta_p_arr_[i] = 0;
 181           volta_p_arr_.del (i);
 182           alternative_music_arr_[i] = 0;
 183           alternative_music_arr_.del (i);
 184           alternative_start_mom_arr_.del (i);
 185           alternative_stop_mom_arr_.del (i);
 186           alternative_str_arr_.del (i);
 187         }
 188     }
 189 }
 190
 191 void
 192 Repeat_engraver::do_post_move_processing ()
 193 {
 194 }
 195