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)
|