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

From: Loïc Chahine <[email-masked]>
Date: Wed, 28 Mar 2012 12:08:18 +0200

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.

---

From: Loïc Chahine <[email-masked]>
Date: Wed, 28 Mar 2012 12:35:18 +0200

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, [email-masked] 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)…
>> _______________________________________________
>> liste de diffusion lilypond-user-fr
>> [email-masked]
>> https://lists.gnu.org/mailman/listinfo/lilypond-user-fr
>
>

---

From: "[email-masked]" <[email-masked]>
Date: Wed, 28 Mar 2012 12:37:06 +0200

\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.
>

---

From: "[email-masked]" <[email-masked]>
Date: Wed, 28 Mar 2012 12:15:41 +0200

Cordialement,
Mike

---

From: Eluze <[email-masked]>
Date: Wed, 28 Mar 2012 04:32:29 -0700 (PDT)

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.

---

From: Xavier Scheuer <[email-masked]>
Date: Wed, 28 Mar 2012 13:44:50 +0200

> \context Voice \relative {

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

Cordialement,
Xavier

-- 
Xavier Scheuer <[email-masked]>