- timing_req_l_arr_.set_size (0);
- Translator *t = this;
- Global_translator *global_l =0;
- do
- {
- t = t->daddy_trans_l_ ;
- global_l = dynamic_cast<Global_translator*> (t);
- }
- while (!global_l);
-
- /* allbars == ! skipbars */
- SCM sb = get_property ("skipBars", 0);
- bool allbars = !(gh_boolean_p (sb)&&gh_scm2bool (sb));
-
- // urg: multi bar rests: should always process whole of first bar?
- SCM tim = get_property ("timing", 0);
- bool timb = to_boolean (tim);
- if (timb && allbars)
- {
- Moment barleft = (measure_length () - measure_position ());
-
- if (barleft < Moment (0))
- barleft = 0;
-
- global_l->add_moment_to_process (now_mom () + barleft);
- }
+ context ()->add_alias (ly_symbol2scm ("Timing"));
+ context ()->set_property ("currentBarNumber", scm_from_int (1));
+ context ()->set_property ("internalBarNumber", scm_from_int (1));
+
+ context ()->set_property ("timeSignatureFraction",
+ scm_cons (scm_from_int (4), scm_from_int (4)));
+ /*
+ Do not init measurePosition; this should be done from global
+ context.
+ */
+ context ()->set_property ("measureLength",
+ Moment (Rational (1)).smobbed_copy ());
+ context ()->set_property ("beatLength",
+ Moment (Rational (1, 4)).smobbed_copy ());