+ Real staff_thick = Staff_symbol_referencer::line_thickness (me);
+ Real base_thick = robust_scm2double (me->get_property ("thickness"), 1);
+ Real thick = base_thick * staff_thick;
+
+
+ Bezier b;
+ int i = 0;
+ for (SCM s = cp; s != SCM_EOL; s = scm_cdr (s))
+ {
+ b.control_[i] = ly_scm2offset (scm_car (s));
+ i++;
+ }
+
+ 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 (b,
+ thick,
+ robust_scm2double (p, 1.0),
+ robust_scm2double (f, 0));
+ else
+ a = Lookup::slur (b,
+ get_grob_direction (me) * staff_thick,
+ thick);
+
+
+ return a.smobbed_copy ();
+}