Re: Ecriture d'alternatives

[Pierre Perol-Schneider]

À tout hasard, voir aussi: http://lsr.di.unimi.it/LSR/Item?id=1007

Cdt,

Pierre

Le mar. 29 oct. 2019 à 19:50, NOreply via LilyPond French-speaking list <address@hidden> a écrit :

Bonjour,
Une autre manière de faire:
http://lilybin.com/6s9vq4/1

%%% le code
\version "2.18.2"

% dessin des 2 lignes entre les portées
traits = \markup {\postscript#"
-.6 .5 moveto
11.4 4 rlineto
stroke
-.6 .5 moveto
11.4 -5 rlineto
stroke
"}

%dessin de la barre de système
"barre-de-système" =
\markup { \postscript#"
0 -2.5 moveto
0.2 setlinewidth
0 -4 rlineto
stroke
0 -6.5 moveto
[.5 .5] .5 setdash
0 -5 rlineto
stroke

0 -11.5 moveto
[1 0] 0 setdash
0 -4 rlineto
stroke

" }
%%%%%%%%
% Quelques fonctions perso:
% \m {musique} + "" ou \M "texte" ""
"m" = #(define-scheme-function (parser location   m1 text2  ) (  ly:music?
markup? ) #{ \markup { \translate #'( 0 . 0.5 ) \score {  $m1   \layout {
indent = 0 } } #text2  } #})
% \M "texte" + \m... ou "texte"
"M" = #(define-scheme-function (parser location   text1 text2 )( markup?
markup? ) #{ \markup  { #text1  #text2 } #})
% \txy réglage x et y
txy = #(define-scheme-function (parser location  x y  text1 )( number?
number? markup? ) #{ \markup \translate  #( cons x y  ) { #text1 } #})
% \REPLACE contexte element \markup {texte ou dessin}
REPLACE = #(define-music-function (  parser location  symb1 symb2 txt ) (
symbol? symbol? markup? ) #{  \override $symb1 . $symb2 .stencil =
#ly:text-interface::print \override $symb1 . $symb2 .text =  $txt #})
%%%%%%%%%%%%%
\m { c' d' e' f' }
\M \traits
\txy 10 -5
\m \new StaffGroup
<<     
  \REPLACE  Score SystemStartBar
\"barre-de-système"
          \omit StaffGroup.SystemStartBracket
          \omit Score.TimeSignature
     \override Score.SpanBar.glyph-name = "!"
  \new Staff {   g''4 a'' b'' c''' b'' a'' g'' f'' e'' }
  \new Staff {  e''4 d'' c'' b' c'' d'' e'' f'' g''} >> ""

% ; )






--
Sent from: http://lilypond-french-users.1298960.n2.nabble.com/