Real dash_period = robust_scm2double (me->get_property ("dash-period"), 1.0);
Real dash_length = robust_scm2double (me->get_property ("length"), .5);
Real padding = robust_scm2double (me->get_property ("padding"), 0.1);
+ Real whiteout = robust_scm2double (me->get_property ("whiteout"), -1);
if (dash_period < dash_length)
dash_period = 1.5 * dash_length;
for (int i = 0; i < n; i++)
{
Stencil m (dash_mol);
- m.translate_axis (span_points[LEFT] + i * dash_period + space_left / 2, X_AXIS);
+ m = m.in_color (0.0, 0.0, 0.0);
+ m.translate_axis (span_points[LEFT] + i * dash_period +
+ space_left / 2, X_AXIS);
total.add_stencil (m);
+ if (whiteout > 0.0 )
+ {
+ Box c (Interval (0, dash_length + 2 * whiteout * lt),
+ Interval (h - whiteout * lt, h + th + whiteout * lt));
+ Stencil w (Lookup::round_filled_box (c, 0.8 * lt));
+ w = w.in_color (1.0, 1.0, 1.0);
+ w.translate_axis (span_points[LEFT] + i * dash_period +
+ space_left / 2 - whiteout * lt, X_AXIS);
+ total.add_stencil (w);
+ }
}
total.translate_axis (-me->relative_coordinate (common, X_AXIS), X_AXIS);
"padding "
"thickness "
);
-
printed over a white background to white-out underlying material, if
the grob is visible. A number indicates how far the white background
extends beyond the bounding box of the grob as a multiple of the
-staff-line thickness. The shape of the background is determined by
-@code{whiteout-style}. Usually @code{#f} by default.")
+staff-line thickness. The @code{LyricHyphen} grob uses a special
+implementation of whiteout: A positive number indicates how far the
+white background extends beyond the bounding box in multiples of
+@code{line-thickness}. The shape of the background is determined by
+@code{whiteout-style}. Usually @code{#f} by default. ")
(whiteout-style ,symbol? "Determines the shape of the
@code{whiteout} background. Available are @code{'outline},
-@code{'rounded-box}, and the default @code{'box}.")
+@code{'rounded-box}, and the default @code{'box}. There is one
+exception: Use @code{'special} for @code{LyricHyphen}.")
(width ,ly:dimension? "The width of a grob measured in staff
space.")
(word-space ,ly:dimension? "Space to insert between words in
((eq? style 'rounded-box) 3)
(else 0))))))
(cond
+ ((eq? style 'special) stil)
((eq? style 'outline) (stencil-whiteout-outline stil thick))
((eq? style 'rounded-box) (stencil-whiteout-box stil thick (* 2 thick)))
(else (stencil-whiteout-box stil thick)))))