Real head_slur_distance_max_ratio_;
Real head_slur_distance_factor_;
Real encompass_object_range_overshoot_;
+ Real slur_tie_extrema_min_distance_;
+ Real slur_tie_extrema_min_distance_penalty_;
void fill (Grob *him);
};
#include "spanner.hh"
#include "staff-symbol-referencer.hh"
#include "stem.hh"
+#include "tie.hh"
#include "warn.hh"
Bezier
void
Slur_configuration::score_extra_encompass (Slur_score_state const &state)
{
+ // we find forbidden attachments
+ vector<Offset> forbidden_attachments;
+ for (vsize i = 0; i < state.extra_encompass_infos_.size (); i++)
+ if (Tie::has_interface (state.extra_encompass_infos_[i].grob_))
+ {
+ Grob *t = state.extra_encompass_infos_[i].grob_;
+ Grob *common_x = Grob::get_vertical_axis_group (t);
+ Real rp = t->relative_coordinate (common_x, X_AXIS);
+ SCM cp = t->get_property ("control-points");
+
+ Bezier b;
+ int j = 0;
+ for (SCM s = cp; scm_is_pair (s); s = scm_cdr (s))
+ {
+ b.control_[j] = ly_scm2offset (scm_car (s));
+ j++;
+ }
+ forbidden_attachments.push_back (Offset (b.control_[0]) + Offset (rp, 0));
+ forbidden_attachments.push_back (Offset (b.control_[3]) + Offset (rp, 0));
+ }
+
+ bool too_close = false;
+ for (vsize k = 0; k < forbidden_attachments.size (); k++)
+ for (LEFT_and_RIGHT (side))
+ if ((forbidden_attachments[k] - attachment_[side]).length () < state.parameters_.slur_tie_extrema_min_distance_)
+ {
+ too_close = true;
+ break;
+ }
+
+ if (too_close)
+ add_score (state.parameters_.slur_tie_extrema_min_distance_penalty_, "extra");
+
for (vsize j = 0; j < state.extra_encompass_infos_.size (); j++)
{
Drul_array<Offset> attachment = attachment_;
= get_detail (details, ly_symbol2scm ("close-to-edge-length"));
encompass_object_range_overshoot_
= get_detail (details, ly_symbol2scm ("encompass-object-range-overshoot"));
+ slur_tie_extrema_min_distance_
+ = get_detail (details, ly_symbol2scm ("slur-tie-extrema-min-distance"));
+ slur_tie_extrema_min_distance_penalty_
+ = get_detail (details, ly_symbol2scm ("slur-tie-extrema-min-distance-penalty"));
}
(edge-slope-exponent . 1.7)
(close-to-edge-length . 2.5)
(encompass-object-range-overshoot . 0.5)
+ (slur-tie-extrema-min-distance . 0.2)
+ (slur-tie-extrema-min-distance-penalty . 2)
))