Re: 3D Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg51756] Re: 3D Plot
- From: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>
- Date: Mon, 1 Nov 2004 02:52:32 -0500 (EST)
- References: <cm20d9$g4h$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Here is an example based on a 3D plot in the Graphics`ParametricPlot3D`
documentation:
<<Graphics`ParametricPlot3D`
ParametricPlot3D[{Cos[u] Cos[v],Sin[u]
Cos[v],Sin[v],EdgeForm[]},{u,0,2Pi,Pi/20},{v,-Pi/2,Pi/2,Pi/20},
LightSources->{{{1,0,1},RGBColor[1,0,0]}}];
Comments:
1. The 4th coordinate is represented in plots by using graphics
properties (there are no spatial dimensions left to use!). In this case
EdgeForm[] is used to suppress the mesh lines.
2. The option LightSources is used to control the placement of the light
sources. Here LightSources->{{{1,0,1},RGBColor[1,0,0]}} is used to create a
single red light source that illuminates the part of the plot that is
visible.
Steve Luttrell
"Flurchick, Kenneth M" <FLURCHICKK at MAIL.ECU.EDU> wrote in message
news:cm20d9$g4h$1 at smc.vnet.net...
> GentleBeings
> I must be missing something simple
> I have a CylindricalPlot3D and I want the
> object to have no mesh lines and be one single color
> I note the RealTime3D ignores EdgeForm[]
> Lighting->False with COlorFunction does not seem to do it
> and I just cannot seem to find the right incantation
>
> I looked at the archives and could not find it there either
> kenf
>