lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: dashed initial barline with SystemStartBar?


From: Thomas Morley
Subject: Re: dashed initial barline with SystemStartBar?
Date: Sat, 2 Jun 2012 02:08:25 +0200

2012/6/2 Thomas Morley <address@hidden>:
(...)

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]