Re: Custom Barline

[ole]

> Am 22.08.2021 um 18:16 schrieb Thomas Morley <thomasmorley65@gmail.com>:
> 
> Am So., 22. Aug. 2021 um 13:42 Uhr schrieb Paul Hodges <pwh@cassland.org>:
>> 
>> Encouraged by the fantastic responses to my first problem, I now offer my 
>> other issue.
>> 
>> The composer uses a special barline to mark the phrase pattern of a piece.  
>> The form of this barline is like this:
>> (MS) https://cassland.org/images/PhraseBarMS.jpg
>> (Printed elsewhere) https://cassland.org/images/PhraseBarSet.jpg
>> 
>> In this case I can't even think where to start...
>> 
>> Thanks,
>> Paul
> 
> How about:
> 
> %% Define a new bar-line drawing-procedure
> #(define (make-thick-phrase-bar-line grob extent)
>  "Draw a smaller thick bar line."
>  (let* ((line-thickness (layout-line-thickness grob))
>         (thick-thickness (* (ly:grob-property grob 'thick-thickness 1)
>                       line-thickness))
>         (inner-extent
>           (interval-widen extent (- (ly:staff-symbol-staff-space grob))))
>         (final-extent-thick
>           (bar-line::widen-bar-extent-on-span grob inner-extent)))
> 
>        (bar-line::draw-filled-box
>          (cons 0 thick-thickness)
>          final-extent-thick
>          thick-thickness
>          final-extent-thick
>          grob)))
> 
> %% Assign "p" to the new bar-line drawing-procedure
> #(add-bar-glyph-print-procedure "p" make-thick-phrase-bar-line)
> 
> %% Define a ready to use new BarLine
> #(define-bar-line "p|" "p|" #f " |")
> 
> \layout {
>  \context {
>      \Score
>      %% Actually not really needed:
>      \override BarNumber.break-visibility = ##(#t #t #t)
>      \override BarNumber.self-alignment-X = 0
>  }
>  \context {
>      \Staff
>      %% Needed:
>      %% If "p|"-BarLine is used, set 'kern to zero.
>      \override BarLine.before-line-breaking =
>        #(lambda (grob)
>          (if (equal? (ly:grob-property grob 'glyph) "p|")
>              (ly:grob-set-property! grob 'kern 0)))
>  }
> }
> 
> \new StaffGroup
>  <<
>    \new Staff { b1 \mark \default \bar "p|" b \break \bar "p|" b }
>    \new Staff { b1 b b }
>>> 
> 
> 
> 
> HTH,
>  Harm
> 


Unfortunatly your example is not complete here, can you please send it again, 
thanks!