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/ >