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--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   8 */
   9
  10 #include "timing-translator.hh"
  11
  12 #include "warn.hh"
  13 #include "translator-group.hh"
  14 #include "global-context.hh"
  15 #include "multi-measure-rest.hh"
  16
  17 void
  18 Timing_translator::stop_translation_timestep ()
  19 {
  20   Global_context *global = get_global_context ();
  21
  22   /* allbars == ! skipbars */
  23   SCM sb = get_property ("skipBars");
  24   bool allbars = !to_boolean (sb);
  25
  26   // urg: multi bar rests: should always process whole of first bar?
  27   SCM tim = get_property ("timing");
  28   bool timb = to_boolean (tim);
  29   if (timb && allbars)
  30     {
  31       Moment barleft = (measure_length () - measure_position ());
  32       Moment now = now_mom ();
  33
  34       if (barleft > Moment (0)
  35           /*
  36             Hmm. We insert the bar moment every time we process a
  37             moment.  A waste of cpu?
  38            */
  39           && !now.grace_part_)
  40         global->add_moment_to_process (now + barleft);
  41     }
  42 }
  43
  44 void
  45 Timing_translator::initialize ()
  46 {
  47
  48   /*
  49     move this to engraver-init.ly?
  50    */
  51   context ()->add_alias (ly_symbol2scm ("Timing"));
  52   context ()->set_property ("timing" , SCM_BOOL_T);
  53   context ()->set_property ("currentBarNumber" , scm_int2num (1));
  54
  55   context ()->set_property ("timeSignatureFraction",
  56                                 scm_cons (scm_int2num (4), scm_int2num (4)));
  57   /*
  58     Do not init measurePosition; this should be done from global
  59     context.
  60    */
  61   context ()->set_property ("measureLength", Moment (Rational (1)).smobbed_copy ());
  62   context ()->set_property ("beatLength", Moment (Rational (1,4)).smobbed_copy ());
  63 }
  64
  65 Rational
  66 Timing_translator::measure_length () const
  67 {
  68   SCM l = get_property ("measureLength");
  69   if (unsmob_moment (l))
  70     return unsmob_moment (l)->main_part_;
  71   else
  72     return Rational (1);
  73 }
  74
  75 Timing_translator::Timing_translator ()
  76 {
  77
  78 }
  79
  80 Moment
  81 Timing_translator::measure_position () const
  82 {
  83   SCM sm = get_property ("measurePosition");
  84
  85   Moment m   =0;
  86   if (unsmob_moment (sm))
  87     {
  88       m = *unsmob_moment (sm);
  89       while (m.main_part_ < Rational (0))
  90         m.main_part_ += measure_length ();
  91     }
  92
  93   return m;
  94 }
  95
  96 void
  97 Timing_translator::start_translation_timestep ()
  98 {
  99   Global_context *global =get_global_context ();
 100
 101   Moment now = global->now_mom ();
 102   Moment dt = now  - global->previous_moment ();
 103   if (dt < Moment (0))
 104     {
 105       programming_error ("Moving backwards in time");
 106       dt = 0;
 107     }
 108   else if (dt.main_part_.is_infinity ())
 109     {
 110       programming_error ("Moving infinitely to future");
 111       dt = 0;
 112     }
 113
 114   if (!dt.to_bool ())
 115     return;
 116
 117   Moment measposp;
 118
 119   SCM s = get_property ("measurePosition");
 120   if (unsmob_moment (s))
 121     {
 122       measposp = *unsmob_moment (s);
 123     }
 124   else
 125     {
 126       measposp = now;
 127       context ()->set_property ("measurePosition",
 128                                 measposp.smobbed_copy ());
 129     }
 130
 131   measposp += dt;
 132
 133   SCM barn = get_property ("currentBarNumber");
 134   int b = 0;
 135   if (scm_is_number (barn))
 136     {
 137       b = scm_to_int (barn);
 138     }
 139
 140   SCM cad = get_property ("timing");
 141   bool c= to_boolean (cad);
 142
 143   Rational len = measure_length ();
 144   while (c && measposp.main_part_ >= len)
 145     {
 146       measposp.main_part_ -= len;
 147       b ++;
 148     }
 149
 150   context ()->set_property ("currentBarNumber", scm_int2num (b));
 151   context ()->set_property ("measurePosition", measposp.smobbed_copy ());
 152 }
 153
 154 ENTER_DESCRIPTION (Timing_translator,
 155                    "This engraver adds the alias "
 156                    "@code{Timing} to its containing context."
 157                    ,
 158
 159                    "","","","","");