2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
20 #include "timing-translator.hh"
23 #include "translator-group.hh"
24 #include "global-context.hh"
27 Timing_translator::stop_translation_timestep ()
29 Global_context *global = get_global_context ();
31 if (to_boolean (get_property ("timing"))
32 && !to_boolean (get_property ("skipBars")))
34 Moment barleft = (measure_length () - measure_position (context ()));
35 Moment now = now_mom ();
37 if (barleft > Moment (0))
39 Moment nextmom = now + barleft;
40 nextmom.grace_part_ = Rational (0);
41 global->add_moment_to_process (nextmom);
47 Timing_translator::initialize ()
49 Context *timing = unsmob_context (scm_call_2 (ly_lily_module_constant ("ly:context-find"),
50 context ()->self_scm (),
51 ly_symbol2scm ("Timing")));
52 if (timing != context ())
54 context ()->add_alias (ly_symbol2scm ("Timing"));
58 programming_error ("Can't find Timing context template");
63 SCM barnumber = timing->get_property ("currentBarNumber");
64 if (!scm_is_integer (barnumber))
65 barnumber = scm_from_int (1);
66 context ()->set_property ("currentBarNumber", barnumber);
67 context ()->set_property ("internalBarNumber", barnumber);
69 context ()->set_property ("timeSignatureFraction",
70 timing->get_property ("timeSignatureFraction"));
72 Do not init measurePosition; this should be done from global
75 context ()->set_property ("measureLength",
76 timing->get_property ("measureLength"));
77 context ()->set_property ("baseMoment",
78 timing->get_property ("baseMoment"));
82 Timing_translator::measure_length () const
84 SCM l = get_property ("measureLength");
85 if (unsmob_moment (l))
86 return unsmob_moment (l)->main_part_;
91 Timing_translator::Timing_translator ()
96 Timing_translator::start_translation_timestep ()
98 Global_context *global = get_global_context ();
100 Moment now = global->now_mom ();
101 Moment dt = now - global->previous_moment ();
104 programming_error ("moving backwards in time");
107 else if (dt.main_part_.is_infinity ())
109 programming_error ("moving infinitely to future");
118 SCM s = get_property ("measurePosition");
119 if (unsmob_moment (s))
120 measposp = *unsmob_moment (s);
124 context ()->set_property ("measurePosition",
125 measposp.smobbed_copy ());
130 int current_barnumber = robust_scm2int (get_property ("currentBarNumber"), 0);
131 int internal_barnumber = robust_scm2int (get_property ("internalBarNumber"), 0);
133 SCM cad = get_property ("timing");
134 bool c = to_boolean (cad);
136 Rational len = measure_length ();
137 while (c && measposp.main_part_ >= len)
139 measposp.main_part_ -= len;
141 internal_barnumber++;
144 context ()->set_property ("currentBarNumber", scm_from_int (current_barnumber));
145 context ()->set_property ("internalBarNumber", scm_from_int (internal_barnumber));
146 context ()->set_property ("measurePosition", measposp.smobbed_copy ());
149 #include "translator.icc"
151 ADD_TRANSLATOR (Timing_translator,
153 "This engraver adds the alias @code{Timing} to its containing"
154 " context. Responsible for synchronizing timing information"
155 " from staves. Normally in @code{Score}. In order to create"
156 " polyrhythmic music, this engraver should be removed from"
157 " @code{Score} and placed in @code{Staff}.",
168 "timeSignatureFraction ",
176 "timeSignatureFraction "