Re: Colors in ScatterPlot3D?

• To: mathgroup at smc.vnet.net
• Subject: [mg51012] Re: [mg50978] Colors in ScatterPlot3D?
• From: DrBob <drbob at bigfoot.com>
• Date: Fri, 1 Oct 2004 04:49:26 -0400 (EDT)
• References: <200409300852.EAA26534@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```The option should be:

PlotStyle -> (RGBColor[#, 0, 0] & /@ colortable)

But that still gives the first color for all the points.

This works, however:

atable = Table[Random[Integer, {1, 10}], {50}, {3}];
colortable = Table[Random[Real, {0, 1}], {50}];
red = RGBColor[#, 0, 0] &
Show[Graphics3D at {PointSize[.02], Transpose@{red /@
colortable, Point /@ atable}}]

Bobby

On Thu, 30 Sep 2004 04:52:34 -0400 (EDT), Klaus G <Karl_boehme_9 at msn.com> wrote:

> 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.
>
>
>
>

--
DrBob at bigfoot.com
www.eclecticdreams.net

```

• Prev by Date: Write long table into file problem
• Next by Date: Re: Linear Programming
• Previous by thread: Re: Colors in ScatterPlot3D?
• Next by thread: Re: Colors in ScatterPlot3D?