Re: gris

[Jean Abou Samra]

Bonjour,

(Un détail : pensez à faire un nouveau fil, vous avez apparemment
cliqué sur Répondre dans le  fil existant « \layout à l'intérieur
d'un book ». Ce n'est pas bien grave, mais certains clients de
messagerie [ou bien tous ?] considèrent que c'est un nouveau post
dans le même sujet bien que le titre ait changé.)

Le 03/10/2021 à 11:51, joel.gauvrit@free.fr a écrit :
> Bonjour à tous !
>
> J'ai fréquemment utilisé dans mon travail la coloration grise ( #grey) ou 
> #(x11-color 'grey70) )
> et mon éditeur me dit que cela produit un gris fait de différentes couleurs...
>
> Y a t-il le moyen de faire du gris en pourcentage de noire ?
>
> Bon dimanche !
>
> Joël


Je ne suis pas spécialiste des formats PS et PDF, mais
je pense que ce code devrait le faire, à condition que
vous acceptiez le risque que cela ne fonctionne plus
dans des versions ultérieures de LilyPond car c'est du
100% pur bidouillage (pas moyen de faire autrement
à l'heure actuelle). Je ne me suis pas préoccupé
de la sortie SVG (ce serait sûrement faisable).


\version "2.22.1"

#(use-modules (srfi srfi-16))

#(define (format-color r g b)
   (if (eqv? r g b)
       (ly:format "gsave ~4f setgray\n" r)
       (ly:format "gsave ~4l setrgbcolor\n" (list r g b))))

#(set! (@ (scm output-ps) stencil-dispatch-alist)
       (append (@ (scm output-ps) stencil-dispatch-alist)
               (list
                 (cons 'setcolor
                       (case-lambda
                         ((str)
                          (let ((colorlist (css->colorlist str)))
                            (apply format-color (list-head colorlist 3))))
                         ((r g b)
                          (format-color r g b)))))))

{ \tweak color grey c'1 }



> Et si vous tentiez ceci par exemple, mais je ne sais pas si la sortie
> est en % de noir,


Malheureusement, cela ne peut pas fonctionner car
les couleurs "#xxxxxx" et #(rgb-color ...) sont
traitées exactement de la même manière en interne
(sauf en SVG, et encore, plus dans les versions
de développement).


> à lire les pro de l'impression il faudrait une sortie en CMJN le RGB
> étant plutôt pour le web ...


C'est possible avec le même genre de bricolage,
et les mêmes limitations.

\version "2.22.1"

#(use-modules (srfi srfi-16))

#(define (format-color r g b)
   (if (eqv? r g b)
       (ly:format "gsave ~4f setgray\n" r)
       (ly:format "gsave ~4l setrgbcolor\n" (list r g b))))

#(define (format-cmyk-color c m y k)
   (ly:format "gsave ~4l setcmykcolor" (list c m y k)))

#(set! (@ (scm output-ps) stencil-dispatch-alist)
       (append (@ (scm output-ps) stencil-dispatch-alist)
               (list
                 (cons 'setcolor
                       (case-lambda
                         ((str)
                          (let ((colorlist (css->colorlist str)))
                            (apply format-color (list-head colorlist 3))))
                         ((r g b)
                          (format-color r g b))
                         ((c m y k)
                          (format-cmyk-color c m y k)))))))

{
  \tweak color #'(0.0 1.0 0.0 0.0) % donner 4 valeurs pour du CJMN
  c'1
}


Cordialement,
Jean