Re: Spanners

[Jean Abou Samra]

Le jeudi 09 février 2023 à 00:42 +0100, Vincent Gay a écrit :

Le 09/02/2023 à 00:37, Vincent Gay a écrit :

Dans la mesure où ce sera le réglage par défaut j’intégrerai les override dans un layout.

Quoique... le TextSpanner.bound-details.right.text dépend de la     direction du spanner...  

Quelque chose comme ça, peut-être ?

\version "2.24.0"

#(use-modules (srfi srfi-2))

stop = \stopTextSpan
textSp = #(define-event-function (str)(markup?)
           #{
            \tweak bound-details.left.text \markup $str
            \tweak bound-details.left.text \markup \normal-text $str
            \tweak style #'line % mettre en commentaire pour des pointillés
            \tweak dash-period #0.8
            \tweak bound-details.left.stencil-align-dir-y #0
            \tweak bound-details.left-broken.attach-dir -1 % pos y du trait
            \tweak bound-details.left-broken.padding 1.5
            \tweak bound-details.left-broken.text ##f
            \tweak bound-details.right.padding -1.5 %pos x du trait vertical
            \tweak bound-details.right-broken.text ##f %pas de trait au break-ligne
            \tweak bound-details.right.text
           \markup
           \draw-line #'(0 . -1)
            \tweak right-bound-info
              #(grob-transformer
                'right-bound-info
                (lambda (grob orig)
                  (or (and-let* ((stencil (assq-ref orig 'stencil))
                                 ((eqv? DOWN (ly:grob-property grob 'direction))))
                        (let ((upside-down (ly:stencil-scale stencil 1 -1)))
                          (acons 'stencil upside-down orig)))
                      orig)))
           \startTextSpan
           #})


\relative { c' e\textSp"Grr jusqu'au bout" \break e e c1 c c c c1\stop  }
\relative { \textSpannerDown c' e\textSp"Grr jusqu'au bout" \break e e c1 c c c c1\stop  }

Au passage : Klaus, je ne savais pas que tu parlais français :-) (Klaus est un contributeur de longue date sur la liste anglophone.)

Cordialement,

Jean

signature.asc
Description: This is a digitally signed message part