Re: ColorFunctions again (making z=0 be different from z=1)

*To*: mathgroup at smc.vnet.net*Subject*: [mg50593] Re: ColorFunctions again (making z=0 be different from z=1)*From*: "Peltio" <peltio at twilight.zone>*Date*: Sat, 11 Sep 2004 06:45:00 -0400 (EDT)*References*: <chk0cu$sj$1@smc.vnet.net> <chpa0a$jsl$1@smc.vnet.net> <chroci$50m$1@smc.vnet.net>*Reply-to*: "Peltio" <peltioNOSP at Mdespammed.com.invalid>*Sender*: owner-wri-mathgroup at wolfram.com

"AES/newspost" wrote >But color adds something also. >Would you have offhand a way to define a > > RedLevel > >that goes from white for z=0 to brightest red for z=1? I would suggest moving along the saturation direction with lightness set to the maximum value in Hue[h, s, l] The first parameter in hue allows you to select the desired hue: 0 and 1 are red, 0.84 is violet, 0.33 is green and so on... You might want to choose a different value for the last parameter (lightness). Here's the 'plain red' version: RedLevel[x_, maxBk_:0.1, maxWh_:1] := Hue[1, maxBk + x(maxWh - maxBk), 1] f[x_,y_]:=Sin[x^2+y^2]/(x^2+y^2) Plot3D[f[x, y], {x, -4, 4}, {y, -4, 4}, ColorFunction ->RedLevel, PlotRange -> All, PlotPoints -> 35]; We can define a function WhiteToColor[h_][x_, maxBk_:0, maxWh_:1] := Hue[h, maxBk + x(maxWh - maxBk), 1] So that we can choose which hue to use in this way: Plot3D[f[x, y], {x, -4, 4}, {y, -4, 4}, ColorFunction ->WhiteToColor[.84], PlotRange -> All, PlotPoints -> 35]; But I prefer to use a simple function like this: Jungle = RGBColor[1 - #, #, 0.74] & Plot3D[f[x, y], {x, -4, 4}, {y, -4, 4}, ColorFunction ->Jungle, PlotRange -> All, PlotPoints -> 35]; Hope this helps, Peltio invalid address in reply-to. crafty demunging required to mail me