2012/6/2 Thomas Morley <thomasmorle...@googlemail.com>:
(...)
Hi again,
my suggestion in the previous mail will cause an error in some cases.
Please replace `dashedStart' with the following revised definition:
dashedStart =
\override Score.SystemStartBar #'stencil =
#(lambda (grob)
(if (ly:stencil? (ly:system-start-delimiter::print grob))
(let*((stencil (ly:system-start-delimiter::print grob))
(stencil-y-extent (ly:stencil-extent stencil Y))
(line-thickness (ly:staff-symbol-line-thickness grob))
(new-stencil-extent (interval-widen stencil-y-extent (* -0.5
line-thickness)))
(thickness (ly:grob-property grob 'thickness))
(grob-thickness (* line-thickness thickness)))
(make-dashed-system-start-bar grob new-stencil-extent grob-thickness))
#f))
-Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
