Re: (Newbie) Applying colors to surface plots
- To: mathgroup at smc.vnet.net
- Subject: [mg21146] Re: [mg21095] (Newbie) Applying colors to surface plots
- From: "David Park" <djmp at earthlink.net>
- Date: Fri, 17 Dec 1999 01:21:48 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Fedder,
You need to use the graphics option Lighting -> False, and an extra argument in your
plot function to specify the color of the surface. Here is an example:
Needs["Graphics`Colors`"]
ParametricPlot3D[{5*Cos[b]*Sin[a], 5*Sin[a]*Sin[b],
5*Cos[a], LightBlue}, {a, 0, Pi}, {b, 0, 2*Pi},
PlotPoints -> {15, 31}, Lighting -> False];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
>I would like to apply a given color to a plot such as:
>
>ParametricPlot3D[sphere[1][a,b]//Evaluate,{a,0,Pi},{b,0,2Pi}]
>
>I have tried to work with SurfaceColor, but failed to get it to work. It
>seems very cumbersome to apply individual light sources to get an even
>color on the surface. This is even a larger challenge when combining
>several graphics objects and wishing to assign colors to individual
>objects.
>
>Thanks in advance for any recommadation