Re: color swatch
- To: mathgroup at smc.vnet.net
- Subject: [mg65868] Re: [mg65853] color swatch
- From: "David Park" <djmp at earthlink.net>
- Date: Wed, 19 Apr 2006 04:54:38 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
The DrawGraphics palette has all the colors on it. They are roughly arranged into similar color groups and can be pasted into a notebook. There are also buttons to delete all graphics cells, mix colors and paste in the commands for selecting, closing and starting an animation from a set of animation frame cells. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Mitch Murphy [mailto:mitch at mix5.com] To: mathgroup at smc.vnet.net hi, somebody else might find this snippet of code useful. it creates a four page color swatch of all colors available in mathematica (ie. AllColors). -------------------- swatch[i_] := Graphics[{ToExpression[AllColors[[i]]], Rectangle[{0, 0}, {1, 1}]}, AspectRatio -> 1, PlotLabel -> AllColors[[i]]]; w = 600; Show[GraphicsArray[Table[swatch[6i + j], {i, 0, 7}, {j, 1, 6}]], ImageSize -> w]; Show[GraphicsArray[Table[swatch[6i + j], {i, 8, 15}, {j, 1, 6}]], ImageSize -> w]; Show[GraphicsArray[Table[swatch[6i + j], {i, 16, 13}, {j, 1, 6}]], ImageSize -> w]; Show[GraphicsArray[Table[swatch[6i + j], {i, 24, 29}, {j, 1, 6}]], ImageSize -> w]; -------------------- cheers, Mitch