Re: Coloring 3D-surfaces
- To: mathgroup at smc.vnet.net
- Subject: [mg78415] Re: Coloring 3D-surfaces
- From: chuck009 <dmilioto at comcast.com>
- Date: Sun, 1 Jul 2007 03:45:21 -0400 (EDT)
Try this:
color1[t_] := Blue;
color2[t_] := Green;
ParametricPlot3D[{{r Cos[t], r Sin[t], 2 r, color1[t]}, {r Cos[t], r Sin[t],
6, color2[t]}}, {r, 0, 3}, {t, -Pi, Pi}, Axes -> None,
Boxed -> False, Lighting -> False]