Re: double barre de mesure comme SystemStartBar

[Jany Seytor]

Merci, Pierre, c'est exactement ce que je désirais

Le recours au SystemStartSquare donne un résultat graphique "pas très joli", j'y avais pensé mais je n'arrivais pas  le réaliser, de toute manière.

Bon dimanche, encore merci à vous deux

Cordialement

Jany

Le dimanche 20 septembre 2020 à 10:53:15 UTC+2, Pierre Perol-Schneider <pierre.schneider.paris@gmail.com> a écrit :

Bonjour Jany, bonjour Xavier,

On peut éventuellement changer le stencil du SystemStartBar, par ex.:

\version "2.20.0"

\score {
  \new Staff {
    a'1 \break 1
  }
  \layout {
    indent = 0
    \context  {
      \Staff
      \override SystemStartBar.stencil = #(lambda (grob)
         (grob-interpret-markup grob
            #{
              \markup {
                \combine
                \override #'(line-cap-style . square)
                \path #.18
                  #'((moveto   0 -1.96)(rlineto 0 3.92)
                     (moveto -.5 -1.96)(rlineto 0 3.92))
                \path #.1
                  #'((moveto -.5  2) (lineto 0  2)
                     (moveto -.5  1) (lineto 0  1)
                     (moveto -.5  0) (lineto 0  0)
                     (moveto -.5 -1) (lineto 0 -1)
                     (moveto -.5 -2) (lineto 0 -2))
              }
            #}))
      \consists System_start_delimiter_engraver
    }
  }
}

Cordialement,

Pierre

Le dim. 20 sept. 2020 à 09:19, Xavier Scheuer <x.scheuer@gmail.com> a écrit :

On Sun, 20 Sep 2020 at 05:27, Jany Seytor <janyseytor@yahoo.fr> wrote:
>
> Bonjour
> Je n'arrive pas à obtenir une double barre de mesure au début d'une portée simple
> Avec l'astuce du SystemStartBar.collapse-height = #4, je peux avoir une barre simple, mais pas une double, parce que je ne sais pas transformer le style par défaut. Pouvez-vous m'aider ?
> Merci

Bonjour,

Est-ce que plutôt qu'une vraie double barre un simple rectangle – SystemStartSquare – ferait l'affaire ?

\score {
  \new StaffGroup <<
    \set StaffGroup.systemStartDelimiter = #'SystemStartSquare
    \override StaffGroup.SystemStartSquare.collapse-height = #4
    \override Score.SystemStartBar.collapse-height = #4
    \new Staff {
      c'1
    }
  >>
}

Cordialement,

Xavier

-- 
Xavier Scheuer <x.scheuer@gmail.com>