Re: Couleurs (piano à 4 mains)

[Pierre Perol-Schneider]

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

Donc en v2.16 ça donne :

\version "2.16.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
    }
  }
}

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é <address@hidden> 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 <address@hidden> a écrit :

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 <address@hidden> a écrit :

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 <address@hidden> a écrit :

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é <address@hidden> a écrit :

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

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

maMereLoyePartitionUn.ly
Description: Text Data

maMereLoyeNotes.ly
Description: Text Data