2 slur.cc -- implement Slur
4 source file of the GNU LilyPond music typesetter
6 (c) 1996, 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 Jan Nieuwenhuizen <janneke@gnu.org>
12 * begin and end should be treated as a/acknowledge Scripts.
13 * broken slur should have uniform trend
19 #include "paper-def.hh"
20 #include "note-column.hh"
22 #include "paper-column.hh"
23 #include "molecule.hh"
27 #include "encompass-info.hh"
36 Slur::add_column (Note_column*n)
38 if (!n->head_l_arr_.size ())
39 warning (_ ("Putting slur over rest. Ignoring"));
42 encompass_arr_.push (n);
48 Slur::get_default_dir () const
51 for (int i=0; i < encompass_arr_.size (); i ++)
53 if (encompass_arr_[i]->dir () < 0)
63 Slur::do_add_processing ()
65 set_bounds (LEFT, encompass_arr_[0]);
66 if (encompass_arr_.size () > 1)
67 set_bounds (RIGHT, encompass_arr_.top ());
71 Slur::do_pre_processing ()
73 // don't set directions
77 Slur::do_substitute_element_pointer (Score_element*o, Score_element*n)
80 while ((i = encompass_arr_.find_i (dynamic_cast<Note_column *> (o))) >=0)
83 encompass_arr_[i] = dynamic_cast<Note_column *> (n);
85 encompass_arr_.del (i);
90 Note_column_compare (Note_column *const&n1 , Note_column* const&n2)
92 return Item::left_right_compare (n1, n2);
96 Slur::do_post_processing ()
98 encompass_arr_.sort (Note_column_compare);
100 dir_ = get_default_dir ();
103 Slur and tie placement [OSU]
106 * x = centre of head - d * x_gap_f
109 * y = length < 5ss : horizontal tangent + d * 0.25 ss
110 y = length >= 5ss : y next interline - d * 0.25 ss
113 Real interline_f = paper_l ()->get_realvar (interline_scm_sym);
114 Real internote_f = interline_f / 2;
116 Real x_gap_f = paper_l ()->get_var ("slur_x_gap");
117 Real y_gap_f = paper_l ()->get_var ("slur_y_gap");
119 Drul_array<Note_column*> note_column_drul;
120 note_column_drul[LEFT] = encompass_arr_[0];
121 note_column_drul[RIGHT] = encompass_arr_.top ();
123 bool fix_broken_b = false;
127 dx_f_drul_[d] = dy_f_drul_[d] = 0;
128 if ((note_column_drul[d] == spanned_drul_[d])
129 && note_column_drul[d]->head_l_arr_.size ()
130 && (note_column_drul[d]->stem_l_))
132 Stem* stem_l = note_column_drul[d]->stem_l_;
134 side directly attached to note head;
135 no beam getting in the way
137 if (((stem_l->get_elt_property (transparent_scm_sym) != SCM_BOOL_F)
138 || !((stem_l->dir_ == dir_) && (dir_ != d)))
139 && !((dir_ == stem_l->dir_)
140 && stem_l->beam_l_ && (stem_l->beams_i_drul_[-d] >= 1)))
142 dx_f_drul_[d] = spanned_drul_[d]->extent (X_AXIS).length () / 2;
143 dx_f_drul_[d] -= d * x_gap_f;
145 if (stem_l->dir_ != dir_)
147 dy_f_drul_[d] = note_column_drul[d]->extent (Y_AXIS)[dir_];
151 dy_f_drul_[d] = stem_l->chord_start_f ()
152 + dir_ * internote_f;
154 dy_f_drul_[d] += dir_ * y_gap_f;
157 side attached to (visible) stem
161 dx_f_drul_[d] = stem_l->hpos_f ()
162 - spanned_drul_[d]->absolute_coordinate (X_AXIS);
164 side attached to beamed stem
166 if (stem_l->beam_l_ && (stem_l->beams_i_drul_[-d] >= 1))
168 dy_f_drul_[d] = stem_l->extent (Y_AXIS)[dir_];
169 dy_f_drul_[d] += dir_ * 2 * y_gap_f;
172 side attached to notehead, with stem getting in the way
176 dx_f_drul_[d] -= d * x_gap_f;
178 dy_f_drul_[d] = stem_l->chord_start_f ()
179 + dir_ * internote_f;
180 dy_f_drul_[d] += dir_ * y_gap_f;
189 dx_f_drul_[d] -= d * x_gap_f;
191 broken: should get y from other piece, so that slur
192 continues up/down trend
194 for now: be horizontal..
199 while (flip (&d) != LEFT);
201 int interstaff_i = 0;
202 for (int i = 0; i < encompass_arr_.size (); i++)
204 Encompass_info info (encompass_arr_[i], dir_, this);
205 if (info.interstaff_f_)
210 bool interstaff_b = interstaff_i && (interstaff_i < encompass_arr_.size ());
212 Drul_array<Encompass_info> info_drul;
213 info_drul[LEFT] = Encompass_info (encompass_arr_[0], dir_, this);
214 info_drul[RIGHT] = Encompass_info (encompass_arr_.top (), dir_, this);
215 Real interstaff_f = info_drul[RIGHT].interstaff_f_
216 - info_drul[LEFT].interstaff_f_;
220 Direction d = (encompass_arr_.top () != spanned_drul_[RIGHT]) ?
222 dy_f_drul_[d] = info_drul[d].o_[Y_AXIS];
225 dy_f_drul_[d] -= info_drul[d].interstaff_f_;
229 dy_f_drul_[LEFT] += info_drul[d].interstaff_f_;
230 dy_f_drul_[RIGHT] += info_drul[d].interstaff_f_;
237 Now we've got a fine slur
238 Catch and correct some ugly cases
247 dy_f_drul_[RIGHT] += interstaff_f;
248 Real dy_f = dy_f_drul_[RIGHT] - dy_f_drul_[LEFT];
250 Real dx_f = do_width ().length () + dx_f_drul_[RIGHT] - dx_f_drul_[LEFT];
251 Real height_f = do_height ().length ();
255 height_damp_f = paper_l ()->get_var ("slur_height_damping");
256 slope_damp_f = paper_l ()->get_var ("slur_slope_damping");
257 snap_f = paper_l ()->get_var ("slur_snap_to_stem");
261 height_damp_f = paper_l ()->get_var ("slur_interstaff_height_damping");
262 slope_damp_f = paper_l ()->get_var ("slur_interstaff_slope_damping");
263 snap_f = paper_l ()->get_var ("slur_interstaff_snap_to_stem");
268 Avoid too steep slurs.
270 ratio_f = abs (dy_f / dx_f);
271 if (ratio_f > slope_damp_f)
273 Direction d = (Direction)(- dir_ * (sign (dy_f)));
276 dy_f_drul_[d] += dir_ * (ratio_f - slope_damp_f) * dx_f;
282 ratio_f = abs (height_f / dx_f);
283 if (ratio_f > height_damp_f)
285 Direction d = (Direction)(- dir_ * (sign (dy_f)));
288 Real damp_f = dir_ * (ratio_f - height_damp_f) * dx_f;
289 dy_f_drul_[d] += damp_f;
291 if y positions at about the same height, correct both ends
293 if (abs (dy_f / dx_f ) < slope_damp_f)
295 dy_f_drul_[-d] += damp_f;
300 If, after correcting, we're close to stem-end...
304 if ((note_column_drul[d] == spanned_drul_[d])
305 && (note_column_drul[d]->stem_l_)
306 && (note_column_drul[d]->stem_l_->dir_ == dir_)
307 && (abs (note_column_drul[d]->stem_l_->extent (Y_AXIS)[dir_]
308 - dy_f_drul_[d] + (d == LEFT ? 0 : interstaff_f))
314 Stem* stem_l = note_column_drul[d]->stem_l_;
315 dx_f_drul_[d] = stem_l->hpos_f ()
316 - spanned_drul_[d]->absolute_coordinate (X_AXIS);
317 dy_f_drul_[d] = stem_l->extent (Y_AXIS)[dir_];
318 dy_f_drul_[d] += info_drul[d].interstaff_f_;
319 dy_f_drul_[d] += dir_ * 2 * y_gap_f;
322 while (flip (&d) != LEFT);
326 Slur::get_encompass_offset_arr () const
328 Array<Offset> offset_arr;
331 check non-disturbed slur
332 FIXME: x of ends off by a tiny bit!!
334 offset_arr.push (Offset (0, dy_f_drul_[LEFT]));
335 offset_arr.push (Offset (0, dy_f_drul_[RIGHT]));
339 int interstaff_i = 0;
340 for (int i = 0; i < encompass_arr_.size (); i++)
342 Encompass_info info (encompass_arr_[i], dir_, this);
343 if (info.interstaff_f_)
348 bool interstaff_b = interstaff_i && (interstaff_i < encompass_arr_.size ());
350 Offset origin (absolute_coordinate (X_AXIS), 0);
353 int last = encompass_arr_.size () - 2;
355 offset_arr.push (Offset (dx_f_drul_[LEFT], dy_f_drul_[LEFT]));
359 if (encompass_arr_[0] != spanned_drul_[LEFT])
362 Encompass_info left_info (encompass_arr_[0], dir_, this);
364 offset_arr[0][Y_AXIS] += left_info.interstaff_f_;
370 if (encompass_arr_.top () != spanned_drul_[RIGHT])
375 for (int i = first; i <= last; i++)
377 Encompass_info info (encompass_arr_[i], dir_, this);
378 offset_arr.push (info.o_ - origin);
381 offset_arr.push (Offset (do_width ().length () + dx_f_drul_[RIGHT],
389 Slur::get_rods () const
393 r.item_l_drul_ = spanned_drul_;
394 r.distance_f_ = paper_l ()->get_var ("slur_x_minimum");