-
-
- Drul_array<Real> shorten;
- shorten[LEFT] = 0;
- shorten[RIGHT] = 0;
-
- SCM ew = me->get_grob_property ("bracket-flare");
- SCM s = me->get_grob_property ("shorten-pair");
- if (gh_pair_p (s))
- {
- span_points[LEFT] += gh_scm2double (ly_car (s));
- span_points[RIGHT] -= gh_scm2double (ly_cdr (s));
- }
- if (gh_pair_p (ew))
- {
- span_points[LEFT] += gh_scm2double (ly_car (ew));
- span_points[RIGHT] -= gh_scm2double (ly_cdr (ew));
- }
-
- Real thick = me->get_paper ()->get_realvar (ly_symbol2scm ("linethickness"));
- SCM st = me->get_grob_property ("thickness");
- if (gh_number_p (st))
- {
- thick *= gh_scm2double (st);
- }