X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fscore-performer.cc;h=99d2f84967ee74f366ab5e0db653b199415bc99d;hb=c74523f061cba5fb50d307ff04e3507c8b36f5c8;hp=bb05c0f16a88ac815f1b550c1be64e4294639ecc;hpb=bdabe71a2bdda41b64c0000da6023771701f4def;p=lilypond.git diff --git a/lily/score-performer.cc b/lily/score-performer.cc index bb05c0f16a..99d2f84967 100644 --- a/lily/score-performer.cc +++ b/lily/score-performer.cc @@ -2,165 +2,157 @@ score-performer.cc -- implement Score_performer source file of the GNU LilyPond music typesetter - - (c) 1996, 1997 Jan Nieuwenhuizen - */ -#include + (c) 1996--2007 Jan Nieuwenhuizen +*/ + #include "score-performer.hh" -#include "input-translator.hh" -#include "midi-def.hh" -#include "audio-item.hh" + #include "audio-column.hh" -#include "audio-score.hh" -#include "midi-item.hh" +#include "audio-item.hh" +#include "context-def.hh" +#include "dispatcher.hh" +#include "global-context.hh" +#include "performance.hh" #include "midi-stream.hh" +#include "output-def.hh" #include "string-convert.hh" -#include "debug.hh" -#include "main.hh" -#include "score.hh" -#include "source-file.hh" -#include "source.hh" +#include "warn.hh" +#include "audio-staff.hh" +#include "audio-item.hh" -IMPLEMENT_IS_TYPE_B1(Score_performer,Performer_group_performer); -ADD_THIS_PERFORMER(Score_performer); +ADD_TRANSLATOR_GROUP (Score_performer, + /* doc */ "", + /* create */ "", + /* read */ "", + /* write */ ""); -Score_performer::Score_performer() +Score_performer::Score_performer () { - midi_l_ = 0; + performance_ = 0; + skipping_ = false; + audio_column_ = 0; } -Score_performer::~Score_performer() +Score_performer::~Score_performer () { } -Translator* -Score_performer::ancestor_l( int l ) -{ - return Global_translator::ancestor_l( l ); -} +void +Score_performer::announce_element (Audio_element_info info) +{ + announce_infos_.push_back (info); + if (Audio_staff *s = dynamic_cast (info.elem_)) + { + performance_->audio_staffs_.push_back (s); + } -int -Score_performer::depth_i() const -{ - return Global_translator::depth_i(); + performance_->add_element (info.elem_); } void -Score_performer::finish() +Score_performer::acknowledge_audio_elements () { - Performer_group_performer::do_removal_processing(); - - - Midi_stream output_stream( midi_l_->outfile_str_, midi_item_l_arr_.size() + 1, 384 ); - *mlog << "MIDI output to " << midi_l_->outfile_str_ << " ..." << endl; - - header( output_stream); -// int track_i = 1; - for (int i=0; i< midi_item_l_arr_.size(); i++) { - Midi_item * it_p = midi_item_l_arr_[i]; - -// if ( it_p->is_type_b( Midi_track::static_name())) -// ((Midi_track*)it_p )->number_i_ = track_i ++; - output_stream<< *it_p; + for (vsize i = 0; i < announce_infos_.size (); i++) + { + if (Audio_item *ai = dynamic_cast (announce_infos_[i].elem_)) + audio_column_->add_audio_item (ai); } - *output_stream.os_p_ << flush; - *mlog << endl; + Performer_group::acknowledge_audio_elements (); } + void -Score_performer::play( Audio_item* l ) +Score_performer::connect_to_context (Context *c) { - l->audio_column_l_ = audio_column_l_; - audio_column_l_->add( l ); + Performer_group::connect_to_context (c); + + Dispatcher *d = c->get_global_context ()->event_source (); + d->add_listener (GET_LISTENER (one_time_step), ly_symbol2scm ("OneTimeStep")); + d->add_listener (GET_LISTENER (prepare), ly_symbol2scm ("Prepare")); + d->add_listener (GET_LISTENER (finish), ly_symbol2scm ("Finish")); } void -Score_performer::play( Midi_item* l ) +Score_performer::disconnect_from_context () { - midi_item_l_arr_.push( l ); -} + Dispatcher *d = context ()->get_global_context ()->event_source (); + d->remove_listener (GET_LISTENER (one_time_step), ly_symbol2scm ("OneTimeStep")); + d->remove_listener (GET_LISTENER (prepare), ly_symbol2scm ("Prepare")); + d->remove_listener (GET_LISTENER (finish), ly_symbol2scm ("Finish")); -Moment -Score_performer::get_mom() const -{ - return now_mom_; + Performer_group::disconnect_from_context (); } +IMPLEMENT_LISTENER (Score_performer, prepare); void -Score_performer::header(Midi_stream &output_stream) +Score_performer::prepare (SCM sev) { - Midi_track midi_track; - - time_t t = time( 0 ); - - // perhaps multiple text events? - String str = String( "Creator: " ) + get_version_str() + "\n"; - - Midi_text creator( Midi_text::TEXT, str ); - midi_track.add( Moment( 0 ), &creator ); - - str = "Automatically generated at "; - str += ctime( &t ); - str = str.left_str( str.length_i() - 1 ); - str += "\n"; - Midi_text generate( Midi_text::TEXT, str ); - midi_track.add( Moment( 0 ), &generate ); - - str = "from musical definition: "; - - str += score_l_->location_str(); - Midi_text from( Midi_text::TEXT, str ); - midi_track.add( Moment( 0 ), &from ); - - Midi_text track_name( Midi_text::TRACK_NAME, "Track " - + String_convert::i2dec_str( 0, 0, '0' ) ); - midi_track.add( Moment( 0 ), &track_name ); - - Midi_tempo tempo ( get_tempo_i() ); - midi_track.add( Moment(0), &tempo); - - output_stream << midi_track; + Stream_event *ev = unsmob_stream_event (sev); + 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); } -void -Score_performer::prepare( Moment m ) +IMPLEMENT_LISTENER (Score_performer, finish); +void +Score_performer::finish (SCM) { - now_mom_ = m; - audio_column_l_ = new Audio_column( m ); - - score_l_->audio_score_p_->add( audio_column_l_ ); + recurse_over_translators (context (), + &Translator::finalize, + &Translator_group::finalize, + UP); } -void -Score_performer::process() +IMPLEMENT_LISTENER (Score_performer, one_time_step); +void +Score_performer::one_time_step (SCM) { - process_requests(); - prev_mom_ = now_mom_; + if (to_boolean (context ()->get_property ("skipTypesetting"))) + { + if (!skipping_) + { + skip_start_mom_ = audio_column_->when (); + skipping_ = true; + } + } + else + { + if (skipping_) + { + offset_mom_ -= audio_column_->when () - skip_start_mom_; + skipping_ = false; + } + + audio_column_->offset_when (offset_mom_); + precomputed_recurse_over_translators (context (), PROCESS_MUSIC, UP); + do_announces (); + } + + precomputed_recurse_over_translators (context (), STOP_TRANSLATION_TIMESTEP, UP); } void -Score_performer::set_score(Score* score_l ) +Score_performer::derived_mark () const { - Global_translator::set_score( score_l ); - midi_l_ = score_l->midi_p_; + if (performance_) + scm_gc_mark (performance_->self_scm ()); + + Performer_group::derived_mark (); } void -Score_performer::start() +Score_performer::initialize () { - // - int track_i = 1; - Performer_group_performer::set_track( track_i ); - // + performance_ = new Performance; + performance_->unprotect (); + context ()->set_property ("output", performance_->self_scm ()); + performance_->midi_ = context ()->get_output_def (); + - if ( midi_l_->outfile_str_ == "" ) - midi_l_->outfile_str_ = default_out_fn + ".midi"; + Translator_group::initialize (); } -int -Score_performer::get_tempo_i()const -{ - return midi_l_->get_tempo_i(Moment( 1, 4 )); -}