Improve implementation of dashed slurs

lily/slur.cc

 /*
   slur.cc -- implement external interface for Slur
 
   source file of the GNU LilyPond music typesetter
 
   (c) 1996--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
   Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #include "slur.hh"
@@ skipping 101 matching lines @@
 
   Real staff_thick = Staff_symbol_referencer::line_thickness (me);
   Real base_thick = staff_thick
     * robust_scm2double (me->get_property ("thickness"), 1);
   Real line_thick = staff_thick
     * robust_scm2double (me->get_property ("line-thickness"), 1);
 
   Bezier one = get_curve (me);
   Stencil a;
 
-  SCM p = me->get_property ("dash-period");
-  SCM f = me->get_property ("dash-fraction");
-  if (scm_is_number (p) && scm_is_number (f))
-    a = Lookup::dashed_slur (one, line_thick, robust_scm2double (p, 1.0),
-                             robust_scm2double (f, 0));
-  else
-    a = Lookup::slur (one,
-                      get_grob_direction (me) * base_thick,
-                      line_thick);
+  SCM dash_definition = me->get_property ("dash-definition");
+  a = Lookup::slur (one,
+                    get_grob_direction (me) * base_thick,
+                    line_thick,
+                    dash_definition);
 
 #if DEBUG_SLUR_SCORING
   SCM annotation = me->get_property ("annotation");
   if (!scm_is_string (annotation))
     {
       SCM debug = me->layout ()->lookup_variable (ly_symbol2scm ("debug-slur-scoring"));
       if (to_boolean (debug))
         annotation = me->get_property ("quant-score");
     }
 ··
@@ skipping 269 matching lines @@
   return scm_from_bool (common != me->get_parent (Y_AXIS));
 }
 
 ADD_INTERFACE (Slur,
                "A slur.",
 ···············
                /* properties */
                "annotation "
                "avoid-slur "    /* UGH. */
                "control-points "
-               "dash-fraction "
-               "dash-period "
+               "dash-definition "
                "details "
                "direction "
                "eccentricity "
                "encompass-objects "
                "height-limit "
                "inspect-quants "
                "inspect-index "
                "line-thickness "
                "note-columns "
                "positions "
                "quant-score "
                "ratio "
                "thickness "
                );