Re: Color names and the 10 elementary colors?

*To*: mathgroup at smc.vnet.net*Subject*: [mg69461] Re: Color names and the 10 elementary colors?*From*: p-valko at tamu.edu*Date*: Wed, 13 Sep 2006 04:02:05 -0400 (EDT)*References*: <200607010912.FAA20399@smc.vnet.net><ee649s$5tm$1@smc.vnet.net>

Part[nm, Position[Map[ToExpression[#] &, nm], _RGBColor] // Flatten] ??? Murray Eisenberg wrote: > In Mathematica 5.2, how does one find all the names of BUILT-IN colors > -- as opposed to those given names only in Graphics`Colors`? > > Bob Hanlon wrote: > > Needs["Graphics`"]; > > > > All Colors and GrayLevels: > > > > mc = DeleteCases[Select[Names[], > > (Head[ToExpression[#]] == RGBColor || > > Head[ToExpression[#]] == GrayLevel) &], > > _?(# == "System`Convert`MathMLDump`$defaultColor" || > > # == "se" &)]; > > > > Colors and GrayLevels not in AllColors: > > > > Complement[mc,AllColors] > > > > {AquamarineMedium,Black,Blue,BlueLight,BlueMedium,Brown,Cadet,CadmiumRedDeep,\ > > CadmiumRedLight,CadmiumYellowLight,CobaltVioletDeep,CoralLight,Cyan,\ > > GoldenrodDark,GoldenrodLight,GoldenrodPale,Gray,Green,GreenDark,GreenPale,\ > > KhakiDark,MadderLakeDeep,Magenta,NaplesYellowDeep,OliveGreenDark,Orange,\ > > OrchidDark,OrchidMedium,Pink,PinkLight,Purple,PurpleMedium,Red,SeaGreenDark,\ > > SeaGreenLight,SeaGreenMedium,SkyBlueDeep,SkyBlueLight,SlateBlueDark,\ > > SlateBlueLight,SlateBlueMedium,SlateGrayDark,SlateGrayLight,SpringGreenMedium,\ > > SteelBlueLight,TurquoiseDark,TurquoiseMedium,TurquoisePale,VioletDark,\ > > VioletRedMedium,VioletRedPale,ViridianLight,White,Yellow,YellowLight} > > > > Names["*Green*"] > > > > {ChromeOxideGreen,CinnabarGreen,CobaltGreen,DarkGreen,DarkOliveGreen,\ > > DarkSeaGreen,EmeraldGreen,ForestGreen,Green,GreenDark,GreenishUmber,GreenPale,\ > > GreenYellow,LawnGreen,LightSeaGreen,LimeGreen,MediumSeaGreen,\ > > MediumSpringGreen,OliveGreenDark,PaleGreen,PermanentGreen,SapGreen,SeaGreen,\ > > SeaGreenDark,SeaGreenLight,SeaGreenMedium,SpringGreen,SpringGreenMedium,\ > > YellowGreen} > > > > If you convert this to InputForm the string quotes will be visible. > > > > > > Bob Hanlon > > > > ---- AES <siegman at stanford.edu> wrote: > >> When I recently inquired about using the names of Mathematica colors > >> ("CinnabarGreen", etc.) as label strings in a series of test plots, > >> several responses proposed that I needed to manually input the names in > >> quotes. Brian Higgins suggested, however, a terse but somewhat arcane > >> way to get color names as strings together with the corresponding RGB > >> values with the Input line > >> > >> allColorNames = > >> ({#1, ToColor[ ToExpression[#1], RGBColor]}&) /@ AllColors; > >> > >> so that the Input > >> > >> allColorNames[[4]] > >> > >> produces the Output > >> > >> { Apricot, RGBColor[1., 0.340007, 0.129994] } > >> > >> (although his Output showed quotes around "Apricot" and mine doesn't.) > >> > >> Since my objective was to test all varieties of Green, I added to this a > >> more crudely programmed statement to generate a list of all the green > >> color names and color values, viz. > >> > >> allGreens={ }; > >> Do[ > >> If[ StringMatchQ[ allColorNames[[k,1]], "*Green*" ], > >> AppendTo[ allGreens, allColorNames[[k]] ] ], > >> {k, 1, Length[ allColorNames ]} ]; > >> > >> This works fine -- until you notice that just plain "Green" itself is > >> not in the resulting list. In fact, Green (along with Red, Blue, Brown, > >> Orange, and 4 or 5 other "elementary colors") is not in AllColors. > >> > >> I believe in earlier versions of Mathematica one had to use Graphics`Colors` to > >> access even these elementary colors, and so they were presumably once > >> included in AllColors (?); and I think I've learned somewhere that 10 or > >> so of these elementary colors are now included within "plain > >> Mathematica" and no long require calling the Graphics`Colors` package. > >> But: > >> > >> 1) I'd sure like to understand the logic of not continuing to use these > >> colors in AllColors nonetheless. Removing them seems a confusing and > >> less than helpful choice to me at any rate. And, > >> > >> 2) Where -- or more important, how -- can the nonexpert user get at the > >> list of these elementary colors? > >> > >> As a challenge, try invoking online Help on "Color" or "Colors" or any > >> one of the elementary color names, and see if, using no more than 5 > >> subsequent mouse clicks within the Help screen, no typing, and no > >> pre-existing expert knowledge, just "common sense", you can find your > >> way to the list of those colors. > >> > > > > > > -- > Murray Eisenberg murray at math.umass.edu > Mathematics & Statistics Dept. > Lederle Graduate Research Tower phone 413 549-1020 (H) > University of Massachusetts 413 545-2859 (W) > 710 North Pleasant Street fax 413 545-1801 > Amherst, MA 01003-9305