2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2004--2011 Han-Wen Nienhuys
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/>.
21 #include "dispatcher.hh"
22 #include "lily-guile.hh"
24 #include "music-iterator.hh"
25 #include "music-sequence.hh"
30 CONTEXT_ONE
, CONTEXT_TWO
,
31 CONTEXT_SHARED
, CONTEXT_SOLO
,
32 CONTEXT_NULL
, NUM_OUTLETS
35 static const char *outlet_names_
[NUM_OUTLETS
] =
36 {"one", "two", "shared", "solo", "null"};
38 class Part_combine_iterator
: public Music_iterator
41 Part_combine_iterator ();
43 DECLARE_SCHEME_CALLBACK (constructor
, ());
45 virtual void derived_substitute (Context
*f
, Context
*t
);
46 virtual void derived_mark () const;
48 virtual void construct_children ();
49 virtual Moment
pending_moment () const;
50 virtual void do_quit ();
51 virtual void process (Moment
);
53 virtual bool ok () const;
56 /* used by try_process */
57 DECLARE_LISTENER (set_busy
);
61 bool try_process (Music_iterator
*i
, Moment m
);
63 Music_iterator
*first_iter_
;
64 Music_iterator
*second_iter_
;
69 Stream_event
*unisono_event_
;
70 Stream_event
*solo_one_event_
;
71 Stream_event
*solo_two_event_
;
72 Stream_event
*mmrest_event_
;
84 Status playing_state_
;
87 Should be SOLO1 or SOLO2
92 TODO: this is getting of hand...
94 Context_handle handles_
[NUM_OUTLETS
];
96 void substitute_both (Outlet_type to1
,
99 /* parameter is really Outlet_type */
100 void kill_mmrest (int in
);
101 void chords_together ();
104 void apart (bool silent
);
105 void unisono (bool silent
);
109 Part_combine_iterator::do_quit ()
112 first_iter_
->quit ();
114 second_iter_
->quit ();
116 // Add listeners to all contexts except Devnull.
117 for (int i
= 0; i
< NUM_OUTLETS
; i
++)
119 Context
*c
= handles_
[i
].get_outlet ();
120 if (c
->is_alias (ly_symbol2scm ("Voice")))
121 c
->event_source ()->remove_listener (GET_LISTENER (set_busy
), ly_symbol2scm ("music-event"));
122 handles_
[i
].set_context (0);
126 Part_combine_iterator::Part_combine_iterator ()
135 split_list_
= SCM_EOL
;
137 playing_state_
= APART
;
140 notice_busy_
= false;
144 Part_combine_iterator::derived_mark () const
147 scm_gc_mark (first_iter_
->self_scm ());
149 scm_gc_mark (second_iter_
->self_scm ());
151 Stream_event
*ptrs
[] = {
158 for (int i
= 0; ptrs
[i
]; i
++)
160 scm_gc_mark (ptrs
[i
]->self_scm ());
164 Part_combine_iterator::derived_substitute (Context
*f
,
168 first_iter_
->substitute_outlet (f
, t
);
172 Part_combine_iterator::pending_moment () const
176 if (first_iter_
->ok ())
177 p
= min (p
, first_iter_
->pending_moment ());
179 if (second_iter_
->ok ())
180 p
= min (p
, second_iter_
->pending_moment ());
185 Part_combine_iterator::ok () const
187 return first_iter_
->ok () || second_iter_
->ok ();
191 Part_combine_iterator::substitute_both (Outlet_type to1
,
194 Outlet_type tos
[] = {to1
, to2
};
196 Music_iterator
*mis
[] = {first_iter_
, second_iter_
};
198 for (int i
= 0; i
< 2; i
++)
200 for (int j
= 0; j
< NUM_OUTLETS
; j
++)
202 mis
[i
]->substitute_outlet (handles_
[j
].get_outlet (), handles_
[tos
[i
]].get_outlet ());
205 for (int j
= 0; j
< NUM_OUTLETS
; j
++)
207 if (j
!= to1
&& j
!= to2
)
213 Part_combine_iterator::kill_mmrest (int in
)
218 mmrest_event_
= new Stream_event (ly_symbol2scm ("multi-measure-rest-event"));
219 mmrest_event_
->set_property ("duration", SCM_EOL
);
220 mmrest_event_
->unprotect ();
223 handles_
[in
].get_outlet ()->event_source ()->broadcast (mmrest_event_
);
227 Part_combine_iterator::unisono (bool silent
)
229 Status newstate
= (silent
) ? UNISILENCE
: UNISONO
;
231 if (newstate
== state_
)
236 If we're coming from SOLO2 state, we might have kill mmrests
237 in the 1st voice, so in that case, we use the second voice
238 as a basis for events.
240 Outlet_type c1
= (last_playing_
== SOLO2
) ? CONTEXT_NULL
: CONTEXT_SHARED
;
241 Outlet_type c2
= (last_playing_
== SOLO2
) ? CONTEXT_SHARED
: CONTEXT_NULL
;
242 substitute_both (c1
, c2
);
243 kill_mmrest ((last_playing_
== SOLO2
)
244 ? CONTEXT_ONE
: CONTEXT_TWO
);
245 kill_mmrest (CONTEXT_SHARED
);
247 if (playing_state_
!= UNISONO
248 && newstate
== UNISONO
)
252 unisono_event_
= new Stream_event (ly_symbol2scm ("unisono-event"));
253 unisono_event_
->unprotect ();
257 Context
*out
= (last_playing_
== SOLO2
? second_iter_
: first_iter_
)
259 out
->event_source ()->broadcast (unisono_event_
);
260 playing_state_
= UNISONO
;
267 Part_combine_iterator::solo1 ()
274 substitute_both (CONTEXT_SOLO
, CONTEXT_NULL
);
276 kill_mmrest (CONTEXT_TWO
);
277 kill_mmrest (CONTEXT_SHARED
);
279 if (playing_state_
!= SOLO1
)
281 if (!solo_one_event_
)
283 solo_one_event_
= new Stream_event (ly_symbol2scm ("solo-one-event"));
284 solo_one_event_
->unprotect ();
287 first_iter_
->get_outlet ()->event_source ()->broadcast (solo_one_event_
);
289 playing_state_
= SOLO1
;
294 Part_combine_iterator::solo2 ()
302 substitute_both (CONTEXT_NULL
, CONTEXT_SOLO
);
304 if (playing_state_
!= SOLO2
)
306 if (!solo_two_event_
)
308 solo_two_event_
= new Stream_event (ly_symbol2scm ("solo-two-event"));
309 solo_two_event_
->unprotect ();
312 second_iter_
->get_outlet ()->event_source ()->broadcast (solo_two_event_
);
313 playing_state_
= SOLO2
;
319 Part_combine_iterator::chords_together ()
321 if (state_
== TOGETHER
)
325 playing_state_
= TOGETHER
;
328 substitute_both (CONTEXT_SHARED
, CONTEXT_SHARED
);
333 Part_combine_iterator::apart (bool silent
)
336 playing_state_
= APART
;
343 substitute_both (CONTEXT_ONE
, CONTEXT_TWO
);
348 Part_combine_iterator::construct_children ()
350 start_moment_
= get_outlet ()->now_mom ();
351 split_list_
= get_music ()->get_property ("split-list");
353 Context
*c
= get_outlet ();
355 for (int i
= 0; i
< NUM_OUTLETS
; i
++)
357 SCM type
= (i
== CONTEXT_NULL
) ? ly_symbol2scm ("Devnull") : ly_symbol2scm ("Voice");
358 /* find context below c: otherwise we may create new staff for each voice */
359 c
= c
->find_create_context (type
, outlet_names_
[i
], SCM_EOL
);
360 handles_
[i
].set_context (c
);
361 if (c
->is_alias (ly_symbol2scm ("Voice")))
362 c
->event_source ()->add_listener (GET_LISTENER (set_busy
), ly_symbol2scm ("music-event"));
365 SCM lst
= get_music ()->get_property ("elements");
366 Context
*one
= handles_
[CONTEXT_ONE
].get_outlet ();
368 first_iter_
= unsmob_iterator (get_iterator (unsmob_music (scm_car (lst
))));
369 Context
*two
= handles_
[CONTEXT_TWO
].get_outlet ();
371 second_iter_
= unsmob_iterator (get_iterator (unsmob_music (scm_cadr (lst
))));
374 /* Mimic all settings of voiceOne/voiceTwo for the two separate voices...*/
375 /* FIXME: Is there any way to use the definition of \voiceOne/\voiceTwo
380 "DynamicLineSpanner",
390 for (char const **p
= syms
; *p
; p
++)
392 SCM sym
= ly_symbol2scm (*p
);
393 execute_pushpop_property (one
, sym
,
394 ly_symbol2scm ("direction"), scm_from_int (1));
396 execute_pushpop_property (two
, sym
,
397 ly_symbol2scm ("direction"), scm_from_int (-1));
399 /* Handle horizontal shifts for crossing notes */
400 execute_pushpop_property (one
, ly_symbol2scm ("NoteColumn"),
401 ly_symbol2scm ("horizontal-shift"), scm_from_int (0));
402 execute_pushpop_property (two
, ly_symbol2scm ("NoteColumn"),
403 ly_symbol2scm ("horizontal-shift"), scm_from_int (1));
404 /* Also handle MultiMeasureRest positions for voice 1/2 */
405 execute_pushpop_property (one
, ly_symbol2scm ("MultiMeasureRest"),
406 ly_symbol2scm ("staff-position"), scm_from_int (4));
407 execute_pushpop_property (two
, ly_symbol2scm ("MultiMeasureRest"),
408 ly_symbol2scm ("staff-position"), scm_from_int (-4));
412 IMPLEMENT_LISTENER (Part_combine_iterator
, set_busy
);
414 Part_combine_iterator::set_busy (SCM se
)
419 Stream_event
*e
= unsmob_stream_event (se
);
421 if (e
->in_event_class ("note-event") || e
->in_event_class ("cluster-note-event"))
426 Processes a moment in an iterator, and returns whether any new music
430 Part_combine_iterator::try_process (Music_iterator
*i
, Moment m
)
437 notice_busy_
= false;
442 Part_combine_iterator::process (Moment m
)
444 Moment now
= get_outlet ()->now_mom ();
447 /* This is needed if construct_children was called before iteration
449 if (start_moment_
.main_part_
.is_infinity () && start_moment_
< 0)
452 for (; scm_is_pair (split_list_
); split_list_
= scm_cdr (split_list_
))
454 splitm
= unsmob_moment (scm_caar (split_list_
));
455 if (splitm
&& *splitm
+ start_moment_
> now
)
458 SCM tag
= scm_cdar (split_list_
);
460 if (tag
== ly_symbol2scm ("chords"))
462 else if (tag
== ly_symbol2scm ("apart")
463 || tag
== ly_symbol2scm ("apart-silence")
464 || tag
== ly_symbol2scm ("apart-spanner"))
465 apart (tag
== ly_symbol2scm ("apart-silence"));
466 else if (tag
== ly_symbol2scm ("unisono"))
468 else if (tag
== ly_symbol2scm ("unisilence"))
470 else if (tag
== ly_symbol2scm ("solo1"))
472 else if (tag
== ly_symbol2scm ("solo2"))
474 else if (scm_is_symbol (tag
))
476 string s
= "Unknown split directive: "
477 + (scm_is_symbol (tag
) ? ly_symbol2string (tag
) : string ("not a symbol"));
478 programming_error (s
);
482 if (first_iter_
->ok ())
484 if (try_process (first_iter_
, m
))
485 last_playing_
= SOLO1
;
488 if (second_iter_
->ok ())
490 if (try_process (second_iter_
, m
))
491 last_playing_
= SOLO2
;
495 IMPLEMENT_CTOR_CALLBACK (Part_combine_iterator
);