Or simply:
\version "2.19"
{
1
\once\override Staff.BarLine.stencil =
#(lambda (grob)
(ly:stencil-combine-at-edge
(ly:bar-line::print grob)
1 ; y-axis
1 ; on top
(ly:stencil-aligned-to
(grob-interpret-markup
grob
#{
\markup
\box % \box only for checking
\with-dimensions #'(0 . 1.24) #'(-0.75 . 1.24)
\musicglyph #"scripts.caesura.curved"
#})
X
CENTER)
2))
1
}
Cheers,
Pierre
2016-12-15 9:31 GMT+01:00 Pierre Perol-Schneider <
pierre.schneider.pa...@gmail.com>:
> Hi Simon et Harm,
>
> 2016-12-15 0:23 GMT+01:00 Thomas Morley <thomasmorle...@gmail.com>:
> ...
>
> But the font-metrics for
>> "scripts.caesura.curved" are not symmetric.
>>
> ...
>
> How about:
>
> \version "2.19"
>
> {
> 1
> \once\override Staff.BarLine.stencil =
> #(lambda (grob)
> (ly:stencil-combine-at-edge
> (ly:bar-line::print grob)
> 1 ; y-axis
> 1 ; on top
> (ly:stencil-aligned-to
> (grob-interpret-markup
> grob
> #{
> \markup
> \box % \box only for checking
> \stencil
> #(make-path-stencil
> '(M 0 -0.71
> C -0.01 -0.75 0.01 -0.78 0.04 -0.795
> C 0.055 -0.805 0.109 -0.795 0.125 -0.75
> C 0.415 -0.15 0.65 0.61 0.645 1.14
> C 0.645 1.19 0.6 1.245 0.54 1.244
> C 0.49 1.245 0.43 1.21 0.43 1.15
> C 0.4 0.51 0.22 -0.25 0 -0.71
> M 0.6 -0.71
> C 0.59 -0.75 0.61 -0.78 0.64 -0.795
> C 0.655 -0.805 0.709 -0.795 0.725 -0.75
> C 1.015 -0.15 1.25 0.61 1.245 1.14
> C 1.245 1.19 1.2 1.245 1.14 1.244
> C 1.09 1.245 1.03 1.21 1.03 1.15
> C 1 0.51 0.82 -0.25 0.6 -0.71
> )
> 0 1 1 #t)
> #})
> X
> CENTER)
> 2))
> 1
> }
>
> Cheers,
> Pierre
> <https://lists.gnu.org/mailman/listinfo/lilypond-user>
>
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
