Re: Colors in ScatterPlot3D?
- To: mathgroup at smc.vnet.net
- Subject: [mg50995] Re: [mg50978] Colors in ScatterPlot3D?
- From: "David Park" <djmp at earthlink.net>
- Date: Fri, 1 Oct 2004 04:48:11 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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.