/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2006--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 2006--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
*/
-
#include "slur-score-parameters.hh"
#include "grob.hh"
-
Real
get_detail (SCM alist, SCM sym)
{
SCM entry = scm_assq (sym, alist);
return robust_scm2double (scm_is_pair (entry)
- ? scm_cdr (entry)
- : SCM_EOL,
- 0.0);
+ ? scm_cdr (entry)
+ : SCM_EOL,
+ 0.0);
}
void
= get_detail (details, ly_symbol2scm ("head-encompass-penalty"));
stem_encompass_penalty_
= get_detail (details, ly_symbol2scm ("stem-encompass-penalty"));
- closeness_factor_
- = get_detail (details, ly_symbol2scm ("closeness-factor"));
edge_attraction_factor_
= get_detail (details, ly_symbol2scm ("edge-attraction-factor"));
same_slope_penalty_
= get_detail (details, ly_symbol2scm ("max-slope-factor"));
free_head_distance_
= get_detail (details, ly_symbol2scm ("free-head-distance"));
+ gap_to_staffline_inside_
+ = get_detail (details, ly_symbol2scm ("gap-to-staffline-inside"));
+ gap_to_staffline_outside_
+ = get_detail (details, ly_symbol2scm ("gap-to-staffline-outside"));
absolute_closeness_measure_
= get_detail (details, ly_symbol2scm ("absolute-closeness-measure"));
extra_object_collision_penalty_
= get_detail (details, ly_symbol2scm ("free-slur-distance"));
edge_slope_exponent_
= get_detail (details, ly_symbol2scm ("edge-slope-exponent"));
+ close_to_edge_length_
+ = 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"));
}