Re: markup superposé à la barre de début de système

[joel . gauvrit]

Alors là j'en reste baba...
Chapeau bas et 1000 mercis !


----- Mail original -----
De: "Valentin Villenave" <valentin@villenave.net>
À: "joel gauvrit" <joel.gauvrit@free.fr>
Cc: "Pierre Perol-Schneider" <pierre.schneider.paris@gmail.com>, 
"lilypond-user-fr" <lilypond-user-fr@gnu.org>, "lilypond-user-fr" 
<lilypond-user-fr-bounces+gillesth=free.fr@gnu.org>
Envoyé: Vendredi 30 Octobre 2020 13:58:47
Objet: Re: markup superposé à la barre de début de système

On 10/30/20, joel.gauvrit@free.fr <joel.gauvrit@free.fr> wrote:
> Oui c'est beaucoup plus élégant !

Sinon j’avais quelque chose du genre :

%%%%%

highlightSystem =
#(define-music-function (color width) (color? number?)
   (define (combine grob)
     (let* ((stil (ly:system-start-delimiter::print grob))
            (yext (ly:stencil-extent stil Y))
            (xext (ly:stencil-extent stil X))
            (highlight (stencil-with-color
                        (ly:round-filled-box (cons 0 width) yext 0)
                        color)))
       (ly:make-stencil
        (ly:stencil-expr
         (ly:stencil-combine-at-edge
          stil X RIGHT highlight 0))
        xext yext)))
   #{
     \once \override Score.SystemStartBar.stencil = ##f
     \once \override Score.SystemStartBrace.stencil = $combine
     \once \override Score.SystemStartBracket.stencil = $combine
     \once \override Score.SystemStartSquare.stencil = $combine
   #})

\new ChoirStaff \with {\omit Clef \omit TimeSignature  }
<<
  {
    \highlightSystem #red #2 c''1
  }
  {c''1 }
>>

%%%%

V.