source file of the GNU LilyPond music typesetter
- (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "debug.hh"
class declaration can go here. */
bool
-Timing_translator::do_try_music (Music*r)
+Timing_translator::try_music (Music*r)
{
if (dynamic_cast<Barcheck_req*> (r))
{
}
void
-Timing_translator::do_process_music()
+Timing_translator::process_music ()
{
if (check_ && measure_position ())
{
Moment zero;
if (!to_boolean (get_property ("barCheckNoSynchronize")))
- daddy_trans_l_->set_property("measurePosition", zero.smobbed_copy ());
+ daddy_trans_l_->set_property ("measurePosition", zero.smobbed_copy ());
}
SCM fr = get_property ("timeSignatureFraction");
void
-Timing_translator::do_pre_move_processing()
+Timing_translator::stop_translation_timestep ()
{
check_ = 0;
}
-ADD_THIS_TRANSLATOR(Timing_translator);
+ADD_THIS_TRANSLATOR (Timing_translator);
void
-Timing_translator::do_creation_processing()
+Timing_translator::initialize ()
{
Moment m;
daddy_trans_l_->set_property ("timing" , SCM_BOOL_T);
Moment
Timing_translator::measure_length () const
{
- SCM l = get_property("measureLength");
- if (unsmob_moment(l))
+ SCM l = get_property ("measureLength");
+ if (unsmob_moment (l))
return *unsmob_moment (l);
else
return Moment (1);
daddy_trans_l_->set_property ("beatLength", one_beat.smobbed_copy ());
}
-Timing_translator::Timing_translator()
+Timing_translator::Timing_translator ()
{
last_time_sig_ = SCM_BOOL_F;
Moment m =0;
if (unsmob_moment (sm))
{
- m = *unsmob_moment(sm);
+ m = *unsmob_moment (sm);
while (m < Moment (0))
m += measure_length ();
}
}
void
-Timing_translator::do_post_move_processing()
+Timing_translator::start_translation_timestep ()
{
check_ =00;
Translator *t = this;
SCM s = get_property ("measurePosition");
if (unsmob_moment (s))
{
- measposp = *unsmob_moment(s);
+ measposp = *unsmob_moment (s);
}
else
{
- daddy_trans_l_->set_property ("measurePosition", measposp.smobbed_copy());
+ daddy_trans_l_->set_property ("measurePosition", measposp.smobbed_copy ());
}
measposp += dt;
SCM barn = get_property ("currentBarNumber");
int b = 0;
- if (gh_number_p(barn))
+ if (gh_number_p (barn))
{
b = gh_scm2int (barn);
}
SCM cad = get_property ("timing");
- bool c= to_boolean (cad );
+ bool c= to_boolean (cad);
Moment len = measure_length ();
while (c && measposp >= len)
}
daddy_trans_l_->set_property ("currentBarNumber", gh_int2scm (b));
- daddy_trans_l_->set_property ("measurePosition", measposp.smobbed_copy());
+ daddy_trans_l_->set_property ("measurePosition", measposp.smobbed_copy ());
}