2 ligature-engraver.cc -- implement Ligature_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2002--2006 Juergen Reuter <reuter@ipd.uka.de>
9 #include "ligature-engraver.hh"
12 #include "score-engraver.hh"
13 #include "note-head.hh"
18 #include "translator.icc"
21 * This abstract class provides the general framework for ligatures of
22 * any kind. It cares for handling start/stop ligatures events and
23 * collecting all noteheads inbetween, but delegates creation of a
24 * ligature spanner for each start/stop pair and typesetting of the
25 * ligature spanner to a concrete subclass.
27 * A concrete ligature engraver must subclass this class and provide
28 * functions create_ligature_spanner () and typeset_ligature
29 * (Spanner *, Array<Grob_info>). Subclasses of this class basically
30 * fall into two categories.
32 * The first category consists of engravers that engrave ligatures in
33 * a way that really deserves the name ligature. That is, they
34 * produce a single connected graphical object of fixed width,
35 * consisting of noteheads and other primitives. Space may be
36 * inserted only after each ligature, if necessary, but in no case
37 * between the primitives of the ligature. Accidentals have to be put
38 * to the left of the ligature, and not to the left of individual
39 * noteheads. Class Coherent_ligature_engraver is the common
40 * superclass for all of these engravers.
42 * The second category is for engravers that are relaxed in the sense
43 * that they do not require to produce a single connected graphical
44 * object. For example, in contemporary editions, ligatures are often
45 * marked, but otherwise use contemporary notation and spacing. In
46 * this category, there is currently only a single class,
47 * Ligature_bracket_engraver, which marks each ligature with a
48 * horizontal sqare bracket, but otherwise leaves the appearance
53 * TODO: lyrics/melisma/syllables: there should be at most one
54 * syllable of lyrics per ligature (i.e. for the lyrics context, a
55 * ligature should count as a single note, regardless of how many
56 * heads the ligature consists of).
58 * TODO: currently, you have to add/remove the proper
59 * Ligature_engraver (Ligature_bracket_engraver,
60 * Mensural_ligature_engraver) to the proper translator
61 * (e.g. VoiceContext) to choose between various representations.
62 * Since adding/removing an engraver to a translator is a global
63 * action in the layout block, you cannot mix various representations
64 * _within_ the same score. Hence, for selecting a representation,
65 * one would rather like to have a property that can be set e.g. for
66 * several staves individually. However, it seems that this approach
67 * would require to have a single, complicated Ligature_engraver that
68 * consists of all the code... This needs further thoughts.
70 Ligature_engraver::Ligature_engraver ()
73 finished_ligature_ = 0;
74 events_drul_[LEFT] = events_drul_[RIGHT] = 0;
75 prev_start_event_ = 0;
77 brew_ligature_primitive_proc = SCM_EOL;
81 Ligature_engraver::try_music (Music *m)
83 if (m->is_mus_type ("ligature-event"))
85 Direction d = to_dir (m->get_property ("span-direction"));
93 Ligature_engraver::process_music ()
95 if (events_drul_[STOP])
99 events_drul_[STOP]->origin ()->warning (_ ("can't find start of ligature"));
104 events_drul_[STOP]->origin ()->warning (_ ("no right bound"));
106 ligature_->set_bound (RIGHT, last_bound_);
108 prev_start_event_ = 0;
109 finished_primitives_ = primitives_;
110 finished_ligature_ = ligature_;
111 primitives_.clear ();
114 last_bound_ = unsmob_grob (get_property ("currentMusicalColumn"));
118 // TODO: maybe forbid breaks only if not transcribing
119 get_score_engraver ()->forbid_breaks ();
122 if (events_drul_[START])
126 events_drul_[START]->origin ()->warning (_ ("already have a ligature"));
130 prev_start_event_ = events_drul_[START];
131 ligature_ = create_ligature_spanner ();
133 Grob *bound = unsmob_grob (get_property ("currentMusicalColumn"));
135 events_drul_[START]->origin ()->warning (_ ("no left bound"));
137 ligature_->set_bound (LEFT, bound);
139 ligature_start_mom_ = now_mom ();
141 // TODO: dump cause into make_item/spanner.
142 // announce_grob (ligature_, events_drul_[START]->self_scm ());
147 Ligature_engraver::stop_translation_timestep ()
149 if (finished_ligature_)
151 if (!finished_primitives_.size ())
153 finished_ligature_->programming_error ("Ligature_engraver::stop_translation_timestep (): "
154 "junking empty ligature");
158 typeset_ligature (finished_ligature_, finished_primitives_);
159 finished_primitives_.clear ();
161 finished_ligature_ = 0;
164 events_drul_[START] = 0;
165 events_drul_[STOP] = 0;
169 Ligature_engraver::finalize ()
171 if (finished_ligature_)
173 typeset_ligature (finished_ligature_, finished_primitives_);
174 finished_primitives_.clear ();
175 finished_ligature_ = 0;
179 prev_start_event_->origin ()->warning (_ ("unterminated ligature"));
180 ligature_->suicide ();
185 Ligature_engraver::current_ligature ()
191 Ligature_engraver::acknowledge_note_head (Grob_info info)
195 primitives_.push (info);
196 if (info.grob () && (brew_ligature_primitive_proc != SCM_EOL))
198 info.grob ()->set_property ("stencil", brew_ligature_primitive_proc);
204 Ligature_engraver::acknowledge_rest (Grob_info info)
208 info.music_cause ()->origin ()->warning (_ ("ignoring rest: ligature may not contain rest"));
209 prev_start_event_->origin ()->warning (_ ("ligature was started here"));
210 // TODO: maybe better should stop ligature here rather than
211 // ignoring the rest?
215 // no ADD_ACKNOWLEDGER / ADD_ACKNOWLEDGER / ADD_TRANSLATOR macro calls
216 // since this class is abstract