[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Colorer un bout de partition
From: |
Gerard |
Subject: |
Re: Colorer un bout de partition |
Date: |
Thu, 22 Dec 2022 13:29:44 +0100 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:102.0) Gecko/20100101 Thunderbird/102.6.0 |
Bonjour Bernard,
J'ai ça dans mes affaires depuis la 20.0, transmis par Jean ou Valentin...
Pour moi c'est sorcellerie, mais ça marche !
#(define (override-color-for-all-grobs color)
(lambda (context)
(let loop ((x all-grob-descriptions))
(if (not (null? x))
(let ((grob-name (caar x)))
(ly:context-pushpop-property context grob-name 'color color)
(loop (cdr x)))))))
couleur = {\applyContext #(override-color-for-all-grobs (x11-color 'blue))
}
pascouleur = {\applyContext #(override-color-for-all-grobs (x11-color
'black))
}
Si ça peut te servir, et si ça reste adapté !
Cordialement
Gérard
Le 22/12/2022 à 13:21, Bernard Meylan a écrit :
Bonjour!
Un bout de page manquant dans une édition originale, je cherche à
rendre visible en gris les mesures «complétées» pour reprendre ensuite
la coloration normale en noir.
J'ai utilisé:
\override Staff.StaffSymbol.color = #(x11-color 'grey60)
\override Staff.TimeSignature.color = #(x11-color 'grey60)
\override Staff.Clef.color = #(x11-color 'grey60)
\override Voice.NoteHead.color = #(x11-color 'grey60)
\override Voice.Stem.color = #(x11-color 'grey60)
\override Staff.BarLine.color = #(x11-color 'grey60)
Il en manque encore pour les ligatures, les altérations et les ajouts
(ficta). Mais est-il possible d'avoir un \override qui colorerait tous
les éléments d'un coup?
Bernard