source file of the GNU LilyPond music typesetter
- (c) 1996--2006 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 1996--2009 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "score-performer.hh"
#include "audio-item.hh"
ADD_TRANSLATOR_GROUP (Score_performer,
- /* doc */ "",
- /* create */ "",
- /* read */ "",
- /* write */ "");
+ /* doc */
+ "",
+
+ /* create */
+ "",
+
+ /* read */
+ "",
+
+ /* write */
+ ""
+ );
Score_performer::Score_performer ()
{
SCM sm = ev->get_property ("moment");
Moment *m = unsmob_moment (sm);
audio_column_ = new Audio_column (*m);
+ announce_element (Audio_element_info (audio_column_, 0));
precomputed_recurse_over_translators (context (), START_TRANSLATION_TIMESTEP, UP);
}
{
if (!skipping_)
{
- skip_start_mom_ = audio_column_->at_mom ();
+ skip_start_mom_ = audio_column_->when ();
skipping_ = true;
}
}
{
if (skipping_)
{
- offset_mom_ -= audio_column_->at_mom () - skip_start_mom_;
+ offset_mom_ -= audio_column_->when () - skip_start_mom_;
skipping_ = false;
}
- audio_column_->offset_at_mom (offset_mom_);
+ audio_column_->offset_when (offset_mom_);
precomputed_recurse_over_translators (context (), PROCESS_MUSIC, UP);
do_announces ();
}