Re: Tie with slash (caesura) on the curve

[Jean Abou Samra]

Le 10/11/2022 à 04:31, Pierre Perol-Schneider a écrit :

How about:

\version "2.22.0"

oldTie = \once \override Tie.after-line-breaking =
     #(lambda (grob)
        (let*
         ((stencil (ly:tie::print grob))
          (dir (ly:grob-property grob 'direction))
          (markup-stencil
           (grob-interpret-markup grob
             (markup #:scale (cons .8 0.5)
                     (#:musicglyph "scripts.caesura.straight"))))
          (shift (- (interval-center (ly:stencil-extent stencil X))

          (new-stencil
           (ly:stencil-combine-at-edge stencil
            Y dir
            (ly:stencil-translate-axis markup-stencil shift X)
            -.63)))
         (ly:grob-set-property! grob 'stencil new-stencil)))

{
  \clef"G_8"
  f'16 16
  \oldTie
  8~ 16 16 8
}

                   (interval-center (ly:stencil-extent markup-stencil X))))

Hi Pierre,

This is nice! Just a thought: why use after-line-breaking
here? This is the sort of thing that can cause mysterious bugs
if something else reads the stencil property before your
after-line-breaking callback is executed. In general, it's
good practice to stick with normal callbacks in most cases,
and only use after-line-breaking if you really need it.
Also, you can use grob-transformer to get the default value.
This way, if the default changes in a future version, the code
will still work. (grob-transformer is documented here:
https://lilypond.org/doc/v2.22/Documentation/extending/callback-functions)
So, I'd do:


\version "2.22.2"

oldTie =
\once \override Tie.stencil =
  #(grob-transformer
    'stencil
    (lambda (grob default-stencil)
      (let* ((dir (ly:grob-property grob 'direction))
             (caesura-stencil
              (grob-interpret-markup grob
                (markup #:scale (cons .8 0.5)
                        (#:musicglyph "scripts.caesura.straight"))))

        (ly:stencil-combine-at-edge
         default-stencil
         Y dir
         (ly:stencil-translate-axis caesura-stencil shift X)
         -.63))))

{
  \clef"G_8"
  f'16 16
  \oldTie
  8~ 16 16 8
}


Best,
Jean

             (shift (- (interval-center (ly:stencil-extent default-stencil X))                        (interval-center (ly:stencil-extent caesura-stencil X)))))

OpenPGP_signature
Description: OpenPGP digital signature