Re: Color Charts
- To: mathgroup at smc.vnet.net
- Subject: [mg26430] Re: Color Charts
- From: Schlier <schlier at uni-freiburg.de>
- Date: Wed, 20 Dec 2000 00:21:50 -0500 (EST)
- Organization: uni freiburg
- References: <914lvu$e1u@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Bernd Brandt wrote:
> Dear group,
>
> Does someone know how I can read to code which produces all the color charts
> in the Help browser?
> Under Getting Started/Demos - Graphics Gallery - Color Charts is a
> number of color charts (RGB, Hue, GrayLevel).
>
> I would like know the code that produced these.
>
> Regards,
> Bernd
Hi,
Here is some example showing Hue in steps of 0.05 (0.05) 1.0, Saturation = 1,
and Brightness in steps of 0.1 (0.1) 1.0 similar to what you ask for. You can
play around with it. However, writing the axis numbers with text is not an
optimal solution, since you need some to adapt the string to the size of the
plot,
coltab = Table[Graphics[{Hue[j*0.05, 1., 0.70+k*0.03], Rectangle[{0,0}, {1,1}]
}],{k,1,10}, {j,1,20}];
numtab = Table[{" "<>ToString[0.1*n-0.1]<>" "},{n,1,10}]//Flatten;
Show[GraphicsArray[coltab],
AspectRatio->0.8,
ImageSize->400,
TextStyle->{FontFamily->"Arial", FontSize->12},
Background->GrayLevel[0.1],
Epilog->Text[numtab,{0,-.1},{-1,0}]];
You should also consult Tom Wickham-Jones's book Mathematica Graphics, Chapter
11.
Sincerely C.S.