Re: Colorer un bout de partition

[Gerard]

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