X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fslur-score-parameters.cc;h=886799d9818dfd495044008710a901928b9fb942;hb=45a78dfa12df96f7271de565c3d9ad8da7ccc065;hp=00b8effc0f05cc2100d3a08169ec3f47e81eb96d;hpb=0e5d83a9ceb4a143f83d22406d7eb816314ff9f7;p=lilypond.git diff --git a/lily/slur-score-parameters.cc b/lily/slur-score-parameters.cc index 00b8effc0f..886799d981 100644 --- a/lily/slur-score-parameters.cc +++ b/lily/slur-score-parameters.cc @@ -1,25 +1,34 @@ /* - slur-score-paramaters.cc -- implement Slur_score_parameters + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2006--2011 Han-Wen Nienhuys - (c) 2006--2009 Han-Wen Nienhuys -*/ + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + You should have received a copy of the GNU General Public License + 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 @@ -67,4 +76,6 @@ 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")); }