lily/timing-translator.cc

   1 /*
   2   timing-translator.cc -- implement Timing_translator
   3
   4
   5   source file of the GNU LilyPond music typesetter
   6
   7   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   8 */
   9
  10 #include "debug.hh"
  11 #include "timing-translator.hh"
  12 #include "command-request.hh"
  13 #include "translator-group.hh"
  14 #include "global-translator.hh"
  15 #include "multi-measure-rest.hh"
  16
  17 /*
  18   TODO: change the rest of lily, so communication with
  19   Timing_translator is only done through properties.  This means the
  20   class declaration can go here.  */
  21
  22 bool
  23 Timing_translator::do_try_music (Music*r)
  24 {
  25   if (Timing_req *t =  dynamic_cast <Timing_req *> (r))
  26     {
  27       for (int i=0; i < timing_req_l_arr_.size (); i++)
  28         {
  29           /*
  30             merge timing reqs.
  31            */
  32           if (timing_req_l_arr_[i]->equal_b(t))
  33             return true;
  34           if (String (classname (timing_req_l_arr_[i])) == classname (r))
  35             {
  36               r->warning (_ ("conflicting timing request"));
  37               timing_req_l_arr_[i]->warning (_("This is the other timing request"));
  38               return false;
  39             }
  40         }
  41
  42       timing_req_l_arr_.push(t);
  43       return true;
  44     }
  45   return false;
  46 }
  47
  48 /*ugh.
  49  */
  50 Time_signature_change_req*
  51 Timing_translator::time_signature_req_l() const
  52 {
  53   Time_signature_change_req *m_l=0;
  54   for (int i=0; !m_l && i < timing_req_l_arr_.size (); i++)
  55     {
  56       m_l=dynamic_cast<Time_signature_change_req*> (timing_req_l_arr_[i]);
  57     }
  58   return m_l;
  59 }
  60
  61 void
  62 Timing_translator::do_process_music()
  63 {
  64   for (int i=0; i < timing_req_l_arr_.size (); i++)
  65     {
  66       Timing_req * tr_l = timing_req_l_arr_[i];
  67
  68       if (Time_signature_change_req *m_l = dynamic_cast <Time_signature_change_req *> (tr_l))
  69         {
  70           int b_i= m_l->beats_i_;
  71           int o_i = m_l->one_beat_i_;
  72           set_time_signature (b_i, o_i);
  73         }
  74       else if (dynamic_cast <Barcheck_req *> (tr_l))
  75         {
  76           if (measure_position ())
  77             {
  78               tr_l ->warning (_f ("barcheck failed at: %s",
  79                                   measure_position ().str ()));
  80               // resync
  81               daddy_trans_l_->set_property("measurePosition",
  82                                            smobify (new Moment));
  83
  84             }
  85         }
  86     }
  87 }
  88
  89
  90 void
  91 Timing_translator::do_pre_move_processing()
  92 {
  93   timing_req_l_arr_.set_size (0);
  94   Translator *t = this;
  95   Global_translator *global_l =0;
  96   do
  97     {
  98       t = t->daddy_trans_l_ ;
  99       global_l = dynamic_cast<Global_translator*> (t);
 100     }
 101   while (!global_l);
 102
 103   /* allbars == ! skipbars */
 104   SCM sb = get_property ("skipBars");
 105   bool allbars = !to_boolean (sb);
 106
 107   // urg: multi bar rests: should always process whole of first bar?
 108   SCM tim = get_property ("timing");
 109   bool timb = to_boolean (tim);
 110   if (timb && allbars)
 111     {
 112       Moment barleft = (measure_length () - measure_position ());
 113
 114       if (barleft > Moment (0))
 115         global_l->add_moment_to_process (now_mom () + barleft);
 116     }
 117 }
 118
 119
 120 ADD_THIS_TRANSLATOR(Timing_translator);
 121
 122 void
 123 Timing_translator::do_creation_processing()
 124 {
 125   daddy_trans_l_->set_property ("timing" , SCM_BOOL_T);
 126   daddy_trans_l_->set_property ("currentBarNumber" , gh_int2scm (1));
 127   daddy_trans_l_->set_property ("measurePosition", smobify (new Moment));
 128   daddy_trans_l_->set_property ("oneBeat", smobify (new Moment (1,4)));
 129   daddy_trans_l_->set_property ("measureLength", smobify (new Moment (1)));
 130 }
 131
 132 Moment
 133 Timing_translator::measure_length () const
 134 {
 135   SCM l = get_property("measureLength");
 136   if (SMOB_IS_TYPE_B(Moment, l))
 137     return *SMOB_TO_TYPE (Moment, l);
 138   else
 139     return Moment (1);
 140 }
 141
 142
 143 void
 144 Timing_translator::get_time_signature (int *n, int *d) const
 145 {
 146   Moment one_beat (1,4);
 147   SCM one = get_property ("beatLength");
 148   if (SMOB_IS_TYPE_B (Moment, one))
 149     one_beat = *SMOB_TO_TYPE (Moment, one);
 150   *n = measure_length () / one_beat;
 151   *d = one_beat.den_i ();
 152 }
 153
 154
 155 void
 156 Timing_translator::set_time_signature (int l, int o)
 157 {
 158   Moment one_beat = Moment (1)/Moment (o);
 159   Moment len = Moment (l) * one_beat;
 160   daddy_trans_l_->set_property ("measureLength", smobify (new Moment (len)));
 161   daddy_trans_l_->set_property ("beatLength", smobify (new Moment (one_beat)));
 162 }
 163
 164 Timing_translator::Timing_translator()
 165 {
 166 }
 167
 168
 169 Moment
 170 Timing_translator::measure_position () const
 171 {
 172   SCM sm = get_property ("measurePosition");
 173
 174   Moment m   =0;
 175   if (SMOB_IS_TYPE_B (Moment, sm))
 176     {
 177       m = *SMOB_TO_TYPE (Moment, sm);
 178       while (m < Moment (0))
 179         m += measure_length ();
 180     }
 181
 182   return m;
 183 }
 184
 185 void
 186 Timing_translator::do_post_move_processing()
 187 {
 188   Translator *t = this;
 189   Global_translator *global_l =0;
 190   do
 191     {
 192       t = t->daddy_trans_l_ ;
 193       global_l = dynamic_cast<Global_translator*> (t);
 194     }
 195   while (!global_l);
 196
 197   Moment dt = global_l->now_mom_  - global_l -> prev_mom_;
 198   if (dt < Moment (0))
 199     {
 200       programming_error ("Moving backwards in time");
 201       dt = 0;
 202     }
 203
 204   if (!dt)
 205     return;
 206
 207   Moment * measposp =0;
 208
 209   SCM s = get_property ("measurePosition");
 210   if (SMOB_IS_TYPE_B (Moment, s))
 211     {
 212       measposp = SMOB_TO_TYPE (Moment,s);
 213     }
 214   else
 215     {
 216       measposp = new Moment;
 217       daddy_trans_l_->set_property ("measurePosition", smobify (measposp));
 218     }
 219
 220   *measposp += dt;
 221   // don't need to set_property
 222
 223   SCM barn = get_property ("currentBarNumber");
 224   int b = 0;
 225   if (gh_number_p(barn))
 226     {
 227       b = gh_scm2int (barn);
 228     }
 229
 230   SCM cad = get_property ("timing");
 231   bool c= to_boolean (cad );
 232
 233   Moment len = measure_length ();
 234   while (c && *measposp >= len)
 235       {
 236         *measposp -= len;
 237         b ++;
 238       }
 239
 240   daddy_trans_l_->set_property ("currentBarNumber", gh_int2scm (b));
 241 }
 242