Function Coloring with ParametricPlot3D

*To*: mathgroup at smc.vnet.net*Subject*: [mg31264] Function Coloring with ParametricPlot3D*From*: "David Park" <djmp at earthlink.net>*Date*: Tue, 23 Oct 2001 21:59:10 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Dear MathGroup, There is a percularity of the ParametricPlot3D command with color specification as the fourth element that bugs me. It appears that this is the way that the algorithm works. Mathematica calculates the color that would result from the four corners of the square and then blends the colors. I suppose that in some sense this can be considered to be reasonable. But if you write a color function that specifices a specific set of colors, this blending introduces new colors which one may not want. Here is an example. Needs["Graphics`Colors`"] cfun[x_, y_] := Module[{val = Sqrt[x^2 + y^2]}, Which[ val <= 7, PaleGreen, val > 7, OrangeRed]] ParametricPlot3D[{x, y, 0, cfun[x, y]}, {x, 0, 10}, {y, 0, 10}, PlotPoints -> 8, Lighting -> False]; What I would like to do is have Mathematica determine a single function value for each square, perhaps by averaging the values at the four corners, and then apply my color function to that single value. In that case there would be no blending, unless I decide to do the blending in my color function. Does anyone know how to work around this? David Park djmp at earthlink.net http://home.earthlink.net/~djmp/