9
$\begingroup$

In Mathematica 7, the default plot color is a purple-like color (although I think it is not Purple). Is it possible to use Mathematica to determine the RGB color values of the default plot color? Thanks for your time.

Improve this question
$\endgroup$
1

4 Answers 4

Reset to default
11
$\begingroup$

All the default colors can be found in ColorData[1]. To obtain the RGB value of the first color you just need to type:

ColorData[1, 1]
(* RGBColor[0.2472, 0.24, 0.6] *)

To check all subsequent colors just change the n in ColorData[1, n]. To obtain the values on the scale 0 to 255:

Round[Rescale[Table[ColorData[1, 1][[i]], {i, 3}], {0, 1}, {0, 255}]]
(* {63, 61, 153} *)
Improve this answer
$\endgroup$
3
  • $\begingroup$ Thanks! So, if (as in other programs) the RGB values are on a scale from 0 to 255, I just need to multiply the Mathematica RGB values by 255? $\endgroup$
    – Andrew
    Oct 9, 2012 at 17:23
  • 1
    $\begingroup$ @Andrew See update. $\endgroup$
    – VLC
    Oct 9, 2012 at 17:25
  • 2
    $\begingroup$ v10.3 255(List@@ColorData[97,n]) $\endgroup$
    – Praan
    Dec 15, 2015 at 10:30
7
$\begingroup$

ColorData[1,"ColorList"] gives the full list for the default colour set.

enter image description here

Improve this answer
$\endgroup$
4
$\begingroup$

The closest source of the default style colors I could find is this internal function:

System`Private`$PlotStyleFunction[3]

{{Hue[0.67, 0.6, 0.6]}, {Hue[0.906068, 0.6, 0.6]}, {Hue[0.142136, 0.6, 0.6]}}

Yielding e.g. the first three style colors. These as noted by others are exceedingly close to ColorData[1], the function of which is:

ColorData[1][[4]]

(ToColor[Hue[N[FractionalPart[0.67 + (2 (#1 - 1))/GoldenRatio]], 0.6, 0.6],
  RGBColor] &)[Floor[#1 - 1, 1] + 1] &

If you are interested in changing the defaults don't miss:

How to change the default ColorData used in Mathematica's Plot?

Improve this answer
$\endgroup$
1
  • 1
    $\begingroup$ Since System`Private`$PlotStyleFunction returns HSB values as opposed to RGB values, if you want to see the RGB values, do this: ColorConvert[#, RGBColor] & /@ Flatten[System`Private`$PlotStyleFunction[3]]. $\endgroup$
    – J. M.'s persistent exhaustion ♦
    Oct 9, 2012 at 22:37
2
$\begingroup$

The default color is Hue[0.67, 0.6, 0.6]

Improve this answer
$\endgroup$
4
  • 1
    $\begingroup$ How did you determine this or where did you find this documented? -- Thx $\endgroup$
    – Jagra
    Oct 9, 2012 at 16:57
  • $\begingroup$ Thanks. Is it possible to convert those values to RGB values used in many paint programs? $\endgroup$
    – Andrew
    Oct 9, 2012 at 16:57
  • $\begingroup$ Also, it seems that in some programs (for example, Microsoft Word 2003), HSL values go from 0 to 255, not 0 to 1 as in Mathematica. I guess, then, I should just multiply by 255 and round to the nearest integer? $\endgroup$
    – Andrew
    Oct 9, 2012 at 17:00
  • 1
    $\begingroup$ @Andrew Yes, certainly. $\endgroup$
    – Alexey Popkov
    Oct 9, 2012 at 17:33

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.