[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Ecriture d'alternatives
From: |
NOreply |
Subject: |
Re: Ecriture d'alternatives |
Date: |
Tue, 29 Oct 2019 11:49:40 -0700 (MST) |
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/