2 slur.cc -- implement Slur
4 source file of the GNU LilyPond music typesetter
6 (c) 1996, 1997--1999, 1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 Jan Nieuwenhuizen <janneke@gnu.org>
12 * URG: share code with tie
13 * begin and end should be treated as a Script.
15 * slur from notehead to stemend: c''()b''
21 #include "paper-def.hh"
22 #include "note-column.hh"
25 #include "molecule.hh"
29 #include "encompass-info.hh"
38 Slur::add_column (Note_column*n)
40 if (!n->head_l_arr_.size ())
41 warning (_ ("Putting slur over rest."));
42 encompass_arr_.push (n);
43 // n->stem_l_->slur_l_ = this;
48 Slur::set_default_dir ()
51 for (int i=0; i < encompass_arr_.size (); i ++)
53 if (encompass_arr_[i]->dir_ < 0)
62 Slur::do_add_processing ()
64 set_bounds (LEFT, encompass_arr_[0]);
65 if (encompass_arr_.size () > 1)
66 set_bounds (RIGHT, encompass_arr_.top ());
70 Slur::do_pre_processing ()
72 // don't set directions
76 Slur::do_substitute_element_pointer (Score_element*o, Score_element*n)
79 while ((i = encompass_arr_.find_i (dynamic_cast<Note_column *> (o))) >=0)
82 encompass_arr_[i] = dynamic_cast<Note_column *> (n);
84 encompass_arr_.del (i);
89 Note_column_compare (Note_column *const&n1 , Note_column* const&n2)
91 return Item::left_right_compare (n1, n2);
95 broken_edge_b (Slur*s, Drul_array<Note_column*>& extrema, Direction dir)
97 return extrema[dir] != s->spanned_drul_[dir];
101 normal_edge_b (Slur*s, Drul_array<Note_column*>& extrema, Direction dir)
103 Note_column *n = extrema[dir];
104 return !broken_edge_b (s, extrema, dir)
106 && n->stem_l_->get_elt_property (transparent_scm_sym) == SCM_BOOL_F
107 && n->head_l_arr_.size ();
111 Slur::do_post_processing ()
113 encompass_arr_.sort (Note_column_compare);
117 Real interline_f = paper_l ()->get_realvar (interline_scm_sym);
118 Real internote_f = interline_f / 2;
120 Real notewidth_f = paper_l ()->note_width () * 0.8;
123 [OSU]: slur and tie placement
126 * x = centre of head (upside-down: inner raakpunt stem) - d * gap
128 * y = length < 5ss : horizontal raakpunt + d * 0.25 ss
129 y = length >= 5ss : y next interline - d * 0.25 ss
130 --> height <= 5 length ?? we use <= 3 length, now...
133 Real gap_f = paper_l ()->get_var ("slur_x_gap");
135 Drul_array<Note_column*> extrema;
136 extrema[LEFT] = encompass_arr_[0];
137 extrema[RIGHT] = encompass_arr_.top ();
143 if (broken_edge_b (this, extrema, d))
145 // ugh -- check if needed
147 *(spanned_drul_[d]->extent (X_AXIS).length () - 0.5 * notewidth_f);
152 dx_f_drul_[LEFT] = spanned_drul_[LEFT]->extent (X_AXIS).length ();
154 // urg -- check if needed
155 if (encompass_arr_.size () > 1)
156 dx_f_drul_[RIGHT] += notewidth_f;
162 else if (normal_edge_b (this, extrema, d))
164 Real notewidth_f = extrema[d]->extent (X_AXIS).length ();
165 dy_f_drul_[d] = (int)rint (extrema[d]->stem_l_-> extent (Y_AXIS)[dir_]);
166 dx_f_drul_[d] += 0.5 * notewidth_f - d * gap_f;
167 if (dir_ == extrema[d]->stem_l_->dir_)
170 dx_f_drul_[d] += 0.5 * (dir_ * d) * d * notewidth_f;
172 dx_f_drul_[d] += 0.25 * (dir_ * d) * d * notewidth_f;
177 Real notewidth_f = extrema[d]->extent (X_AXIS).length ();
178 dy_f_drul_[d] = (int)rint (extrema[d]->head_positions_interval ()
179 [dir_]) * internote_f;
180 dx_f_drul_[d] += 0.5 * notewidth_f - d * gap_f;
182 dy_f_drul_[d] += dir_ * interline_f;
183 if (extrema[d]->stem_l_ && (dir_ == extrema[d]->stem_l_->dir_))
184 dy_f_drul_[d] -= dir_ * internote_f;
186 while (flip(&d) != LEFT);
188 // now that both are set, do dependent
191 if (broken_edge_b (this, extrema, d))
198 dy_f_drul_[u] += dir_ * internote_f;
200 dy_f_drul_[d] = dy_f_drul_[u];
203 while (flip(&d) != LEFT);
206 Slur should follow line of music
208 if (normal_edge_b (this, extrema, LEFT)
209 && normal_edge_b (this, extrema, RIGHT)
210 && (extrema[LEFT]->stem_l_ != extrema[RIGHT]->stem_l_))
212 Real note_dy = extrema[RIGHT]->stem_l_->head_positions ()[dir_]
213 - extrema[LEFT]->stem_l_->head_positions ()[dir_];
214 Real dy = dy_f_drul_[RIGHT] - dy_f_drul_[LEFT];
216 Should we always follow note-heads, (like a tie)?
217 For now, only if the note_dy != slur_dy, we'll do
218 slur_dy := note_dy * factor.
220 if (sign (dy) != sign (note_dy))
222 Real damp_f = paper_l ()->get_var ("slur_slope_follow_music_factor");
223 Real realdy = note_dy * damp_f;
224 Direction adjust_dir = (Direction)(- dir_ * sign (realdy));
228 adjust only if no beam gets in the way
230 if (!extrema[adjust_dir]->stem_l_->beam_l_
231 || (adjust_dir == extrema[adjust_dir]->stem_l_->dir_)
232 || (extrema[adjust_dir]->stem_l_->beams_i_drul_[-adjust_dir] < 1))
234 dy_f_drul_[adjust_dir] = dy_f_drul_[-adjust_dir]
235 + 2 * adjust_dir * realdy;
236 Real dx = notewidth_f / 2;
237 if (adjust_dir != extrema[adjust_dir]->stem_l_->dir_)
239 dx_f_drul_[adjust_dir] -= adjust_dir * dx;
245 Avoid too steep slurs.
247 Real damp_f = paper_l ()->get_var ("slur_slope_damping");
248 Offset d_off = Offset (dx_f_drul_[RIGHT] - dx_f_drul_[LEFT],
249 dy_f_drul_[RIGHT] - dy_f_drul_[LEFT]);
250 d_off[X_AXIS] += extent (X_AXIS).length ();
252 Real ratio_f = abs (d_off[Y_AXIS] / d_off[X_AXIS]);
253 if (ratio_f > damp_f)
254 dy_f_drul_[(Direction)(- dir_ * sign (d_off[Y_AXIS]))] +=
255 dir_ * (ratio_f - damp_f) * d_off[X_AXIS];
259 Slur::get_encompass_offset_arr () const
261 Real notewidth = paper_l ()->note_width () * 0.8;
262 Real gap = paper_l ()->get_var ("slur_x_gap");
264 Offset left = Offset (dx_f_drul_[LEFT], dy_f_drul_[LEFT]);
265 left[X_AXIS] += encompass_arr_[0]->stem_l_->hpos_f ();
266 Real internote = encompass_arr_[0]->stem_l_->staff_line_leading_f ()/2.0;
270 i don't understand these two, but *must* for symmetry
271 look at encompass array:
272 lilypond -D input/test/slur-symmetry*.ly
273 lilypond -D input/test/sleur.ly
275 do_post_processing should have calculated these into
280 if (dir_ != encompass_arr_[0]->stem_l_->dir_)
281 left[X_AXIS] += - 0.5 * notewidth * encompass_arr_[0]->stem_l_->dir_
283 else if (encompass_arr_[0]->stem_l_->dir_ == UP)
284 left[X_AXIS] -= notewidth;
286 if ((dir_ == encompass_arr_[0]->stem_l_->dir_)
287 && (encompass_arr_[0]->stem_l_->dir_ == DOWN))
288 left[Y_AXIS] -= internote * encompass_arr_[0]->stem_l_->dir_;
291 Offset d = Offset (dx_f_drul_[RIGHT] - dx_f_drul_[LEFT],
292 dy_f_drul_[RIGHT] - dy_f_drul_[LEFT]);
293 d[X_AXIS] += extent (X_AXIS).length ();
296 int last = encompass_arr_.size () - 1;
299 if (encompass_arr_.top () != spanned_drul_[RIGHT])
303 if (encompass_arr_[0] != spanned_drul_[LEFT])
307 notes.push (Offset (0,0));
309 for (int i = first; i < last; i++)
311 Encompass_info info (encompass_arr_[i], dir_, this);
312 notes.push (info.o_ - left);
314 Encompass_info info (encompass_arr_.top (), dir_, this);
315 // [encompass_arr_.size () - 1]
318 Slur* urg = (Slur*)this;
319 urg->interstaff_f_ = info.interstaff_f_;
321 d[Y_AXIS] += interstaff_f_;
324 if (interstaff_f_ && (encompass_arr_.top () != spanned_drul_[RIGHT]))
326 Encompass_info info (encompass_arr_[encompass_arr_.size () - 1], dir_, this);
327 d[Y_AXIS] -= info.o_[Y_AXIS] - interstaff_f_;
337 Slur::get_rods () const
341 r.item_l_drul_ = spanned_drul_;
342 r.distance_f_ = paper_l ()->get_var ("slur_x_minimum");