2 tie-engraver.cc -- implement Tie_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
11 #include "protected-scm.hh"
13 #include "tie-column.hh"
14 #include "engraver.hh"
16 #include "grob-pitch-tuple.hh"
18 #include "note-head.hh"
19 #include "staff-symbol-referencer.hh"
22 Manufacture ties. Acknowledge noteheads, and put them into a
23 priority queue. If we have a TieEvent, connect the notes that finish
24 just at this time, and note that start at this time.
26 TODO: Remove the dependency on musical info. We should tie on the
27 basis of position and duration-log of the heads (not of the events).
30 struct Head_event_tuple
38 Head_event_tuple (Grob *h, Music *m, SCM def)
42 tie_definition_ = def;
46 class Tie_engraver : public Engraver
49 Link_array<Grob> now_heads_;
50 Array<Head_event_tuple> heads_to_tie_;
51 Link_array<Grob> ties_;
56 void stop_translation_timestep ();
57 virtual void derived_mark () const;
58 void start_translation_timestep ();
59 DECLARE_ACKNOWLEDGER (note_head);
60 virtual bool try_music (Music *);
61 void process_music ();
62 void typeset_tie (Grob *);
64 TRANSLATOR_DECLARATIONS (Tie_engraver);
68 Tie_engraver::derived_mark () const
70 Engraver::derived_mark ();
71 for (int i = 0; i < heads_to_tie_.size (); i++)
72 scm_gc_mark (heads_to_tie_[i].tie_definition_);
75 Tie_engraver::Tie_engraver ()
82 Tie_engraver::try_music (Music *mus)
84 if (mus->is_mus_type ("tie-event"))
91 Tie_engraver::process_music ()
94 context ()->set_property ("tieMelismaBusy", SCM_BOOL_T);
98 Tie_engraver::acknowledge_note_head (Grob_info i)
102 for (int i = heads_to_tie_.size (); i--;)
104 Grob *th = heads_to_tie_[i].head_;
105 Music *right_mus = unsmob_music (h->get_property ("cause"));
106 Music *left_mus = unsmob_music (th->get_property ("cause"));
109 maybe should check positions too.
111 if (right_mus && left_mus
112 && ly_is_equal (right_mus->get_property ("pitch"),
113 left_mus->get_property ("pitch")))
115 Grob *p = new Spanner (heads_to_tie_[i].tie_definition_,
116 context ()->get_grob_key ("Tie"));
117 announce_grob (p, heads_to_tie_[i].event_->self_scm ());
118 Tie::set_head (p, LEFT, th);
119 Tie::set_head (p, RIGHT, h);
122 heads_to_tie_.del (i);
126 if (ties_.size () && ! tie_column_)
127 tie_column_ = make_spanner ("TieColumn", ties_[0]->self_scm ());
130 for (int i = ties_.size (); i--;)
131 Tie_column::add_tie (tie_column_, ties_[i]);
135 Tie_engraver::start_translation_timestep ()
137 context ()->set_property ("tieMelismaBusy",
138 ly_bool2scm (heads_to_tie_.size ()));
142 Tie_engraver::stop_translation_timestep ()
146 if (!to_boolean (get_property ("tieWaitForNote")))
147 heads_to_tie_.clear ();
149 for (int i = 0; i < ties_.size (); i++)
150 typeset_tie (ties_[i]);
159 = updated_grob_properties (context (), ly_symbol2scm ("Tie"));
161 if (!to_boolean (get_property ("tieWaitForNote")))
162 heads_to_tie_.clear ();
164 for (int i = 0; i < now_heads_.size (); i++)
166 heads_to_tie_.push (Head_event_tuple (now_heads_[i], event_,
176 Tie_engraver::typeset_tie (Grob *her)
178 if (! (Tie::head (her, LEFT) && Tie::head (her, RIGHT)))
179 warning (_ ("lonely tie"));
182 Drul_array<Grob *> new_head_drul;
183 new_head_drul[LEFT] = Tie::head (her, LEFT);
184 new_head_drul[RIGHT] = Tie::head (her, RIGHT);
187 if (!Tie::head (her, d))
188 new_head_drul[d] = Tie::head (her, (Direction) - d);
190 while (flip (&d) != LEFT);
192 Spanner *sp = dynamic_cast<Spanner*> (her);
193 sp->set_bound (LEFT, new_head_drul[LEFT]);
194 sp->set_bound (RIGHT, new_head_drul[RIGHT]);
197 #include "translator.icc"
199 ADD_ACKNOWLEDGER (Tie_engraver, note_head);
200 ADD_TRANSLATOR (Tie_engraver,
201 /* doc */ "Generate ties between noteheads of equal pitch.",
206 /* accept */ "tie-event",
207 /* read */ "tieWaitForNote",
208 /* write */ "tieMelismaBusy");