MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.



  • Prev by Date: Re: Motion
  • Next by Date: Graphics package in v6
  • Previous by thread: Number formatting in plots
  • Next by thread: Graphics package in v6