Coloring 3D-surfaces
- To: mathgroup at smc.vnet.net
- Subject: [mg78400] Coloring 3D-surfaces
- From: Richard KAUSCH <rkausch at free.fr>
- Date: Sat, 30 Jun 2007 06:09:18 -0400 (EDT)
Hello
I would color differently a conic surface and the disk which closes it.
I can do it easily with named colors as follows:
ParametricPlot[{{r Cos[t],r Sin[t], 2 r},{r Cos[t],r Sin[t},6}},{r,
0,3},{t,-Pi,Pi},
Axes->None,Mesh->False,Boxed->False,
PlotStyle->{Red,Green}].
It is easy too to have the whole plot coloured with one unique
ColorData directive, say,BrassTones:
ParametricPlot[{{r Cos[t],r Sin[t], 2 r},{r Cos[t],r Sin[t},6}},{r,
0,3},{t,-Pi,Pi},ColorFunction->(ColorData["BrassTones"][#1]&),
Axes->None,Mesh->False,Boxed->False,]
But how can one manage to colour the cone with BrassTones and the disk
with,say,FuchsiaTones or the cone with BrassTones and the disk with
Red ?
All trials I made were unsuccessful. Can somebody help me ? Thanks.