Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

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: [mg67498] RE: [mg67473] Getting Color *names* as strings?
  • From: "David Park" <djmp at earthlink.net>
  • Date: Wed, 28 Jun 2006 03:52:27 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Needs["Graphics`Colors`"]

HoldForm[{CinnabarGreen, ChromeOxideGreen, CobaltGreen}]
greens = Map[HoldForm, %, {2}] // ReleaseHold

Do[Plot[k*x, {x, 1, 2}, PlotStyle :> 
    ReleaseHold[greens[[k]]], PlotLabel -> 
    greens[[k]]], {k, 1, Length[greens]}]

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/ 

From: AES [mailto:siegman at stanford.edu]
To: mathgroup 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: Viewing animations also on RealTime3D
  • Next by Date: Re: matrix substitution
  • Previous by thread: Re: Getting Color *names* as strings?
  • Next by thread: Re: Getting Color *names* as strings?