Coloring function

*To*: mathgroup at smc.vnet.net*Subject*: [mg121429] Coloring function*From*: guiwi <guillaume.witz at yahoo.com>*Date*: Thu, 15 Sep 2011 04:37:38 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

Hi everybody. I have a general problem with the coloring method of ColofFunction. Let's consider a plane of points that one wants to plot with ListPointPlot3D. If I want to color the points according to their x position, I write: ListPointPlot3D[Flatten[Table[Table[{i, j, 0}, {j, -30, 30}], {i, -30, 30}], 1], ColorFunction -> Function[{x, y, z}, RGBColor[x, 0, 0]]] and that indeed works. But if I want to color according to the absolute value of x and use ColorFunction -> Function[{x, y, z}, RGBColor[Abs[x], 0, 0]] the coloring is not symmetrical around the x=0 position, but identical to the previous case. Another problem is to obtain a radial coloring with ColorFunction -> Function[{x, y, z}, RGBColor[x^2+y^2, 0, 0]] where the origin of the radial coloring is not at {0,0} but somewhere on the edge of the plot. Anyone knows how to control that coloring ? Thanks. Guillaume

**Follow-Ups**:**Re: Coloring function***From:*Heike Gramberg <heike.gramberg@gmail.com>