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

[Valentin Villenave]

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.