Loading the Colors' package.

We load the Colors' package.

In[52]:=

<<Graphics`Colors`

We define a command, "ListAllColor", printing one coloured strip for each color in the list 'Colors'. When we have to choose a color, we first run "ListAllColor" in a separate windows, then we choose one.

In[53]:=

ListAllColors := CompoundExpression[<br />        n = ... [color] ; Show[Graphics[RasterArray[{{val}}]], AspectRatio->1/50, ImageSize-> {500, 20}]]] ;

We define a map merging two colors into a third one, intermediate between them.

In[54]:=

Merge[RGBColor[a_, b_, c_], RGBColor[e_, f_, g_]] := RGBColor[(a + e)/2, (b + f)/2, (c + g)/2] ;

Created by Mathematica  (October 17, 2006)