X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fslur.cc;h=7eea1c24d08597dce719e2578ac3a5893ea73470;hb=32f5956ef64bfa7b0fd6a9f6c34a53760adae04e;hp=b1794ad4014828bff6b1c9b8f62f89b944d3e10a;hpb=0dd62de1d97c78e9724ca298ee417550d17aaf6b;p=lilypond.git

diff --git a/lily/slur.cc b/lily/slur.cc
index b1794ad401..7eea1c24d0 100644
--- a/lily/slur.cc
+++ b/lily/slur.cc
@@ -119,15 +119,11 @@ Slur::print (SCM smob)
   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");
@@ -417,8 +413,7 @@ ADD_INTERFACE (Slur,
 	       "annotation "
 	       "avoid-slur " 	/* UGH. */
 	       "control-points "
-	       "dash-fraction "
-	       "dash-period "
+               "dash-definition "
 	       "details "
 	       "direction "
 	       "eccentricity "