MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Colors in ScatterPlot3D?


Klaus,

Without using ScatterPlot...

atable = Table[Random[Integer, {1, 10}], {50}, {3}];
colortable = Table[Random[Real, {0, 1}], {50}];

Show[Graphics3D[
      {AbsolutePointSize[8],
        MapThread[{RGBColor[#1, 0, 0], Point[#2]} &, {colortable,
atable}]}],
    Axes -> True];

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/


From: Klaus G [mailto:Karl_boehme_9 at msn.com]
To: mathgroup at smc.vnet.net
To give colors to each point individually the following has been
proposed recently:

<< Graphics`Graphics3D`

atable = Table[Random[Integer, {1, 10}], {50}, {3}];
colortable = Table[Random[Real, {0, 1}], {50}]
ScatterPlot3D[atable, PlotStyle -> RGBColor[#, 0, 0]&/@ colortable]

But all colors are the same. It looks like only the first color value
in colortable is used.

Thanks.

Klaus G.




  • Prev by Date: Re: Colors in ScatterPlot3D?
  • Next by Date: Re: Colors in ScatterPlot3D?
  • Previous by thread: Re: Re: Colors in ScatterPlot3D?
  • Next by thread: Re: Colors in ScatterPlot3D?