lily/timing-translator.cc

   1
   2 /*
   3   timing-translator.cc -- implement Timing_translator
   4
   5   source file of the GNU LilyPond music typesetter
   6
   7   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
   8 */
   9
  10 #include "timing-translator.hh"
  11 #include "command-request.hh"
  12 #include "translator-group.hh"
  13 #include "global-translator.hh"
  14
  15 Timing_translator::Timing_translator ()
  16 {
  17   default_grouping_ = Rhythmic_grouping (MInterval (0, 1), 4); // ugh
  18 }
  19
  20 bool
  21 Timing_translator::do_try_request(Request*r)
  22 {
  23   Command_req * c = r->command();
  24   if (!(c && c->timing()))
  25     return false;
  26   for (int i=0; i < timing_req_l_arr_.size (); i++)
  27     {
  28       if (timing_req_l_arr_[i]->equal_b(r))
  29         return true;
  30       if (timing_req_l_arr_[i]->name() == r->name())
  31         {
  32           r->warning (_("conflicting timing request"));
  33           return false;
  34         }
  35     }
  36
  37   timing_req_l_arr_.push(c->timing());
  38   return true;
  39 }
  40
  41 Meter_change_req*
  42 Timing_translator::meter_req_l() const
  43 {
  44   Meter_change_req *m_l=0;
  45   for (int i=0; !m_l && i < timing_req_l_arr_.size (); i++)
  46     {
  47       m_l=timing_req_l_arr_[i]->meterchange();
  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       Meter_change_req *m_l = tr_l->meterchange();
  59       if (m_l)
  60         {
  61           int b_i= m_l->beats_i_;
  62           int o_i = m_l->one_beat_i_;
  63           if (! time_.allow_meter_change_b())
  64             tr_l->warning (_("Meter change not allowed here"));
  65           else
  66             {
  67               time_.set_meter (b_i, o_i);
  68               default_grouping_ =
  69                 Rhythmic_grouping (MInterval (0,Moment (b_i, o_i)), b_i);
  70             }
  71         }
  72       else if (tr_l->partial())
  73         {
  74           Moment m = tr_l->partial()->duration_;
  75           String error = time_.try_set_partial_str (m);
  76           if (error.length_i ())
  77             {
  78               tr_l->warning (error);
  79             }
  80           else
  81             time_.setpartial (m);
  82         }
  83       else if (tr_l->barcheck())
  84         {
  85           if (time_.whole_in_measure_)
  86             {
  87               tr_l ->warning (_("Barcheck failed"));
  88
  89               time_.whole_in_measure_ = 0; // resync
  90               time_.error_b_ = true;
  91             }
  92
  93         }
  94       else if (tr_l->cadenza())
  95         {
  96           time_.set_cadenza (tr_l->cadenza()->on_b_);
  97         }
  98       else if (tr_l->measuregrouping())
  99         {
 100           default_grouping_ =
 101             parse_grouping (tr_l->measuregrouping()->beat_i_arr_,
 102                             tr_l->measuregrouping()->elt_length_arr_);
 103
 104         }
 105     }
 106 }
 107
 108
 109 void
 110 Timing_translator::do_pre_move_processing()
 111 {
 112   timing_req_l_arr_.set_size (0);
 113   Global_translator *global_l =
 114     daddy_trans_l_->ancestor_l (100)->global_l (); // ugh 100.
 115
 116   if (!time_.cadenza_b_)
 117     global_l->add_moment_to_process (time_.next_bar_moment ());
 118 }
 119
 120 IMPLEMENT_IS_TYPE_B1(Timing_translator, Translator);
 121 ADD_THIS_TRANSLATOR(Timing_translator);
 122
 123 void
 124 Timing_translator::do_creation_processing()
 125 {
 126   time_.when_ = now_moment ();
 127 }
 128
 129 void
 130 Timing_translator::do_post_move_processing()
 131 {
 132   time_.add (now_moment ()  - time_.when_);
 133 }
 134
 135 void
 136 Timing_translator::do_print () const
 137 {
 138 #ifndef NPRINT
 139   time_.print ();
 140   default_grouping_.print ();
 141 #endif
 142 }