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

Reply via email to