Subject: [ACCORDS] Et la couleur alors ?

From: Jean-Christophe Taboada <[email-masked]>
Date: Fri, 15 Feb 2019 11:49:22 +0100

Bonjour,

Je cherche à mettre en couleurs certains accords dans un contexte \new ChordStaff, mais je n’ai pas trouvé dans le manuel. Une tentative naïve ci-dessous ne donne aucun résultat :

accords = \chordmode {
  \tweak color #red
  bes8 f4. f8 g4 fis8 |
  g1
}

Merci pour vos lumières :)

t.

PS: mieux vaut un titre de post pleins d’allitérations que plein de fôtes ;)

---

From: Jean-Christophe Taboada <[email-masked]>
Date: Fri, 15 Feb 2019 12:10:41 +0100

J’ai trouvé, mais je ne sais pas si c’est très orthodoxe, en utilisant \override ChordName.color = #red…

> On 15 Feb 2019, at 11:49, Jean-Christophe Taboada <[email-masked]> wrote:

En tous cas, ça fonctionne : http://lilybin.com/ydgg6s/1 <http://lilybin.com/ydgg6s/1>

Merci de votre attention

t.

---

From: Valentin Villenave <[email-masked]>
Date: Fri, 15 Feb 2019 16:03:58 +0100

> \override ChordName.color = #red…

C’est exactement ça ! À mettre comme d’habitude, soit au début de la
variable accords, soit dans un \with après \new ChordNames, soit dans
un bloc \layout {} avec un sous-bloc \context {\ChordNames }.

Et du coup, le \tweak n’est plus nécessaire.

Cordialement,
V.

---

From: Jean-Christophe Taboada <[email-masked]>
Date: Fri, 15 Feb 2019 16:54:20 +0100

Bonjour Valentin,

> On 15 Feb 2019, at 16:03, Valentin Villenave <[email-masked]> wrote:
> 
> On 2/15/19, Jean-Christophe Taboada <[email-masked] <mailto:[email-masked]>> wrote:
Ben, en fait, comme d’habitude, je dois faire des trucs un peu tordu pour des dictées d’accords “à trous”. Du coup, je vais devoir ne “colorier” que certains des accords… Il me semble que le fait de placer ça dans un bloc “enfant” de \layout va affecter tous les accords du contexte, n’est-ce pas ?
A moins que je ne bricole une fonction \coloreAccordsOn et \coloreAccordsOff, mais ça je suis loin de savoir faire pour l’instant :)

Je vais me débrouiller comme ça, ce n’est sans doute pas élégant, mais ce sera suffisant pour la quantité de dictées que j’ai à faire…

Merci encore !

t.

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Fri, 15 Feb 2019 17:05:20 +0100

Bonjour Jean-Christophe,

Le ven. 15 févr. 2019 à 16:54, Jean-Christophe Taboada <[email-masked]>
a écrit :

> [...]
A moins que je ne bricole une fonction \coloreAccordsOn et
> \coloreAccordsOff, mais ça je suis loin de savoir faire pour l’instant :)
>

Pourtant, tu n'es pas loin de la solution, essaie :

coloreAccordsOn = \override ChordName.color = #red
coloreAccordsOff = \revert ChordName.color
accords = \chordmode {
  \override ChordName.font-family = #'roman'
  \coloreAccordsOn
   bes8 f4. f8 g4
  \coloreAccordsOff
  fis8 |
  g1
}

%% etc.

Cordialement,
Pierre

---

From: Jean-Christophe Taboada <[email-masked]>
Date: Fri, 15 Feb 2019 17:09:24 +0100

> On 15 Feb 2019, at 17:05, Pierre Perol-Schneider <[email-masked]> wrote:
> 
> Bonjour Jean-Christophe,
> 
> Le ven. 15 févr. 2019 à 16:54, Jean-Christophe Taboada <[email-masked] <mailto:[email-masked]>> a écrit :
> [...]

Aaaargh !!! Vous êtes trop forts messieurs, je viens juste (il y a 15 secondes) de découvrir \revert et paf ! Ze réponse is already there :)

Ça fait pétiller le cerveau de faire du LilyPond.

Merci derechef !

t.

---

From: Christophe Pochon <[email-masked]>
Date: Fri, 15 Feb 2019 17:36:20 +0100

Pas si compliqué que ça :-)

