Subject: Couleurs (piano à 4 mains)

From: Jean Gautier-Barillé <[email-masked]>
Date: Fri, 27 Feb 2015 17:58:30 +0100

Bonsoir à tous,

Suite à votre concours pour mettre en couleur la partie Seconda, comme je
l'ai déjà dit, je suis très satisfait.
Mais j'aimerai avoir une précision au sujet du choix de la couleur.

En effet Jean-Jacques m'a modifié la mise en couleur globale avec des
termes Sheme que je ne connais pas.

soit:

#(define (override-color-for-all-grobs color) ; instructions Scheme pour
mettre
  (lambda (context)                           ; tous les objets en couleur
   (let loop ((x all-grob-descriptions))      ; sauf la clé !
    (if (not (null? x))                  ; qu'il a donc fallu rajouter
autrement
     (let ((grob-name (caar x)))
      (ly:context-pushpop-property context grob-name 'color color)
      (loop (cdr x)))))))

Cela me semble plus rapide et efficace, mais dans toutes ces instructions,
où se trouve le nom de la couleur?  Ici c'est "bleu", comment la changer?

Je n'ai pas trouvé la réponse dans le Manuel de Notation 2.16.2
Merci de votre aide
Cordialement.

JEAN

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Fri, 27 Feb 2015 18:07:22 +0100

Bonsoir,

Le code : http://lsr.di.unimi.it/LSR/Item?id=443
Les couleurs X11 dispos : http://lsr.di.unimi.it/LSR/Item?id=394

Pierre

Le 27 février 2015 17:58, Jean Gautier-Barillé <[email-masked]> a
écrit :

> _______________________________________________
> liste de diffusion lilypond-user-fr
> [email-masked]
> https://lists.gnu.org/mailman/listinfo/lilypond-user-fr
>
>

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Fri, 27 Feb 2015 18:16:30 +0100

Je viens de relire le code - qui n'est pas très clair.
Donc le voici (attention la liste prend 17 pages) :

\version "2.18.2"
#(ly:load "x11-color.scm")

% To show all available colors (~17 pages), replace
% (take x11-color-list 15) by x11-color-list
#(define-markup-list-command (listcolors layout props) ()
  (interpret-markup-list layout props
    (map (lambda (colorspec)
      (markup #:with-color (x11-color (car colorspec))
              #:filled-box '(-0.5 . 10) '(-1 . 3) 1
              (symbol->string (car colorspec))))
      x11-color-list)))

\markuplist \column-lines \listcolors

Pierre

Le 27 février 2015 18:07, Pierre Perol-Schneider <
[email-masked]> a écrit :

>> Cela me semble plus rapide et efficace, mais dans toutes ces
>> instructions, où se trouve le nom de la couleur?  Ici c'est "bleu", comment
>> la changer?
>>

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Fri, 27 Feb 2015 18:24:01 +0100

Soit, par exemple :

\version "2.18.2"

#(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)))))))

\score {
  \relative c' {
    \applyContext #(override-color-for-all-grobs (x11-color
'PaleVioletRed)) %% <= on définit la couleur générale
    c4\pp\< d e f
    \grace { g16[( a g fis]) } g1\ff\!
  }
  \layout {
    \context {
      \Score
      %% on peut préciser quels 'grobs' restent noirs:
      \override StaffSymbol.color = #black
      \override BarLine.color = #black
      \override Clef.color = #black
    }
  }
}

En espérant avoir répondu clairement...
Pierre

Le 27 février 2015 18:16, Pierre Perol-Schneider <
[email-masked]> a écrit :

>>> Suite à votre concours pour mettre en couleur la partie Seconda, comme
>>> je l'ai déjà dit, je suis très satisfait.

---

From: JJG <[email-masked]>
Date: Fri, 27 Feb 2015 19:47:03 +0100

>        (ly:context-pushpop-property context grob-name 'color color)
........

Merci à Pierre d'avoir utilement complété mon code. Je l'avais copié au 
hasard de mes recherches sur le net concernant lilypond et ne m'étais 
même pas aperçu que la couleur "bleue" n'y apparaissait pas !

Je dois dire, comme toujours (je me répète), que Lilypond est un super 
logiciel (libre et gratuit) mais qu'il y a des personnes qui le 
possèdent d'une belle façon !

Bravo à Pierre et les autres !

-- 
JJG

utilisateur de gnu.linux depuis des années (mais toujours... débutant !)
http://www.radiosuisseclassique.ch/fr

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Fri, 27 Feb 2015 19:56:07 +0100

Oh ! Désolé Jean, j'ai répondu trop vite.

Donc en v2.16 ça donne :

\version "2.16.2"

\score {
  \relative c' {
    \applyContext #(override-color-for-all-grobs (x11-color
'PaleVioletRed)) %% <= on définit la couleur générale
    c4\pp\< d e f
    \grace { g16[( a g fis]) } g1\ff\!
  }
  \layout {
    \context {
      \Score
      %% on peut préciser quels 'grobs' restent noirs:
      \override StaffSymbol #'color = #black
      \override BarLine #'color = #black
      \override Clef #'color = #black
    }
  }
}

je n'ai pas le fichier de Jean-Jacques, pas facile de te répondre
précisément.
Ci-joint le précédent fichier que je t'ai proposé avec la modif de couleur.
En espérant sincèrement t'avoir aidé,

Pierre

Le 27 février 2015 19:12, Jean Gautier-Barillé <[email-masked]> a
écrit :

> Je te remercie Pierre, mais je suis en version 2.16.2,
> et je ne comprends pas ce que J-J a mis en début de mon fichier, pour
> avoir la couleur bleue, et comment la remplacer?
> Jean.
>
> Le 27 février 2015 18:24, Pierre Perol-Schneider <
>>>> Le 27 février 2015 17:58, Jean Gautier-Barillé <[email-masked]>
>>>> a écrit :
>>>>
>>>>> Bonsoir à tous,
>>>>>
>>>>> #(define (override-color-for-all-grobs color) ; instructions Scheme
>>>>> pour mettre

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Fri, 27 Feb 2015 19:57:21 +0100

> Bravo à Pierre et les autres !

Merci ;)

---

From: Jean Gautier-Barillé <[email-masked]>
Date: Fri, 27 Feb 2015 20:02:26 +0100

Merci à tous, vous êtes très forts!
Merci Pierre.
De ce pas je vais faire les modifs.

Bonne soirée;
Cordialement.
Jean

Le 27 février 2015 19:56, Pierre Perol-Schneider <
[email-masked]> a écrit :

>>>>>> Suite à votre concours pour mettre en couleur la partie Seconda,
>>>>>> comme je l'ai déjà dit, je suis très satisfait.
>>>>>>     (if (not (null? x))                  ; qu'il a donc fallu
>>>>>> rajouter autrement