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->extent (Y_AXIS).empty_b ()
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 height_damp_f = paper_l ()->get_var ("slur_height_damping");
248 slope_damp_f = paper_l ()->get_var ("slur_slope_damping");
249 snap_f = paper_l ()->get_var ("slur_snap_to_stem");
253 height_damp_f = paper_l ()->get_var ("slur_interstaff_height_damping");
254 slope_damp_f = paper_l ()->get_var ("slur_interstaff_slope_damping");
255 snap_f = paper_l ()->get_var ("slur_interstaff_snap_to_stem");
260 dy_f_drul_[RIGHT] += interstaff_f;
261 Real dy_f = dy_f_drul_[RIGHT] - dy_f_drul_[LEFT];
262 Real dx_f = do_width ().length () + dx_f_drul_[RIGHT] - dx_f_drul_[LEFT];
265 Avoid too steep slurs.
267 ratio_f = abs (dy_f / dx_f);
268 if (ratio_f > slope_damp_f)
270 Direction d = (Direction)(- dir_ * (sign (dy_f)));
273 Real damp_f = (ratio_f - slope_damp_f) * dx_f;
275 must never change sign of dy
277 damp_f = damp_f <? abs (dy_f);
278 dy_f_drul_[d] += dir_ * damp_f;
284 Wierd slurs may look a lot better after they have been
286 So, we'll do this in 3 steps
288 for (int i = 0; i < 3; i++)
290 Real height_f = do_height ().length ();
291 dy_f = dy_f_drul_[RIGHT] - dy_f_drul_[LEFT];
293 ratio_f = abs (height_f / dx_f);
294 if (ratio_f > height_damp_f)
296 Direction d = (Direction)(- dir_ * (sign (dy_f)));
299 /* take third step */
300 Real damp_f = (ratio_f - height_damp_f) * dx_f / 3;
302 if y positions at about the same height, correct both ends
304 if (abs (dy_f / dx_f ) < slope_damp_f)
306 dy_f_drul_[-d] += dir_ * damp_f;
307 dy_f_drul_[d] += dir_ * damp_f;
310 don't change slope too much, would have been catched by slope damping
314 damp_f = damp_f <? abs (dy_f/2);
315 dy_f_drul_[d] += dir_ * damp_f;
321 If, after correcting, we're close to stem-end...
325 if ((note_column_drul[d] == spanned_drul_[d])
326 && (note_column_drul[d]->stem_l_)
327 && (note_column_drul[d]->stem_l_->dir_ == dir_)
328 && (abs (note_column_drul[d]->stem_l_->extent (Y_AXIS)[dir_]
329 - dy_f_drul_[d] + (d == LEFT ? 0 : interstaff_f))
335 Stem* stem_l = note_column_drul[d]->stem_l_;
336 dx_f_drul_[d] = stem_l->hpos_f ()
337 - spanned_drul_[d]->absolute_coordinate (X_AXIS);
338 dy_f_drul_[d] = stem_l->extent (Y_AXIS)[dir_];
339 dy_f_drul_[d] += info_drul[d].interstaff_f_;
340 dy_f_drul_[d] += dir_ * 2 * y_gap_f;
343 while (flip (&d) != LEFT);
347 Slur::get_encompass_offset_arr () const
349 Array<Offset> offset_arr;
352 check non-disturbed slur
353 FIXME: x of ends off by a tiny bit!!
355 offset_arr.push (Offset (0, dy_f_drul_[LEFT]));
356 offset_arr.push (Offset (0, dy_f_drul_[RIGHT]));
360 int interstaff_i = 0;
361 for (int i = 0; i < encompass_arr_.size (); i++)
363 Encompass_info info (encompass_arr_[i], dir_, this);
364 if (info.interstaff_f_)
369 bool interstaff_b = interstaff_i && (interstaff_i < encompass_arr_.size ());
371 Offset origin (absolute_coordinate (X_AXIS), 0);
374 int last = encompass_arr_.size () - 2;
376 offset_arr.push (Offset (dx_f_drul_[LEFT], dy_f_drul_[LEFT]));
380 if (encompass_arr_[0] != spanned_drul_[LEFT])
383 Encompass_info left_info (encompass_arr_[0], dir_, this);
385 offset_arr[0][Y_AXIS] += left_info.interstaff_f_;
391 if (encompass_arr_.top () != spanned_drul_[RIGHT])
396 for (int i = first; i <= last; i++)
398 Encompass_info info (encompass_arr_[i], dir_, this);
399 offset_arr.push (info.o_ - origin);
402 offset_arr.push (Offset (do_width ().length () + dx_f_drul_[RIGHT],
410 Slur::get_rods () const
414 r.item_l_drul_ = spanned_drul_;
415 r.distance_f_ = paper_l ()->get_var ("slur_x_minimum");