X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fslur-score-parameters.cc;h=46ac1e62954be552d8c98fc24d7c363ff92db183;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=f46fca0c8cdb227e4e32272b5a1e213de57534b9;hpb=bc95f4434f760d41191341ab4508b2064eb19025;p=lilypond.git diff --git a/lily/slur-score-parameters.cc b/lily/slur-score-parameters.cc index f46fca0c8c..46ac1e6295 100644 --- a/lily/slur-score-parameters.cc +++ b/lily/slur-score-parameters.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 2006--2010 Han-Wen Nienhuys + Copyright (C) 2006--2015 Han-Wen Nienhuys LilyPond is free software: you can redistribute it and/or modify @@ -18,19 +18,17 @@ along with LilyPond. If not, see . */ - #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 @@ -44,8 +42,6 @@ Slur_score_parameters::fill (Grob *me) = 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_ @@ -60,6 +56,10 @@ Slur_score_parameters::fill (Grob *me) = 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_ @@ -78,4 +78,12 @@ Slur_score_parameters::fill (Grob *me) = 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")); }