Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

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.




  • Prev by Date: Question: nonlinear differential equation with boundary conditions
  • Next by Date: Re: Pattern match exactly 0 or 1 times?
  • Previous by thread: Color Charts
  • Next by thread: How can I display the total time ?