mettre de la couleur à tout (y compris point, dièse, ornement)

Général
1

Bonjour à tous,
Je cherche comment mettre en couleur toute une note : non seulement la tête et la hampe, comme je viens de faire, mais aussi le dièse qui la précède, l’ornement qui est au-dessus, et le point de prolongation (il y a une noire pointée)…
Merci d’avance pour votre aide !
L.C.

2

Plusieurs tentatives ont été faites sur la liste anglophone (je ne me souviens pas quand et comment) pour y arriver mais pour le moment aucune manip ne marche à 100 %. En gros il faut identifier tous les grobs concernés et faire :

\override Foo #'color = #"Zinzolin"

où "Foo" est un grob quelconque.

Cordialement,
Mike

···

On Mar 28, 2012, at 12:08 PM, Loïc Chahine wrote:

Bonjour à tous,
Je cherche comment mettre en couleur toute une note : non seulement la tête et la hampe, comme je viens de faire, mais aussi le dièse qui la précède, l’ornement qui est au-dessus, et le point de prolongation (il y a une noire pointée)…
Merci d’avance pour votre aide !
L.C.

_______________________________________________
liste de diffusion lilypond-user-fr
lilypond-user-fr@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user-fr

3

Merci, Mike !
Cependant je ne sais pas où trouver le grob "dièse accroché à une note" et le grob "point accroché à une note" !
L.C.

···

Le 28/03/12 12:15, ****@**** a écrit :

Plusieurs tentatives ont été faites sur la liste anglophone (je ne me souviens pas quand et comment) pour y arriver mais pour le moment aucune manip ne marche à 100 %. En gros il faut identifier tous les grobs concernés et faire :

\override Foo #'color = #"Zinzolin"

où "Foo" est un grob quelconque.

Cordialement,
Mike

On Mar 28, 2012, at 12:08 PM, Loïc Chahine wrote:

Bonjour à tous,
Je cherche comment mettre en couleur toute une note : non seulement la tête et la hampe, comme je viens de faire, mais aussi le dièse qui la précède, l’ornement qui est au-dessus, et le point de prolongation (il y a une noire pointée)…
Merci d’avance pour votre aide !
L.C.

_______________________________________________
liste de diffusion lilypond-user-fr
lilypond-user-fr@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user-fr

4

\override Accidental #'color
\override Dots #'color

Cordialement,
~Mike

···

On Mar 28, 2012, at 12:35 PM, Loïc Chahine wrote:

Merci, Mike !
Cependant je ne sais pas où trouver le grob "dièse accroché à une note" et le grob "point accroché à une note" !
L.C.

Le 28/03/12 12:15, ****@**** a écrit :

Plusieurs tentatives ont été faites sur la liste anglophone (je ne me souviens pas quand et comment) pour y arriver mais pour le moment aucune manip ne marche à 100 %. En gros il faut identifier tous les grobs concernés et faire :

\override Foo #'color = #"Zinzolin"

où "Foo" est un grob quelconque.

Cordialement,
Mike

On Mar 28, 2012, at 12:08 PM, Loïc Chahine wrote:

Bonjour à tous,
Je cherche comment mettre en couleur toute une note : non seulement la tête et la hampe, comme je viens de faire, mais aussi le dièse qui la précède, l’ornement qui est au-dessus, et le point de prolongation (il y a une noire pointée)…
Merci d’avance pour votre aide !
L.C.

_______________________________________________
liste de diffusion lilypond-user-fr
lilypond-user-fr@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user-fr

_______________________________________________
liste de diffusion lilypond-user-fr
lilypond-user-fr@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user-fr

5

j'avais trouvé une fois:

% override-color-for-all-grobs color - works for a staff or voice
#(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)))))))

colorVoice = #(define-music-function (parser location color) (string?)
  #{ \applyContext #(override-color-for-all-grobs (x11-color color))
  #})

et ensuite:

\context Voice \relative {
  \colorVoice #"magenta"
  c8 d e f g2
  g2. g4
  \colorVoice #"black"
  c8 d e f g2
  g2. g4
}

Eluze

···

--
View this message in context: http://lilypond-french-users.1298960.n2.nabble.com/mettre-de-la-couleur-a-tout-y-compris-point-diese-ornement-tp7413053p7413248.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.

6

Yep, c'est sur le LSR: http://lsr.dsi.unimi.it/LSR/Item?id=443

Cordialement,
Xavier

···

2012/3/28 Eluze <****@****>:

j'avais trouvé une fois:

% override-color-for-all-grobs color - works for a staff or voice
#(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)))))))

colorVoice = #(define-music-function (parser location color) (string?)
#{ \applyContext #(override-color-for-all-grobs (x11-color color))
#})

et ensuite:

\context Voice \relative {
\colorVoice #"magenta"
c8 d e f g2
g2. g4
\colorVoice #"black"
c8 d e f g2
g2. g4
}

--
Xavier Scheuer <****@****>