MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?