2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2004--2010 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"
28 typedef enum Outlet_type
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
;
141 Part_combine_iterator::derived_mark () const
144 scm_gc_mark (first_iter_
->self_scm ());
146 scm_gc_mark (second_iter_
->self_scm ());
148 Stream_event
*ptrs
[] = {
155 for (int i
= 0; ptrs
[i
]; i
++)
157 scm_gc_mark (ptrs
[i
]->self_scm ());
161 Part_combine_iterator::derived_substitute (Context
*f
,
165 first_iter_
->substitute_outlet (f
, t
);
169 Part_combine_iterator::pending_moment () const
173 if (first_iter_
->ok ())
174 p
= min (p
, first_iter_
->pending_moment ());
176 if (second_iter_
->ok ())
177 p
= min (p
, second_iter_
->pending_moment ());
182 Part_combine_iterator::ok () const
184 return first_iter_
->ok () || second_iter_
->ok ();
188 Part_combine_iterator::chords_together ()
190 if (state_
== TOGETHER
)
194 playing_state_
= TOGETHER
;
197 substitute_both (CONTEXT_SHARED
, CONTEXT_SHARED
);
202 Part_combine_iterator::kill_mmrest (int in
)
207 mmrest_event_
= new Stream_event (ly_symbol2scm ("multi-measure-rest-event"));
208 mmrest_event_
->set_property ("duration", SCM_EOL
);
209 mmrest_event_
->unprotect ();
212 handles_
[in
].get_outlet ()->event_source ()->broadcast (mmrest_event_
);
216 Part_combine_iterator::solo1 ()
223 substitute_both (CONTEXT_SOLO
, CONTEXT_NULL
);
225 kill_mmrest (CONTEXT_TWO
);
226 kill_mmrest (CONTEXT_SHARED
);
228 if (playing_state_
!= SOLO1
)
230 if (!solo_one_event_
)
232 solo_one_event_
= new Stream_event (ly_symbol2scm ("solo-one-event"));
233 solo_one_event_
->unprotect ();
236 first_iter_
->get_outlet ()->event_source ()->broadcast (solo_one_event_
);
238 playing_state_
= SOLO1
;
243 Part_combine_iterator::substitute_both (Outlet_type to1
,
246 Outlet_type tos
[] = {to1
, to2
};
248 Music_iterator
*mis
[] = {first_iter_
, second_iter_
};
250 for (int i
= 0; i
< 2; i
++)
252 for (int j
= 0; j
< NUM_OUTLETS
; j
++)
254 mis
[i
]->substitute_outlet (handles_
[j
].get_outlet (), handles_
[tos
[i
]].get_outlet ());
257 for (int j
= 0; j
< NUM_OUTLETS
; j
++)
259 if (j
!= to1
&& j
!= to2
)
265 Part_combine_iterator::unisono (bool silent
)
267 Status newstate
= (silent
) ? UNISILENCE
: UNISONO
;
269 if (newstate
== state_
)
274 If we're coming from SOLO2 state, we might have kill mmrests
275 in the 1st voice, so in that case, we use the second voice
276 as a basis for events.
278 Outlet_type c1
= (last_playing_
== SOLO2
) ? CONTEXT_NULL
: CONTEXT_SHARED
;
279 Outlet_type c2
= (last_playing_
== SOLO2
) ? CONTEXT_SHARED
: CONTEXT_NULL
;
280 substitute_both (c1
, c2
);
281 kill_mmrest ((last_playing_
== SOLO2
)
282 ? CONTEXT_ONE
: CONTEXT_TWO
);
283 kill_mmrest (CONTEXT_SHARED
);
285 if (playing_state_
!= UNISONO
286 && newstate
== UNISONO
)
290 unisono_event_
= new Stream_event (ly_symbol2scm ("unisono-event"));
291 unisono_event_
->unprotect ();
295 Context
*out
= (last_playing_
== SOLO2
? second_iter_
: first_iter_
)
297 out
->event_source ()->broadcast (unisono_event_
);
298 playing_state_
= UNISONO
;
305 Part_combine_iterator::solo2 ()
313 substitute_both (CONTEXT_NULL
, CONTEXT_SOLO
);
315 if (playing_state_
!= SOLO2
)
317 if (!solo_two_event_
)
319 solo_two_event_
= new Stream_event (ly_symbol2scm ("solo-two-event"));
320 solo_two_event_
->unprotect ();
323 second_iter_
->get_outlet ()->event_source ()->broadcast (solo_two_event_
);
324 playing_state_
= SOLO2
;
330 Part_combine_iterator::apart (bool silent
)
333 playing_state_
= APART
;
340 substitute_both (CONTEXT_ONE
, CONTEXT_TWO
);
345 Part_combine_iterator::construct_children ()
347 start_moment_
= get_outlet ()->now_mom ();
348 split_list_
= get_music ()->get_property ("split-list");
350 Context
*c
= get_outlet ();
352 for (int i
= 0; i
< NUM_OUTLETS
; i
++)
354 SCM type
= (i
== CONTEXT_NULL
) ? ly_symbol2scm ("Devnull") : ly_symbol2scm ("Voice");
355 /* find context below c: otherwise we may create new staff for each voice */
356 c
= c
->find_create_context (type
, outlet_names_
[i
], SCM_EOL
);
357 handles_
[i
].set_context (c
);
358 if (c
->is_alias (ly_symbol2scm ("Voice")))
359 c
->event_source ()->add_listener (GET_LISTENER (set_busy
), ly_symbol2scm ("music-event"));
362 SCM lst
= get_music ()->get_property ("elements");
363 Context
*one
= handles_
[CONTEXT_ONE
].get_outlet ();
365 first_iter_
= unsmob_iterator (get_iterator (unsmob_music (scm_car (lst
))));
366 Context
*two
= handles_
[CONTEXT_TWO
].get_outlet ();
368 second_iter_
= unsmob_iterator (get_iterator (unsmob_music (scm_cadr (lst
))));
373 "DynamicLineSpanner",
383 for (char const **p
= syms
; *p
; p
++)
385 SCM sym
= ly_symbol2scm (*p
);
386 execute_pushpop_property (one
, sym
,
387 ly_symbol2scm ("direction"), scm_from_int (1));
389 execute_pushpop_property (two
, sym
,
390 ly_symbol2scm ("direction"), scm_from_int (-1));
394 IMPLEMENT_LISTENER (Part_combine_iterator
, set_busy
);
396 Part_combine_iterator::set_busy (SCM se
)
401 Stream_event
*e
= unsmob_stream_event (se
);
403 if (e
->in_event_class ("note-event") || e
->in_event_class ("cluster-note-event"))
408 Processes a moment in an iterator, and returns whether any new music
412 Part_combine_iterator::try_process (Music_iterator
*i
, Moment m
)
419 notice_busy_
= false;
424 Part_combine_iterator::process (Moment m
)
426 Moment now
= get_outlet ()->now_mom ();
429 /* This is needed if construct_children was called before iteration
431 if (start_moment_
.main_part_
.is_infinity () && start_moment_
< 0)
434 for (; scm_is_pair (split_list_
); split_list_
= scm_cdr (split_list_
))
436 splitm
= unsmob_moment (scm_caar (split_list_
));
437 if (splitm
&& *splitm
+ start_moment_
> now
)
440 SCM tag
= scm_cdar (split_list_
);
442 if (tag
== ly_symbol2scm ("chords"))
444 else if (tag
== ly_symbol2scm ("apart")
445 || tag
== ly_symbol2scm ("apart-silence")
446 || tag
== ly_symbol2scm ("apart-spanner"))
447 apart (tag
== ly_symbol2scm ("apart-silence"));
448 else if (tag
== ly_symbol2scm ("unisono"))
450 else if (tag
== ly_symbol2scm ("unisilence"))
452 else if (tag
== ly_symbol2scm ("solo1"))
454 else if (tag
== ly_symbol2scm ("solo2"))
456 else if (scm_is_symbol (tag
))
458 string s
= "Unknown split directive: "
459 + (scm_is_symbol (tag
) ? ly_symbol2string (tag
) : string ("not a symbol"));
460 programming_error (s
);
464 if (first_iter_
->ok ())
466 if (try_process (first_iter_
, m
))
467 last_playing_
= SOLO1
;
470 if (second_iter_
->ok ())
472 if (try_process (second_iter_
, m
))
473 last_playing_
= SOLO2
;
477 IMPLEMENT_CTOR_CALLBACK (Part_combine_iterator
);