2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2005--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 LilyPond is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 LilyPond is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
21 #include "tie-configuration.hh"
24 #include "tie-formatting-problem.hh"
30 Tie_configuration::compare (Tie_configuration const &a,
31 Tie_configuration const &b)
33 if (a.position_ - b.position_)
34 return sign (a.position_ - b.position_);
35 return sign (a.dir_ - b.dir_);
38 Tie_configuration::Tie_configuration ()
45 column_ranks_ = Drul_array<int> (0, 0);
49 Tie_configuration::center_tie_vertically (Tie_details const &details)
51 Bezier b = get_untransformed_bezier (details);
52 Offset middle = b.curve_point (0.5);
53 Offset edge = b.curve_point (0.0);
54 Real center = (edge[Y_AXIS] + middle[Y_AXIS]) / 2.0;
56 delta_y_ = - dir_ * center;
60 Tie_configuration::get_transformed_bezier (Tie_details const &details) const
62 Bezier b (get_untransformed_bezier (details));
65 b.translate (Offset (attachment_x_[LEFT],
66 delta_y_ + details.staff_space_ * 0.5 * position_));
72 Get bezier with left control at (0,0)
75 Tie_configuration::get_untransformed_bezier (Tie_details const &details) const
77 Real l = attachment_x_.length ();
78 if (isinf (l) || isnan (l))
80 programming_error ("Inf or NaN encountered");
84 details.height_limit_,
89 Tie_configuration::column_span_length () const
91 return column_ranks_[RIGHT] - column_ranks_[LEFT];
95 Tie_configuration::distance (Tie_configuration const &a,
96 Tie_configuration const &b)
99 Real d = 3 * (a.position_ - b.position_);
101 return d + (2 + (b.dir_ - a.dir_));
103 return d + (2 + (a.dir_ - b.dir_));
107 Tie_configuration::add_score (Real s, const string &desc)
112 score_card_ += to_string ("%s=%.2f ", desc.c_str (), s);
116 Tie_configuration::height (Tie_details const &details) const
118 Real l = attachment_x_.length ();
120 return slur_shape (l,
121 details.height_limit_,
122 details.ratio_).curve_point (0.5)[Y_AXIS];
125 Ties_configuration::Ties_configuration ()
132 Ties_configuration::reset_score ()
137 tie_score_cards_.clear ();
141 Ties_configuration::add_tie_score (Real s, int i, const string &desc)
147 while (tie_score_cards_.size () < size ())
148 tie_score_cards_.push_back ("");
150 tie_score_cards_[i] += to_string ("%s=%.2f ", desc.c_str (), s);
155 Ties_configuration::add_score (Real s, const string &desc)
160 score_card_ += to_string ("%s=%.2f ", desc.c_str (), s);
164 Ties_configuration::score () const
170 Ties_configuration::complete_tie_card (vsize i) const
173 s += to_string ("%d (%.2f) %c: ", (*this)[i].position_, (*this)[i].delta_y_,
174 ((*this)[i].dir_ == UP ? 'u' : 'd'))
175 + (*this)[i].card () + tie_card (i);
178 this is a little awkward, but we must decide where to put
184 if (i + 1 == size ())
185 s += to_string ("TOTAL=%.2f", score ());
190 /* for use inside GDB */
192 Ties_configuration::complete_score_card () const
195 for (vsize i = 0; i < size (); i++)
197 s += complete_tie_card (i);
204 Ties_configuration::card () const