# Best colour scheme in order to optimize printing in grey scale?

GROUPS:
 Jorge Mx 3 Votes Hi everyone,I am doing a gradient plot in Mathematica for an article. I want a nice color plot for the online article, but the journal asks for an image so that when the article is printed in grayscale the plot can be well visualized. So, I wonder which is the best color scheme in order to create color gradient graphic (for the screen computer) and when is printed in gray scale the colours are well differentiated.Thanks to everyone for answering.Jorge
5 years ago
6 Replies
 Steven Christensen 1 Vote I bet the choice of color scheme will depend to some extent on the nature of your plot.  Can you provide an example?
5 years ago
 W. Craig Carter 3 Votes I agree with Steve.  It may depend on the values for which you will wish to provide the most visual contrast.Let's say that you want to emphasize the contrast at 0.2. Then something like:ColorFunction -> (Blend[{{0, GrayLevel[1]}, {0.15, GrayLevel[0.9]}, {0.25, GrayLevel[0.2]}, {1, GrayLevel[0]}}, #] &)Compare:Plot3D[Sin[x y], {x, 0, 2 Pi}, {y, 0, 2 Pi}, ColorFunction -> (GrayLevel[#3] &)]Plot3D[Sin[x y], {x, 0, 2 Pi}, {y, 0, 2 Pi}, ColorFunction -> (       Blend[{{0, GrayLevel[1]}, {0.15, GrayLevel[0.9]}, {0.25, GrayLevel[0.2]}, {1, GrayLevel[0]}}, #3] &)]And, you could do something similar by using an interpolation scheme for a ColorData scheme.
5 years ago
 Arnoud Buzing 3 Votes You may want to run your own experiments using code like this:With[{image =      Rasterize[      DensityPlot[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3},        ColorFunction -> #, PlotLegends -> Automatic], "Image"]},   Labeled[Row[{image, ColorConvert[image, "GrayLevel"]}], #]] & /@ ColorData["Gradients"]And visually look for a graylevel conversion that is appealing for your gradient plot: