2 score-performer.cc -- implement Score_performer
4 source file of the GNU LilyPond music typesetter
6 (c) 1996--2006 Jan Nieuwenhuizen <janneke@gnu.org>
9 #include "score-performer.hh"
11 #include "audio-column.hh"
12 #include "audio-item.hh"
13 #include "context-def.hh"
15 #include "dispatcher.hh"
16 #include "global-context.hh"
17 #include "performance.hh"
18 #include "midi-stream.hh"
20 #include "output-def.hh"
21 #include "string-convert.hh"
23 #include "audio-staff.hh"
24 #include "audio-item.hh"
26 ADD_TRANSLATOR_GROUP (Score_performer
,
33 Score_performer::Score_performer ()
40 Score_performer::~Score_performer ()
45 Score_performer::announce_element (Audio_element_info info
)
47 announce_infos_
.push_back (info
);
48 if (Audio_staff
*s
= dynamic_cast<Audio_staff
*> (info
.elem_
))
50 performance_
->audio_staffs_
.push_back (s
);
53 performance_
->add_element (info
.elem_
);
57 Score_performer::acknowledge_audio_elements ()
59 for (vsize i
= 0; i
< announce_infos_
.size (); i
++)
61 if (Audio_item
*ai
= dynamic_cast<Audio_item
*> (announce_infos_
[i
].elem_
))
62 audio_column_
->add_audio_item (ai
);
64 Performer_group::acknowledge_audio_elements ();
69 Score_performer::connect_to_context (Context
*c
)
71 Performer_group::connect_to_context (c
);
73 Dispatcher
*d
= c
->get_global_context ()->event_source ();
74 d
->add_listener (GET_LISTENER (one_time_step
), ly_symbol2scm ("OneTimeStep"));
75 d
->add_listener (GET_LISTENER (prepare
), ly_symbol2scm ("Prepare"));
76 d
->add_listener (GET_LISTENER (finish
), ly_symbol2scm ("Finish"));
80 Score_performer::disconnect_from_context ()
82 Dispatcher
*d
= context ()->get_global_context ()->event_source ();
83 d
->remove_listener (GET_LISTENER (one_time_step
), ly_symbol2scm ("OneTimeStep"));
84 d
->remove_listener (GET_LISTENER (prepare
), ly_symbol2scm ("Prepare"));
85 d
->remove_listener (GET_LISTENER (finish
), ly_symbol2scm ("Finish"));
87 Performer_group::disconnect_from_context ();
90 IMPLEMENT_LISTENER (Score_performer
, prepare
);
92 Score_performer::prepare (SCM sev
)
94 Stream_event
*ev
= unsmob_stream_event (sev
);
95 SCM sm
= ev
->get_property ("moment");
96 Moment
*m
= unsmob_moment (sm
);
97 audio_column_
= new Audio_column (*m
);
98 precomputed_recurse_over_translators (context (), START_TRANSLATION_TIMESTEP
, UP
);
101 IMPLEMENT_LISTENER (Score_performer
, finish
);
103 Score_performer::finish (SCM
)
105 recurse_over_translators (context (),
106 &Translator::finalize
,
107 &Translator_group::finalize
,
111 IMPLEMENT_LISTENER (Score_performer
, one_time_step
);
113 Score_performer::one_time_step (SCM
)
115 if (to_boolean (context ()->get_property ("skipTypesetting")))
119 skip_start_mom_
= audio_column_
->at_mom ();
127 offset_mom_
-= audio_column_
->at_mom () - skip_start_mom_
;
131 audio_column_
->offset_at_mom (offset_mom_
);
132 precomputed_recurse_over_translators (context (), PROCESS_MUSIC
, UP
);
136 precomputed_recurse_over_translators (context (), STOP_TRANSLATION_TIMESTEP
, UP
);
140 Score_performer::derived_mark () const
143 scm_gc_mark (performance_
->self_scm ());
145 Performer_group::derived_mark ();
149 Score_performer::initialize ()
151 performance_
= new Performance
;
152 performance_
->unprotect ();
153 context ()->set_property ("output", performance_
->self_scm ());
154 performance_
->midi_
= context ()->get_output_def ();
157 Translator_group::initialize ();