%%%%%%%%
\version "2.19.15"
coloreAccordsOn =  \override ChordName.color = #red
coloreAccordsOff = \revert ChordName.color
chordNames = \chordmode {
    \time 4/4
    c1
    \coloreAccordsOn
    f
    bes
    \coloreAccordsOff
    es \break
    c
    f
    \coloreAccordsOn
    bes
    \coloreAccordsOn
    es
}

\score {
    \new ChordNames \chordNames
}
%%%%%%%%%%%

Christophe Pochon

Le ven. 15 févr. 2019 à 16:54, Jean-Christophe Taboada <[email-masked]>
a écrit :

> Ben, en fait, comme d’habitude, je dois faire des trucs un peu tordu pour
> des dictées d’accords “à trous”. Du coup, je vais devoir ne “colorier” que
> certains des accords… Il me semble que le fait de placer ça dans un bloc
> “enfant” de \layout va affecter *tous* les accords du contexte, n’est-ce
> pas ?
> Je vais me débrouiller comme ça, ce n’est sans doute pas élégant, mais ce
> sera suffisant pour la quantité de dictées que j’ai à faire…
>
> Merci encore !
>
> t.
> _______________________________________________
> liste de diffusion lilypond-user-fr
> [email-masked]
> https://lists.gnu.org/mailman/listinfo/lilypond-user-fr
>

---

From: Christophe Pochon <[email-masked]>
Date: Fri, 15 Feb 2019 17:37:33 +0100

Oups, j'avais pas encore reçu la réponse de Pierre ;-)

Christophe Pochon

---

From: [email-masked]
Date: Fri, 15 Feb 2019 19:45:49 +0100 (CET)

Bonjour à tous,

Très chers lilypondiens, l'un d'entre vous saurait-il comment faire en sorte que chaque voix d'une même portée ait son guidon (Custos) dans sa couleur  ?
Après avoir essayé différents \override, je sèche !

http://lilybin.com/vkgtkc/1

Merci d'avance pour vos lumières !

Joël Gauvrit

---

From: NOreply <[email-masked]>
Date: Sat, 16 Feb 2019 04:21:16 -0700 (MST)

Bonjour,
Il faut déplacer le "Custos_engraver" du context MensuralStaff vers le
context MensuralVoice.
Ensuite, pas de problème.
Voir ici:
http://lilybin.com/v3n757/1

%%%%%%%%%%%%%%%%%%%%

\layout
{
 \context 

 {
   \MensuralStaff
   \remove "Custos_engraver"
 }
 
  \context 

 {
   \MensuralVoice
   \consists "Custos_engraver"
 }
  
}

