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