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