- Real thick = thickness;
- s = me->get_elt_property ("line-thickness");
- if (gh_number_p (s))
- thick *= gh_scm2double (s);
-
- // maybe these should be in line-thickness?
- Real length = staff_space;
- s = me->get_elt_property ("dash-length");
- if (gh_number_p (s))
- length = gh_scm2double (s) * staff_space;
-
- Real period = 2 * length + thick;
- s = me->get_elt_property ("dash-period");
- if (gh_number_p (s))
- period = gh_scm2double (s) * staff_space;
-
- if (type == "dotted-line")
- length = thick;
-
- if (type == "line")
- length = period + thick;
-
- Real on = length - thick;
- Real off = period - on;
-
- SCM list = gh_list (ly_symbol2scm ("dashed-line"),
- gh_double2scm (thick),
- gh_double2scm (on),
- gh_double2scm (off),
- gh_double2scm (width),
- gh_double2scm (0),
- SCM_UNDEFINED);
-
- Box b (Interval (0, width), Interval (-thick / 2, thick / 2));
- line = Molecule (b, list);
-
- s = me->get_elt_property ("edge-height");
- if (gh_pair_p (s))