Couleur CMJN pour les outils de dessin dans Mathematica

Question

Je dessine des graphiques dans Mathematica 9.0 et j'ai converti toutes les couleurs en CMJN. Ensuite, j'ai ajouté du texte et d'autres informations à l'aide de la palette Outils de dessin. J'aimerais que ce truc soit aussi en couleur CMJN, mais je ne trouve pas le moyen de le changer. J'utilise une version démo pour voir si cela fonctionnera pour nos publications.

Merci

[Plus tard] Merci, cela aide. Je suis en train de créer un gabarit «fictif» pour notre bureau, mais mes flèches de fonction semblent être d'une couleur différente de mes fonctions lorsque j'exporte quelque chose comme un pdf. Je voudrais un moyen de contrôler manuellement la couleur des pointes de flèches, mais je n'arrive pas à en trouver un comme c'est écrit. Cela ne me dérangerait pas non plus de changer le style de la pointe de flèche en seulement deux lignes au lieu d'une forme solide. Les pointes de flèches sont la dernière ligne.

ClearAll["Global`*"]; 
Interpretation[{f = { 1/(x - 1) + 1, Sin[x], -x, x}, 
    points = {{3, 2}, {-5, -8}}, min = -10, max = 10, size = 0.5, 
    rmin = -10, rmax = 10, gridx = 1, gridy = 1, hlabel = "x", 
    vlabel = "y"}, 
Panel[Grid[{{Style["Plot Characteristics", Bold], SpanFromLeft}, 
    {"Functions:", InputField[Dynamic[f]]}, 
    {"Points:", InputField[Dynamic[points]]}, 
    {"Domain Min:", InputField[Dynamic[min]]}, 
    {"Domain Max:", InputField[Dynamic[max]]}, 
    {"Range Min:", InputField[Dynamic[rmin]]}, 
    {"Range Max:", InputField[Dynamic[rmax]]}, 
    {"Grid Size (cm):", InputField[Dynamic[size]]}, 
    {"Gridline Space x:", InputField[Dynamic[gridx]]}, 
    {"Grdiline Space y:", InputField[Dynamic[gridy]]}, 
    {"Horizontal Label:", InputField[Dynamic[hlabel]]}, 
    {"Vertical Label:", InputField[Dynamic[vlabel]]} 
    }]], 
Plot[f, {x, min - 0.58*gridx, max + 0.58*gridx}, 
    PlotRange -> {rmin - 1.01*gridy, rmax + 1.01 gridy} , 
    GridLines -> {Range[min, max, gridx], Range[rmin, rmax, gridy]}, 
    GridLinesStyle -> {{Dashed, CMYKColor[0, 0, 0, 1, 0.25], 
     AbsoluteThickness[0.5]}, {Dashed, CMYKColor[0, 0, 0, 1, 0.25], 
     AbsoluteThickness[0.5]}}, 
    Ticks -> {Range[min, max, gridx], Range[rmin, rmax, gridy]}, 
    TicksStyle -> 
    Directive[10, Opacity[0], FontOpacity -> 0.9999, 
    CMYKColor[0, 0, 0, 1], FontFamily -> "Helvetica"], 
    ImageSize -> {(max + gridx - (min - gridx))*28.52*size + 37.2 + 
     6.4*StringLength[hlabel], (rmax + gridy - (rmin - gridy))*28.52* 
     size + 49}, 
    AspectRatio -> Full, 
    AxesLabel -> {Style[hlabel, Italic], Style[vlabel, Italic]}, 
    LabelStyle -> {{FontFamily -> "Helvetica", FontSize -> 14}}, 
    AxesStyle -> {CMYKColor[1, 1, 1, 1], AbsoluteThickness[0.5]}, 
    PlotStyle -> {{AbsoluteThickness[1], 
     CMYKColor[0, 0, 0, 1]}, {AbsoluteThickness[1], 
     CMYKColor[0, 0.83, 1, 0]}, {AbsoluteThickness[1], 
     CMYKColor[1, 0, 0, 0]}, {AbsoluteThickness[1], 
     CMYKColor[0.36, 1, 0, 0]}, {AbsoluteThickness[1], 
     CMYKColor[0.63, 0, 1, 0]}, {AbsoluteThickness[1], 
     CMYKColor[0, 0, 0, 1]}}, 
    Prolog -> {Arrowheads[{0.02, 0.01, {0, 0.03}}], 
    Arrow[{{max + gridx, 0}, {max + gridx + gridx/10, 0}}], 
    Arrow[{{min - gridx, 0}, {min - gridx - gridx/10, 0}}], 
    Arrow[{{0, rmax + gridy}, {0, rmax + gridy + gridy/10}}], 
    Arrow[{{0, rmin - gridy}, {0, rmin - gridy - gridy/10}}], 
    AbsolutePointSize[5], Point[points]}, 
    Epilog -> {Text[ 
     Style["Label", 12, FontColor -> CMYKColor[0, 0, 0, 1], 
     FontFamily -> "Helvetica"], {5, 5}]} 
    ] 
    /. Line[x__] :> Sequence[Arrowheads[{-.02, .02}], Arrow[x]] 
] 

