Re: Getting Color *names* as strings?

• To: mathgroup at smc.vnet.net
• Subject: [mg67486] Re: Getting Color *names* as strings?
• From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
• Date: Wed, 28 Jun 2006 03:51:34 -0400 (EDT)
• Organization: Uni Leipzig
• References: <e7qmpk\$6ne\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

greens={"CinnabarGreen", "ChromeOxideGreen",
"CobaltGreen"};

Do[ Plot[ func, range, PlotStyle ->
ToExpression[greens[[k]]],
PlotLabel -> greens[[k]] ] ,
{k, 1, Length[greens]} ];

may help.

Regards
Jens

"AES" <siegman at stanford.edu> schrieb im
Newsbeitrag news:e7qmpk\$6ne\$1 at smc.vnet.net...
| Trying out different named Colors in a plot by
using
|
|   greens={CinnabarGreen, ChromeOxideGreen,
CobaltGreen, etc};
|
|   Do[ Plot[ func, range, PlotStyle ->
greens[[k]],
|                    PlotLabel ->
ToString[greens[[k]]] ] ,
|         {k, 1, Length[greens]} ];
|
| Works fine -- except the PlotLabel comes out as
"RGB[num, num, num]" --
| and using SymbolName[greens[[1]]] or even
SymbolName[CinnabarGreen] does
| _not_ give the string "CinnabarGreen".
|
| How can I get the *name* of each color as a
string to put in PlotLabel
| or in a Text label?
|
| (Trivial problem, I agree, but just frustrating
enough to be interesting)
|

```

• Prev by Date: Re: matrix substitution
• Next by Date: Re: solving an equation with sums
• Previous by thread: RE: Getting Color *names* as strings?
• Next by thread: Re: Getting Color *names* as strings?