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