2 slur-engraver.cc -- implement Slur_engraver
4 (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "note-column.hh"
13 #include "engraver.hh"
17 TODO: junk nested slur functionality.
19 class Slur_engraver : public Engraver
21 Link_array<Music> events_;
22 Link_array<Music> new_slur_evs_;
23 Link_array<Grob> slur_stack_;
24 Link_array<Grob> end_slurs_;
27 void set_melisma (bool);
30 virtual bool try_music (Music*);
31 virtual void acknowledge_grob (Grob_info);
32 virtual void stop_translation_timestep ();
33 virtual void finalize ();
34 virtual void process_music ();
37 TRANSLATOR_DECLARATIONS (Slur_engraver);
40 Slur_engraver::Slur_engraver ()
42 last_start_ = Moment (-1);
46 Slur_engraver::try_music (Music *ev)
48 if (ev->is_mus_type ("slur-event"))
51 Let's not start more than one slur per moment.
53 Direction d = to_dir (ev->get_property ("span-direction"));
56 if (now_mom () > last_start_)
58 new_slur_evs_.push (ev);
59 last_start_ = now_mom ();
63 But we swallow other slur events.
73 for (int j = new_slur_evs_.size (); j--;)
75 Direction nd = to_dir (new_slur_evs_[j]->get_property ("span-direction"));
81 new_slur_evs_.push (ev);
89 Slur_engraver::set_melisma (bool m)
91 context ()->set_property ("slurMelismaBusy", m ? SCM_BOOL_T :SCM_BOOL_F);
95 Slur_engraver::acknowledge_grob (Grob_info info)
98 if (Note_column::has_interface (info.grob_))
100 for (int i = 0; i < slur_stack_.size (); i++)
101 New_slur::add_column (slur_stack_[i], e);
102 for (int i = 0; i < end_slurs_.size (); i++)
103 New_slur::add_column (end_slurs_[i], e);
107 for (int i = 0; i < slur_stack_.size (); i++)
108 New_slur::add_extra_encompass (slur_stack_[i], e);
109 for (int i = 0; i < end_slurs_.size (); i++)
110 New_slur::add_extra_encompass (end_slurs_[i], e);
115 Slur_engraver::finalize ()
117 for (int i = 0; i < slur_stack_.size (); i++)
120 Let's not typeset unterminated stuff
122 slur_stack_[i]->suicide ();
124 slur_stack_.clear ();
126 for (int i=0; i < events_.size (); i++)
128 events_[i]->origin ()->warning (_ ("unterminated slur"));
133 Slur_engraver::process_music ()
135 Link_array<Grob> start_slurs;
136 for (int i=0; i< new_slur_evs_.size (); i++)
138 Music* slur_ev = new_slur_evs_[i];
139 // end slur: move the slur to other array
140 Direction d = to_dir (slur_ev->get_property ("span-direction"));
143 if (slur_stack_.is_empty ())
144 /* How to shut up this warning, when Voice_devnull_engraver has
145 eaten start event? */
146 slur_ev->origin ()->warning (_f ("can't find start of slur"));
149 Grob* slur = slur_stack_.pop ();
151 end_slurs_.push (slur);
157 /* push a new slur onto stack.
158 (use temp. array to wait for all slur STOPs) */
159 Grob *slur = make_spanner ("Slur", slur_ev->self_scm ());
161 if (Direction updown = to_dir (slur_ev->get_property ("direction")))
162 slur->set_property ("direction", scm_int2num (updown));
164 start_slurs.push (slur);
165 events_.push (slur_ev);
169 slur_stack_.concat (start_slurs);
171 set_melisma (slur_stack_.size ());
173 new_slur_evs_.clear ();
177 Slur_engraver::stop_translation_timestep ()
180 new_slur_evs_.clear ();
185 ENTER_DESCRIPTION (Slur_engraver,
186 /* descr */ "Build slurs grobs from slur events",
188 /* accepts */ "slur-event",
189 /* acks */ "note-column-interface accidental-interface fingering-interface script-interface",
190 /* reads */ "slurMelismaBusy",