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.