Re: bar de système en pointillé

[Valentin Villenave]

On 4/24/20, martial <address@hidden> wrote:
> J'ai retourné la doc, le LSR, et la liste, les scm bar-line etc....
> je cale ;

Oui, ce n’est pas prévu à l’heure actuelle. Du coup il faut aller
trafiquer le stencil :

%%%%

%% On peut copier les définitions de
%% bar-line.scm, ou bien aller les chercher
%% directement. Dans ce dernier cas,
%% on va avoir besoin de définir
%% define-session (qui n’est pas publique) :

#(define-macro (define-session x y)
   `(define ,x ,y))

%% Puis on charge tranquillement le fichier.
#(ly:load "bar-line.scm")

\layout {
  \context {
    \Score
    \remove "Timing_translator"
    \remove "Default_bar_line_engraver"
    \omit SystemStartBracket
    \override SystemStartBar.stencil =
    #(lambda (grob)
       ;; on utilise le stencil d’origine, uniquement
       ;; pour prendre sa dimension verticale :
       (let ((ext (ly:stencil-extent
                   (ly:system-start-delimiter::print grob) Y)))
       ;; on peut ensuite sélectionner n’importe quel style :
       (make-dashed-bar-line grob ext)
      ; (make-dotted-bar-line grob ext)
       ))

  }
  \context {
    \Staff
    \consists "Timing_translator"
    \consists "Default_bar_line_engraver"
  }
}

\score {
  \new ChoirStaff <<
    <<
      \relative c' { c1 e g c }
      \addlyrics {  a a a a  }
    >>
    <<
      \relative c' {  \omit Staff.TimeSignature c1 e g c }
      \addlyrics {  b b b b }
    >>
    <<
      \relative c' {  \omit Staff.TimeSignature c1 e g c \bar ":|."}
      \addlyrics {  c c c c  }
    >>
  >>
  \layout {  }
}

%%%%

V.