[Date Index] [Thread Index] [Author Index]

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