Answer 1

Si cela vous aide, voici comment vous pouvez obtenir les équivalents RGB de vos couleurs CMJN.

ColorConvert[ CMYKColor[0, 1, 1, 0] , "RGB"] /. RGBColor -> List 

(* {1., 0., 0.} *) 

Ou dans une gamme appropriée pour les boîtes de dialogue:

255 (ColorConvert[ CMYKColor[.1, .8, .3, .15] , "RGB"] /. RGBColor -> List) // Round 

(* {195, 43, 152} *) 

J'ai un sentiment que vous aurez besoin de les saisir manuellement dans la boîte de dialogue des outils de dessin.

Bien sûr, vous pouvez toujours faire votre étiquetage en utilisant des primitives graphiques au lieu des outils GUI, alors vous avez un contrôle total.

Éditer // juste vous tromper avec ça. Je peux bien faire correspondre les couleurs des objets outils de dessin aux primitives CMJN sauf les polices. Les couleurs de police peuvent évidemment être définies via la boîte de dialogue de police ou la boîte de dialogue des outils de dessin, mais rien non plus n'a de sens pour moi. Je pense que nous pouvons étiqueter les outils de dessin GUI comme pas prêt pour un travail de haute qualité.

Answer 2

Je ne pense pas que je serais intéressé par votre approche - d'une part, si vous générez à nouveau le graphique, n'auriez-vous pas à refaire les annotations? Ensuite, vous faites des choses à la main que vous pouvez probablement automatiser plus facilement (si vous avez beaucoup de ce type de travail à faire ...). Bien qu'il faudra un certain temps pour apprendre à tout faire via Mathematica.

Cela semble préserver les couleurs CMJN lorsque vous exportez:

p = Framed[ 
    Plot[ 
    Sin[x], 
    {x, 0, 2 Pi}, 
    PlotStyle -> CMYKColor[0, 1, 0, .15], 
    PlotRangePadding -> 0, 
    Prolog -> {CMYKColor[.1, .1, .3, .15], 
    Rectangle[{-1, -1}, {2 Pi, 1}]}, 
    Epilog -> {Text[ 
     Style["Sine of x", 28, 
     FontColor -> CMYKColor[.2, .5, 1, .15], 
     FontFamily -> "Optima Bold"], 
     {4.5, .5}]}], 
    Background -> CMYKColor[.3, .2, .0, .15], 
    FrameStyle -> CMYKColor[.1, .2, .0, 0] 
    ] 

Export["p.eps", p] 

Mais il a été un certain temps que je devais travailler avec CMYK donc je ne pourrais pas savoir ce que je fais plus ... :)