2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2006--2012 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 "slur-score-parameters.hh"
25 get_detail (SCM alist, SCM sym)
27 SCM entry = scm_assq (sym, alist);
28 return robust_scm2double (scm_is_pair (entry)
35 Slur_score_parameters::fill (Grob *me)
37 SCM details = me->get_property ("details");
40 = (int) get_detail (details, ly_symbol2scm ("region-size"));
41 head_encompass_penalty_
42 = get_detail (details, ly_symbol2scm ("head-encompass-penalty"));
43 stem_encompass_penalty_
44 = get_detail (details, ly_symbol2scm ("stem-encompass-penalty"));
45 edge_attraction_factor_
46 = get_detail (details, ly_symbol2scm ("edge-attraction-factor"));
48 = get_detail (details, ly_symbol2scm ("same-slope-penalty"));
50 = get_detail (details, ly_symbol2scm ("steeper-slope-factor"));
51 non_horizontal_penalty_
52 = get_detail (details, ly_symbol2scm ("non-horizontal-penalty"));
54 = get_detail (details, ly_symbol2scm ("max-slope"));
56 = get_detail (details, ly_symbol2scm ("max-slope-factor"));
58 = get_detail (details, ly_symbol2scm ("free-head-distance"));
59 absolute_closeness_measure_
60 = get_detail (details, ly_symbol2scm ("absolute-closeness-measure"));
61 extra_object_collision_penalty_
62 = get_detail (details, ly_symbol2scm ("extra-object-collision-penalty"));
64 = get_detail (details, ly_symbol2scm ("accidental-collision"));
65 extra_encompass_free_distance_
66 = get_detail (details, ly_symbol2scm ("extra-encompass-free-distance"));
67 extra_encompass_collision_distance_
68 = get_detail (details, ly_symbol2scm ("extra-encompass-collision-distance"));
69 head_slur_distance_factor_
70 = get_detail (details, ly_symbol2scm ("head-slur-distance-factor"));
71 head_slur_distance_max_ratio_
72 = get_detail (details, ly_symbol2scm ("head-slur-distance-max-ratio"));
74 = get_detail (details, ly_symbol2scm ("free-slur-distance"));
76 = get_detail (details, ly_symbol2scm ("edge-slope-exponent"));
78 = get_detail (details, ly_symbol2scm ("close-to-edge-length"));
79 encompass_object_range_overshoot_
80 = get_detail (details, ly_symbol2scm ("encompass-object-range-overshoot"));
81 slur_tie_extrema_min_distance_
82 = get_detail (details, ly_symbol2scm ("slur-tie-extrema-min-distance"));
83 slur_tie_extrema_min_distance_penalty_
84 = get_detail (details, ly_symbol2scm ("slur-tie-extrema-min-distance-penalty"));