Re: Re: Colors in ScatterPlot3D?
- To: mathgroup at smc.vnet.net
- Subject: [mg51038] Re: [mg51024] Re: Colors in ScatterPlot3D?
- From: DrBob <drbob at bigfoot.com>
- Date: Sat, 2 Oct 2004 03:18:23 -0400 (EDT)
- References: <cjgih6$q5a$1@smc.vnet.net> <200410010850.EAA11651@smc.vnet.net>
- Reply-to: drbob at bigfoot.com
- Sender: owner-wri-mathgroup at wolfram.com
>> ScatterPlot3D[atable, PlotStyle -> {RGBColor[#, 0, 0]}& /@ colortable]
>> should give you different shades of red.
But it doesn't.
Run this a few times, and you'll see:
atable = Table[Random[Integer, {1, 10}], {50}, {3}];
colortable = Table[Random[Real, {0, 1}], {50}];
ScatterPlot3D[atable, PlotStyle -> ({PointSize[.05Random[]], RGBColor[#, 0,
0]} & /@ colortable)]
All the points are the same size and color.
Bobby
On Fri, 1 Oct 2004 04:50:10 -0400 (EDT), Peter Pein <petsie at arcor.de> wrote:
> "Klaus G" <Karl_boehme_9 at msn.com> schrieb im Newsbeitrag
> news:cjgih6$q5a$1 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.
>>
>
> ScatterPlot3D[atable, PlotStyle -> {RGBColor[#, 0, 0]}& /@ colortable]
> should give you different shades of red.
--
DrBob at bigfoot.com
www.eclecticdreams.net
- References:
- Re: Colors in ScatterPlot3D?
- From: "Peter Pein" <petsie@arcor.de>
- Re: Colors in ScatterPlot3D?