Re: ColorFunction for ListPlot3D, ListContourPlot or ListDensityPlot ?
- To: mathgroup at smc.vnet.net
- Subject: [mg29048] Re: ColorFunction for ListPlot3D, ListContourPlot or ListDensityPlot ?
- From: "John Jowett" <John.Jowett at cern.ch>
- Date: Sat, 26 May 2001 21:53:38 -0400 (EDT)
- Organization: CERN
- References: <oplP6.3625$8I3.14298@ralph.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
David,
It may be worth remarking that your function is even more useful
(without modification!) if you first load the standard package
<<Graphics`Colors`
Then you can mix ways of specifying colours to your heart's content, e.g.,
blend =ColorMix[BurntSienna,CMYKColor[1,..8,0]]
Plot3D[Sin[x+3 y-Random[]],{x,0,4},{y,0,3},ColorFunction->blend]
John Jowett
"David Park" <djmp at earthlink.net> wrote in message
news:oplP6.3625$8I3.14298 at ralph.vnet.net...
> Joerg,
>
> Here is a ColorMix function for blending two colors. (I think that Bob
> Hanlon had a similar routine posted a few days ago.)
>
> ColorMix[color1_, color2_][z_] :=
> Module[{c1, c2},
> c1 = List @@ color1;
> c2 = List @@ color2;
> RGBColor @@ ((1 - z)c1 + z c2)]
>
> Here, I make a contour plot that shades from brown to green. I picked the
> colors off the color selector in the menu.
>
> ContourPlot[Sin[x*y], {x, -Pi/2, Pi/2},
> {y, -Pi/2, Pi/2}, PlotPoints -> 30, Contours -> 10,
> ContourLines -> False, ColorFunction ->
> ColorMix[RGBColor[0.867201, 0.660166, 0.312505],
> RGBColor[0.265629, 0.398444, 0.101564]]];
>
> David Park
> djmp at earthlink.net
> http://home.earthlink.net/~djmp/
>