\new MensuralStaff \with { 
  \override Clef.stencil = #
  (lambda (grob)(grob-interpret-markup grob
                  #{ \markup 
                     \fontsize #-2 
                     \raise #2.6
                     \concat 
                     { \hspace #1 \musicglyph #"clefs.mensural.g"
                       \hspace #-1.5 \lower #2.6  \musicglyph
#"clefs.mensural.c"
                       \hspace #-0.75 \lower #5.4  \musicglyph
#"clefs.petrucci.f" 
                     }

                  #}))

  \remove "Ambitus_engraver"
  \omit Staff.TimeSignature 
  \override Custos.neutral-position = #8
  \override StaffSymbol.staff-space = #1.4 
  \override Custos #'style = #'mensural
  \override StaffSymbol.line-count = #9
  instrumentName = \markup { \fontsize #-3 "Analyse" }
  shortInstrumentName = \markup { \fontsize #-3 "An." }
}
<<
  \new MensuralVoice \with { 
  
\override Custos.color = #blue
  } \transpose c c {\relative c'' { \tiny
   
                                    \hide Score.BarNumber
                                    \clef "mensural-c2" 
                                    \key f \major
                                    \omit Staff.TimeSignature
                                    \override NoteHead #'style = #'petrucci
                                    \set Timing.measureLength =
#(ly:make-moment 3/1 )
                                    \stopStaff
                                    \override
Staff.StaffSymbol.line-positions = #'(-6 -6 -4 -2 -0 2 4 6 8 )
                                    \startStaff
  
                                    \voiceOne \shiftOff \override
Voice.Stem.length-fraction = 0.5
                                    \override NoteHead.color = #blue
                                    \override Rest.color = #blue
                                    \override Dots.color = #blue
                                    \override Accidental.color = #blue
                                    \override Stem.color = #blue
                                    
                                    c\longa*3/2
                                    \override NoteHead #'style =
#'blackpetrucci
             
                                    e,\breve bes'1
                                    \override NoteHead #'style = #'petrucci

                                    e1*3/2 bes
                                    c\breve*3/2
                                    f1*3/2 c\breve*3/2
                                    g1*3/2
                                    \override NoteHead #'style =
#'blackpetrucci
                                    \once \shiftOn f\breve 
                                    e1
                                    f1 a g
                                    \override NoteHead #'style = #'petrucci
                                    a\breve*3/2
             
                                    \override NoteHead #'style =
#'blackpetrucci
                                    e'1 c a \once \shiftOn  g\breve bes1
                                    \override NoteHead #'style = #'petrucci
                                    c1*3/2  d
                                    \override NoteHead #'style =
#'blackpetrucci
                                    e1 c bes
                                    \override NoteHead #'style = #'petrucci
                                    c\longa*3/4
                                    \bar "||"
     
  }}

  \new MensuralVoice \with {

  } \transpose c c {\relative c' {\tiny
                                  \omit Staff.TimeSignature
                                  \override NoteHead #'style = #'petrucci
                                  \set Timing.measureLength =
#(ly:make-moment 3/1 )
    
                                  \voiceTwo \shiftOff  \override
Voice.Stem.length-fraction = 0.5
    
                                  \once \stemDown f\longa*3/2
                                  \override NoteHead #'style =
#'blackpetrucci                        
                                  g\breve g1
                                  \override NoteHead #'style = #'petrucci
                                  c,1*3/2 d c\breve*3/2
                                  d1*3/2 f\breve*3/2 e1*3/2
                                  \override NoteHead #'style =
#'blackpetrucci
                                  \once \shiftOn f\breve c1
                                  f,1 c' bes
                                  \override NoteHead #'style = #'petrucci
                                  a\breve*3/2
                                  \override NoteHead #'style =
#'blackpetrucci
                                  c1 e fis
                                  \override NoteHead #'style = #'petrucci
                                  \once \shiftOn g\breve*3/2
                                  c,1*3/2  bis
                                  \override NoteHead #'style =
#'blackpetrucci
                                  c1 e d
                                  \override NoteHead #'style = #'petrucci
                                  \once \stemDown c\longa*3/4

  }}
  
  \new MensuralVoice \with { 
    \override Custos.color = #red

  } \transpose c c {\relative c {\tiny
                                 \omit Staff.TimeSignature
                                 \override NoteHead #'style = #'petrucci
    
                                 \voiceThree \shiftOff \override
Voice.Stem.length-fraction = 0.5
                                 \override NoteHead.color = #red
                                 \override Rest.color = #red
                                 \override Dots.color = #red
                                 \override Accidental.color = #red
                                 \override Stem.color = #red
                                 
                                 f\longa*3/2
                                 \override NoteHead #'style =
#'blackpetrucci
                                 c'\breve g1
                                 \override NoteHead #'style = #'petrucci
                                 g'1*3/2 g,
                                 g'\breve*3/2
                                 f1*3/2 f,\breve*3/2 c'1*3/2
                                 \override NoteHead #'style =
#'blackpetrucci
                                 f,\breve a1
                                 c1 f, d'
             
                                 e\breve a1
             
                                 \override NoteHead #'style =
#'blackpetrucci
                                 g\breve d1
                                 \override NoteHead #'style = #'petrucci
                                 g,\breve*3/2
                                 g'1*3/2  d
                                 \override NoteHead #'style =
#'blackpetrucci
                                 a1 c g
                                 \override NoteHead #'style = #'petrucci
                                 \once \stemDown g'\longa*3/4

  }}
%%%%%%%%%%%%%%%%%%%%%%%%%%

% ; = )

--
Sent from: http://lilypond-french-users.1298960.n2.nabble.com/

---

From: NOreply <[email-masked]>
Date: Sat, 16 Feb 2019 04:22:35 -0700 (MST)

Oups, je me suis trompé dans les couleurs, mais tu as compris le principe.
A+

---

From: Valentin Villenave <[email-masked]>
Date: Tue, 19 Feb 2019 23:15:08 +0000

On 2/15/19, [email-masked] <[email-masked]> wrote:
> Très chers lilypondiens, l'un d'entre vous saurait-il comment faire en sorte
> que chaque voix d'une même portée ait son guidon (Custos) dans sa couleur?

Bonsoir,
par défaut, les Custos sont gravés au niveau du contexte Staff (ou
plus exactement MensuralStaff en l’occurrence). Ici comme on souhaite
les rendre autonomes pour chaque voix, il faut donc l’enlever du
contexte supérieur et le remettre dans le contexte MensuralVoice.

Par ailleurs, j’en profite pour mettre les couleurs dans une fonction
afin que ce soit plus propre ; j’ai également nettoyé quelques autres
aspects de votre code, notamment en regroupant quelques propriétés
dans le \layout (mais ce n’est pas essentiel).

%%%%%%%%%%%%

changeColor=
#(define-music-function (col) (list?)
   #{
     \override NoteHead.color = #col
     \override Rest.color = #col
     \override Dots.color = #col
     \override Accidental.color = #col
     \override Stem.color = #col
     \override Custos.color = #col
   #})

bPet = \override NoteHead.style = #'blackpetrucci
Pet = \override NoteHead.style = #'petrucci

\new MensuralStaff \with {
  instrumentName = \markup { \fontsize #-3 "Analyse" }
  shortInstrumentName = \markup { \fontsize #-3 "An." }
} <<
  \new MensuralVoice \relative c'' {
    \tiny \changeColor #blue
    \omit Score.BarNumber
    \clef "mensural-c2"
    \Pet
    \set Timing.measureLength = #(ly:make-moment 3/1 )
    \stopStaff
    \startStaff
    \voiceOne \shiftOff
    c\longa*3/2
    \bPet
    e,\breve bes'1
    \Pet
    e1*3/2 bes
    c\breve*3/2
    f1*3/2 c\breve*3/2
    g1*3/2
    \bPet
    \once \shiftOn f\breve e1
    f1 a g
    \Pet
    a\breve*3/2
    \bPet
    e'1 c a \once \shiftOn g\breve bes1
    \Pet
    c1*3/2 d
    \bPet
    e1 c bes
    \Pet
    c\longa*3/4
    \bar "||"
  }
  \new MensuralVoice \relative c' {
    \tiny \changeColor #darkgreen
    \Pet
    \voiceTwo \shiftOff
    \once \stemDown f\longa*3/2
    \bPet
    g\breve g1
    \Pet
    c,1*3/2 d c\breve*3/2
    d1*3/2 f\breve*3/2 e1*3/2
    \bPet
    \once \shiftOn f\breve c1
    f,1 c' bes
    \Pet
    a\breve*3/2
    \bPet
    c1 e fis
    \Pet
    \once \shiftOn g\breve*3/2
    c,1*3/2 bis
    \bPet
    c1 e d
    \Pet
    \once \stemDown c\longa*3/4
  }
  \new MensuralVoice \relative c {
    \tiny \changeColor #red
    \Pet
    \voiceThree \shiftOff
    f\longa*3/2
    \bPet
    c'\breve g1
    \Pet
    g'1*3/2 g,
    g'\breve*3/2
    f1*3/2 f,\breve*3/2 c'1*3/2
    \bPet
    f,\breve a1
    c1 f, d'
    e\breve a1
    \bPet
    g\breve d1
    \Pet
    g,\breve*3/2
    g'1*3/2 d
    \bPet
    a1 c g
    \Pet
    \once \stemDown g'\longa*3/4
  }

\layout {
  \context {
    \MensuralStaff
    \remove Custos_engraver
    \remove Ambitus_engraver
    \override Clef.stencil =
    #(lambda (grob)
       (grob-interpret-markup grob
         #{ \markup
            \fontsize #-2
            \raise #2.6
            \concat
            {
              \hspace #1 \musicglyph #"clefs.mensural.g"
              \hspace #-1.5 \lower #2.6 \musicglyph #"clefs.mensural.c"
              \hspace #-0.75 \lower #5.4 \musicglyph #"clefs.petrucci.f"
            }
         #}))
    \omit TimeSignature
    \override Custos.neutral-position = #8
    \override Custos.style = #'mensural
    \override StaffSymbol.line-count = #9
    \override StaffSymbol.staff-space = #1.4
    \override StaffSymbol.line-positions = #'(-6 -6 -4 -2 -0 2 4 6 8 )
  }
  \context {
    \MensuralVoice
    \consists Custos_engraver
    \override Stem.length-fraction = 0.5
  }
}

%%%%%%%%

Cordialement,
V. V.