2 slur.cc -- implement Slur
4 source file of the GNU LilyPond music typesetter
6 (c) 1996, 1997--1998, 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"
39 Slur::add_column (Note_column*n)
41 if (!n->head_l_arr_.size ())
42 warning (_ ("Putting slur over rest."));
43 encompass_arr_.push (n);
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_dependency (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 Slur::do_post_processing ()
97 encompass_arr_.sort (Note_column_compare);
101 Real interline_f = paper ()->interline_f ();
102 Real internote_f = interline_f / 2;
104 Real notewidth_f = paper ()->note_width () * 0.8;
105 Real slur_min = paper ()->get_var ("slur_x_minimum");
108 [OSU]: slur and tie placement
111 * x = centre of head (upside-down: inner raakpunt stem) - d * gap
113 * y = length < 5ss : horizontal raakpunt + d * 0.25 ss
114 y = length >= 5ss : y next interline - d * 0.25 ss
115 --> height <= 5 length ?? we use <= 3 length, now...
118 Real gap_f = paper ()->get_var ("slur_x_gap");
120 Drul_array<Note_column*> extrema;
121 extrema[LEFT] = encompass_arr_[0];
122 extrema[RIGHT] = encompass_arr_.top ();
131 if (extrema[d] != spanned_drul_[d])
133 // ugh -- check if needed
135 *(spanned_drul_[d]->extent (X_AXIS).length () - 0.5 * notewidth_f);
140 dx_f_drul_[LEFT] = spanned_drul_[LEFT]->extent (X_AXIS).length ();
142 // urg -- check if needed
143 if (encompass_arr_.size () > 1)
144 dx_f_drul_[RIGHT] += notewidth_f;
150 else if (extrema[d]->stem_l_ && !extrema[d]->stem_l_->transparent_b_
151 && extrema[d]->head_l_arr_.size ())
153 Real notewidth_f = extrema[d]->extent (X_AXIS).length ();
154 dy_f_drul_[d] = (int)rint (extrema[d]->stem_l_-> extent (Y_AXIS)[dir_]);
155 dx_f_drul_[d] += 0.5 * notewidth_f - d * gap_f;
156 if (dir_ == extrema[d]->stem_l_->dir_)
159 dx_f_drul_[d] += 0.5 * (dir_ * d) * d * notewidth_f;
161 dx_f_drul_[d] += 0.25 * (dir_ * d) * d * notewidth_f;
166 Real notewidth_f = extrema[d]->extent (X_AXIS).length ();
167 dy_f_drul_[d] = (int)rint (extrema[d]->head_positions_interval ()
168 [dir_]) * internote_f;
169 dx_f_drul_[d] += 0.5 * notewidth_f - d * gap_f;
171 dy_f_drul_[d] += dir_ * interline_f;
172 if (extrema[d]->stem_l_ && (dir_ == extrema[d]->stem_l_->dir_))
173 dy_f_drul_[d] -= dir_ * internote_f;
175 while (flip(&d) != LEFT);
177 // now that both are set, do dependent
183 if (extrema[d] != spanned_drul_[d])
190 dy_f_drul_[u] += dir_ * internote_f;
192 dy_f_drul_[d] = dy_f_drul_[(Direction)-d];
196 but who *is* going to assure that dx >= slur_min?
200 if (dx_f_drul_[RIGHT] - dx_f_drul_[LEFT] < slur_min)
202 // huh? what was this supposed to do?
203 // dx_f_drul_[d] -= d * slur_min
204 // - (dx_f_drul_[RIGHT] - dx_f_drul_[LEFT]);
205 dx_f_drul_[d] = dx_f_drul_[(Direction)-d] + d * slur_min;
210 while (flip(&d) != LEFT);
213 Avoid too steep slurs.
214 * slur from notehead to stemend: c''()b''
216 Real damp_f = paper ()->get_var ("slur_slope_damping");
217 Offset d_off = Offset (dx_f_drul_[RIGHT] - dx_f_drul_[LEFT],
218 dy_f_drul_[RIGHT] - dy_f_drul_[LEFT]);
219 d_off.x () += extent (X_AXIS).length ();
221 Real ratio_f = abs (d_off.y () / d_off.x ());
222 if (ratio_f > damp_f)
223 dy_f_drul_[(Direction)(- dir_ * sign (d_off.y ()))] -=
224 dir_ * (damp_f - ratio_f) * d_off.x ();
228 Slur::get_encompass_offset_arr () const
230 Real notewidth = paper ()->note_width () * 0.8;
231 Real gap = paper ()->get_var ("slur_x_gap");
232 Real internote = paper ()->internote_f ();
234 Offset left = Offset (dx_f_drul_[LEFT], dy_f_drul_[LEFT]);
235 left.x () += encompass_arr_[0]->stem_l_->hpos_f ();
239 i don't understand these two, but *must* for symmetry
240 look at encompass array:
241 lilypond -D input/test/slur-symmetry*.ly
242 lilypond -D input/test/sleur.ly
244 do_post_processing should have calculated these into
249 if (dir_ != encompass_arr_[0]->stem_l_->dir_)
250 left.x () += - 0.5 * notewidth * encompass_arr_[0]->stem_l_->dir_
252 else if (encompass_arr_[0]->stem_l_->dir_ == UP)
253 left.x () -= notewidth;
255 if ((dir_ == encompass_arr_[0]->stem_l_->dir_)
256 && (encompass_arr_[0]->stem_l_->dir_ == DOWN))
257 left.y () -= internote * encompass_arr_[0]->stem_l_->dir_;
260 Offset d = Offset (dx_f_drul_[RIGHT] - dx_f_drul_[LEFT],
261 dy_f_drul_[RIGHT] - dy_f_drul_[LEFT]);
262 d.x () += extent (X_AXIS).length ();
265 int last = encompass_arr_.size () - 1;
268 if (encompass_arr_[0] != spanned_drul_[LEFT])
272 if (encompass_arr_.top () != spanned_drul_[RIGHT])
276 notes.push (Offset (0,0));
278 for (int i = first; i < last; i++)
280 Encompass_info info (encompass_arr_[i], dir_);
281 notes.push (info.o_ - left);